[LISP程序]：求助

mann_ygw · 发表于 2003-10-2 13:25:13

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

请问谁能教我怎样写统计曲线（包括直线）的长度，最好分层统计。万分感谢！！！！！

lsjjm · 发表于 2003-10-2 13:32:25

论坛有好多这方面的贴子, 你搜索一下吧?

mann_ygw · 发表于 2003-10-2 14:55:24

我看了，但是基本都是关于直线LISP程序，我想要包括曲线的统计，就像晓东工具箱那个曲线工具的长度统计，但晓东工具箱上其他功能对我没用，所以我没有装工具箱，我只想加载这个程序，请各位大侠指教，万分感谢了!!!

lsjjm · 发表于 2003-10-2 17:13:31

最初由 mann_ygw 发布
[B]我看了，但是基本都是关于直线LISP程序，我想要包括曲线的统计，就像晓东工具箱那个曲线工具的长度统计，但晓东工具箱上其他功能对我没用，所以我没有装工具箱，我只想加载这个程序，请各位大侠指教，万分感谢了!!! [/B]

(defun c:test ()
(vl-load-com)
(setq ss (ssget '((0 . "*LINE,ARC,"))))
(setq n 0 sum 0)
(while (< n (sslength ss))
(setq obj (vlax-ename->vla-object (ssname ss n)))
(setq sum (+ sum (vlax-curve-getdistatparam obj (vlax-curve-getendparam obj))))
(setq n (1+ n))
)
sum
)
如果需要再加上圆,椭圆等.

mann_ygw · 发表于 2003-10-2 18:13:00

哦，太感谢楼上的朋友了，这个论坛真好，我一定叫多点朋友来访问，再次感谢楼上的朋友！！！！！

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

[LISP程序]：求助

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

浏览过的版块