帮助计算面积！

Manila Wolf · 发表于 2022-7-6 08:16:33

如果你的形状是区域，我的意思是，对于每个单独的插图，从外部区域减去内部区域，那么很容易一次找到总面积。

lossan805 · 发表于 2022-7-6 08:18:04

使现代化

我已经开始为此编写代码。我的选择集包括特定图层内的所有闭合多段线。然而，我在创建过滤器以从外部区域移除内部区域的区域时遇到了问题。任何帮助创建此过滤器将不胜感激！

如果情况更糟，我可以添加代码来填充所有这些多段线形状，然后提取图案填充本身的总面积。不过，我想尽量避免这样做。。

Lee Mac · 发表于 2022-7-6 08:21:34

您是希望使用单个选择集并以编程方式确定位于该集中其他多段线内的多段线，还是希望使用两个选择集：一个用于内部对象，另一个用于外部对象？

Lee Mac · 发表于 2022-7-6 08:26:27

这是一种相当粗糙的方法，使用光线投射算法：

copy


[color=GREEN];; Polyline Area  -  Lee Mac[/color]
[color=GREEN];; Prompts the user to make a selection of closed LWPolylines and returns[/color]
[color=GREEN];; the total area of all objects in the selection, subtracting the area[/color]
[color=GREEN];; of objects residing entirely inside other objects.[/color]
([color=BLUE]defun[/color] c:polyarea ( [color=BLUE]/[/color] dim inc inner lst outer sel spc )
   ([color=BLUE]setq[/color]
       inner 0.0
       outer 0.0
   )
   ([color=BLUE]if[/color] ([color=BLUE]setq[/color] sel ([color=BLUE]ssget[/color] '((0 . [color=MAROON]"LWPOLYLINE"[/color]) (-4 . [color=MAROON]"&="[/color]) (70 . 1))))
       ([color=BLUE]progn[/color]
           ([color=BLUE]setq[/color] spc
               ([color=BLUE]vlax-get-property[/color] ([color=BLUE]vla-get-activedocument[/color] ([color=BLUE]vlax-get-acad-object[/color]))
                   ([color=BLUE]if[/color] ([color=BLUE]=[/color] 1 ([color=BLUE]getvar[/color] 'cvport))
                       'paperspace
                       'modelspace
                   )
               )
           )
           ([color=BLUE]repeat[/color] ([color=BLUE]setq[/color] inc ([color=BLUE]sslength[/color] sel))
               ([color=BLUE]setq[/color] lst ([color=BLUE]cons[/color] ([color=BLUE]vlax-ename->vla-object[/color] ([color=BLUE]ssname[/color] sel ([color=BLUE]setq[/color] inc ([color=BLUE]1-[/color] inc)))) lst))
           )
           ([color=BLUE]foreach[/color] obj1 lst
               ([color=BLUE]if[/color]
                   ([color=BLUE]vl-some[/color]
                       ([color=BLUE]function[/color]
                           ([color=BLUE]lambda[/color] ( obj2 [color=BLUE]/[/color] int pnt tmp )
                               ([color=BLUE]and[/color] ([color=BLUE]null[/color] ([color=BLUE]vlax-invoke[/color] obj1 'intersectwith obj2 [color=BLUE]acextendnone[/color]))
                                   ([color=BLUE]progn[/color]
                                       ([color=BLUE]setq[/color] pnt ([color=BLUE]vlax-curve-getstartpoint[/color] obj1)
                                             tmp ([color=BLUE]vla-addray[/color] spc ([color=BLUE]vlax-3D-point[/color] pnt) ([color=BLUE]vlax-3D-point[/color] ([color=BLUE]polar[/color] pnt 0.0 1.0)))
                                             int ([color=BLUE]vlax-invoke[/color] tmp 'intersectwith obj2 [color=BLUE]acextendnone[/color])
                                       )
                                       ([color=BLUE]vla-delete[/color] tmp)
                                       ([color=BLUE]=[/color] 1 ([color=BLUE]rem[/color] ([color=BLUE]length[/color] int) 2))
                                   )
                               )
                           )
                       )
                       ([color=BLUE]vl-remove[/color] obj1 lst)
                   )
                   ([color=BLUE]setq[/color] inner ([color=BLUE]+[/color] inner ([color=BLUE]vla-get-area[/color] obj1)))
                   ([color=BLUE]setq[/color] outer ([color=BLUE]+[/color] outer ([color=BLUE]vla-get-area[/color] obj1)))
               )
           )
           ([color=BLUE]setq[/color] dim ([color=BLUE]getvar[/color] 'dimzin))
           ([color=BLUE]setvar[/color] 'dimzin 0)
           ([color=BLUE]princ[/color]
               ([color=BLUE]strcat[/color]
                   [color=MAROON]"\nOuter Area: "[/color] ([color=BLUE]rtos[/color] outer 2 
                   [color=MAROON]"\nInner Area: "[/color] ([color=BLUE]rtos[/color] inner 2 
                   [color=MAROON]"\nTotal Area: "[/color] ([color=BLUE]rtos[/color] ([color=BLUE]-[/color] outer inner) 2 
               )
           )
           ([color=BLUE]setvar[/color] 'dimzin dim)
       )
   )
   ([color=BLUE]princ[/color])
)
([color=BLUE]vl-load-com[/color]) ([color=BLUE]princ[/color])

marko_ribar · 发表于 2022-7-6 08:29:41

这是我的版本。。。（基于最近创建的vlax曲线getfurthestpointfrom）

M、 R。
区域形状。lsp

lossan805 · 发表于 2022-7-6 08:31:49

问题解决了！！！！

我要感谢你们两位马尔科·里巴和李·麦克。我现在可以用你的任何一个动作做我想做的。我真的很感激！

marko_ribar · 发表于 2022-7-6 08:34:15

Lisp再次更改为只接受闭合椭圆。。。

M、 R。
不客气lossan805

amarcon · 发表于 2022-7-6 08:38:27

李，谢谢你，这个动作太棒了。我现有的例程设置为进行两个选择，并从另一个中选择一个。效果很好，但如果你有200个外部项目和20个内部项目是痛苦的。（即预制板总面积减去门窗。）为了使您的例程适合我，我正在尝试选择“外部”和“内部”区域值的总数！然而，我不够聪明，无法解读你优雅的逻辑

Lee Mac · 发表于 2022-7-6 08:42:23

非常感谢阿马康

如果我没听错的话，这个小小的修改就足够了：

copy


[color=GREEN];; Polyline Area  -  Lee Mac[/color]
[color=GREEN];; Prompts the user to make a selection of closed LWPolylines and returns[/color]
[color=GREEN];; the total area of all objects in the selection, subtracting the area[/color]
[color=GREEN];; of objects residing entirely inside other objects.[/color]
([color=BLUE]defun[/color] c:polyarea ( [color=BLUE]/[/color] dim inc inner ino lst ono outer sel spc )
   ([color=BLUE]setq[/color]
       inner 0.0
       outer 0.0
       ino   0
       ono   0
   )
   ([color=BLUE]if[/color] ([color=BLUE]setq[/color] sel ([color=BLUE]ssget[/color] '((0 . [color=MAROON]"LWPOLYLINE"[/color]) (-4 . [color=MAROON]"&="[/color]) (70 . 1))))
       ([color=BLUE]progn[/color]
           ([color=BLUE]setq[/color] spc
               ([color=BLUE]vlax-get-property[/color] ([color=BLUE]vla-get-activedocument[/color] ([color=BLUE]vlax-get-acad-object[/color]))
                   ([color=BLUE]if[/color] ([color=BLUE]=[/color] 1 ([color=BLUE]getvar[/color] 'cvport))
                       'paperspace
                       'modelspace
                   )
               )
           )
           ([color=BLUE]repeat[/color] ([color=BLUE]setq[/color] inc ([color=BLUE]sslength[/color] sel))
               ([color=BLUE]setq[/color] lst ([color=BLUE]cons[/color] ([color=BLUE]vlax-ename->vla-object[/color] ([color=BLUE]ssname[/color] sel ([color=BLUE]setq[/color] inc ([color=BLUE]1-[/color] inc)))) lst))
           )
           ([color=BLUE]foreach[/color] obj1 lst
               ([color=BLUE]if[/color]
                   ([color=BLUE]vl-some[/color]
                       ([color=BLUE]function[/color]
                           ([color=BLUE]lambda[/color] ( obj2 [color=BLUE]/[/color] int pnt tmp )
                               ([color=BLUE]and[/color] ([color=BLUE]null[/color] ([color=BLUE]vlax-invoke[/color] obj1 'intersectwith obj2 [color=BLUE]acextendnone[/color]))
                                   ([color=BLUE]progn[/color]
                                       ([color=BLUE]setq[/color] pnt ([color=BLUE]vlax-curve-getstartpoint[/color] obj1)
                                             tmp ([color=BLUE]vla-addray[/color] spc ([color=BLUE]vlax-3D-point[/color] pnt) ([color=BLUE]vlax-3D-point[/color] ([color=BLUE]polar[/color] pnt 0.0 1.0)))
                                             int ([color=BLUE]vlax-invoke[/color] tmp 'intersectwith obj2 [color=BLUE]acextendnone[/color])
                                       )
                                       ([color=BLUE]vla-delete[/color] tmp)
                                       ([color=BLUE]=[/color] 1 ([color=BLUE]rem[/color] ([color=BLUE]length[/color] int) 2))
                                   )
                               )
                           )
                       )
                       ([color=BLUE]vl-remove[/color] obj1 lst)
                   )
                   ([color=BLUE]setq[/color] inner ([color=BLUE]+[/color] inner ([color=BLUE]vla-get-area[/color] obj1))
                         ino   ([color=BLUE]1+[/color] ino)
                   )
                   ([color=BLUE]setq[/color] outer ([color=BLUE]+[/color] outer ([color=BLUE]vla-get-area[/color] obj1))
                         ono   ([color=BLUE]1+[/color] ono)
                   )
               )
           )
           ([color=BLUE]setq[/color] dim ([color=BLUE]getvar[/color] 'dimzin))
           ([color=BLUE]setvar[/color] 'dimzin 0)
           ([color=BLUE]princ[/color]
               ([color=BLUE]strcat[/color]
                   [color=MAROON]"\nOuter Area: "[/color] ([color=BLUE]rtos[/color] outer 2  [color=MAROON]" from "[/color] ([color=BLUE]itoa[/color] ono) [color=MAROON]" object(s)."[/color]
                   [color=MAROON]"\nInner Area: "[/color] ([color=BLUE]rtos[/color] inner 2  [color=MAROON]" from "[/color] ([color=BLUE]itoa[/color] ino) [color=MAROON]" object(s)."[/color]
                   [color=MAROON]"\nTotal Area: "[/color] ([color=BLUE]rtos[/color] ([color=BLUE]-[/color] outer inner) 2 
               )
           )
           ([color=BLUE]setvar[/color] 'dimzin dim)
       )
   )
   ([color=BLUE]princ[/color])
)
([color=BLUE]vl-load-com[/color]) ([color=BLUE]princ[/color])

lossan805 · 发表于 2022-7-6 08:45:34

李，你好！！！

[编程交流] 帮助计算面积！

发表回复

精选推荐