Topic: plinewid-Help

[rude dog]

I have a routine that draws a closed polyline that works good. I am stuck
on assigning width to it with staright VBA I tried this but it doenst work:

Code: [Select]


   ThisDrawing.SetVariable "PLINEWID", 0.0625
   
    Set plineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)
    plineObj.Closed = True
       
    ThisDrawing.SetVariable "PLINEWID", 0



I was trying to avoid looping through each segment, and SendCommand with autolisp

This is my first crack @ VBA

[Bryco]

Dim plineObj As AcadLWPolyline
Set plineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(Points)
plineObj.SetWidth 0, 4, 5

[rude dog]

Thank You for the speedy help
Now I can go to bed peacefully...
worked great