;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;幕匠LISP实验室;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;程序功能：将线等分并断开  [备注：将线等分并断开]
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(DEFUN C:MJ56 (/ obj piece plen ptlst dis npt)
  (setq	obj   (vlax-ename->vla-object (setq en (car (entsel "\n选择多义线: "))))
	piece (getint "\n分段数: ")
	plen
	      (vlax-curve-getdistatpoint obj (vlax-curve-getendpoint obj))
;;;	ptlst
;;;	      (list (vlax-curve-getstartpoint obj))
	dis
	      0
  )
  (repeat (1- piece)
    (setq dis	(+ dis (/ plen piece))
	  npt	(vlax-curve-getpointatdist obj dis)
	  ptlst	(cons npt ptlst)
    )
  )
;;;  (setq ptlst (reverse (cons (vlax-curve-getendpoint obj) ptlst)))
  (foreach pt ptlst
    (vl-cmdf "break" (list en pt) pt)
  )
;;;  ptlst
  (princ)
)
