[求助]沿曲线一定长度分段

cq_qg

cad的me命令只能沿曲线一个等值长度来等分
要是想沿曲线不同的长度分段怎么办？
比如想沿曲线100，200，50，620，100，200，50，620，100，200，50，620，来分段怎么办？
能否写个程序？

alin

vlax-curve-getPointAtDist

brainstorm

(defun divide-curline1 (en lst yesno / ptlst lth)
  (setq ptlst nil
 lth 0
  )
  (if yesno
    (setq lst (reverse lst))
  )
  (if (= (type en) 'ENAME)
    (setq en (vlax-ename->vla-object en))
  )
  (foreach n lst
    (progn
      (setq lth (+ lth n))
      (setq ptlst (cons (vlax-curve-getpointatdist en lth) ptlst))
    )
  )
  ptlst
)

tanle2020

brainstorm 发表于 2008-2-24 00:03
(defun divide-curline1 (en lst yesno / ptlst lth)  (setq ptlst nil lth 0  )&nbsp ...

yesno定义是什么意思啊