[LISP程序]：R14下批量修改多义线，直线线宽的LSP程序

houxianyong

;;*** 改变多义线的线宽 ***
(defun c:ww( / ss pl ip len val pltb)
       (setq ss (ssget '( (-4 . "<OR")
                              (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)
)

只能用于平面2D线，直线

xmchy

好像有错，说“错误: 输入的点对中含有多余的 cdrs”