AutoCAD中快速大量修改线宽的方法 - 久发机械：本机械网站提供机械相关软件、教程、文章下载及浏览

文章搜索：分类关键字

您的位置：首页 → 软件教程 → AutoCAD → AutoCAD资料教程 → AutoCAD中快速大量修改线宽的方法

AutoCAD中快速大量修改线宽的方法

日期：2007-9-11 20:50:15 人气：36 [大中小]

[1]

LISP原程序代码:有兴趣的可以一起研究一下.

(defun xiugaixiankuan()
(setq ss (ssget))
(if(/= ss nil)
(progn
(setq aw (strcat "\n 修改后的线宽:("(rtos w)")"))
(setq aw (getstring aw))
)
)
(if (/= aw "")
(setq w (atof aw))
(setq j (sslength ss)
i 0)
)
(repeat j
(setq a (ssname ss i))
(setq aa (entget a))
(setq i (+ 1 i))
(setq aname (cdr(assoc 0 aa)))
(if (= aname "LWPOLYLINE")
(command "pedit" a "w" w "")
)
(if (and (/= w 0) (= aname "LINE"))
(command "pedit" a "y" "w" w "")
)

(if (= aname "ARC")
(command "pedit" a "y" "w" w "")
)
(if (= aname "CIRCLE")
(PROGN
(setq cen(cdr(assoc 10 aa)))
(setq r1(cdr(assoc 40 aa)))
(setq d (* 2 r1))
(setq d1 (- d w ))
(setq d2 (+ d w))
(command "donut" d1 d2 cen "")
)
)
)
)

使用方法同一般的LISP程序.

[1]

我有问题，我要进入论坛

出处：本站原创作者：佚名

热点文章