大家好,我是小溜,CAD,Cass中标注闭合宗地实际亩数,这个功能在低版本Cass、CAD中没有,所以CAD的Cass标注闭合宗地怎么算实际亩数呢?大家可以参考下面的方法。
硬件型号:戴尔灵越15
系统版本:Windows7
所需软件:CAD2007
首先打开cass7.1,在命令行输入vbaide,并回车,进入vba编辑环境。
在vba窗口左侧上部工程窗口内部,右键选择“插入”中的”模块“
在模块右侧代码窗口中输入如下内容:
Option Explicit
Sub bmjhs()
Dim entry As AcadEntity, basePnt As Variant
Dim textobj As AcadText, text As String
Dim height As Double, pd As Variant
ThisDrawing.Utility.GetEntity entry, basePnt, "选择宗地线"
text = Format(entry.Area / 666.67, "0.00") '2000 * 3
height = 1.21'文字高度
pd = ThisDrawing.Utility.GetPoint(, "选择面积注记位置")
Set textobj = ThisDrawing.ModelSpace.AddText(text, pd, height)
End Sub
双击左侧工程窗口中AutoCAD对象中的ThisDrawing,可以看到右侧代码窗口改变为空白。
在ThisDrawing的右侧代码窗口中输入如下内容:
Option Explicit
Public TestLoad As Boolean
Private Sub AcadDocument_EndCommand(ByVal CommandName As String)
If Not TestLoad Then
ThisDrawing.SendCommand "(defun c:ss()(vl-vbarun ""bmjhs"")(princ))(princ)" & vbCr
TestLoad = True
End If
End Sub
点击左上的保存按钮保存。在弹出的窗口中选择保存路径和保存的名字。
回到cad绘图窗口。这个编辑的表宗地面积工程的vba宏名为“bmjhs”,命令行调用命令自定义设置的是“ss”.
运行命令标注情况见图。
标注的面积单位为亩,文字高设置的1.21,当然这些参数都可以修改。爱好开发的朋友可以自己根据喜好自行修改。
好了,本次关于“CAD的Cass标注闭合宗地怎么算实际亩数?”的全部内容就分享到这里啦,希望小溜分享的内容能够帮助到大家。想要更深入的了解“CAD”可以点击免费试听课程溜溜自学网的课程,全面了解软件的操作。