[求助]：请教：如何一次累加多条线段长度？

teyjzy_yl · 发表于 2004-9-5 11:58:10

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

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

×

如题。

aidraft · 发表于 2004-9-5 12:28:24

能具体一点吗？

teyjzy_yl · 发表于 2004-9-5 12:42:33

AutoCAD内部命令Area有个选项add，可以一次累加多个面积。而lengthen则只能得到一条线段的长度。若线段太多了，用list又不方便。
我在一个贴子中搜到了高人写的一段代码，可小数位数不理想，可有高手帮忙给改改？
[PHP](defun c:test ()
  (setq ss (ssget '((0 . "ARC,CIRCLE,ELLIPSE,*LINE"))))
  (setq n 0 sum 0)
  (while (< n (sslength ss))
(setq ent (ssname ss n))
(setq sum (+ sum (vlax-curve-getdistatparam ent (vlax-curve-getendparam ent))))
(setq n (1+ n))
  )
  sum
)
[/PHP]

aidraft · 发表于 2004-9-5 18:20:05

(defun c:test ()
  (setq ss (ssget '((0 . "ARC,CIRCLE,ELLIPSE,*LINE"))))
  (setq n 0 sum 0)
  (while (< n (sslength ss))
(setq ent (ssname ss n))
(setq sum (+ sum (vlax-curve-getdistatparam ent (vlax-curve-getendparam ent))))
(setq n (1+ n))
  )
  (rtos sum 2 4)
)

自由的鱼 · 发表于 2004-9-6 00:55:56

论坛这样的程序很多的！

跃然 · 发表于 2004-9-6 15:47:51

是啊，应该先在论坛里看看再说话啊

teyjzy_yl · 发表于 2004-9-7 11:07:33

谢谢各位大力帮助。
我先搜过，第一次可能是关键词没用对，只搜到几条，没找到想要的东西。后来改了关键词，搜到了几百条，找到了要的东西。
再次谢谢！

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

[求助] [求助]：请教：如何一次累加多条线段长度？

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

相关帖子

浏览过的版块