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

AutoCAD，CASS中标注闭合宗地实际亩数，这个功能在低版本cass、cad中没有。现在我自己做了一个简单的插件可以实现这个功能。

操作方法

  • 01

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

  • 02

    在vba窗口左侧上部工程窗口内部，右键选择“插入”中的”模块“

  • 03

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

  • 04

    双击左侧工程窗口中AutoCAD对象中的ThisDrawing,可以看到右侧代码窗口改变为空白。

  • 05

    在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

  • 06

    点击左上的保存按钮保存。在弹出的窗口中选择保存路径和保存的名字。

  • 07

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

  • 08

    标注的面积单位为亩，文字高设置的1.21，当然这些参数都可以修改。爱好开发的朋友可以自己根据喜好自行修改。

赞 (0)

相关推荐

  • AutoCAD如何将标注文字位置修改为置中

    AutoCAD如何将标注文字位置修改为置中

    AutoCAD是现在十分常用的一款制图软件,有些新用户不知道该软件如何将标注文字位置修改为置中,接下来小编就给大家介绍一下具体的操作步骤.具体如下:1. 首先第一步根据下图所示,打开电脑中的AutoC ...

  • AutoCAD怎么删除未闭合图形中的红色圆圈

    AutoCAD怎么删除未闭合图形中的红色圆圈

    AutoCAD是现在十分常用的一款制图软件,有些用户想知道怎么删除未闭合图形中的红色圆圈,接下来小编就给大家介绍一下具体的操作步骤.具体如下:1. 首先第一步打开电脑中的AutoCAD软件,先按照需求 ...

  • cass中怎么把两条分离的线段相连？线段怎么闭合

    在cass中我们经常遇到两条线段是分开的,那么怎么把他们连接起来呢? 操作方法 01 小编随便画了两条线来做例子,可以看到他们是分离的 02 从上方工具栏的"地物编辑"中找到&qu ...

  • AutoCAD如何修改标注文字

    AutoCAD如何修改标注文字

    AutoCAD是现在十分常用的一款制图软件,有些用户想知道如何修改标注文字,接下来小编就给大家介绍一下具体的操作步骤.具体如下:1. 首先第一步打开电脑中的AutoCAD软件,先导入相关图纸,接着根据 ...

  • AutoCAD怎么将标注样式公差修改为极限偏差

    AutoCAD怎么将标注样式公差修改为极限偏差

    AutoCAD是现在十分常用的一款制图软件,有些新用户不知道怎么将标注样式公差修改为极限偏差,接下来小编就给大家介绍一下具体的操作标注.具体如下:1. 首先第一步先打开电脑中的AutoCAD软件,接着 ...

  • AutoCAD如何给标注添加公差

    AutoCAD如何给标注添加公差

    AutoCAD是现在十分常用的一款制图软件,有些新用户不知道如何给标注添加公差,接下来小编就给大家介绍一下具体的操作步骤.具体如下:1. 首先第一步先打开电脑中的AutoCAD软件,接着根据下图所示, ...

  • AutoCAD怎么修改标注文字样式

    AutoCAD怎么修改标注文字样式

    AutoCAD是现在十分常用的制图软件之一,有些新用户不知道该软件怎么修改标注文字样式,接下来小编就给大家介绍一下具体的操作步骤.具体如下:1. 首先第一步打开电脑中的AutoCAD软件,根据下图所示 ...

  • AutoCAD怎么设置标注文字高度

    AutoCAD怎么设置标注文字高度

    AutoCAD是现在十分常用的一款制图软件,有些新用户不知道该软件怎么设置标注文字高度,接下来小编就给大家介绍一下具体的操作步骤.具体如下:1. 首先第一步根据下图所示,打开电脑中的AutoCAD软件 ...

  • AutoCAD如何修改标注样式

    AutoCAD如何修改标注样式

    AutoCAD是现在十分常用的一款制图软件,有些新用户不知道该软件如何修改标注样式,接下来小编就给大家介绍一下具体的操作步骤.具体如下:1. 首先第一步先打开电脑中的AutoCAD软件,接着根据下图所 ...