几何尺寸与公差论坛------致力于产品几何量公差标准GD&T (GDT:ASME)|New GPS(ISO)研究/CAD设计/CAM加工/CMM测量

几何尺寸与公差论坛------致力于产品几何量公差标准GD&T (GDT:ASME)|New GPS(ISO)研究/CAD设计/CAM加工/CMM测量 (http://www.dimcax.com/hust/index.php)
-   ObjectARX(AutoLISP) (http://www.dimcax.com/hust/forumdisplay.php?f=178)
-   -   ellipse以及spline的线长 (http://www.dimcax.com/hust/showthread.php?t=10600)

yang686526 2009-04-25 08:02 PM

ellipse以及spline的线长
 
ellipse以及spline的线长
www.dimcax.com
ellipse以及spline的线长
ellipse和spline的线长
属性查询里面可得到“长度”
在vba中line和arc可到长度,如objline.length,objarc.arclength
可在vba中
ellipse和spline的properties就没有
请问在lsp中如何获得ellipse和spline的线长 ?谢谢。
d
函数vlax-curve-getdistatpoint
返回曲线从开始点到指定点的曲线段的长度
(vlax-curve-getdistatpoint curve-obj point)==============================================point用端点属性endpoint就行了
原创加密lisp真正的破解.原创lisp操作cad内置对话框.原创lisp直接调用win32 api.原创lisp开发小助手(代码自动生成器).原创vba语句->lisp语句解释器.原创lisp音乐播放器.原创lisp直接使用vba对话框.
方法好像很多
(setq curve-obj (car (entsel)))
(vlax-curve-getdistatparam curve-obj (vlax-curve-getendparam curve-obj))
d
(vlax-curve-getdistatpoint (setq n (car(entsel))) (vlax-curve-getendpoint n))
原创加密lisp真正的破解.原创lisp操作cad内置对话框.原创lisp直接调用win32 api.原创lisp开发小助手(代码自动生成器).原创vba语句->lisp语句解释器.原创lisp音乐播放器.原创lisp直接使用vba对话框.
经试验还是用caoyin大哥的吧
我的那个对椭圆返回0
原创加密lisp真正的破解.原创lisp操作cad内置对话框.原创lisp直接调用win32 api.原创lisp开发小助手(代码自动生成器).原创vba语句->lisp语句解释器.原创lisp音乐播放器.原创lisp直接使用vba对话框.
(defun ll()
(vl-load-com)
(setq curve-obj (car (entsel)))
(vlax-curve-getdistatparam curve-obj (vlax-curve-getendparam curve-obj))
)
相关知识点在此


所有的时间均为北京时间。 现在的时间是 05:05 AM.