[讨论]如何更真实获得任意曲线拟合点(31日更新)

jxlsp

以下函数可以获得获得任意曲线拟合点,但是用等步长的方法,对于比较平缓的曲线,点有点太密了,能不能加一个判断,当点的切线方向较上一个点变化一固定值时,则记录,否则不记录.不知道能不能实现,请大家帮个忙.

2. ;获得任意曲线拟合点
3. (defun getplinepoint(ent / obj elist pt j zc)
4.    (vl-load-com)
5.    (setq obj (vlax-ename->vla-object ent)
6.          zc(vlax-curve-getDistAtPoint obj (vlax-curve-getEndPoint obj))
7.          j 0)
8.     (repeat (fix zc)
9.       (setq pt (vlax-curve-getPointAtDist obj j)
10.             elist (append elist (list pt))
11.             j (1+ j)
12.        )
13.     )
14.     (setq elist (append elist (list (vlax-curve-getEndPoint obj))))
15. )

;获得任意曲线拟合点 (defun getplinepoint(ent / obj elist pt j zc)    (vl-load-com)    (setq obj (vlax-ename->vla-object ent)          zc(vlax-curve-getDistAtPoint obj (vlax-curve-getEndPoint obj))          j 0)     (repeat (fix zc)       (setq pt (vlax-curve-getPointAtDist obj j)             elist (append elist (list pt))             j (1+ j)        )     )     (setq elist (append elist (list (vlax-curve-getEndPoint obj)))) )

jxlsp

没人知道吗?

jxlsp

又改了一下,改绝对步长为相对步长,同时支持多段线,就是SPLINE还有待完善,点密度还不能根据弯曲度来设定,请各位高手提供思路.

 

caoyin

可根据弧度来判断

根据用户给定的“精度”来添加弧度判断

carrot1983

根据弯曲度来...这个楼主能写出来吗?

针对spline...

如果只是等长,有时候过密...

期待楼主写出类似ET中的acet-geom-object-point-list函数...extrim.lsp中有用到

jxlsp

请问怎么得到spline的弯曲度呢,组码里没有啊?

jxlsp

现在可以了,只是夹角计算还是繁琐了一些,谁能给简化下就好了.

 

ljttjl

给您传个图形,您看看.不知能否按图形里的样条曲线的加密方式那样,将其改写多段线.

jxlsp

ljttjl发表于2008-10-31 18:44:00给您传个图形,您看看.不知能否按图形里的样条曲线的加密方式那样,将其改写多段线.44204

用一楼的程序可实现，不清楚为什么你的样条曲线vlax-curve-getendparam的值会是1，我沿你曲线新画的就可以，是不是版本问题，请高手指点。