CoCreate User Forum  

Go Back   CoCreate User Forum > Applications > Annotation

Reply
 
Thread Tools Search this Thread Rate Thread Display Modes
  #1  
Old 03-05-2013, 02:34 AM
julio.mendes julio.mendes is offline
Registered User
 
Join Date: Jul 2011
Posts: 4
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.
Reply With Quote
  #2  
Old 03-09-2013, 03:23 AM
Friedly's Avatar
Friedly Friedly is offline
Registered User
 
Join Date: May 2012
Location: Belgium
Posts: 76
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
Reply With Quote
  #3  
Old 03-17-2013, 05:17 AM
Friedly's Avatar
Friedly Friedly is offline
Registered User
 
Join Date: May 2012
Location: Belgium
Posts: 76
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
Reply With Quote
Reply


Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)
 
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes Rate This Thread
Rate This Thread:

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump


All times are GMT -8. The time now is 08:40 AM.



Hosted by SureServer    Forums   Modeling FAQ   Macro Site   Vendor/Contractors   Software Resellers   CoCreate   Gallery   Home   Board Members   Regional User Groups  By-Laws  

Powered by vBulletin® Version 3.8.4
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
You Rated this Thread: