[VBA程序]：关于尺寸文本程序（尺寸相加，文字改变）

mountains3

这是我的关于尺寸的程序
压缩包中包含两个文件dim.dvb,dimtext.lsp
dim.dvb中包含三个程序 cd-------我们在用ddedit命令改变尺寸的文本时，编辑栏里面显示不出文本，只是“<>”两个符号，本程序能够一次把各种尺寸（线性，角度，直径）改变成能够在编辑时以文本形式显示出来。

edt-----------可以一步修改尺寸的文本值，直接了当

adddimvalue----------------把所有线性尺寸的数值相加，结果在命令栏中显示出来

上述三个程序均在dimtext.lsp中定义了直接在cad中执行的命令
只要在cad－－－工具－－－加载应用程序－－－启动组中加载上述两个文件
重新启动cad
在命令行中输入cd 或edt或dl即可运行程序
dvb文件未加密，源码完全公开。