Scribd
Upload
36 views2 pages

PDMS2DGN Coordinate

The document contains code for exporting multiple 3D models from a PDMS database to individual DGN files based on their site designation. It sets variables for the start and end coordinates to define the export region. It then loops through 12 times, each time setting the filename, item collection variable, and color number for one site designation. The items matching that designation are exported to the DGN file with that color before moving to the next iteration.

Uploaded by

perdana kusuma
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
36 views2 pages

PDMS2DGN Coordinate

The document contains code for exporting multiple 3D models from a PDMS database to individual DGN files based on their site designation. It sets variables for the start and end coordinates to define the export region. It then loops through 12 times, each time setting the filename, item collection variable, and color number for one site designation. The items matching that designation are exported to the DGN file with that color before moving to the next iteration.

Uploaded by

perdana kusuma
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
You are on page 1/ 2

!

todate = '00-00-00'
!todate = !!shidate(!todate)
!todate = !todate.replace('/', '-').trim()

--coordinate is here
!frcoord = 'X 78500 Y 178506 Z 109484 wrt world'
!tocoord = 'X 120122 Y 239294 Z 125319 wrt world'

--output
!path = 'X:\DEPARTMENT\ENGD\3D\Projects\ENI\Jangkrik-DGN\JGK-DGN-$!todate'
SYSCOM 'MKDIR $!path'
var !Sitems coll all zone mem with purp of site eq 'S' within $!frcoord TO $!
tocoord
var !Mitems coll all zone mem with purp of site eq 'M' within $!frcoord TO $!
tocoord
var !Eitems coll all zone mem with purp of site eq 'E' within $!frcoord TO $!
tocoord
var !Iitems coll all zone mem with purp of site eq 'I' within $!frcoord TO $!
tocoord
var !Aitems coll all zone mem with purp of site eq 'A' within $!frcoord TO $!
tocoord
var !Jitems coll all zone mem with purp of site eq 'J' within $!frcoord TO $!
tocoord
var !Hitems coll all zone mem with purp of site eq 'H' within $!frcoord TO $!
tocoord
var !Zitems coll all zone mem with purp of site eq 'Z' within $!frcoord TO $!
tocoord
var !Litems coll all zone mem with purp of site eq 'L' within $!frcoord TO $!
tocoord
var !Kitems coll all zone mem with purp of site eq 'K' within $!frcoord TO $!
tocoord
var !Nitems coll all zone mem with purp of site eq 'N' within $!frcoord TO $!
tocoord
var !Ritems coll all zone mem with purp of site eq 'R' within $!frcoord TO $!
tocoord

do !i from 1 to 12

if !i eq 1 then
!fnam = 'jgkINST.DGN'
!item = !Iitems
!col = '20'
elseif !i eq 2 then
!fnam = 'jgkELEC.DGN'
!item = !Eitems
!col = '30'
elseif !i eq 3 then
!fnam = 'jgkARC.DGN'
!item = !Aitems
!col = '42'
elseif !i eq 4 then
!fnam = 'jgkHAND.DGN'
!item = !Mitems
!col = '60'
elseif !i eq 5 then
!fnam = 'jgkSAF.DGN'
!item = !Sitems
!col = '25'
elseif !i eq 6 then
!fnam = 'jgkNAV.DGN'
!item = !Jitems
!col = '32'
elseif !i eq 7 then
!fnam = 'jgkHVA.DGN'
!item = !Hitems
!col = '52'
elseif !i eq 8 then
!fnam = 'jgkMISC.DGN'
!item = !Zitems
!col = '70'
elseif !i eq 9 then
!fnam = 'jgkSTR.DGN'
!item = !Nitems
!col = '150'
elseif !i eq 10 then
!fnam = 'jgkPIPL.DGN'
!item = !Litems
!col = '79'
elseif !i eq 11 then
!fnam = 'jgkPIPK.DGN'
!item = !Kitems
!col = '79'
elseif !i eq 12 then
!fnam = 'jgkEQUI.DGN'
!item = !Ritems
!col = '90'
endif

EXPORT SYSTEM /explant


HANDLE(75,202)
ENDHANDLE
export option 'seedfile' 'P:\Plant\PDMS12.0.SP6\seed3d.dgn'
EXPORT FILE /$!path\$!fnam OVER
EXPORT HOLES ON
EXPORT REPRE OFF
EXPORT all from !item COLOUR $!col
EXPORT FINISH

enddo

You might also like