矿业信息技术基础 第五章采矿编程初步

电子表格系统MicrosoftExcel97第五章第五章采矿编程初步中国矿业大学采矿工程专业矿业信息技术基础多媒体教学课件整理pptVBAIDE激活VBAIDE。VBAIDE可以用来以交互方式编辑、运行和调试程序。虽然VBAIDE只能在AutoCAD运行时被调用，但是可以独立于AutoCAD应用程序窗口对它进行最小化、打开和关闭操作。VBAMAN显示VBA管理器，供用户查看、创建、加载、关闭、内嵌和提取工程。5.1AutoCADVBA命令整理pptMicrosoftVBA是一个面向对象的编程环境，可提供类似VisualBasic(VB)的丰富开发功能。VBA和VB的主要差别是VBA和AutoCAD在同一进程空间中运行，提供的是具有AutoCAD智能的、非常快速的编程环境。VBA也向其他支持VBA的应用程序提供应用程序集成。这就意味着AutoCAD（使用其他应用程序对象库）可以是如MicrosoftWord或Excel之类的其他应用程序的Automation控制程序。整理ppt在AutoCAD中实现VBA有四大优点：VisualBasic编程环境易于学习和使用。VBA可与AutoCAD在同一进程空间中运行。这使程序执行得非常快。对话框的构造快速而有效。这使开发人员可以构造原型应用程序并迅速收到设计的反馈。工程可以是独立的，也可以嵌入到图形中。这样就为开发人员提供了非常灵活的方式来发布他们的应用程序。整理pptVBA通过AutoCADActiveXAutomation接口将消息发送到AutoCAD。AutoCADVBA允许VBA环境与AutoCAD同时运行，并通过ActiveXAutomation接口对AutoCAD进行编程控制。AutoCAD、ActiveXAutomation和VBA的这种结合方式不仅为操作AutoCAD对象，而且为向其他应用程序发送或检索数据提供了功能极为强大的接口。以下是AutoCAD中定义ActiveX和VBA编程的三个基本元素。5.2VBA在AutoCAD中的实现整理ppt第一个是AutoCAD本身，它拥有丰富的封装了AutoCAD图元、数据和命令的对象集。因为AutoCAD是一个设计为具有多层接口的开放架构应用程序，因此熟悉AutoCAD编程功能对于有效使用VBA来说是非常必要的。如果使用过AutoLISP®编程来控制AutoCAD，就应该已经对AutoCAD的机制有了一定的了解。然而，VBA的基于对象的处理方式和AutoLISP的方式却很不一样。整理ppt第二个元素是AutoCADActiveXAutomation接口，它建立与AutoCAD对象的消息传递（通信）。用VBA编程需要对ActiveXAutomation有基本的了解。关于AutoCADActiveXAutomation接口的说明，请参见ActiveXandVBAReferenceGuide。即使是有经验的VB编程人员也会发现要理解和开发AutoCADVBA应用程序，AutoCADActiveXAutomation接口是非常重要的。整理ppt第三个元素是VBA编程环境(IDE)，它具有自己的对象组、关键词和常量等，能提供程序流、控制、调试和执行等功能。AutoCADVBA包含MicrosoftVBA扩展联机帮助，可以在VBAIDE中通过以下方法访问：按键盘上的F1键从VBAIDE菜单栏中选择“帮助”单击VBAIDE工具栏上的“？”图标整理ppt使用VBA管理器可以查看当前AutoCAD任务中加载的所有VBA工程。它是一种AutoCAD工具，可让用户加载、卸载、保存、创建、内嵌和提取VBA工程。打开VBA管理器的步骤从“工具”菜单中选择“宏”“VBA管理器”。在AutoCAD中调用VBAMAN命令。5.3使用VBA管理器组织工程整理ppt加载现有的工程

卸载工程

将工程嵌入到图形中

从图形中提取工程

创建新工程

保存工程

整理ppt加载现有的工程在“VBA管理器”中，使用“加载”选项打开“打开VBA工程”对话框。在“打开VBA工程”对话框中，选择要打开的工程文件。“VBA工程”对话框只能打开有效的DVB文件。如果用户试图打开其他类型的文件，则会收到一条错误信息。选择“打开”。用户还可以使用以下任意方法来加载工程文件：输入VBALOAD命令，打开“打开VBA工程”对话框。将DVB文件从Windows资源管理器拖到AutoCAD窗口中打开的图形中。整理ppt卸载VBA工程的步骤在VBA管理器中选择要卸载的工程。选择“卸载”。或者，使用VBAUNLOAD命令，该命令会提示输入要卸载的工程。将工程嵌入到AutoCAD图形中的步骤打开VBA管理器，并选择要嵌入的工程。选择“嵌入”。整理ppt创建新工程新工程会被创建为未保存的全局工程。创建完成后，可将它嵌入到图形中或保存到工程文件中。创建新VBA工程的步骤打开VBA管理器。选择“新建”。新工程将用默认的名称ACADProject创建。要更改工程名，必须进入VBAIDE中。关于在VBAIDE中命名工程的详细信息，请参见命名工程。整理ppt更改工程名称的步骤在VBAIDE的“工程”窗口中，选择要更改的工程。在“特性”窗口中编辑工程的Name特性。整理ppt更改工程的文件名的步骤在VBAIDE中，从“文件”菜单中选择“保存”选项。在“另存为”对话框中输入工程文件的新名称和位置。使用VBAIDE编辑工程将工程加载到AutoCAD中后，用户就可以使用VBA交互式开发环境来编辑该工程的代码、窗体和引用，而且还可以在VBAIDE中调试和运行工程。打开之后，使用VBAIDE可以访问所有已加载的工程。整理ppt查看工程信息

定义工程中的组件

输入现有组件

编辑组件

命名工程

保存工程

引用其他VBA工程

设置VBAIDE选项

5.4使用VBAIDE编辑工程整理ppt查看工程信息VBAIDE包含了“工程”窗口，其中显示了所有已加载的VBA工程列表。这个窗口还显示工程中包含的代码、类和窗体模块，与工程关联的文档，从工程引用的所有其他VBA工程，以及工程的实际位置（路径）。“工程”窗口有自己的工具栏，可用来打开工程的各个组件进行编辑。使用“查看代码”按钮可打开选定模块的代码。使用“查看对象”按钮可显示选定的对象，例如窗体。整理ppt定义工程中的组件对象

窗体

标准模块

类模块

引用

添加新组件

整理ppt对象组件代表VBA代码将访问的对象或文档的类型。对于AutoCADVBA工程，此对象代表当前的AutoCAD图形。窗体组件包含由用户构造的、用于工程的自定义对话框。代码模块组件包含用户的常用过程和函数。标准模块也称为代码模块，或简称为模块。类模块组件包含用户自己定义的所有对象（定义为类）。引用组件包含对其他工程或库的所有引用。整理ppt添加新组件添加新组件将在工程中创建空白组件。用户可以将新的模块、窗体和类模块添加到自己的工程中。用户需要自己更新所有的组件特性（例如组件名称），并填入适当的代码。在命名新组件时，请注意其他开发人员在未来的应用程序中可能会使用您的组件。请遵循开发团队的命名惯例。整理ppt向工程中添加新组件的步骤：在VBAIDE的“工程”窗口中选择要向其中添加组件的工程。从“插入”菜单中选择“用户窗体”、“模块”或“类模块”来向工程中添加新组件。新组件将会被添加到工程中并显示在“工程”窗口中。

整理ppt编辑组件在VBAIDE中，可以编辑标准模块、类模块和窗体。标准模块和类模块均在“代码”窗口中编辑；窗体则在“用户窗体”窗口中使用特殊的的工具箱进行编辑。由于可以打开的“代码”窗口与拥有的模块数目一致，因此可以很容易地查看不同窗体或模块中的代码，并在它们之间互相复制和粘贴。整理ppt编辑工程组件的步骤在VBAIDE的“工程”窗口中，选择要编辑的组件。在“工程”窗口中，选择“查看代码”按钮打开“代码”窗口。在“工程”窗口中，选择“查看对象”按钮打开“用户窗体”窗口和关联的工具箱。整理ppt使用“代码”窗口“代码”窗口包含两个下拉列表、一个拆分栏、一个边界指示栏、一个完全视图图标和一个过程视图图标。整理ppt使用“用户窗体”窗口通过“用户窗体”窗口，可以在工程中创建自定义对话框自动拥有“最大化”、“最小化”和“关闭”按钮添加控件添加控件代码访问窗体关联代码的步骤请双击“窗体”窗口中的任意控件。“代码”窗口中将打开与该控件关联的代码。

整理ppt进行初步练习上面已经学习了AutoCADVBA编程的基本知识，接下来让我们练习创建简单的“HelloWorld”。在此练习中，将会创建新的AutoCAD图形，并向该图形中添加一行文字，然后保存图形，全部操作均通过VBA来完成。整理ppt“HelloWorld”例程

从AutoCAD命令行输入以下命令来打开VBAIDE：命令:VBAIDE从VBAIDE的“查看”菜单中选择“代码”选项打开“代码”窗口。从VBAIDE的“插入”菜单中选择“过程”选项，在工程中创建新过程。当提示输入过程信息时，输入名称，例如HelloWorld。请确保选定的“类型”是Sub，选定的“作用域”是Public。选择“确定”。整理ppt在行PublicSubHelloWorld()和行EndSub之间输入以下代码。ThisDrawing.Application.Documents.Add

（用于打开新图形）紧接代码之后输入以下代码（用于创建字符串和定义其插入位置）。

DiminsPoint(0To2)AsDouble'声明插入点DimtextHeightAsDouble'声明文字高度DimtextStrAsString'声明字符串DimtextObjAsAcadText'声明文字对象insPoint(0)=2'设置插入点的x坐标insPoint(1)=4'设置插入点的y坐标insPoint(2)=0'设置插入点的z坐标textHeight=1'强文字高度设置为1.0textStr="HelloWorld!"'设置字符串'创建Text对象SettextObj=ThisDrawing.ModelSpace.AddText_(textStr,insPoint,textHeight)整理ppt紧接在步骤7中的输入代码之后输入以下代码（用于保存图形）。ThisDrawing.SaveAs("Hello.dwg")从VBAIDE的“运行”菜单中选择“运行子程序或用户窗体”选项来运行程序。当程序运行完时，AutoCAD应用程序将置于最前。此时应该可以在图形中看到文字“HelloWorld!”。图形的名称应为Hello.dwg。整理pptAutoCADVBA进阶整理pptAddRetVal=object.Add(Name)Object：Thecollectiontoaddthenewobjectto.Dictionaries,DimStyles,Documents,Groups;Layers,Layouts,Linetypes,PopupMenus,RegisteredApplications,SelectionSets,TextStyles,Toolbars,Views,ViewportsName：Thenameoftheobjecttoaddtothecollection.String;input-only;optionalfortheDocumentscollection.RetVal：Thenewlyaddedobject.Dictionary,DimStyle,Document,Group,Layer,Layout,Linetype,PopupMenu,RegisteredApp,SelectionSet,TextStyle,Toolbar,View,Viewport整理pptADDLAYER'Thisexamplecreatesanewlayercalled"New_Layer"DimlayerObjAsAcadLayer'AddthelayertothelayerscollectionSetlayerObj=ThisDrawing.Layers.Add("New_Layer")'MakethenewlayertheactivelayerforthedrawingThisDrawing.ActiveLayer=layerObj

'DisplaythestatusofthenewlayerMsgBox

layerO&"hasbeenadded."&vbCrLf&_"LayerOnStatus:"&layerObj.LayerOn&vbCrLf&_"FreezeStatus:"&layerObj.Freeze&vbCrLf&_"LockStatus:"&layerObj.Lock&vbCrLf&_"Color:"&layerObj.Color,,"AddExample"整理pptADDTEXTSTYLE'Createatextstylenamed"New_Textstyle"incurrentdrawingDimtxtStyleObjAsAcadTextStyle'AddthetextstyletothetextstylescollectionSettxtStyleObj=ThisDrawing.TextStyles.Add("New_Textstyle")MsgBoxtxtStyleO&"hasbeenadded."&vbCrLf&_"Height:"&txtStyleObj.height&vbCrLf&_"Width:"&txtStyleObj.width,,"AddExample"Return整理ppt创建和修改文字样式

新的文字会从当前的文字样式继承高度、宽度比例、倾斜角度和文字生成等特性。要创建文字样式，请使用Add方法创建新的TextStyle

对象并将其添加到TextStyles

集合中。Add方法需要输入TextStyle

名称。文字样式创建之后，用户不能通过AutoCADActiveXAutomation修改其名称。整理ppt样式名可以包含字母、数字和特殊字符，例如美元符($)、下划线(_)和连字符(-)。AutoCAD将字符转换为大写字符。如果用户不输入样式名，AutoCAD自动将其命名为Stylen，其中n是从1开始的数字。每个新样式会加1来显示。用户可以通过修改TextStyle对象的特性来修改现有的样式，也可以更新该样式的现有文字以反映更改。整理ppt请使用以下特性来修改TextStyle

对象：FontFile

指定与字体（字符样式）关联的文件。BigFontFile

指定适用于非ASCII字符集的特殊形定义文件。Height指定字符高度。Width指定字符的扩展或压缩整理pptObliqueAngle

指定字符的倾斜度。TextGenerationFlag

指定反向文字、倒置文字或两者。如果用户修改现有样式的字体或方向，所有使用该样式的文字均被修改为使用新的字体或方向。更改文字的高度、宽度比例和倾斜角不会改变现有的文字，但会应用到以后创建的文字对象上。注意

必须调用Regen

或Update方法，才能看到对上述特性所做更改的效果。整理pptLoadMethodobject.Load

LineTypeName,FileName

ObjectLinetypes

Theobjectorobjectsthismethodappliesto.LineTypeNameString;input-only

Thenameofthelinetypetoload.FileNameString;input-only

Thenameofthefilethelinetypeisin.整理pptLinetypeExampleSubExample_Linetype()'Thisexamplesearchesforthelinetype

DashDot.Ifitis'notfound,itisaddedfromtheacad.linfile.Thena'lineiscreatedandchangedtotheDashDot

linetype.'SearchthelinetypescollectionfortheDashDot

linetype.DimentryAsAcadLineType

DimfoundAsBooleanfound=FalseForEachentryInThisDrawing.Linetypes

IfStrComp(,"DASHDOT",1)=0Thenfound=TrueExitForEndIfNextIfNot(found)ThenThisDrawing.Linetypes.Load"DASHDOT","acad.lin"整理ppt'CreatethelineDimlineObjAsAcadLineDimstartPoint(0To2)AsDoubleDimendPoint(0To2)AsDoublestartPoint(0)=1#:startPoint(1)=1#:startPoint(2)=0#endPoint(0)=4#:endPoint(1)=4#:endPoint(2)=0#SetlineObj=ThisDrawing.ModelSpace.AddLine(startPoint,endPoint)'ChangethelinetypeofthelinelineObj.Linetype="DASHDOT"ZoomAllEndSub整理pptLineWeightPropertySpecifiesthelineweightofanindividualobjectorthedefaultlineweightforthedrawing.Signatureobject.Lineweight

ObjectAllDrawingobjects;DatabasePreferences,Layer整理pptacLnWtByLayeracLnWtByBlockacLnWtByLwDefaultacLnWt000acLnWt005acLnWt009acLnWt013acLnWt015acLnWt018acLnWt020acLnWt025acLnWt030acLnWt035acLnWt040acLnWt050acLnWt053acLnWt060acLnWt070acLnWt080acLnWt090acLnWt100acLnWt106acLnWt120acLnWt140acLnWt158acLnWt200acLnWt211整理pptAddTextCreatesasinglelineoftext.RetVal=object.AddText(TextString,InsertionPoint,Height)Object：Theobjectorobjectsthismethodappliesto.ModelSpaceCollection,PaperSpaceCollection,BlockTextString：Theactualtexttobedisplayed.String;input-onlyInsertionPoint：The3DWCScoordinatesonthedrawingwherethetextisplaced.Variant(three-elementarrayofdoubles);input-onlyHeight：Theheightofthetext.Mustbeapositivenumber.Double;input-onlyRetVal：ThenewlycreatedTextobject.Textobject整理pptSubExample_AddText()'Thisexamplecreatesatextobjectinmodelspace.DimtextObjAsAcadTextDimtextStringAsStringDiminsertionPoint(0To2)AsDoubleDimheightAsDouble'DefinethetextobjecttextString="Hello,World."insertionPoint(0)=2:insertionPoint(1)=2:insertionPoint(2)=0height=0.5'CreatethetextobjectinmodelspaceSettextObj=ThisDrawing.ModelSpace.AddText(textString,insertionPoint,height)ZoomAllEndSub整理pptGetBoundingBoxGetstwopointsofaboxenclosingthespecifiedobject.object.GetBoundingBoxMinPoint,MaxPointObject：Theobjectorobjectsthismethodappliesto.AllDrawingObjects,AttributeReferenceMinPoint：The3DWCScoordinatesspecifyingtheminimumpointoftheobject'sboundingbox.Variant(three-elementarrayofdoubles);output-onlyMaxPoint：The3DWCScoordinatesspecifyingthemaximumpointoftheobject'sboundingboxVariant(three-elementarrayofdoubles);output-only整理pptSubExample_GetBoundingBox()'Thisexamplecreatesalineinmodelspace.Itthenfindsthe'boundingboxforthelineanddisplaysthecornersofthebox.DimstartPoint(0To2)AsDoubleDimendPoint(0To2)AsDoubleDimlineObjAsAcadLine'CreatetheLineobjectinmodelspacestartPoint(0)=2#:startPoint(1)=2#:startPoint(2)=0#endPoint(0)=4#:endPoint(1)=4#:endPoint(2)=0#SetlineObj=ThisDrawing.ModelSpace.AddLine(startPoint,endPoint)ZoomAll整理pptDimminExtAsVariantDimmaxExtAsVariant'Returntheboundingboxforthelineandreturntheminimum'andmaximumextentsoftheboxintheminExtandmaxExtvariables.lineObj.GetBoundingBoxminExt,maxExt'PrinttheminandmaxextentsMsgBox"Theextentsoftheboundingboxforthelineare:"&vbCrLf_&"MinExtent:"&minExt(0)&","&minExt(1)&","&minExt(2)_&vbCrLf&"MaxExtent:"&maxExt(0)&","&maxExt(1)&","&maxExt(2),vbInformation,"GetBoundingBoxExample"EndSub整理pptGetPointGetsthepointselectedinAutoCAD.RetVal=GetPoint([Point][,Prompt])Object:Theobjectorobjectsthismethodappliesto.UtilityPoint:The3DWCScoordinatesspecifyingtherelativebasepoint.Variant(three-elementarrayofdoubles);input-only;optionalPrompt:Thetextusedtoprompttheuserforinput.Variant(string);input-only;optionalRetVal:The3DWCScoordinatesofthepointtheAutoCADuserhasselected.Variant(three-elementarrayofdoubles)整理pptSubExample_GetPoint()'Thisexamplereturnsapointenteredbytheuser.DimreturnPntAsVariant'ReturnapointusingapromptreturnPnt=ThisDrawing.Utility.GetPoint(,"Enterapoint:")MsgBox"TheWCSofthepointis:"&returnPnt(0)&","&returnPnt(1)&","&returnPnt(2)&vbCrLf&_"(Enterthenextvaluewithoutprompting.)",,"GetPointExample"'Returnapoint,nopromptreturnPnt=ThisDrawing.Utility.GetPointMsgBox"TheWCSofthepointis:"&returnPnt(0)&","&returnPnt(1)&","&returnPnt(2),,"GetPointExample"整理ppt'ReturnapointusingabasepointandapromptDimbasePnt(0To2)AsDoublebasePnt(0)=2#:basePnt(1)=2#:basePnt(2)=0#returnPnt=ThisDrawing.Utility.GetPoint(basePnt,"Enterapoint:")MsgBox"TheWCSofthepointis:"&returnPnt(0)&","&returnPnt(1)&","&returnPnt(2)'CreatealinefromthebasepointandthelastpointenteredDimlineObjAsAcadLineSetlineObj=ThisDrawing.ModelSpace.AddLine(basePnt,returnPnt)ZoomAllEndSub整理ppt用VBA实现如下标注形式（采矿工程毕业设计绘图标准）整理ppt思路：先绘制文字AddText利用GetBoundingBox获得文字的minExt,maxExt根据minExt,maxExt确定线段的startPoint根据minExt,maxExt确定线段的endPoint在文字下方划线整理pptDimtextObjAsAcadTextDimtextStringAsStringDimstartPoint(0To2)AsDoubleDimendPoint(0To2)AsDoubleDimtextHeightAsDoubleDimreturnPnt1AsVariant'申明端点坐标Me.HideWithThisDrawing.UtilityreturnPnt1=.GetPoint(,"请输入标注汉字的位置:")'获取文本标注起点坐标EndWith整理ppt'DefinethetextobjecttextString=TextBox1.TextDimwidthAsDouble'CreatethetextobjectinmodelspacetextHeight=3SettextObj=ThisDrawing.ModelSpace.AddText(textString,returnPnt1,textHeight)textObj.UpdateDimminExtAsVariantDimmaxExtAsVariant'获得文字的右下角坐标（minExt）和左上角坐标(maxExt)textObj.GetBoundingBoxminExt,maxExt整理ppt‘在文字下面划线startPoint(0)=minExt(0)–1startPoint(1)=minExt(1)–1startPoint(2)=0endPoint(0)=maxExt(0)+1endPoint(1)=minExt(1)–1endPoint(2)=0SetlineObj=ThisDrawing.ModelSpace.AddLine(startPoint,endPoint)SetlineObj=ThisDrawing.ModelSpace.AddLine(minExt,maxExt)整理ppt用VBA实现如下图框绘制（采矿工程毕业设计绘图标准：A0图纸）整理pptAlignmentObject：Theobjectorobjectsthispropertyappliesto.Attribute,AttributeRef,TextAlignment：acAlignmentenum;read-writeacAlignmentLeftacAlignmentCenteracAlignmentRightacAlignmentAlignedacAlignmentMiddleacAlignmentFitacAlignmentTopLeftacAlignmentTopCenteracAlignmentTopRightacAlignmentMiddleLeftacAlignmentMiddleCenteracAlignmentMiddleRightacAlignmentBottomLeftacAlignmentBottomCenteracAlignmentBottomRight整理pptRemarksTextalignedtoacAlignmentLeftusestheInsertionPointpropertytopositionthetext.TextalignedtoacAlignmentAligned,oracAlignmentFitusesboththeInsertionPointandTextAlignmentPointpropertiestopositionthetext.TextalignedtoanyotherpositionusestheTextAlignmentPointpropertytopositionthetext.整理pptAutoCADVBA高阶整理pptSaveASMethodSavesthedocumentormenugrouptoaspecifiedfile.object.SaveAsFileName,FileType[,SecurityParams]Object:Document,MenuGroupFileName:String;input-only

Thefullpathandfilename,orvalidURLaddress,forthefile.Theactivedocumentormenugrouptakesonthenewname.整理pptAcSaveAsTypeenum;input-only;optionalforDocumentobjectsac2000_dwgAutoCAD2000DWG(*.dwg)ac2000_dxfAutoCAD2000DXF(*.dxf)ac2000_TemplateAutoCAD2000DrawingTemplateFile(*.dwt)ac2004_dwgAutoCAD2004DWG(*.dwg)ac2004_dxfAutoCAD2004DXF(*.dxf)ac2004_TemplateAutoCAD2004DrawingTemplateFile(*.dwt)acNativeAsynonymforthelatestdrawingrelease.Inthisrelease,thisvalueequalsac2004_dwg.整理pptRemarksThedefaultfiletypefordocumentsisac2004_dwg.Thefollowingvaluesareobsolete:acR14_DWGandacR14_DXF.Documentscanbesavedonlyasfileswiththeextensionsindicatedabove.Tosaveadocumentinadifferentfiletype,usetheExportmethod.整理pptSendCommandMethodSendsacommandstringfromaVBorVBAapplicationtothedocumentforprocessing.Signatureobject.SendCommand(Command)ObjectDocument

Theobjectorobjectsthismethodappliesto.CommandString;input-only

Thecommandtosendtothedocument.UseaspaceortheASCIIcarriagereturncharacter(vbCr)attheendofthecommandstringtoendthecommand;thisisequivalenttopressingENTERonthekeyboard.整理pptThismethodprocessesanyAutoCADcommand-linefunctionThismethodisgenerallysynchronous.However,ifthecommandsentwiththismethodrequiresanyuserinteraction(suchaspickingapointonthescreen)thenthismethodwillreturnassoonastheuserinputbegins.Thecommandwillthencontinuetobeprocessedasynchronously.Whenthismethodiscalledfromaneventhandleritisprocessedasynchronously.YoushouldneverusethismethodtoissueacommandforwhichthereisanActiveXmethodavailable.Forexample,donotuseSendCommand"VBALOAD".Instead,usetheLoadDVBmethod.整理ppt将命令发送到AutoCAD命令行下面的样例创建一个圆心为(2,2,0)、半径为4的圆，然后将图形缩放至图形中的所有几何图形都可见。注意，字符串末尾有一个空格，表示最后按ENTER键开始执行命令。

SubCh3_SendACommandToAutoCAD()ThisDrawing.SendCommand"_Circle2,2,04 "ThisDrawing.SendCommand"_zooma“EndSub整理ppt将VBA代码转换为VB要更新代码样例以在VB中使用，必须先引用AutoCAD类型库。要在VB中完成此操作，请从“工程”菜单中选择“引用”选项，启动“引用”对话框。在“引用”对话框中，选择AutoCAD类型库，然后单击“确定”。下一步，将代码样例中所有的ThisDrawing

引用替换为引用活动文档的用户指定的变量。要完成这项操作，请为AutoCAD应用程序(acadApp)和当前的文档(acadDoc)定义变量。然后，将应用程序变量设置为当前的AutoCAD应用程序。整理ppt要显示AutoCAD图形窗口，需要将AutoCAD应用程序的Visible特性设置为TRUE。如果GetObject

创建了一个新的AutoCAD实例（即调用GetObject

时AutoCAD没有运行），没有将Visible设置为TRUE会导致AutoCAD应用程序不可见，甚至AutoCAD不显示在Windows任务栏上。整理ppt使用VB创建直线SubCh2_AddLineVB() OnErrorResumeNext '连接至AutoCAD应用程序 DimacadAppAsAcadApplication SetacadApp=GetObject_(,"AutoCAD.Application.16") IfErrThenErr.Clear SetacadApp=CreateObject_("AutoCAD.Application.16") IfErrThen MsgBoxErr.Description ExitSub EndIf EndIf'连接至AutoCAD图形

整理pptDimacadDocAsAcadDocument SetacadDoc=acadApp.ActiveDocument '创建直线的端点 DimlineObjAsAcadLine DimstartPoint(0To2)AsDouble DimendPoint(0To2)AsDouble startPoint(0)=1startPoint(1)=1startPoint(2)=0 endPoint(0)=5endPoint(1)=5endPoint(2)=0 '在模型空间中创建Line对象 SetlineObj=acadDoc.ModelSpace.AddLine_(startPoint,endPoint) ZoomAll acadApp.visible=TrueEndSub整理ppt创建自己的菜单项Addsapopupmenuitemtoapopupmenu.SeeAlso|ExampleSignatureRetVal=object.AddMenuItem(Index,Label,Macro)ObjectPopupMenu

Theobjectorobjectsthismethodappliesto.整理pptIndex：Theindexlocationinthepopupmenuwheretheitemistobeadded.Theindexmustbeeitheranintegerorastring.Variant;input-onlyIfanintegerissuppliedtospecifyagivenlocationinthemenu,theindexmustbebetween0andN-1,whereNisthenumberofobjectsinthepopupmenu.Thenewitemwillbeaddedimmediatelybeforethespecifiedindexlocation.Toaddthenewmenuitemtotheendofamenu,settheindextobegreaterthanN.Ifastringisspecifiedandtheindexeditemdoesnotexist,thenthenewmenuitemisaddedattheendofthemenu.整理pptLabel：Thelabelforthemenuitem.String;input-onlyMacro：Thenameofthemacroassociatedwiththismenuitem.String;input-onlyRetVal：Thenewlycreatedpopupmenuitem.PopupMenuItemobject整理pptSubExample_AddMenuItem()DimcurrMenuGroupAsacadMenuGroupSetcurrMenuGroup=ThisDrawing.Application.MenuGroups.Item(0)'CreatethenewmenuDimnewMenuAsAcadPopupMenuSetnewMenu=currMenuGroup.Menus.Add("TestMenu")'AddamenuitemtothenewmenuDimnewMenuItemAsAcadPopupMenuItemDimopenMacroAsString'AssignthemacrostringtheVBequivalentof"ESCESC_open"openMacro=Chr(3)&Chr(3)&Chr(95)&"open"&Chr(32)SetnewMenuItem=newMenu.AddMenuItem(newMenu.count+1,"Open",openMacro)'DisplaythemenuonthemenubarnewMenu.InsertInMenuBar(ThisDrawing.Application.MenuBar.count+1)EndSub整理ppt创建自己的工具条Addsatoolbaritemtoatoolbarataspecifiedposition.SeeAlso|ExampleSignatureRetVal=object.AddToolbarButton(Index,Name,HelpString,Macro[,FlyoutButton])ObjectToolbar

Theobjectorobjectsthismethodappliesto.整理pptIndexVariant;input-only

Theindexlocationinthep