cq_qg 发表于 2007-9-28 12:56:00

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

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

alin 发表于 2007-9-28 12:59:00

vlax-curve-getPointAtDist

brainstorm 发表于 2008-2-24 00:03:00

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

tanle2020 发表于 2015-3-29 21:32:16

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

yesno定义是什么意思啊
页: [1]
查看完整版本: [求助]沿曲线一定长度分段