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

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

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

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

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

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

本帖最后由 作者 于 2004-9-14 11:13:46 编辑 <br /><br /> 小子你运气不错我送个给你吧，上个月刚编的比较好用。我这可不仅仅是几个直线，什么线都可以。选了后就把长度都加起来。


;<BR>;==============================================================================<BR>;功能:计算所有选择对象的总长,可是是非直线。<BR>;==============================================================================<BR>(defun c:tl()<BR>                       (setq tleng 0)<BR>                       (setq s (ssget))<BR>                       (setq n (sslength s))<BR>                       (setq index (- n 1))<BR>                       (repeat n<BR>                                                       (vl-load-com)<BR>                                                       (setq ent (ssname s index))<BR>                                                       (setq index (- index 1))<BR>                                                       (setq curve-obj (vlax-ename-&gt;vla-object ent))<BR>                                                       (setq leng (vlax-curve-getDistAtParam<BR>                                                                                                                                                                               curve-obj<BR>                                                                                                                                                                               (vlax-curve-getEndParam curve-obj)<BR>                                                                                                                                               )<BR>                                                       )<BR>                                                       (setq tleng (+ tleng leng))<BR>                                                       (princ leng)<BR>                                                       (princ "\n")<BR>                       )<BR>                       (setq prscreemtext (strcat "\n总共计算" (itoa n) "个对象，总长度为 " (rtos tleng 2 3)))<BR>                       (princ prscreemtext)<BR>                       (princ)<BR>)<BR>

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呀
页: [1]
查看完整版本: 编程求助如何计算n根直线的长度，并且列表汇总