2024年3月30日发(作者：)

在AUTOCAD2006中

添加一个自定义加法器工具

武汉市江夏区勘测院 金卫东

2007年7月

本人在用AUTOCAD软件作图的日常工作中，经常会遇到要用图上的数字注记，进行

加减运算的简单计算工作。通常情况下，是调用系统的计算器程序，通过手工输入或复制

粘贴的方式来完成这项工作。而这种方式较为繁琐，如果能够通过鼠标直接点取相应的数

字注记，来得到最终的累加结果，这样就非常有效率且直截了当。

解决方法：在AUTOCAD2006中编写一个VBA程序,通过自定义栏中定义一

个工具“加法器”，来调用这个程序，即可达到目的。

1加法器源程序

程序功能：通过在图上选择需要累加的数字注记，将其变为黄色，若数字注记中有等

号，则仅取最后一个等号右侧的数字，依次累加，鼠标右键单击结束选择，在鼠标指定的

位置标注计算结果。

★注意，1）在使用这个工具的过程中，选择需要累加的数字注记时，鼠标左键不要双

击，以免重复选中对象造成累加结果错误。

2）为确保结果正确，在累计的个数较多时，建议做两次运算，确认结果无误。

3）若选中的对象非数字注记，则相当于选中数字“0”。

AutoCAD对象，ThisDrawing代码

Option Explicit

Dim mspaceObj As AcadText

1