myfreemind 发表于 2004-1-3 17:10:00

efan2000发表于2004-1-3 17:01:00static/image/common/back.gif呵呵，这个也可以求面积。在封闭区域内选择一点，然后生成它的边界，这个边界就是封闭的多段线，直接使用它的属性就行了。


Sub test()
   
   ' 当前图纸的实体数目
   Di



好程序！送花一朵！

chb801 发表于 2004-1-3 19:33:00

好程序啊！我复制了！！

chb801 发表于 2004-1-3 19:34:00

哦！刚才忘记了，送花一朵！

yicol 发表于 2004-1-17 13:16:00

好好好，OK

yu-gn 发表于 2004-1-18 10:13:00

大虾就是大虾

smpoy 发表于 2005-7-3 09:31:00


http://www.mjtd.com/bbs/skins/default/topicface/face1.gif

呵呵，这个也可以求面积。在封闭区域内选择一点，然后生成它的边界，这个边界就是封闭的多段线，直接使用它的属性就行了。
Subtest()
      
      '当前图纸的实体数目
      DimnAsLong
      n=ThisDrawing.ModelSpace.Count
      
      '调用BOUNDARY命令获取某一点处的边界
      DimPtAsVariant
      Pt=ThisDrawing.Utility.GetPoint(,"指定内部点:")
      ThisDrawing.SendCommand"_-Boundary"&vbCr&Pt(0)&","&Pt(1)&vbCr&vbCr
      
      '如果存在边界，则会生成新的实体
      DimlwpLineObjAsAcadLWPolyline
      IfThisDrawing.ModelSpace.Count>nThen
                SetlwpLineObj=ThisDrawing.ModelSpace.Item(ThisDrawing.ModelSpace.Count-1)
                MsgBoxlwpLineObj.Area
                lwpLineObj.Delete
      Else
                MsgBox"未发现有效的边界。"
      EndIf
EndSub
顶一下，好程序

qqcat521 发表于 2011-9-15 12:15:26

困扰好久的问题终于解决了，支持一下。耶

桃花岛岛主 发表于 2011-9-23 20:15:59

这段代码能转成.NET???
页: 1 [2]
查看完整版本: 如何用VBA求面积？