如何用VBA求面积？

yicol 发表于 2003-7-20 22:59:00

帮忙，，
在用CAD命令求面积时太麻烦，能不能这样，我在一个封闭的区域内单击鼠标，
让电脑算出该封闭的区域的面积。

myfreemind 发表于 2003-7-20 23:32:00

编程申请里面有原代码!

bluelover 发表于 2003-7-21 21:07:00

2楼的能不能说得详细一点儿?
我对这个也比较关心,想借鉴一下,谢了

myfreemind 发表于 2003-7-21 23:30:00

我帖了原代码在"编程申请"里面!

你们去看看就知道了!不过我的程序你们可能需要改一下,因为是涉及比例尺的!

yicol 发表于 2003-12-16 17:10:00

大虾，我在编程申请里下载了源代码，但不行呀，老是提示说比例尺不对，不知何故，
我对代码看得不是很懂呀

myfreemind 发表于 2003-12-16 18:17:00

把userr1参数改为1000，就是设置图纸比例为1000，设为500就是500比例，如果你算的是实地面积用1000比例尺的就可以了！

yicol 发表于 2004-1-3 15:22:00

刚才我试了一下，那个程序很有帮助，但对我还是不够实用，
我是想像填充一下可以点击，然后可以判断出一个封闭区域，
再来计算这个封闭区域的面积，当然这个区域不一定要是多段线组成，
是直线也应该能行呀，大家帮忙呀

myfreemind 发表于 2004-1-3 15:25:00

如果不封闭的话可能比较麻烦！

yicol 发表于 2004-1-3 16:19:00

如果封闭的话怎么写代码呢
能不能说一点建议？

efan2000 发表于 2004-1-3 17:01:00

呵呵，这个也可以求面积。在封闭区域内选择一点，然后生成它的边界，这个边界就是封闭的多段线，直接使用它的属性就行了。

Sub test()

' 当前图纸的实体数目
Dim n As Long
n = ThisDrawing.ModelSpace.Count

' 调用BOUNDARY命令获取某一点处的边界
Dim Pt As Variant
Pt = ThisDrawing.Utility.GetPoint(, "指定内部点: ")
ThisDrawing.SendCommand "_-Boundary" & vbCr & Pt(0) & "," & Pt(1) & vbCr & vbCr

' 如果存在边界，则会生成新的实体
Dim lwpLineObj As AcadLWPolyline
If ThisDrawing.ModelSpace.Count > n Then
   Set lwpLineObj = ThisDrawing.ModelSpace.Item(ThisDrawing.ModelSpace.Count - 1)
   MsgBox lwpLineObj.Area
   lwpLineObj.Delete
Else
   MsgBox "未发现有效的边界。"
End If
End Sub

页: [1] 2

明经CAD社区's Archiver

如何用VBA求面积？

我帖了原代码在"编程申请"里面!