在公路地基处理中可能会遭受钢钎加固的情况，在作图之中需要对上千个点一一编号，交流责任量很大。要是通过编制圭臬不错擢升责任成果，一天的责任量不错在几分钟之内处分，而况大约幸免视觉疲钝而引起的诞妄。AutoDesk公司提供了面向对象的编程接口ActiveXAutomation，它使用了OLE的Automation时刻。AutoCAD被登录为一个其它Windows的诓骗圭臬不错操作的对象，用户不错用VB来访谒AutoCAD的悉数图形对象和非图形对象，进行二次开发，开发经由王人备安适于AutoCAD自身。关连VB开发AutoCAD的时刻要害，在网上不错找到，相当是崔航的关连著述值得同业鉴戒。底下给出圭臬以及浅显的终了行径要领。圭臬用到的控件有:Command1点击可齐集AutoCAD，并在其中标注钢钎编号；Command2点击以开释AutoCAD所占内存；txtX、txtY输入编号翰墨相干于钢钎点的相对坐标；Text1、Text2编号翰墨的高度和旋转角度。现时给出的圭臬很短而况并不难，就不再作过多防护。作图当中先通达钢钎（在图中体现为点对象）位置的图层，APP开发资讯然后运行圭臬企业app开发定制，遍历悉数对象并一一双点对象编号。为省俭时期还不错在圭臬中声明一个"遴荐集"对象，只对遴荐积聚的对象遍历。底下给出的圭臬运行后的范畴按画点的规则，而不是按坐标规则编号，要是有独特的需要，不错通过相应的排序算法终了。

PrivateSubCommand1_Click()CallAcadConnect

DimacadUtilAsObject

SetacadUtil=AcadApp.ActiveDocument.Utility'开拓Utility对象

[扫码下载app，中过数字彩1千万以上的专家都在这儿！]

张单鸿：足球预测又斩13连红，欧洲杯期间状态爆表，此前还曾8连红、9连红、11连红，长线战绩命中率超高，足彩第104期还中头奖，双线爆发中！[查看今日推荐]

DimstxAsDoubleDimstyAsDouble

DimstmStringAsStringstmString=acadUtil.GetString(0,"按轻易键开动........")

DimiAsIntegerDimoBjAsAcadObjectDimstxxAsVariant

i=1ForEachoBjInAcadApp.ActiveDocument.ModelSpace'遍历责任区中的实体

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

NextoBj

EndSub

PrivateSubCommand2_Click()CallAcadQuitEndSub

文献模块

PublicAcadAppAsAcadApplication

PublicSubAcadConnect()'齐集CadOnErrorResumeNextSetAcadApp=GetObject(企业app开发定制,"autocad.application")IfErrThenErr.ClearSetAcadApp=CreateObject("autocad.application")IfErrThenMsgBox"弗成运行AutoCAD,请查验是否装配！",vbOKCancel,"警告！"