AutoCAD，CASS中标注闭合宗地实际亩数

1、首先打开cass7.1,在命令行输入vbaide,并回车，进入vba编辑环境。

3、在模块右侧代码窗口中输入如下内容：Option ExplicitSub 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

5、在ThisDrawing的右侧代码窗口中输入如下内容：Option ExplicitPublic TestLoad As BooleanPrivate 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 IfEnd Sub

7、回到cad绘图窗口。这个编辑的表宗地面积工程的vba宏名为“bmjhs”，命令行调用命令自定义设置的是“ss”.运行命令标注情况见图。