软件开发公司 CAD LISP插件源码：多段线批量偏移
(defun c:pilpy ()软件开发公司
(setq n (getint "\n输入偏移增多量："))
(if (setq ss (ssget ":S" '((0 . "Arc,Circle,Ellipse,*Line"))))
龙头分析：上期龙头开出1区号码05，与前期比对点位上升，本期关注龙头点位下降，推荐03。
(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
) 软件开发公司
本站仅提供存储工作，制作开发软件多少钱所有骨子均由用户发布，如发现存害或侵权骨子，请点击举报。