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程序.
动态: 行业 市场 展会 园区 企业 报告 区域 政策 人才 精英 杂志: 模具制造 模具技术 模具工程 国际/模具工业 电加工与模具 现代模具
文献: 教程 设计 Pro/E UG SolidWorks CATIA MoldFlow Cimatron CAXA AutoCAD 模具外贸知识 手册: 基础 结构 英语 文档
