设为首页收藏本站

晓东CAD家园-论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 659|回复: 48

[每日一码] 计算批量对象的面积

[复制链接]

签到天数: 685 天

连续签到: 2 天

[LV.9]以坛为家II

已领礼包: 19个

财富等级: 恭喜发财

发表于 2016-9-23 12:44:18 | 显示全部楼层 |阅读模式

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

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
本帖最后由 Lisphk 于 2016-9-23 12:49 编辑

代码适合计算对象:POLYLINE、 LWPOLYLINE、CIRCLE、ELLIPSE、SPLINE、REGION


  1. (defun c:areaobj (/ olderr oldcmdecho errexit undox restore ss1 nr en tot_area)
  2.   (defun errexit (s)
  3.     (restore)
  4.   )

  5.   (defun undox ()
  6.     (command "._undo" "_E")
  7.     (setvar "cmdecho" oldcmdecho)
  8.     (setq *error* olderr)
  9.     (princ)
  10.   )

  11.   (setq olderr  *error*
  12.         restore undox
  13.         *error* errexit
  14.   )
  15.   (setq oldcmdecho (getvar "cmdecho"))
  16.   (setvar "cmdecho" 0)
  17.   (command "._UNDO" "_BE")
  18.   (if (setq ss1 (ssget '((-4 . "<OR")
  19.                          (0 . "POLYLINE")
  20.                          (0 . "LWPOLYLINE")
  21.                          (0 . "CIRCLE")
  22.                          (0 . "ELLIPSE")
  23.                          (0 . "SPLINE")
  24.                          (0 . "REGION")
  25.                          (-4 . "OR>")
  26.                         )
  27.                 )
  28.       )
  29.     (progn
  30.       (setq nr 0)
  31.       (setq tot_area 0.0)
  32.       (setq en (ssname ss1 nr))
  33.       (while en
  34.         (command "._area" "_O" en)
  35.         (setq tot_area (+ tot_area (getvar "area")))
  36.         (setq nr (1+ nr))
  37.         (setq en (ssname ss1 nr))
  38.       )
  39.       (princ "\nTotal Area = ")
  40.       (princ tot_area)
  41.     )
  42.   )
  43.   (setq ss1 nil)
  44.   (restore)
  45. )


下面是计算曲线面积的VLISP代码

[it618postdisplay>0]
  1. (defun c:ObjectArea (/ en curve area)
  2.   (if (setq en (entsel))
  3.     (progn
  4.       (setq curve (vlax-ename->vla-object (car en)))
  5.       (if
  6.         (vl-catch-all-error-p
  7.           (setq
  8.             area (vl-catch-all-apply 'vlax-curve-getArea (list curve))
  9.           )
  10.         )
  11.          nil
  12.          area
  13.       )
  14.     )
  15.   )
  16. )
[/it618postdisplay]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

签到天数: 1807 天

连续签到: 12 天

[LV.Master]伴坛终老I

已领礼包: 5068个

财富等级: 富甲天下

发表于 2016-9-23 14:03:33 | 显示全部楼层
感谢楼主提供源码!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 610 天

连续签到: 253 天

[LV.9]以坛为家II

点击这里给我发消息

已领礼包: 1304个

财富等级: 财源广进

发表于 2016-9-24 00:35:11 | 显示全部楼层
感谢楼主提供源码!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 5 天

连续签到: 1 天

[LV.2]偶尔看看I

已领礼包: 4个

财富等级: 恭喜发财

发表于 2016-9-26 15:38:29 | 显示全部楼层
不错··············
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 1814 天

连续签到: 11 天

[LV.Master]伴坛终老I

已领礼包: 5329个

财富等级: 富甲天下

发表于 2016-11-25 13:54:09 | 显示全部楼层
感谢楼主提供源码程序!!!!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 1480 天

连续签到: 19 天

[LV.10]以坛为家III

点击这里给我发消息

已领礼包: 4124个

财富等级: 富可敌国

发表于 2016-11-25 16:10:38 | 显示全部楼层
谢谢楼主啊谢谢楼主
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 538 天

连续签到: 2 天

[LV.9]以坛为家II

已领礼包: 1185个

财富等级: 财源广进

发表于 2016-11-25 17:30:34 | 显示全部楼层
see the hidden content
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 471 天

连续签到: 1 天

[LV.9]以坛为家II

已领礼包: 1086个

财富等级: 财源广进

发表于 2016-11-29 18:50:45 | 显示全部楼层
正需要,支持楼主大人了!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 20 天

连续签到: 1 天

[LV.4]偶尔看看III

发表于 2016-11-30 14:38:45 | 显示全部楼层
不错啊,谢谢分享!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 490 天

连续签到: 4 天

[LV.9]以坛为家II

已领礼包: 686个

财富等级: 财运亨通

发表于 2016-11-30 15:44:57 | 显示全部楼层
向高手学习!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 40 天

连续签到: 1 天

[LV.5]常住居民I

发表于 2016-11-30 15:55:20 | 显示全部楼层
感谢楼主提供源码!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 40 天

连续签到: 1 天

[LV.5]常住居民I

发表于 2016-11-30 15:59:23 | 显示全部楼层
感谢楼主提供源码
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 78 天

连续签到: 1 天

[LV.6]常住居民II

发表于 2016-12-16 08:44:32 | 显示全部楼层
我来测试一下,行不行
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 357 天

连续签到: 1 天

[LV.8]以坛为家I

已领礼包: 329个

财富等级: 日进斗金

发表于 2016-12-25 15:08:28 | 显示全部楼层
学习学习。。。。。。。。。。。。。。。。。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

签到天数: 188 天

连续签到: 1 天

[LV.7]常住居民III

已领礼包: 12个

财富等级: 恭喜发财

发表于 2016-12-25 16:48:37 | 显示全部楼层
谢谢楼主的分享
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

GMT+8, 2018-6-22 15:37 , Processed in 0.215878 second(s), 63 queries , Gzip On, WinCache On.

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

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