[编程申请]：如何在LISP程序中求得pline的面积？

haijiangl

如何在LISP程序中求得pline的面积？

点几根pline线就能把建筑面积按照套内面积的比例分配，多好啊！

XDSoft

若是一个PL线，那么用命令AREA就可以得到。

写程序，推荐用XDRX_API

xdrx_getarea 具体见手册。

试试晓东工具箱里面，都有这些程序。求曲线面积，求轮廓线等等。

梦断江南

支持！
xdrx_getarea

功    能：求AutoCAD AcDbCurve(曲线)类的面积和周长(长度)。

调用格式：(xdrx_getarea <实体图元名>)

说    明：1.<实体图元名>可是AcDbCurve类的:AcDbPolyline(lwpolyline),AcDbArc,AcDbCircle,AcDbEllipse,
                                          AcDbSpline
          2.若曲线不封闭，则把开始点和终止点连线求面积，并且返回的是曲线的长度。

          3.可以是Hatch

返 回 值：成功返回LISP表(面积 周长)，失败返回NIL.

示    例：求SPLINE的面积和周长

        (if (setq en (xdrx_entsel "\n请点取一个Spline实体<退出>:" '((0 . "SPLINE"))))
            (progn
                (setq en (car en))
                (setq info (xdrx_getarea (car en)))
                (prompt (strcat "Spline的面积："

                                (rtos (car info) 2 2) "周长:" (rtos (cadr info) 2 2)))
             )
        )

caibaobao

我发过这样的帖子了。要提醒晓东，“晓东工具箱”内计算HATCH面积的程序有误。

XDSoft

最初由 caibaobao 发布
[B]我发过这样的帖子了。要提醒晓东，“晓东工具箱”内计算HATCH面积的程序有误。 [/B]

给贴个DWG文件上来吧，是什么样的HATCH有误？

caibaobao

原来为晓东准备的DWG不见了！这么说吧：用rectang命令画3个同样大小的A、B、C共3个矩形框，A不动；B做个HATCH；C用SOLID填充满；用晓东工具箱里的命令分别计算B、C的面积，得到的HATCH面积与SOLID的面积不同！而SOLID的面积与用AREA或LIST命令计算A的面积一样。那是我使用晓东工具箱beta0.05版本时的结果，beta0.1版本未用。

eachy

XDRX_API Build 20506 & ToolBox Beta 0.11

1. 命令: _ha_area
   
2. 正在初始化...
   
3. 请选取计算面积的Hatch,Solid实体[ALL-全选]<退出>:
   
4. 选择对象: 找到 1 个
   
5. 
   
6. 选择对象:
   
7. 
   
8. 共选取了 1 个Hatch, 0 个Solid,面积总和是：6401.35
   
9. 
   
10. 命令:
    
11. 命令:  _HA_AREA
    
12. 请选取计算面积的Hatch,Solid实体[ALL-全选]<退出>:
    
13. 选择对象: 指定对角点: 找到 0 个
    
14. 选择对象: <循环 开>   <循环 关>找到 1 个
    
15. 
    
16. 选择对象:
    
17. 共选取了 0 个Hatch, 1 个Solid,面积总和是：6401.35
    
18. 命令:
    
19. 命令:  _HA_AREA
    
20. 请选取计算面积的Hatch,Solid实体[ALL-全选]<退出>:
    
21. 选择对象: 指定对角点: 找到 1 个
    
22. 已滤除 1 个。
    
23. 
    
24. 选择对象:
    
25. 命令:
    
26. 命令: li LIST
    
27. 选择对象: 指定对角点: 找到 1 个
    
28. 
    
29. 选择对象:
    
30.                   LWPOLYLINE  Layer: "0"
    
31.                             Space: Model space
    
32.                    Handle = 2B
    
33.             Closed
    
34.     Constant width    0.0000
    
35.               area   6401.3459
    
36.          perimeter   327.7335
    
37. 
    
38.           at point  X=  59.9092  Y= 162.4959  Z=   0.0000
    
39.           at point  X= 159.4985  Y= 162.4959  Z=   0.0000
    
40.           at point  X= 159.4985  Y=  98.2185  Z=   0.0000
    
41.           at point  X=  59.9092  Y=  98.2185  Z=   0.0000
    

复制代码

tomtom

我发表过面积计算程序，我觉得比其它程序好，这位老弟可以参考一下，可在tomtom以前的贴子中找，非常好用（仅用于封闭面积计算），封闭房间仅点房建中间处就可自动计算面积，并在cad图中写出计算结果。