哪位大师看看，下面的程序对已有宽度的PL线不起作用，能否改改

;改线宽
;;; turn line, circle, arc, donut to pline with width

(defun *error*(st)
(if (and (/= st "Function cancelled")
(/= st "quit / exit abort")
)
(princ (strcat "Error: " st))
)
(setq *error* old_err)
(princ)
)

(defun in()

(if (= s nil) (setq s 1))
(setq scale (getreal (strcat "\nScale <" (rtos s 2 0) ">:")))
(if (= scale nil) (setq scale s))
(setq s scale)

(if (= w nil) (setq w 0.45))
(setq width (getreal (strcat "\nWidth <" (rtos w 2 2) ">:")))
(if (= width nil) (setq width w))
(setq w width)

(setq width (* width scale))
)

(defun pross()
(setq len (sslength ss))
(setq n 1)
(while (<= n len)
(setq en1 (ssname ss (1- n)))
(setq b (entget en1))
(setq a (cdr (assoc 0 b)))
(cond ((or (= "LINE" a) (= "ARC" a))
(progn
(command "pedit" en1 "Y" "w" width "x")
))
((= "POLYLINE" a)
(command "pedit" en1 "w" width "x"))
((= "CIRCLE" a)
(progn
(setq pt (cdr (assoc 10 b)))
(setq rad (cdr (assoc 40 b)))
(setq r1 (- (* rad 2) width ))
(setq r2 (+ (* rad 2) width ))
(command "donut" r1 r2 pt "")
(entdel en1)
))

(T T)
)
(setq n (1+ n))
)
)

(defun C:LED ( / old_err scale ss en1 a len n b
cmd_old width rad pt r1 r2 k en la)
(setq old_err *error*)
(setq cmd_old (getvar "cmdecho"))
(setvar "cmdecho" 0)
(in)
(initget "L S")
(setq k (getkword "\nLayer/ : ")) (if (= k "L") (progn (setq en (car (entsel "\nPick a object on layer : "))) (if (/= en nil) (progn (setq la (assoc 8 (entget en))) (setq ss (ssget "X" (list la))) (pross) ) ) ) ) (if (or (= k "S") (= k nil)) (progn (setq ss (ssadd)) (setq ss (ssget)) (if (/= ss nil) (pross)) ) ) (setvar "cmdecho" cmd_old) (princ))