[编程申请]：用autolisp,测量所选线段长度的总和

sjyhsy · 发表于 2004-4-2 22:23:31

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

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

×

选中的线段可以是圆,弧,直线,PLINE,然后算出长度的总和

lsjjm · 发表于 2004-4-3 04:08:52

请参考：
(defun c:test ()
  (vl-load-com)
  (setq ss (ssget '((0 . "ARC,CIRCLE,ELLIPSE,*LINE"))))
  (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
)

sjyhsy · 发表于 2004-4-7 12:09:55

非常感谢！

skyrock · 发表于 2004-4-8 00:54:48

请问是用test命令执行吗？

lsjjm · 发表于 2004-4-8 03:56:52

最初由 skyrock 发布
[B]请问是用test命令执行吗？ [/B]

对. 加载后键入TEST即可----其实你试一下不就知道了??

lzy9788 · 发表于 2004-4-11 17:46:57

凡事要多动手你才会懂

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

[编程申请]：用autolisp,测量所选线段长度的总和

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

相关帖子

浏览过的版块