用相等的空间划分对象

3dwannab · 发表于 2022-7-5 16:28:34

你好

像这样的节目，我到处都在找。

我想要实现的。

选择一条直线或曲线。
拾取对象（主要是正方形、矩形或圆形）
拾取距离或输入对象选定对象的宽度。
然后，程序在直线或曲线上分割对象，就像附加的图像一样。

这是一个我认为很接近的程序。它来自LeeMac，但不确定如何编辑它以满足上述需求。

copy

(defun c:test ( / _circle p1 p2 no di an sp i ucsz )
 (defun _circle ( center radius )
   (entmakex (list (cons 0 "CIRCLE") (cons 10 center) (cons 40 radius) (cons 210 ucsz)))
 )
 (setq ucsz (trans '(0. 0. 1.) 1 0 t))
 (if
   (and
     (setq p1 (getpoint "\nSpecify First Point: "))
     (setq p2 (getpoint "\nSpecify Second Point: " p1))
     (progn
       (initget 6)
       (setq no (getint "\nSpecify Number of Circles: "))
     )
     (setq di (getdist "\nSpecify Diameter of Circles: "))
   )
   (progn
     (setq p1 (trans p1 1 ucsz) p2 (trans p2 1 ucsz)
           an (angle p1 p2)     di (/ di 2.)
           p1 (polar p1 an di)  p2 (polar p2 an (- di))
     )
     (if (= 1 no)
       (setq sp (/ (distance p1 p2) 2.) i 0)
       (setq sp (/ (distance p1 p2) (1- no)) i -1)
     )      
     (repeat no (_circle (polar p1 an (* (setq i (1+ i)) sp)) di))
   )
 )
 (princ)