Macro to Instantiate 2d component. 1

[jagodragon]

hello,

i'm workingon a title block macro for my company. We have the company grafic recreated as cad data and i would like to instantiate taht with the macro and place it in the title block. Is there a way to do this or am i going to have to create each of the lines individually? (i would like to avoid this as there are several thousand line segments that create the logo as well as multiple fills of different colors)

Any help would be greatly appreciated.

 

[itsmyjob]

online doc is usually a good place to search...

here is my code

Sub insertFirstDittoInActiveView()
Dim myDrawing As DrawingDocument
Set myDrawing = CATIA.ActiveDocument

Dim myDitto As DrawingView
Set myDitto = myDrawing.Sheets.Item(2).Views.Item(3)   'sheet2 is the details sheet here. item 3 is the first ditto

Dim myDittoInstance As DrawingComponent
Set myDittoInstance = myDrawing.Sheets.ActiveSheet.Views.ActiveView.Components.Add(myDitto, 100, 100)

End Sub

Eric N.
indocti discant et ament meminisse periti ​

 

[jagodragon]

can you give me the link to the online help doc please?

 

[iscariot]

http://www.eng-tips.com/viewthread.cfm?qid=251808

and
"C:\Program Files (x86)\Dassault Systemes\B19\intel_a\code\bin\V5Automation.chm"
is what you need, you will find a lot of examples there.