Global Polyline Width Change [Lisp Routine]

[Bonzo]

In a recent system crash, I lost some of my prized Lisp routines...

The one I desperately need to replace, is PLW.lsp, or anything similar.

Any routine will do, that will allow one to select multiple polylines,
and set
them all to a width of {user input}.

If anyone is willing to lend, or borrow or give... I'm just about
willing to beg.

--
____________________________________________________________________
Bonzo:
ICQ: 11375590
Email: bo...@idirect.com
¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯

[BDESHAWN]

My PW.LSP might get you buy til you find what you want. It works with the
PLINEWID & DIMSCALE variables to give you the plotted width you want.

(defun C:PW ()
(if (= (getvar "plinewid") 0)(alert "PLINEWID is set to 0.0\nReset
PLINEWID")
(command ".PEDIT" PAUSE "WIDTH" (* (getvar "plinewid") (GETVAR
"DIMSCALE")) "")
)
(PRINC)
)
Here's someone else's PWID.LSP Enter the exact width of line you want.
;;PWID.lsp ===> A routine to change the width of a group of ;;Polylines.
;;
(Defun C:pwid (/ p ss e n )
(setq p 0)
(princ"\n select plines: ")
(setq ss (ssget))
(if ss
(progn
(setq e (getdist "\nEnter new width: "))
(while (ssname ss p)
(setq n (ssname ss p))
(setq p (+ p 1))
(command "_pedit" n "w" e "")
)
)
)
(princ)
)<=== end defun

--
Bill DeShawn
bdes...@prodigy.net
bi...@starpanel.com

Bonzo <bo...@idirect.com> wrote in article
<360C09B4...@idirect.com>...

[Jerry Weyer]

Hope this helps...

[Bonzo]

Wow, I wasn't expecting that many responses!
Thanks to all who sent me / refered me files.

No more, please.... (I think I will find one routine from
within the 20 I received!, once again, ta very much)

Cheers!