这应该做的伎俩和更多…我做了这个计算领域。只需将其复制到你的应用程序中,按下命令按钮,运行它,然后在关闭的()内单击你想要的区域
私有子cmdArea\u Click()
Me。隐藏Dim Pt作为变量,gotpt作为布尔值
gotpt=False
Do
On Error Resume Next
Pt=ThisDrawing.Utility。GetPoint(,“选择内部点”)
如果出错,则出错。清除gotpt=False
Else
gotpt=True
结束If>。SendCommand Chr(3)&;Chr(3)&&引用-“边界”&;vbCr&;Pt(0)&"&引用&;第(1)部分和;vbCr&;vbCr''''''''''''''
本图纸。SendCommand“_面积“&;vbCr&&引用;“对象”&;vbCr&&引用;最后一个“&;vbCr变面积_面积“&;vbCr&&引用;“对象”&;vbCr&&引用;最后一个“&;vbCr本图。SendCommand“;删除“&;vbCr&&引用;最后一个“&;vbCr&;vbCr'''''''''''''''''
&039'''''''''''''''''
Dim SysVarName作为字符串;DIMSCALE“
sysVarName2=;面积“
VarData=ThisDrawing。GetVariable(SysVarName)
varArea=Round(Val(ThisDrawing.GetVariable(sysVarName2))/144,0)&&引用;平方英尺“
intData=VarData*0.09375#039;对于3/32文本,将文本对象设置为AcadText,将文本设置为变量,将高度设置为变量。添加文本(varArea,Pt,Height)
End Sub