ljpnb 发表于 2013-4-12 10:19:36


(defun C:bbxx (/ WIDTH ss)
(if (not oldwidth)
    (setq oldwidth 0.3)
)
(if (SETQ
        WIDTH (GETREAL
                (strcat "\n请输入粗线宽度<" (rtos oldWIDTH 2 2) ">:")
              )
      )
    (setq oldWIDTH WIDTH)
    (setq WIDTH oldWIDTH)
)

(if
    (progn (prompt "\n请选择改变线宽的线<退出>:")
           (setq ss (ssget))
    )
   (command "_pedit" "M" ss "" "_w" WIDTH "j" "" "")

)
(princ)
)

baiyier1112 发表于 2013-4-12 11:31:04

ljpnb 发表于 2013-4-12 10:19 static/image/common/back.gif


万分感谢

664571221 发表于 2016-4-6 19:45:55

牛逼123456789
页: 1 [2]
查看完整版本: 关于改变线宽，求高手帮忙优化