Autodesk官方最新的.NET教程（二）(VB.NET版）_VB.NET程序_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

Autodesk官方最新的.NET教程（二）(VB.NET版）

作者：闵涛文章来源：闵涛的学习笔记点击数：754 更新时间：2009/4/23 19:00:35

第2章 .NET AutoCAD 向导及简单用户输入 在第一章中，我们使用的是类库模板，这样就不得不手工加入acdbmdg. dll 和acmgd.dll这两个引用。在这一章中，我们将使用AutoCAD托管C#应用程序向导来创建.NET工程，它会自动加入以上两个引用。在开始本章之前，你首先得安装ObjectARX向导(ObjectARX2006开发包的\utils\ObjARXWiz\ArxWizards.msi)。 1) 启动Visual Studio .NET，选择”文件>新建>工程”(File> New> Project)。在新建工程对话框中选择工程类型为”Visual Basic工程”，然后选择“AutoCAD Managed VB Project Application”模板。在工程名字框中输入”Lab2”，然后选择工程存放的位置。点击确定按钮，“AutoCAD Managed VB Application Wizard”对话框将会出现。因为我们不需要使用非托管代码，所以不要选择“Enable Unmanaged Debugging”项。“Registered Developer Symbol”将会使用你在安装ObjectARX向导时输入的值。单击”finish”按钮来创建工程。2) 下面来看一下向导生成的工程。在解决方案浏览器中，你会看到acdbmgd 和 acmgd已经被引用了。在Class.vb文件中，“Autodesk.AutoCAD.Runtime”命名空间已被导入，工程使用“Registered Developer Symbol”的名字来命名缺省的公有类。向导还为类加入了一个CommandMethod属性和一个函数，它们用于AutoCAD命令。3) 在前一章中，我们使用一个“Autodesk.AutoCAD.EditorInput.Editor”类的实例对象在AutoCAD命令行上输出文本。在这一章中，我们将使用这个类来提示用户在AutoCAD图形中选择一个点，然后将用户选择的点的x,y,z值显示出来。和前一章一样，请导入Autodesk.AutoCAD.ApplicationServices 和 Autodesk.AutoCAD.EditorInput命名空间。 Imports Autodesk.AutoCAD.ApplicationServicesImports Autodesk.AutoCAD.EditorInput 4) 把向导生成的CommandMethod属性的值改为有意义一些的名字如“selectPoint”（函数的名字可以不用修改）。PromptPointOptions类用来设置提示字符串和其它的一些控制提示的选项。这个类的一个实例作为参数被传入到Editor.GetPoint方法。在函数的开始，实例化这个类，设置字符串参数为“Select a point”。因为 Editor.GetPoint方法会返回一个PromptPointResult类的实例对象，所以我们也要把它实例化。 Dim prPointOptions As PromptPointOptions =New PromptPointOptions("Select a point")Dim prPointRes As PromptPointResult 5) 接下来实例化一个Editor类的对象并使用参数为PromptPointOptions对象的GetPoint方法。用GetPoint方法的返回值来给上面声明的PromptPointResult对象赋值。赋值好以后，我们可以测试PromptPointResult对象的状态，如果不是OK就返回。 Dim ed As Editor = Application.DocumentManager.MdiActiveDocument.Editor prPointRes = ed.GetPoint(prPointOptions) If prPointRes.Status <> PromptStatus.OK Then Return Nothing End If 6) 如果PromptPointResult对象返回了一个有效的点，我们就可以使用WriteMessage方法把结果输出到命令行。PromptPointResult.Value的ToString方法使输出非常容易： ed.WriteMessage("You selected point " & prPointRes.Value.ToString()) 7) 按F5来运行一个调试AutoCAD的进程。（注意：向导已经设置好用acad.exe来调试）在AutoCAD命令行中输入NETLOAD，选择Lab2.dll并打开。在命令行中输入你起的命令名字（selectPoint）。在选择点的提示下，单击图形中的任一点。如果一切正常的话，你可以在命令行中看到你所选的点的坐标值。在Class.vb文件的“Return Nothing”行加入断点，然后再次运行selectPoint命令。这一次，在选择点的提示下按ESC键而不是选择一个点。PromptPointResult对象的状态就不是OK了，所以上面代码中的if语句就会被执行，“Return Nothing”语句就会被调用。8) 接下来我们将加入另外一个命令，它可以获取两个点之间的距离。向导没有添加命令的功能，所以我们必须手工添加。在Class.vb文件的选择点的函数（getPoint）下面添加一个名为getDistance的新命令。加入命令的方法请参考上一章的内容或本章的源代码，这里就不列出了。使用CommandMethod属性并使字符串参数为“getdistance”或其它类似的名字。在命令的函数中使用PromptDistanceOptions代替PromptPointOptions。当然GetDistance方法的返回值是一个PromptDoubleResult类的实例对象，所以请用PromptDoubleResult来代替PromptPointResult： Dim prDistOptions As PromptDistanceOptions = New PromptDistanceOptions("Find distance, select first point:") Dim prDistRes As PromptDoubleResult prDistRes = ed.GetDistance(prDistOptions) 9) 和前面的命令一样，也可以测试PromptDoubleResult的状态，然后用WriteMessage方法在命令行中显示值。 If prDistRes.Status <> PromptStatus.OK Then Return Nothing End If ed.WriteMessage("The distance is: " & prDistRes.Value.ToString)

[C语言系列]NET 中C#的switch语句的语法  [系统软件]托拽Explore中的文件到VB.net的窗口
[系统软件]Boost库在XP+Visual C++.net中的安装  [常用软件]新配色面板：Paint.Net3.0RC1官方下载
[常用软件]用内建的“Net Meeting”聊天  [VB.NET程序]Henry的VB.NET之旅（三）—共享成员
[VB.NET程序]Henry的VB.NET之旅（二）—构造与析构  [VB.NET程序]Henry的VB.NET之旅（一）—失踪的窗体
[VB.NET程序]在托盘上显示Balloon Tooltip（VB.NET）  [VB.NET程序]Henry手记－VB.NET中动态加载Treeview节点（二）

教程录入：mintao 责任编辑：mintao

上一篇教程： Autodesk官方最新的.NET教程（一）(VB.NET版）

下一篇教程：用VB.NET做个论坛发帖软件

【字体：小大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]

　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）

同类栏目

· C语言系列 · VB.NET程序
· JAVA开发 · Delphi程序
· 脚本语言

热门推荐

没有教程

赞助链接

闵涛博文

500 - 内部服务器错误。

您查找的资源存在问题，因而无法显示。

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18

闵涛站盟:医药大全-武穴网。A打造B、C、D……