编程求助如何计算n根直线的长度，并且列表汇总

hjqpdga · 发表于 2004-9-4 10:07:00

编程求助如何计算n根直线的长度，并且列表、归类、汇总

spring · 发表于 2004-9-4 12:32:00

你搜索一下吧,论坛上有的

yinheng · 发表于 2004-9-13 10:40:00

本帖最后由作者于 2004-9-14 11:13:46 编辑

小子你运气不错我送个给你吧，上个月刚编的比较好用。我这可不仅仅是几个直线，什么线都可以。选了后就把长度都加起来。 ;
;==============================================================================
;功能:计算所有选择对象的总长,可是是非直线。
;==============================================================================
(defun c:tl()
(setq tleng 0)
(setq s (ssget))
(setq n (sslength s))
(setq index (- n 1))
(repeat n
(vl-load-com)
(setq ent (ssname s index))
(setq index (- index 1))
(setq curve-obj (vlax-ename->vla-object ent))
(setq leng (vlax-curve-getDistAtParam
curve-obj
(vlax-curve-getEndParam curve-obj)
)
)
(setq tleng (+ tleng leng))
(princ leng)
(princ "\n")
)
(setq prscreemtext (strcat "\n总共计算" (itoa n) "个对象，总长度为 " (rtos tleng 2 3)))
(princ prscreemtext)
(princ)
)

hjqpdga · 发表于 2004-9-15 10:54:00

谢谢老鸟的关心，有了你们明经通道会越办越办兴旺

yinheng · 发表于 2004-9-15 15:14:00

光说说，给两束鲜花撒！

transman · 发表于 2004-9-18 00:07:00

我今天为了求很多直线的长度整整用了一个晚上。才回到宿舍，上网查查！

真实感激不尽。

我怎么就是这么不爱思考呢？1！！

2002-ytf · 发表于 2004-9-18 17:24:00

楼主要列表汇总呵

是否按扩展数据汇总

winazhe · 发表于 2004-9-22 14:28:00

需要谢谢

wyj_007 · 发表于 2004-9-23 12:44:00

求直线的总长度前先用其他清重复线命令把重复线清理掉,不然你会发现怎么总长度会多了些.

joe · 发表于 2004-9-25 16:08:00

这个问题可不可以autolisp解决啊﹐因为R14不能load VL呀

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