CAD中用lisp程序实现批量偏移 |
您所在的位置:网站首页 › cad如何向外偏移 › CAD中用lisp程序实现批量偏移 |
AutoCAD 如何批量偏移 1. 在 AutoCAD 里面,有的时候, 需要批量偏移封闭的多段线, 这个偏移的偏移距离是一样 的,并向外偏移,可以使用 autoLISP 来解决; 2. 下面有一段程序可以批量偏移封闭的多段线。 ;;;;;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~;; (defun ZX8~3 (%ent1 / #p x %ent1) (setq #p (mapcar 'cdr (vl-remove-if '(lambda (X) (/= 10 (car x))) (entget %ent1)))); 取得 多段线里面的点 #p ) (defun C:ZX13 ( / #os1 l1) (setvar "cmdecho" 0) (setvar "blipmode" 0) (setvar "dimzin" 0) (setq #os1 (getvar "osmode")) (if (null vlax-dump-object) (vl-load-com) ) ;; 加载 vlax 扩展函数 (setq L1 (getdist "\n 请输入偏移距离 ")) (if (/= L1 nil) (prong |
今日新闻 |
推荐新闻 |
CopyRight 2018-2019 办公设备维修网 版权所有 豫ICP备15022753号-3 |