CAD的Cass标注闭合宗地怎么算实际亩数(cass中闭合)优质

扫码添加渲大师小管家，免费领取渲染插件、素材、模型、教程合集大礼包！

CAD。Cass中标注闭合宗地实际亩数。这个功能在低版本Cass。CAD中没有。所以CAD的Cass标注闭合宗地怎么算实际亩数呢？大家可以参考下面的方法。

工具/软件

硬件型号：戴尔灵越15

系统版本：Windows7

所需软件：CAD2007

方法/步骤

第1步

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

第2步

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

第3步

在模块右侧代码窗口中输入如下内容：

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

第4步

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

第5步

在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

第6步

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

第7步

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

运行命令标注情况见图。

第8步

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

以上关于“CAD的Cass标注闭合宗地怎么算实际亩数(cass中闭合)”的内容小渲今天就介绍到这里。希望这篇文章能够帮助到小伙伴们解决问题。如果觉得教程不详细的话。可以在本站搜索相关的教程学习哦！

以上是由资深渲染大师 小渲 整理编辑的，如果觉得对你有帮助，可以收藏或分享给身边的人