如何用LISP获取椭圆弧和样条曲线的长度?谢谢!

xqyhome · 发表于 2005-3-3 21:03

如何用LISP获取椭圆弧和样条曲线的长度?

在命令行中用LIST命令是可以查看的.

ljpnb · 发表于 2005-3-3 21:21

这个问题我刚好做过题，不过对闭合样条曲线不行，椭圆的长度误差为0.000001 (defun c:test ()
(setq ent(car (entsel "\n 选择一个椭圆或是样条曲线: ")))
(setq obj (vlax-Ename->Vla-Object ent))
(setq name(cdr (assoc 0 (entget ent))))
(if (= name "ELLIPSE")
(progn
(setq point (vlax-curve-getPointAtDist obj -0.000001))
(setq len (vlax-curve-getDistAtPoint obj point))
)
(progn
(setq endpoint (vlax-curve-getendpoint obj))
(setq len (vlax-curve-getDistAtPoint obj endpoint))
)
)
(print (strcat "\n 当前长度为 L=" (rtos len)))
(princ)
)

alin · 发表于 2005-3-3 21:23

(setq curve-obj (car (entsel "\nSelect the curve:")))
(setq len (vlax-curve-getDistAtParam curve-obj (vlax-curve-getEndParam curve-obj)))

ljpnb · 发表于 2005-3-3 21:41

还是alin版大高明。

xqyhome · 发表于 2005-3-4 08:32

行大礼致谢！

ljpnb · 发表于 2005-3-4 12:37

还有一个现成的方法： (setq ent(car (entsel "\n 选择一个椭圆或是样条曲线: ")))
(command "lengthen" ent "")
(setq len (getvar "perimeter"))

账号		自动登录	找回密码
密码			注册