CAD LISP插件源码：多段线批量偏移

(defun c:pilpy ()

 (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

) 

本站仅提供存储服务，所有内容均由用户发布，如发现有害或侵权内容，请点击举报。