[原创]更改线的宽度.欢迎指点

zhongys

;;;更改线的宽度
;;;本程序只线.多义线.圆.圆弧适用
;;;2003.08.08 by Mr.zhong
(defun c:ono(/ ss pw entyp rr cen)
    (setvar "cmdecho" 0)
    (setq ss (entsel "\n选择线/多义线/圆/圆弧:"))
    (while (= ss nil)
    (setq ss (entsel "\n选择线/多义线/圆/圆弧:"))
    )
    (setq pw (getdist "\n点选或输入宽度<0>:"))
    (if (= pw nil) (setq pw 0))
    (setq entyp (cdr (assoc 0 (entget (car ss)))))
    (cond ((= entyp "LINE") (command "pedit" ss "y" "w" pw ""))
          ((= entyp "ARC")  (command "pedit" ss "y" "w" pw ""))
          ((= entyp "LWPOLYLINE") (command "pedit" ss "w" pw ""))
          ((= entyp "CIRCLE")
          (setq rr  (cdr (assoc 40 (entget (car ss)))))
          (while (> pw rr)
                 (prompt "\n你的宽度大于圆或圆弧的半径,重新输入...")
                 (setq pw (getdist "\n点选或输入宽度<0>:"))
          )
          (setq cen (trans (cdr (assoc 10 (entget (car ss)))) 0 1))
          (command "donut" (* 2 (- rr (/ pw 2))) (* 2 (+ rr (/ pw 2))) cen "")
          (command "erase" ss "")
          )
    )
    (while (/= ss nil)
           (setq ss (entsel "\n选择线/多义线/圆/圆弧:"))
           (while (= ss nil)
           (setq ss (entsel "\n选择线/多义线/圆/圆弧:"))
           )
           (setq entyp (cdr (assoc 0 (entget (car ss)))))
           (cond ((= entyp "LINE") (command "pedit" ss "y" "w" pw ""))
                 ((= entyp "ARC")  (command "pedit" ss "y" "w" pw ""))
                 ((= entyp "LWPOLYLINE") (command "pedit" ss "w" pw ""))
                 ((= entyp "CIRCLE")
                  (setq rr  (cdr (assoc 40 (entget (car ss)))))
                  (while (> pw rr)
                         (prompt "\n你的宽度大于圆或圆弧的半径,重新输入...")
                         (setq pw (getdist "\n点选或输入宽度<0>:"))
                  )
                  (setq cen (trans (cdr (assoc 10 (entget (car ss)))) 0 1))
                  (command "donut" (* 2 (- rr (/ pw 2))) (* 2 (+ rr (/ pw 2))) c
en "")
                  (command "erase" ss "")
                 )
            )
    )
    (princ)
)


本程序循环的这一段和退出写的不太好,要强行退出.
大家如有需要可和我E_MAIL联系.ZYS@ROSSMAX.COM.TW
望大家多多指点.谢谢.

meflying

不是很实用，2000以后版本中可以直接修改宽度，也可以根据层的设定等来确定宽度。虽然这些宽度不能是任意值，但应该能满足平常使用要求了。

单从程序上说，不算很完整，比如修改圆你是用DONUT代替圆，这样在画圆环会造成选中心点位置捕捉错误，须加(setvar "osmode" 0)，结束后恢复。
你的退出处理是你的程序设计思路的问题，你想不停地选择修改，并且如未选中继续循环选择，但你又想选不中时退出，这两者矛盾。可以参考一些命令的设计思路来设计程序的退出