首先得声明一下：这段代码基本上是"借"来的。只是做了些修改。这段代码的作用是计算选定区域的面积，运行效果如下面的图，用了比较多的SendCommand，不太可取，不过也无大碍，管用就行。另外，有多次对Auto-CAD环境变量的操作，GetVariable/SetVariable，至于各环境变量有什么用，可以查看CAD帮助文档。 
         修正Bug：重设ObjectSnapMode之后，原来的捕捉设置会丢失，必须得修改OSMODE环境变量的值才行。
[程序代码]       －－By :忽又一天 Email:wzw.icy@gmail.com QQ：365052003
Public Sub XArea() '选择一点，计算围绕该点的对象围成的面积
On Error GoTo ErrorHandler



阅读全文……

在CAD VBA就这么简单，可以计算出文字数字的和，单行文字框就去掉中间的“M”即可
'CAD图中所有选中的文字数字自动求和
Dim oEnt As Object
Dim mm As Double
mm = 0



阅读全文……