#1
|
|||
|
|||
Convert .mi annotation to dwg.
Hello, we need to save some .mi drawings over annotation to dwg.
It's requirement of our client. Annotation create a file with a unique block in a one layer. I check the process and change somethings in the dwxfdwg.con. But, I would like to create a layer for dimension, other for centerline, phanton line, etc. It's possible to do it? thanks. |
#2
|
||||
|
||||
Re: Convert .mi annotation to dwg.
Hello Julio,
this is possible in Drafting, but not so easy. You will have to write a macro to do the work for you. Here yo can find a good document with explanations http://tdwsoft.blogspot.be/2007/04/l...tion-nach.html It is in german but google translate it very well. A second link to the German forum where the same question was asked http://ww3.cad.de/foren/ubb/Forum15/HTML/001649.shtml Exemple: Edit: WARNING the following Macro contains errors. Please see the next post DEFINE layer_belegung INQ_SELECTED_ELEM SELECT GLOBAL TEXTS CONFIRM IF (INQ 14) { um bei fehlendem Element eine Fehlermeldung zu verhindern. When there is no element to prevent an error message} CHANGE_ELEM_INFO NAMESPACE 'SYS:LAYER_SCOPE' 'LAYER:*' 'LAYER:TEXT' select GLOBAL TEXTS CONFIRM END END_IF INQ_SELECTED_ELEM SELECT GLOBAL SOLID CONFIRM IF (INQ 14) CHANGE_ELEM_INFO NAMESPACE 'SYS:LAYER_SCOPE' 'LAYER:*' 'LAYER:Solid_line' select GLOBAL SOLID CONFIRM END END_IF INQ_SELECTED_ELEM SELECT GLOBAL PHANTOM CONFIRM IF (INQ 14) CHANGE_ELEM_INFO NAMESPACE 'SYS:LAYER_SCOPE' 'LAYER:*' 'LAYER:Phantom_line' select GLOBAL PHANTOM CONFIRM END END_IF INQ_SELECTED_ELEM SELECT GLOBAL DIMENSIONS ALL CONFIRM IF (INQ 14) CHANGE_ELEM_INFO NAMESPACE 'SYS:LAYER_SCOPE' 'LAYER:*' 'LAYER:dimension' select GLOBAL DIMENSIONS ALL CONFIRM END END_IF INQ_SELECTED_ELEM SELECT GLOBAL HATCHING ALL CONFIRM IF (INQ 14) CHANGE_ELEM_INFO NAMESPACE 'SYS:LAYER_SCOPE' 'LAYER:*' 'LAYER:HATCH' select GLOBAL HATCHING ALL CONFIRM END END_IF { and so on } END_DEFINE Important: in the Drafting DXFDWG.con RecordByLayerInfo ON Last edited by Friedly; 03-17-2013 at 05:23 AM. Reason: Errors in macro. Warning in order to avoid errors |
#3
|
||||
|
||||
Re: Convert .mi annotation to dwg.
Hello Julio,
Unfortunately I had to notice that in my Macro proposal were some errors Here is the improved version. Sorry DEFINE layer_belegung INQ_SELECTED_ELEM SELECT GLOBAL ALL CONFIRM IF (INQ 14) { um bei fehlendem Element eine Fehlermeldung zu verhindern. When there is no element to prevent an error message } { Fuer die Elemente die gar keine Info haben. For elements who don't have anny info} ADD_ELEM_INFO INFO_NAMESPACE 'SYS:LAYER_SCOPE' 'LAYER: 1' SELECT GLOBAL ALL CONFIRM END END_IF INQ_SELECTED_ELEM SELECT GLOBAL SOLID CONFIRM IF (INQ 14) CHANGE_ELEM_INFO INFO_NAMESPACE 'SYS:LAYER_SCOPE' '*' 'LAYER: Solid_line' SELECT GLOBAL SOLID CONFIRM END END_IF INQ_SELECTED_ELEM SELECT GLOBAL PHANTOM CONFIRM IF (INQ 14) CHANGE_ELEM_INFO INFO_NAMESPACE 'SYS:LAYER_SCOPE' '*' 'LAYER: Phantom_line' SELECT GLOBAL PHANTOM CONFIRM END END_IF INQ_SELECTED_ELEM SELECT GLOBAL DIMENSIONS ALL CONFIRM IF (INQ 14) CHANGE_ELEM_INFO INFO_NAMESPACE 'SYS:LAYER_SCOPE' '*' 'LAYER: Dimension' SELECT GLOBAL DIMENSIONS ALL CONFIRM END END_IF INQ_SELECTED_ELEM SELECT GLOBAL HATCHING ALL CONFIRM IF (INQ 14) CHANGE_ELEM_INFO INFO_NAMESPACE 'SYS:LAYER_SCOPE' '*' 'LAYER: Hatch' SELECT GLOBAL HATCHING ALL CONFIRM END END_IF INQ_SELECTED_ELEM SELECT GLOBAL TEXTS ALL CONFIRM IF (INQ 14) CHANGE_ELEM_INFO INFO_NAMESPACE 'SYS:LAYER_SCOPE' '*' 'LAYER: Text' SELECT GLOBAL TEXTS ALL CONFIRM END END_IF { and so on } END_DEFINE |
Currently Active Users Viewing This Thread: 1 (0 members and 1 guests) | |
Thread Tools | Search this Thread |
Display Modes | Rate This Thread |
|
|