设为首页收藏本站转
发帖领奖家园QQ群申请版主版主评价切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › 怎样统计直线的长度？
返回列表 发新帖
查看: 1935|回复: 4

[已解决] 怎样统计直线的长度？

[复制链接]
zhuizhu

已领礼包: 79个

财富等级: 招财进宝
发表于 2013-4-10 18:17:08 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

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

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

×
如题：
怎样统计直线的长度？
直线, 长度, 统计

相关帖子

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

笑2笑
发表于 2013-4-10 18:26:54 | 显示全部楼层
这个很简单的，
只要循环取得每一条线，得到长度，然后让每条线的长度相加，就得出了

评分

参与人数 1D豆 +1 收起 理由
炫翔 + 1 热心帮忙奖！

查看全部评分

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

zhuizhu

已领礼包: 79个

财富等级: 招财进宝
 楼主| 发表于 2013-4-10 18:31:15 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
兄台：能不能给我写下，我还是菜菜，先谢谢了！
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

SmartStar

已领礼包: 188个

财富等级: 日进斗金
发表于 2013-4-10 20:22:20 | 显示全部楼层
  2. (DEFUN C:ARK_ZCD (/ CURVE TLEN SS N SUMLEN)
  3.   (vl-load-com)
  4.   (setq SUMLEN 0)
  5.   (setq SS (ssget '((0 . "CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC"))))
  6.   (setq N 0)
  7.   (repeat (sslength SS)
  8.     (setq CURVE (vlax-ename->vla-object (ssname SS N)))
  9.     (setq TLEN (vlax-curve-getdistatparam
  10.                  CURVE
  11.                  (vlax-curve-getendparam CURVE)
  12.                )
  13.     )
  14.     (setq SUMLEN (+ SUMLEN TLEN))
  15.     (setq N (1+ N))
  16.   )
  17.   (setq SUMLEN1 (/ SUMLEN 1000))
  18.   (prompt (strcat "\n★★总长度=" (rtos SUMLEN 2 ) "毫米★★"))
  19.   (prompt (strcat "\n★★总长度=" (rtos SUMLEN1 2 ) "米★★"))
  20.   (alert (strcat " 总长度=【" (rtos SUMLEN1 2 2) "】米"))
  21.   (princ)
  22. )
忘记谁写的了。给你参考一下。

评分

参与人数 1D豆 +2 收起 理由
XDSoft + 2 热心帮忙奖！

查看全部评分

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

zhuizhu

已领礼包: 79个

财富等级: 招财进宝
 楼主| 发表于 2013-4-11 07:58:05 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
SmartStar 发表于 2013-4-10 20:22

                               
登录/注册后可看大图

忘记谁写的了。给你参考一下。

非常好，谢谢了！
不但统计了直线还统计了其他的
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-12-20 19:27 , Processed in 0.528001 second(s), 40 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表