Question

LISP 绘制在多段线上定间距的直线

求一lisp程序，选取一条已知多段线，将其定距等分，并将等分后的点按一定间隔连成直线，比如，定距等分后的第一个点和第十个点连成直线，第二个点和第十一个点连成直线，以此类推，将所有点全部连接。注：多段线为闭合多段线，包含圆，弧，直线等。例：如图

Answer 1

;封闭多段线定距等分绘制直线
(defun c:tes ( / dis ent i n pt1 pt2 ss1)
 (vl-load-com)
 (if (and (setq ent (entsel "\n请选择封闭多段线"))
     (setq ent (car ent))
     (= (cdr (assoc 0 (entget ent))) "LWPOLYLINE")
     (vlax-curve-isClosed ent)
     (setq dis (getdist "\n请输入定距值"))
    )
  (progn
   (setq ss1 '() i -1.0)
   (while (setq pt1 (vlax-curve-getPointAtDist ent (* (setq i (1+ i)) dis)))
    (setq ss1 (cons pt1 ss1))
   )
   (if (cadr ss1)
    (progn
     (setq i (fix (* i 0.5)) n -1)
     (while (< (setq n (1+ n)) i)
      (setq pt1 (nth n ss1) pt2 (nth (+ n i) ss1))
      (entmake (list '(0 . "LINE") (cons 10 pt1) (cons 11 pt2)))
     )
    )
   )
  )
 )
 (princ)
);cad的autolisp程序