av 白虎 CAD LISP插件源码：多段线批量偏移
(defun c:pilpy ()av 白虎
(setq n (getint "\n输入偏移增多量："))
(if (setq ss (ssget ":S" '((0 . "Arc,Circle,Ellipse,*Line"))))
全国约炮(progn
(vlax-for obj (vla-get-activeselectionset
(vla-get-activedocument (vlax-get-acad-object))
)
;(vla-offset obj (- 8));朝上偏移第1条
(setq k 0)
(repeat n
(setq k (+ k 1))
(vla-offset obj (* k 8));向下偏移第1条,偏移距离为8“- ”为向下、外部偏移场所
) ;repeat
)
) ;progn
);if
) av 白虎
本站仅提供存储工作，统统实质均由用户发布，如发现存害或侵权实质，请点击举报。