在CAD2006中自定义工具栏添加一个自编加法器程序

在AUTOCAD2006中添加一个自定义加法器工具武汉市江夏区勘测院金卫东2007年7月PAGE\*MERGEFORMAT#本人在用AUTOCAD软件作图的日常工作中，经常会遇到要用图上的数字注记，进行加减运算的简单计算工作。通常情况下，是调用系统的计算器程序，通过手工输入或复制粘贴的方式来完成这项工作。而这种方式较为繁琐，如果能够通过鼠标直接点取相应的数字注记，来得到最终的累加结果，这样就非常有效率且直截了当。解决方法：在AUTOCAD2006中编写一个VBA程序add.dvb,通过自定义栏中定义一个工具“加法器”，来调用这个程序，即可达到目的。1加法器add.dvb源程序程序功能：通过在图上选择需要累加的数字注记，将其变为黄色，若数字注记中有等号，则仅取最后一个等号右侧的数字，依次累加，鼠标右键单击结束选择，在鼠标指定的位置标注计算结果。★注意，1)在使用这个工具的过程中，选择需要累加的数字注记时，鼠标左键不要双击，以免重复选中对象造成累加结果错误。为确保结果正确，在累计的个数较多时，建议做两次运算，确认结果无误。若选中的对象非数字注记，则相当于选中数字“0”。AutoCAD对象，ThisDrawing代码OptionExplicitDimmspaceObjAsAcadTextDimsumAsDoubleDimcsAsStringDimnsAsDoubleSubadd()DimbasePntAsVariantDimlAsIntegerDimiAsInteger,jAsIntegerDimtAsStringDimCurrentColorAsVariantsum=0OnErrorResumeNextRETRY:ThisDrawing.Utility.GetEntitymspaceObj,basePnt,"请选择需要累加的数字注记"IfErr<>0ThenErr.ClearDimprompt1AsStringDimstartPntAsVariantDiminsPoint1(0To2)AsDouble'声明插入点prompt1=vbCrLf&"指定放置位置:"DimtextHeightAsDoubleDimtextStrSumAsStringDimtextObjSumAsAcadText'声明文字高度'声明字符串'声明文字对象'在不输入基点的情况下获取第一点startPnt=ThisDrawing.Utility.GetPoint(,prompt1)insPoint1(0)=startPnt(0)insPoint1(1)=startPnt(1)insPoint1(2)=startPnt(2)textHeight=1'文字高度设置为1textStrSum=LTrim(Str(sum))'创建Text对象SettextObjSum=ThisDrawing.ModelSpace.AddText_(textStrSum,insPoint1,textHeight)ExitSubElseCurrentColor=mspaceObj.colormspaceObj.color=acYellow'选中对象变黄色mspaceObj.UpdateIfmspaceObj.ObjectName="AcDbText"Thencs=LTrim(mspaceObj.TextString)l=Len(cs):j=0Fori=1Tolt=Mid(cs,i,1)Ift="="Thenj=iNextiIfj<>0Then'只选择“=”号右边的数字cs=Right(cs,l-j)cs=LTrim(cs)EndIfns=Val(cs)sum=sum+nsEndIfEndIfGoToRETRYEndSub2自定义工具栏2.1将加法器程序add.dvb,以及工具栏图标文件add.bmp等保存到ACAD2006目录下。如C:\ProgramFiles\AutoCAD2006。2.2自定义工具栏步骤：启动CAD，在工具栏空白处，鼠标右键单击，在弹出的快捷菜单中选择“自定义”（如图2-1）。圭南方CASST.0-[Dra»ingl.d»g]處文件（E）工具（!）编辑⑥显示电）数据⑪绘图处理妣）地籍①土地利用（L）等高銭⑨地物编辑@）检查入库@）应用电）图幅管理瑕）II瞌詩］用Ci哂觀口。Z搭丨诫扭丨継童战鎳戛7弄戏破爼哟TCASS一一劈觀重益越皆Bil注a□2昌.9.10/门==ll//=o口厂0QZOO国电•MA討£尬摩□□□□申oHnx---'-----7口口厂厂瀨图2-1)在自定义用户界面的所有CUI文件中的自定义面板中，鼠标右键单击“工具栏”在弹出的快捷菜单中选择“新建”工具栏”（如图2-2）。图2-2)将新建的工具栏“工具栏1”名称改为自己想要的名字如“myTOLLS”（如图2-3、图2-4）。固源»自定爻1=传输I0特性趣自定义用户界面所有OJI空件中的自定矍E名称日默认打开方向默认X位置默认Y位置行日别名元素IDHI新連動|图2-3）CASS0号閣框CASS0.0CASS0.00CASS+常线型-漏码+常字型-浮型+常字型-》图层+常直角纠正+常面状地物控制+常批量删聖+局部存盘+计算面积+常生成里程文件+DTM法土方计算+常断面法土方计算+常绘斷面图+常公路曲线设计+常土地详查+°™面积调整+常高程点生成数据文件+™JSo£t+竣工価lig卿1|卜+眉荣单瓜2験按类别⑹:|所有命令®自定义用户界面特性所有OJI艸中的自定义|所有自定爻文件3占田-E-.E-.E-.E-.E-.E-.E-.E-.E-.E-.E-.E-.E-.E-.E-.E-.E-.E-:嚅线型-漏码百字型-浮型™字型-》图层™直角纠正召面状地物控制召批量删剪°™局部存盘™计算面积召生成里程文件召DTM法土方计算召断面法土方计算召绘斷面图召公路曲线设计召土地详查°™面积调整召高程点生成数据文件™JSoft吒竣工myTOOLS：［ti固"hi默认X位置默认Y位置萊单拦尖别:1所有命令B新建(N)［命令源TJ0CASS0号團框CASS0.0CASS0.00CASSi_iL\L\L\L*Fr图2-4)在命令列表面板中，鼠标左键单击“新建”(如图2-5)®自定义用户界面釜自定爻1=倍输I所有ojizSS件中的自定罠特性I所有自定义文件号线型-漏码号字型-浮型号字型-》閣层号直角纠正号面状地物控制号批量删聖局部存盘呼计算面积号生成里程文件E:由…田…田…田…田…田…田…田••日:默认Y位置行+°?DTM法土方计算+号斷面法土方计算+号绘斷面閣+号公路曲线设计+号土地详查+面积调整+号高程点生成数据文件+号JSo£t+毘j竣工111■……皿I+用萊单myTOOLS］命等-0CASS―i0号图框CASS0.0CASS0.00CASS按类别(G):|所有命令图2-5)别名元素ID在特性面板中，将新建的命令“命令1”名称改为“加法器”（如图2-6、图2-7）。图2-6)传输大O口拯电ill申二固C源□□□□特性自定义用户界面wffcuisn中的自定愛按钮图像名称+线型-》编码+号字型-浮型■+号字型-溷层+呼直角纠正]+呼面状地物控制]+腺批量删剪+局部存盘p+°™计算面积]+号生成里程文件+DTM法土方计算,+卞斷面法土方计算+百绘断面圉+百公路曲线设计+土地详查]+H"面积调整]+号高程点生成数据文件.+号JSoft+腺竣工'%myTOOLS+用荣单"翹面域/质星特性S面伏地物封闭苗苗圃-I所有自定交文件CASSCASSCASSCASS三I新逹®□说明日宏日i元素ID日|小图像大图像加法器IMMU_4423編辑（X）2祗:按类别（.0）:|所有命令图2-7)填写宏“-VBARUNadd.dvb!ThisDrawing.add”图2-8)细自定义用户界面1命令T1-1“德计算斷面面积CASS逆计算两期间土方CA5-S◎计算面积信息CASS感计算指定范围的面积CASS—1:丄•甘臣丄山nhm曲幹F击起lx—^慨⑥匚惜——*I%I0IV2——禺剧圈|»|囤「HI%I®I®I0内泌血回惮——凶^-IA'0BJ+通过点击“．．．”按钮，选择按钮图像（小图像）文件的路径，如C:\ProgramFiles\AutoCAD2006\add.bmp（如图2-9）+釁线型-漏码+号字型-浮型+圧字型-溷层+号直角纠正+号面状地物控制+牙批量删剪+局部存盘+计算面积+牙生成里程文件+™BTM法土方计算+常斷面法土方计算+釁绘斷面图+号公路曲线设计+牙土地详查+号面积调整+号高程点生成数据文件+呼JSoft+常竣工™myTOOLS图2-9）在按钮图像面板上，选择前面加载的按钮图像(如图2-10、图2-11)隹输I所有自定殳文件大o>固命审源%A9韵UA护红15岛自定义用户界面所有on交件中的自定賈按钮图像特性小图像重置默认值加袪盟-VBAKUSadd.dvb!ThisDraving.addMMU_4423C：\Frogra>Files\AutoCAD2006\：W计算斷面面积逆计算两期间土方囂计算面积信息虜计算指定范围的面积按类别〔0):I所有命等犬图像CASSCASSCASSCASS+号钱型-漏玛+号字型-浮型*H«字型-》图层+号直甬纠正+号面伏地物控制+号批量删剪+°™局部存盘+°™计算面积+号生成里程文件+°?ETM法土方计算+号断面法土方计算+绘断面图+号公路曲线设计+号土地详查+9面积调整+号高程点生成数据文件+号JSoft+号竣工™myTOOLS用萊单“说明□宏t元素ID□□吉名称編辑a)..3新連⑻图2-10)I所有自定义文件iA舞固命步源大共同0Ka特性*阿自定义用户界面爺自定义|=借输|所有UJI宝井中的自定覽毡钮图像+百线型-漏玛+牙字型-浮型+百字型-》图层+召直角纠正+百面状地物控制+召批屋删聖+H"局部存盘+召计算面积+召生成里程文件+召DTM法土方计算+召斷面法土方计算+召绘断面图+百張路曲线设计+百土地详查+工"面积调整+百高程点生成数据文件+JSo£t+%竣工7?myTOOLS+用萊单HI新連®誉计算斷面面积逆计算两期间土方醴计算面积信息薩计算指定范围的面积；•丄•结三丄山r+iE击辂百in日名称说明日宏日i元素ID日E小图像大图像重置默讪CA5SCASSCASSCASS加法器-VBAKUHadd.dvbIThisDraviiMMU_4423C:\Progra*Files\AutoCADE按类别(G):|所有命習编辑(L)..图2-11)如9%B0\0I所有自定义文件::固命令加渣器®自定义用户界面强自定殳|=倍输|所有on彌中的自定义按钮国像特性加固陡坟加固斜坡-hnFFl±3.h-k-i：!4rh「・轻/\CASS鼠标左键点按命令列表面板中的“加法器”命令不放(图2-12)三I新逹®|□名称说明E宏B高飯元素ID□I小圉像大閣像+计算面积+呼生成里程文件+DTM法土方计算+呼斷面法土方计算+常绘斷面閣+呼公路曲线设计+呼土地详查+齐面积调整+呼高程点生成数据文件+JSo£t+呼竣工嚅myTOOLS+碍荥单+快捷菜单+」_1键盘快捷键+覺鼠标按钮秒USF文件+*■隹统项血局部CUI文件编辑①…ICASSCASSCASS按类别(G):|所有命等图2-12)拖到所有CUI文件中的自定义面板中的自定义工具栏“myTOOLS”处(如图2-13)|所有自定殳文件::固命令共同遽-特性趣自定义用户界面耳自定爻|=隹输|所有匚uijj井中的自定買按钮图像匸加法器加方格网加固陡坎加固斜坡CASS+++++++++++™计算面积牙生成里程文件牙DTM法土方计算牙断面法土方计算牙绘断面图牙公路曲线设计牙土地详查面积调整牙高程点生成数据文件号竣工™myTOOLSJ+碍菜单肚+Bi］快捷菜单+」-1键盘快捷键+堂鼠标按钮秒口旺文件+*■倍统项蔚局部CUI文件新連(N)曰名称说明B宏□高飯元素ID曰I小團像CASSCASSCASS编辑①…I按类别〔①：|所有命令图2-13)然后松开鼠标左键，自定义“加法器”命令就添加到了“myTOOLS”工具栏（如图2-14）图2-14)单击最下方“确定”按钮，完成整个设置过程（如图2-15）LTJ'HIM丄|丄IIM厶丄丿」kI-W-+牙斷面法土方计算+牙绘斷面图+牙公路曲线设计+牙土地详查+°™面积调整+牙高程点生成数据文件+吒JSoft+牙竣工-呼myTOOLS*加法器+闰菜单+feU］快捷菜单+」-«键盘快捷键+弋鼠标按钮QUSF文件+传统项鳶局剖CUT豺件□□按类别⑹:I命步TW~口茄生需”CASS加方格网CASS加固陡坎CASS加固斜坡CASS—1加固自然斜坡［等分CASS枷固自然斜坡［法线CASS加配电鏡CASS加入CASS环境CASS枷入地性线CASS图2-15)名称说明元素ID通过鼠标左键点按拖动，将该新建工具栏停靠到指定的位置（如图2-16、图2-17），即完成了所有的工作，可以正常使用了。图2-16)喇南方CASST-O-[Dravingl.dvg]層文件（E）工具⑴编辑⑥显示②数据⑪瑩图处理®地藉①土地利用①）等高线E）地物编辑检查入库逅）工程应用图幅管理追）|］潼涔］吃。②皤口。HI器2日丨鵲空叹锻氓★詡/剪答弔拥快图2-17)3示例点击“加法器”按钮，启动该命令（如图3-1）令南方CASST.0-[Dravingl.dvg]瞬文件②工具⑴编51（E）显示出数据⑪绘图处理迪地藉①土地利用QJ等高线地物编辑@）检查入库址）工程应用C）图幅管理追）|]*港||0ta•鳴□□耳|嵌谀19緞妄直钺氓了”關/矽爲弔匕|图3-1)鼠标左键单击选中第一个数字注记（如图3-2）鱼南方CASST-D-[Dravingl.dvg]文件込工具①编辑⑥显示迪数据⑪绘閤处理⑩地藉①土地利用⑪等高线⑤地物编辑®检查]]*藩||gat•疇□□器I暉口1*2致錢釵5=53.90图3-2)鼠标左键单击选中第二个数字注记（如图3-3）ITTIII©2o口.91O£o□□□□5=5^0空|南方CSST-0-[Dravingl.dvg]文件的工具⑴編辑⑥显示②数据⑪绘閤处理⑩地籍①土地利用⑪等高线⑤地物编辑®检查图3-3)5=55.84鼠标右键单击结束选择，左键单击指定处标注累加结果（如图3-4）圭南方C直SST-0-[Dravingl.dvg]文件®工具①编辑⑥显示②数据⑪绘图处理址〕地藉①土地利用d）等高线地物编辑检查.忌越重益画甘®赢注刁□g斗昌日/\.「0口厂0C52O电・一一&戏扯座□□□□申olHInx-/■--■/'□■口rW,74图3-4)4小结由于AUTOCAD自带有VBA编程环境，对于我们在使用CAD的过程中，解决遇到的一些小的实际问题，非常快捷方便。在提高了工作效率的同时，也体会到了工作的乐趣。