求一款统计复杂填充面积的lsp，万分感谢

Masqueradeng · 发表于 2017-12-18 16:28:02

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

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

×

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

Lispboy · 发表于 2017-12-18 21:37:23

面积= 10003.5701

Lispboy · 发表于 2017-12-18 23:03:43

运行在 XDRX API 2017.1218+版本。

(defun c:tt ()
(if (and (xdrx_initssget "\n选择计算面积的填充<退出>:")
(setq ss (xdrx_ssget '((0 . "HATCH"))))
)
(progn (setq num1 0 num2 0 ar_res 0.0
arr (mapcar
'(lambda (x)
(if (= (setq ar (xdrx_getpropertyvalue x "area")) 0.0)
(progn
(if (and (setq ss1 (xdrx_hatch_make_boundary x))
(setq mp (xdrx_mpolygon_make ss1))
)
(progn
(setq num1 (1+ num1))
(setq ar (xdrx_getpropertyvalue mp "area")
ar_res (+ ar_res ar))
(xdrx_entity_delete mp ss1)
ar
)
(progn
(setq num2 (1+ num2))
0.0
)
)
)
ar
)
)
(xdrx_pickset->ents ss)
)
arr (apply '+ arr)
)
(xdrx_prompt
"\n选择了 "
(sslength ss)
" 个填充.\n异常填充数: " (+ num1 num2) " 个.其中 " num1 " 个异常填充求得面积.\n总面积为:"
(rtos arr 2 2)
)
)
)
(princ)
)

(defun c:tt () 
  (if (and (xdrx_initssget "\n选择计算面积的填充<退出>:") 
           (setq ss (xdrx_ssget '((0 . "HATCH")))) 
      ) 
    (progn (setq num1 0 num2 0 ar_res 0.0 
                 arr (mapcar 
                       '(lambda        (x) 
                          (if (= (setq ar (xdrx_getpropertyvalue x "area")) 0.0) 
                            (progn 
                              (if (and (setq ss1 (xdrx_hatch_make_boundary x)) 
                                       (setq mp (xdrx_mpolygon_make ss1)) 
                                  ) 
                                (progn 
                                  (setq num1 (1+ num1)) 
                                  (setq ar (xdrx_getpropertyvalue mp "area") 
                                        ar_res (+ ar_res ar)) 
                                  (xdrx_entity_delete mp ss1) 
                                  ar 
                                ) 
                                (progn 
                                  (setq num2 (1+ num2)) 
                                  0.0 
                                ) 
                              ) 
                            ) 
                            ar 
                          ) 
                        ) 
                       (xdrx_pickset->ents ss) 
                     ) 
                 arr (apply '+ arr) 
           ) 
           (xdrx_prompt 
             "\n选择了 " 
             (sslength ss) 
             " 个填充.\n异常填充数: " (+ num1 num2) " 个.其中 " num1 " 个异常填充求得面积.\n总面积为:" 
             (rtos arr 2 2) 
           ) 
    ) 
  ) 
  (princ) 
)

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

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

liunian0524 · 发表于 2017-12-19 08:18:31

我是笨方法计算的
1:根据填充计算填充边界;
2:求最外框大面积;
3:减掉中间区域各面积;

Masqueradeng · 发表于 2017-12-19 09:49:54

Lispboy 发表于 2017-12-18 23:03

您好可以直接帮我做个lsp吗，如果方便留下您的微信或者qq，可以给您发20元红包

newer · 发表于 2017-12-19 09:57:58

Masqueradeng 发表于 2017-12-19 09:49

上面不是贴出代码了嘛，你拷贝到文本编辑软件里面，保存成扩展名 lsp的文件就可以了。
上面的代码，需要安装XDRX API环境或者安装晓东工具箱。

newer · 发表于 2017-12-19 09:59:01

Masqueradeng 发表于 2017-12-19 09:49

另外，你是否还有其他 ACAD 测不出面积的填充？如有，多压缩几个，贴论坛来，测试测试。

Masqueradeng · 发表于 2017-12-19 10:52:12

newer 发表于 2017-12-19 09:57

还是不会，本人在编程方面小白，初来论坛报道，照您说的做了，下了个XDRX-API-2017.12.18，源代码复制在文本文档里，改了后缀lsp，加载后提示no function definition: XDRX_INITSSGET

Masqueradeng · 发表于 2017-12-19 10:53:55

liunian0524 发表于 2017-12-19 08:18

这样就慢了，楼上那位的得数非常准确，您也可以参考他的回答

Lisphk · 发表于 2017-12-19 10:57:22

Masqueradeng 发表于 2017-12-19 10:53

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

Masqueradeng · 发表于 2017-12-19 11:47:47

不知道是不是版本问题，我用的2007cad，加载后提示no function definition: XDRX_INITSSGET ，又试了2014版cad，结果如图所示

，这是和版本有关系吗， XDRX API 我也安装了

newer · 发表于 2017-12-19 11:59:14

Masqueradeng 发表于 2017-12-19 11:47

2007,2016启动后，分别按F2，到文本屏幕，截屏图片贴到论坛，看看
如果提示没有 xdrx_initssget 就是API没装好。

Masqueradeng · 发表于 2017-12-19 15:35:45

Lispboy 发表于 2017-12-18 23:03

前辈我用的2014版cad，加载您这个代码后出现图形鼓涨，面积得数错误，该如何解决，您那个得数是正确的，给您截了一张图

Lispboy · 发表于 2017-12-19 22:42:25

Masqueradeng 发表于 2017-12-19 15:35

我没2014，我在2016,2008测试了，都没问题，你先装个这两个版本试试。

Masqueradeng · 发表于 2017-12-20 10:28:07

Lispboy 发表于 2017-12-19 22:42

特意下载了一个2008版本，结果还是图形鼓胀，这次得数又不一样，问题会是哪里呢

账号		自动登录	找回密码
密码			立即注册

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

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