avjohn

Add a graphic line via VBScript in DxDesigner

Discussion created by avjohn on Feb 9, 2009
Latest reply on Jan 27, 2013 by marioweiss

 

I'm trying to write a VBScript that adds a graphic line to a DxDesigner Schematic and I'm having problems with the code and I've probably forgotten something.  Here's a snippet of the code.

 

 

 

 

 

                Set CompBlock = ActiveView.Block

                Set llLine =CompBlock.AddLine(ll, ur)

                Set Color = llLine.GetObjectColor

                Color.b = 255

                Color.g = 255

                Color.r = 0

                llLine.SetObjectColor(Color)

                llLine.LineStyle = VDLINE_DASH

                llLine.FillStyle = VDFILL_SOLID

 

 

 

Can anyone tell me what I'm doing wrong?

 

 

Outcomes