[编程交流] 将线路分成相等的间隔

(defun c:divtest ( / pdm pds e ss c n )
 (setq pdm (getvar 'pdmode)
       pds (getvar 'pdsize)
 )
 (setq e (entlast))
 (if (null e)
   (progn
     (alert "No entities in active document... Please create and restart routine...")
     (exit)
   )
   (progn
     (while (not ss)
       (prompt "\nPick curve for division with points on equal spaces and half spaces at start/end of curve")
       (if (setq ss (ssget "_+.:E:S" '((0 . "*POLYLINE,LINE,SPLINE,HELIX,CIRCLE,ARC,ELLIPSE"))))
         (progn
           (setq c (ssname ss 0))
           (initget 7)
           (setq n (getint "\nSpecify number of division spaces : "))
           (setvar 'pdmode 3)
           (setvar 'pdsize 5)
           (command "_.divide" c (* (1- n) 2))
           (setq e (entnext e))
           (repeat (- n 2)
             (setq e (entnext e))
             (entdel e)
             (setq e (entnext e))
           )
         )
         (alert "Empty sel. set... Please, select again...")
       )
     )
   )
 )
 (setvar 'pdmode pdm)
 (setvar 'pdsize pds)
 (princ)
)

(defun c:dib (/ point e div d mark1 pd)
;;;        pBeFeb2014        ;;;
 (defun Point (pt)
   (entmakex (list (cons 0 "POINT")
            (cons 10 pt)
      )
   )
 )
 (if (and (setq
     ss        (setq
          ss (ssget
               '((0
                  .
                  "LWPOLYLINE,LINE,SPLINE,ARC"
                 )
                )
             )
        )
   )
   (setq div (getint "\nEnter the number of segments : "))
     )
   (repeat (setq i (sslength ss))
     (setq e (ssname ss (setq i (1- i))))
     (setq d (vlax-curve-getdistatpoint e (vlax-curve-getEndPoint e)))
     (setq mark1 (/ d div)
    hlf          (* 0.5 mark1)
     )
     (point (setq pd (vlax-curve-getpointatdist e hlf)))
     (repeat (1- div)
(point (setq pd        (vlax-curve-getpointatdist
                  e
                  (+ (vlax-curve-getdistatpoint e pd) mark1)
                )
       )
)
     )
   )
 )
 (princ)
)

(setvar "PDMODE" 3)
(setvar "PDSIZE" -5)