선택한 폴리라인 두께입력

;; ─────  Pline - Width 조정
(defun c:PWidth ;; PW	; Pline - Width 조정
	(/ SelSet WVol ObjList)
	(setvar "cmdecho" 0)
	(princ " ^.^; Pline - Width")
	(setq SelSet (ssget (list (cons 0 "ARC,LINE,LWPOLYLINE"))))
	(setq WVol (getint "\n>>내용입력: "))
	(setq ObjList (vl-remove-if 'listp (mapcar 'cadr (ssnamex SelSet))))
	(foreach item ObjList
		  (command "_pedit" item "width" WVol "")
	)
	(princ)
)