[LISP程序]：也是画铁路线的程序，帮忙调试！

lewyee

从网上看来的，但调试不成功，那位小虾帮我搞一下，谢谢！[PHP]
(defun c:tlx()

(setvar "CMDECHO" 0)

(setq ss (ssget ((0. "LWPOLYLINE"))))

(if (equal ss nil)

(exit)

)

(setq tlkd (getstring "请输入宽度:"))

(command "pedit" ss "width" tlkd "")

(command "copy" ss "" "0,0" "0,0" "")

(command "layer" "m" "water-proof" "L" "Dashed" "" "")

(command "layer" "s" "water-proof" "c" "255" "" "")

(setq sset (ssget "L"))

(command "pedit" sset "width" (setq tlkd1 (* (atof tlkd) 0.7)) "L" "ON" "")

(setq ename1 (ssname sset 0)

ent1 (entget ename1))

(setq ent11 (nth 5 ent1))

(setq ent11 (subst (cons 8 "water-proof") ent11 ent1))

(entmod ent11)

(setq ent12 (nth 6 ent11))

(setq ent12 (subst (cons 6 "dashed") ent12 ent11))

(entmod ent12)

)
/PHP]

zhang8755

第三句改成 (setq ss (ssget '((0 . "LWPOLYLINE"))))  试试