设为首页收藏本站

晓东CAD家园-论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

12下一页
返回列表
查看: 140|回复: 16

[编程申请] 求一款统计复杂填充面积的lsp,万分感谢

[复制链接]

签到天数: 13 天

连续签到: 2 天

[LV.3]偶尔看看II

发表于 2017-12-18 16:28:02 | 显示全部楼层 |阅读模式

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

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

x
本人做园林工作,平日统计面积耗时费力,现需要一款统计填充面积的lsp,像cad自带的li命令,或者pr命令无法统计复杂的填充图案面积,另外本人试了一下,cad迷你看图里有个统计阴影部分面积功能,无论多么复杂的填充图案,均可测量出面积,希望大神可以做个这样的lsp,并输出在屏幕上,保留两位小数,本人附上了CAD迷你看图里的这个功能和一份需要被测量的填充图案的dwg文件,如果有朋友可以解决,可以另发20元红包  
游客,本付费内容需要支付 10D豆 才能浏览   这是一个广告位购买




上一篇:CAD里很多相同的图怎样批量转换成一个一个的块?
下一篇:新版照明灯具辅助设计软件V4.0

统计填充面积功能

统计填充面积功能

新块.zip

24.24 KB, 下载次数: 6, 下载积分: D豆 -1 , 活跃度 1

填充图案

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

使用道具 举报

签到天数: 335 天

连续签到: 1 天

[LV.8]以坛为家I

已领礼包: 51个

财富等级: 招财进宝

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

使用道具 举报

签到天数: 335 天

连续签到: 1 天

[LV.8]以坛为家I

已领礼包: 51个

财富等级: 招财进宝

发表于 2017-12-18 23:03:43 | 显示全部楼层
运行在 XDRX API 2017.1218+版本。

  1. (defun c:tt ()
  2.   (if (and (xdrx_initssget "\n选择计算面积的填充<退出>:")
  3.            (setq ss (xdrx_ssget '((0 . "HATCH"))))
  4.       )
  5.     (progn (setq num1 0 num2 0 ar_res 0.0
  6.                  arr (mapcar
  7.                        '(lambda        (x)
  8.                           (if (= (setq ar (xdrx_getpropertyvalue x "area")) 0.0)
  9.                             (progn
  10.                               (if (and (setq ss1 (xdrx_hatch_make_boundary x))
  11.                                        (setq mp (xdrx_mpolygon_make ss1))
  12.                                   )
  13.                                 (progn
  14.                                   (setq num1 (1+ num1))
  15.                                   (setq ar (xdrx_getpropertyvalue mp "area")
  16.                                         ar_res (+ ar_res ar))
  17.                                   (xdrx_entity_delete mp ss1)
  18.                                   ar
  19.                                 )
  20.                                 (progn
  21.                                   (setq num2 (1+ num2))
  22.                                   0.0
  23.                                 )
  24.                               )
  25.                             )
  26.                             ar
  27.                           )
  28.                         )
  29.                        (xdrx_pickset->ents ss)
  30.                      )
  31.                  arr (apply '+ arr)
  32.            )
  33.            (xdrx_prompt
  34.              "\n选择了 "
  35.              (sslength ss)
  36.              " 个填充.\n异常填充数: " (+ num1 num2) " 个.其中 " num1 " 个异常填充求得面积.\n总面积为:"
  37.              (rtos arr 2 2)
  38.            )
  39.     )
  40.   )
  41.   (princ)
  42. )



命令: tt
选择计算面积的填充<退出>:指定对角点: 找到 1 个

选择计算面积的填充<退出>:
选择了 1 个填充.
异常填充数: 1 个.其中 1 个异常填充求得面积.
总面积为:10003.57
命令:

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

使用道具 举报

签到天数: 224 天

连续签到: 4 天

[LV.7]常住居民III

已领礼包: 522个

财富等级: 财运亨通

发表于 2017-12-19 08:18:31 | 显示全部楼层
TIM截图20171219081624.jpg
我是笨方法计算的
1:根据填充计算填充边界;
2:求最外框大面积;
3:减掉中间区域各面积;
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 13 天

连续签到: 2 天

[LV.3]偶尔看看II

 楼主| 发表于 2017-12-19 09:49:54 | 显示全部楼层

您好 可以直接帮我做个lsp吗,如果方便 留下您的微信或者qq,可以给您发20元红包
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 894 天

连续签到: 14 天

[LV.10]以坛为家III

已领礼包: 39个

财富等级: 招财进宝

发表于 2017-12-19 09:57:58 | 显示全部楼层

上面不是贴出代码了嘛,你拷贝到文本编辑软件里面,保存成扩展名 lsp的文件就可以了。
上面的代码,需要安装XDRX API环境 或者 安装 晓东工具箱
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 894 天

连续签到: 14 天

[LV.10]以坛为家III

已领礼包: 39个

财富等级: 招财进宝

发表于 2017-12-19 09:59:01 | 显示全部楼层

另外,你是否还有其他 ACAD 测不出面积的填充? 如有,多压缩几个,贴论坛来,测试测试。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 13 天

连续签到: 2 天

[LV.3]偶尔看看II

 楼主| 发表于 2017-12-19 10:52:12 | 显示全部楼层

还是不会,本人在编程方面小白,初来论坛报道,照您说的做了,下了个XDRX-API-2017.12.18,源代码复制在文本文档里,改了后缀lsp,加载后提示no function definition: XDRX_INITSSGET
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 13 天

连续签到: 2 天

[LV.3]偶尔看看II

 楼主| 发表于 2017-12-19 10:53:55 | 显示全部楼层

这样就慢了,楼上那位的得数非常准确,您也可以参考他的回答
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 589 天

连续签到: 5 天

[LV.9]以坛为家II

已领礼包: 18个

财富等级: 恭喜发财

发表于 2017-12-19 10:57:22 | 显示全部楼层

看你帖子,你保存LSP没问题,你下载了 API, 点击它,按照提示安装,CAD支持2004-2016,装后,再启动CAD,新朋友,多看看论坛置顶的帖子,事半功倍。

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

使用道具 举报

签到天数: 13 天

连续签到: 2 天

[LV.3]偶尔看看II

 楼主| 发表于 2017-12-19 11:47:47 | 显示全部楼层
不知道是不是版本问题,我用的2007cad,加载后提示no function definition: XDRX_INITSSGET ,又试了2014版cad,结果如图所示,这是和版本有关系吗, XDRX API 我也安装了
QQ截图20171219114425.png
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 894 天

连续签到: 14 天

[LV.10]以坛为家III

已领礼包: 39个

财富等级: 招财进宝

发表于 2017-12-19 11:59:14 | 显示全部楼层

2007,2016启动后,分别按F2,到文本屏幕,截屏图片贴到论坛,看看
如果提示没有 xdrx_initssget 就是API没装好。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 13 天

连续签到: 2 天

[LV.3]偶尔看看II

 楼主| 发表于 2017-12-19 15:35:45 | 显示全部楼层

前辈 我用的2014版cad,加载您这个代码后出现图形鼓涨,面积得数错误,该如何解决,您那个得数是正确的,给您截了一张图
QQ截图20171219114425.png
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 335 天

连续签到: 1 天

[LV.8]以坛为家I

已领礼包: 51个

财富等级: 招财进宝

发表于 2017-12-19 22:42:25 | 显示全部楼层

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

使用道具 举报

签到天数: 13 天

连续签到: 2 天

[LV.3]偶尔看看II

 楼主| 发表于 2017-12-20 10:28:07 | 显示全部楼层

特意下载了一个2008版本,结果还是图形鼓胀,这次得数又不一样,问题会是哪里呢
无标题.jpg
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

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

本版积分规则

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

辽公网安备 21040202000005号

GMT+8, 2018-1-21 03:21 , Processed in 0.487426 second(s), 100 queries , Gzip On.

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

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