在公路低级处理中VB对AutoCAD二次开发

分享到：

在公路地基处理中可能会遇到钢钎加固的情况，在作图之中需要对上千个点逐一编号，重复工作量很大。如果通过编制程序可以提高工作效率，一天的工作量可以在几分钟之内解决，而且能够避免视觉疲劳而引起的错误。
AutoDesk公司提供了面向对象的编程接口ActiveXAutomation，它使用了OLE的Automation技术。AutoCAD被登录为一个其它Windows的应用程序可以操作的对象，用户可以用VB来访问AutoCAD的所有图形对象和非图形对象，进行二次开发，开发过程完全独立于AutoCAD本身。
有关VB开发AutoCAD的技术环节，在网上可以找到，特别是崔航的有关文章值得同行借鉴。下面给出程序以及简单的实现方法步骤。
程序用到的控件有:Command1点击可连接AutoCAD，并在其中标注钢钎编号；Command2点击以释放AutoCAD所占内存；txtX、txtY输入编号文字相对于钢钎点的相对坐标；Text1、Text2编号文字的高度和旋转角度。现在给出的程序很短而且并不难，就不再作过多注释。作图当中先打开钢钎（在图中体现为点对象）位置的图层，然后运行程序，遍历所有对象并逐一对点对象编号。为节约时间还可以在程序中声明一个"选择集"对象，只对选择集中的对象遍历。下面给出的程序运行后的结果按画点的顺序，而不是按坐标顺序编号，如果有特殊的需要，可以通过相应的排序算法实现。

PrivateSubCommand1_Click()
CallAcadConnect

DimacadUtilAsObject

SetacadUtil=AcadApp.ActiveDocument.Utility'设置Utility对象

DimstxAsDouble
DimstyAsDouble

DimstmStringAsString
stmString=acadUtil.GetString(0,"按任意键开始........")

DimiAsInteger
DimoBjAsAcadObject
DimstxxAsVariant

i=1
ForEachoBjInAcadApp.ActiveDocument.ModelSpace'遍历工作区中的实体

IfoBj.EntityName="AcDbPoint"Then
stxx=oBj.Coordinates
stx=stxx(0)
sty=stxx(1)
CallDrawTxt(stx+Val(txtX),sty+Val(txtY),Val(Text1),0.8,Val(Text2),str(i))
i=i+1
EndIf

NextoBj

EndSub

PrivateSubCommand2_Click()
CallAcadQuit
EndSub

文件模块

PublicAcadAppAsAcadApplication

PublicSubAcadConnect()'连接Cad
OnErrorResumeNext
SetAcadApp=GetObject(,"autocad.application")
IfErrThen
Err.Clear
SetAcadApp=CreateObject("autocad.application")
IfErrThen
MsgBox"不能运行AutoCAD,请检查是否安装！",vbOKCancel,"警告！"