Linetypes with width or thickness

[Frank Gabis]

As part of our office CAD standards, I created different linetypes with thickness or width for specific viewport scale. By using 'match properties' I can only match the layer, linetypes and ltscales of the object but not the width of the lines (which I set up individually using 'pedit').

Is there any other command like the "match properties" that can match the linetypes including the width of the lines? Or any LISP out there that can help me out?

I appreciate any help.

Thanks and God Bless,

Frank

[fuccaro]

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;
; Copy the width from one polyline to other(s) ;
; mfuccaro@hotmail.com ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;
(defun C:pw()
(setq s (entsel "\n select source polyline "))
(if s (setq s (entget (car s)))
(progn
(princ "\n No selection. Nothing to do!")
(quit)))
(setq d (entsel "\n destination polyline? "))
(while d
(setq d (entget (car d)))
(setq d (subst (cons 43 (cdr (assoc 43 s))) (assoc 43 d) d))
(entmod d)
(setq d (entsel "\n next destination polyline? (or none for terminate)"))
))

If you decide to use this routine, you may create a button on a toolbar for the frequently use. Otherwise, you must load the routine before the first use in every session, than type pw at the command prompt (pw=Polyline Width).
It works only for polylines (but rectangles, poligons are lwpolylines too).

[Frank Gabis]

Thank you, I'll try to use it tomorrow.

Frank