CAD中用lisp程序实现批量偏移_AutoCAD如何批量偏移

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