错误: 输入的点对中含有多余的 cdrs

lz689706

这是个直线转成多义线的lsp，就是在cad中画的直线，圆，圆弧等单线的条，经过此程序转换成带宽度的直线。圆。圆弧，即形成一定的宽度，就像用粗笔加宽，不知我说明白没有，这个程序加载显示：错误: 输入的点对中含有多余的 cdrs，请高手帮忙
;;*** 改变多义线的线宽 ***
(defun c:ww( / ss pl ip len val pltb)
(setq ss (ssget '( (-4 . " (0 . "POLYLINE")
(0 . "LWPOLYLINE")
(0 . "LINE")
(-4 . "OR>")
)
)
)
(if (/= ss nil)
(setq len (sslength ss))
)
(if (> len 0)
(setq val (getreal "\n 请输入线宽: "))
)
(setq ip 0)
(while (< ip len)
(setq pl (ssname ss ip))
(setq tp (cdr (assoc 0 (entget pl))))
(cond ((= tp "LWPOLYLINE") (progn (setq pltb (entget pl))
(setq vnum (cdr (assoc 90 pltb)))
(if (= (assoc 43 pltb) nil)
(if (= (assoc 62 pltb) nil)
(progn (setq p 0)
(while (< p vnum)
(progn
(setq w40 (nth (+ (* p 4) 13) pltb))
(setq w41 (nth (+ (* p 4) 14) pltb))
(setq pltb (subst (cons 40 val) w40 pltb))
(setq pltb (subst (cons 41 val) w41 pltb))
(setq p (1+ p))
)
)
)
(progn (setq p 0)
(while (< p vnum)
(progn
(setq w40 (nth (+ (* p 4) 14) pltb))
(setq w41 (nth (+ (* p 4) 15) pltb))
(setq pltb (subst (cons 40 val) w40 pltb))
(setq pltb (subst (cons 41 val) w41 pltb))
(setq p (1+ p))
)
)
)
)
(setq pltb (subst (cons 43 val) (assoc 43 pltb) pltb))
(entmod pltb)
(entupd pl)
)
)
)
((= tp "POLYLINE") (while (/= (cdr (assoc 0 (entget (entnext pl)))) "SEQEND")
(progn (setq pl (entnext pl))
(setq pltb (entget pl))
(setq pltb (subst (cons 40 val) (assoc 40 pltb) pltb))
(setq pltb (subst (cons 41 val) (assoc 41 pltb) pltb))
(entmod pltb)
(entupd pl)
)
)
)
((= tp "LINE") (command "pedit" pl "y" "w" val "x"))
)
(setq ip (+ ip 1))
)
(princ)
)

yjr111

(-4 . " (0 . "POLYLINE") ?好像没这种格式，估计要改成(-4 .  " <or")(0 . "POLYLINE") 才行

byghbcx

(-4 . " (0 . "POLYLINE")这是明显不对的，-4后面只有一个引号