Topic: Global Width Assignment to 0

[b-rye guy]

Hello -

We often receive files from consultants that have multiple global widths assigned to different polylines. I am wondering if there is an easy way to set all polylines and other objects with global width assignments (including block layers) to 0.

I was wondering if a script running through the _.qselect command could handle this, or would I need a full function?

Thanks in advance for any help!

[mjfarrell]

should NOT need a lisp for this...

qselect all polylines with global width greater than 0(zero)

go to properties and set the global width value as desired, and done

[Lee Mac]

I agree that AutoLISP is unnecessary given that this property can be modified for multiple objects simultaneously through the Properties Palette.

Nevertheless, I have published a Polyline Width program here.

And the following will set the global width of all LWPolylines in a drawing to zero:

Code - Auto/Visual Lisp: [Select]

1. (defun c:pwz nil
2.     (vlax-for blk (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))
3.         (if (= :vlax-false (vla-get-isxref blk))
4.             (vlax-for obj blk
5.                 (if (and (= "AcDbPolyline" (vla-get-objectname obj)) (vlax-write-enabled-p obj))
6.                     (vla-put-constantwidth obj 0.0)
7.                 )
8.             )
9.         )
10.     )
11.     (command "_.regen")
12.     (princ)
13. )
14. (vl-load-com) (princ)

[b-rye guy]

Thank you both for your help. We are trying to automate our technical workflow so that we have more time to focus on designing or projects, which is why automation helps everyone, even if it saves 30 seconds.

Thanks again!