通过开发轻量级插件,成功在低版本autocad与cass平台中实现了对闭合宗地图形自动计算并标注实际亩数的功能,有效解决了原生软件缺乏该功能的短板,显著增强了地形图数据处理的便捷性与工程适用性。
1、 启动CASS7.1软件后,在命令行输入 vbaide 并按回车键,即可打开VBA集成开发环境。

2、 在VBA界面左侧的“工程资源管理器”窗口中,右击工程节点,依次选择【插入】→【模块】。

3、 在新建模块右侧的代码编辑区中粘贴或编写如下VBA代码。
4、 程序将提示用户选取闭合宗地边界线,并自动提取所选图元及其几何基准点信息。
5、 默认文字高度设定为1.21,兼顾图纸比例与视觉辨识度。
6、 由用户交互式指定面积标注文字的插入位置点。

7、 在工程资源管理器中双击【AutoCAD对象】下的 ThisDrawing,右侧代码窗口将清空并进入事件响应脚本编辑状态。

8、 在该空白代码窗口中输入以下事件驱动代码:

9、 点击工具栏左上角的【保存】图标,在弹出的对话框中指定存储路径并命名项目文件,完成代码存档。

10、 切换回AutoCAD绘图主界面,本插件对应的VBA宏名称为 bmjhs,已绑定自定义命令别名为 ss,可在命令行直接调用。
11、 执行命令后的实际标注效果如下图所示。

12、 面积单位统一采用“亩”,文字高度默认为1.21,所有参数(如单位、精度、字体、高度等)均开放可配置,便于开发者根据实际项目需求灵活调整。











