设为首页收藏本站

晓东CAD家园-论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

123下一页
返回列表
查看: 577|回复: 42

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

[复制链接]

签到天数: 609 天

连续签到: 3 天

[LV.9]以坛为家II

已领礼包: 18个

财富等级: 恭喜发财

发表于 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代码

游客,如果您要查看本帖隐藏内容请回复至少1次,目前您回复了0次!



上一篇:VLISP函数参考(A3、A4)图
下一篇:VLISP删除空的LAYOUT
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复
百度谷歌雅虎搜狗搜搜有道360奇虎

使用道具 举报

签到天数: 1705 天

连续签到: 1 天

[LV.Master]伴坛终老I

已领礼包: 4814个

财富等级: 富可敌国

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

使用道具 举报

签到天数: 517 天

连续签到: 160 天

[LV.9]以坛为家II

点击这里给我发消息

已领礼包: 1056个

财富等级: 财源广进

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

使用道具 举报

签到天数: 5 天

连续签到: 1 天

[LV.2]偶尔看看I

已领礼包: 4个

财富等级: 恭喜发财

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

使用道具 举报

签到天数: 1748 天

连续签到: 257 天

[LV.Master]伴坛终老I

已领礼包: 5174个

财富等级: 富甲天下

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

使用道具 举报

签到天数: 1372 天

连续签到: 2 天

[LV.10]以坛为家III

点击这里给我发消息

已领礼包: 3831个

财富等级: 富可敌国

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

使用道具 举报

签到天数: 538 天

连续签到: 2 天

[LV.9]以坛为家II

已领礼包: 1185个

财富等级: 财源广进

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

使用道具 举报

签到天数: 452 天

连续签到: 1 天

[LV.9]以坛为家II

已领礼包: 1052个

财富等级: 财源广进

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

使用道具 举报

签到天数: 20 天

连续签到: 1 天

[LV.4]偶尔看看III

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

使用道具 举报

签到天数: 394 天

连续签到: 7 天

[LV.9]以坛为家II

已领礼包: 550个

财富等级: 财运亨通

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

使用道具 举报

签到天数: 37 天

连续签到: 1 天

[LV.5]常住居民I

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

使用道具 举报

签到天数: 37 天

连续签到: 1 天

[LV.5]常住居民I

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

使用道具 举报

签到天数: 76 天

连续签到: 1 天

[LV.6]常住居民II

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

使用道具 举报

签到天数: 335 天

连续签到: 4 天

[LV.8]以坛为家I

已领礼包: 325个

财富等级: 日进斗金

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

使用道具 举报

签到天数: 170 天

连续签到: 1 天

[LV.7]常住居民III

已领礼包: 12个

财富等级: 恭喜发财

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

使用道具 举报

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

本版积分规则

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

辽公网安备 21040202000005号

GMT+8, 2018-2-22 08:41 , Processed in 0.998607 second(s), 129 queries , Gzip On.

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

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