如何改变含有多个圆弧段的多段线的圆弧段宽度

liuyj

如何一次将多段线中的圆弧段的宽度改为60？以下的代码只能改变其中的一段，实现不了需求。
(defun pl-hasbugle (/ p1 p2 pt0 el ent ent1 sublst)
  (setq        en (car (entsel))
        el (entget en)
  )
  (setq        ent el
        ent1 el
  )
  (while (and (setq p1 (assoc 10 ent1)) (setq sublst (assoc 42 ent)))
    (if        (and (= (car sublst) 42) (/= (cdr sublst) 0.0))
      (progn (if (null (setq p2 (assoc 10 (cdr (member p1 ent1)))))
               (setq p2 (assoc 10 el))
             )
             (setq pt0 (mx_midp (cdr p1) (cdr p2)))
             (pi_main)
      )
    )
    (setq ent  (cdr (member sublst ent))
          ent1 (cdr (member p1 ent1))
    )
  )
)
(defun pi_main (/ E0 E1 E210 E70 E90)
  (setq        e70  (cdr (assoc 70 el))
        e90  (cdr (assoc 90 el))
        e210 (assoc 210 el)
        e0   nil
        e1   el
  )
  (while (/= (caar e1) 10)
    (setq e0 (cons (car e1) e0)
          e1 (cdr e1)
    )
  )
  (setq        e0 (reverse e0)
        e1 (reverse (cdr (reverse e1)))
  )
  (if (= e70 1)
    (setq e1 (append e1 (list (car e1))))
  )
  (pi_tst)
)
(defun pi_tst (/ AT2 I PT0 PT1 PT2 PT3 SG) ;查找PL线段
  (setq i 0)
  (while (< i e90)
    (setq pt1 (cdr (nth (+ (* i 4) 0) e1))
          at2 (cdr (nth (+ (* i 4) 3) e1))
          pt3 (cdr (nth (+ (* i 4) 4) e1))
    )
    (if        (/= at2 0.0)
      (progn (setq sg i) (pi_w))
    )
    (setq i (1+ i))
  )
)
(defun pi_w (/ I W0 W1 W2)                ;改线宽
  (setq        w1 60
        w2 60
  )
  (setq        w0 nil
        i  -1
  )
  (mapcar (function (lambda (x)
                      (if (/= (car x) 43)
                        (setq w0 (cons x w0))
                      )
                    )
          )
          e0
  )
  (if (= e70 1)
    (setq e1 (reverse (cdr (reverse e1))))
  )
  (setq        e0 (mapcar (function (lambda (x)
                               (setq i (1+ i))
                               (if (= (+ (* sg 4) 1) i)
                                 (cons 40 w1)
                                 (if (= (+ (* sg 4) 2) i)
                                   (cons 41 w2)
                                   x
                                 )
                               )
                             )
                   )
                   e1
           )
        el (append (reverse w0) e0 (list e210))
  )
  (entmod el)
  (entupd en)
)

liuyj

自己顶一下，别沉下去了