打印本文 打印本文 关闭窗口 关闭窗口
Autodesk官方最新的.NET教程（五）（vb.net版）
作者：武汉SEO闵涛  文章来源：敏韬网  点击数1889  更新时间：2009/4/23 19:00:01  文章录入：mintao  责任编辑：mintao
nbsp; Dim gotPosition As New Boolean() : gotPosition = False 3)      现在让我们提示用户输入值。我们先使用PromptXXXOptions类来初始化要显示的提示字符串。 ''''提示输入每个雇员的详细资料Dim prName As PromptStringOptions = New PromptStringOptions("Enter Employee Name <" & empName & ">")Dim prDiv As PromptStringOptions = New PromptStringOptions("Enter Employee Division <" & divName & ">")Dim prSal As PromptDoubleOptions = New PromptDoubleOptions("Enter Employee Salary <" & salary & ">")Dim prPos As PromptPointOptions = New PromptPointOptions("Enter Employee Position or") 注意，提示字符串用尖括号来显示变量的值。这是AutoCAD用来提示用户这个值为缺省值。4)  当提示用户输入职位时，我们也提供了一个关键字列表选项，如名字、部门和薪水。如果用户想要在选择一个点的时候改变为其它值，他可以选择那个关键字。一个命令提示的例子如下：Command: CREATEEnter Employee Position or [Name/Division/Salary]: 要创建一个雇员，用户会选择一个点而其它的值被设置为缺省值。如果用户要改变其它的值，如名字，他可以输入”N”或全名”Name”，然后输入名字：Command: CREATEEnter Employee Position or [Name/Division/Salary]:NEnter Employee Name <Earnest Shackleton>: 如果用户想要再次选择缺省的名字，他可以按回车键。让我们创建用于职位提示的关键字列表： ''''加入用于职位提示的关键字prPos.Keywords.Add("Name")prPos.Keywords.Add("Division")prPos.Keywords.Add("Salary") ''''设置提示的限制条件prPos.AllowNone = False ''''不允许没有值 5)      现在让我们声明PromptXXXResult变量来获取提示的结果： ''''prompt resultsDim prNameRes As PromptResultDim prDivRes As PromptResultDim prSalRes As PromptDoubleResultDim prPosRes As PromptPointResult 6)      直到用户成功输入一个点后，循环才结束。如果输入错误的话，我们会提示用户并退出函数：判断用户是否输入了关键字，我们通过检查promptresult的状态来进行： ''''循环用来获取雇员的详细资料。当职位被输入后，循环终止。While (Not (gotPosition))          ''''提示输入职位         prPosRes = ed.GetPoint(prPos)          ''''取得一个点         If prPosRes.Status = PromptStatus.OK Then             gotPosition = True             position = prPosRes.Value         ElseIf prPosRes.Status = PromptStatus.Keyword Then ''''获取一个关键字              ''''输入了Name关键字             If prPosRes.StringResult = "Name" Then                  ''''获取雇员名字                  prName.AllowSpaces = True                  prNameRes = ed.GetString(prName)                  If prNameRes.Status <> PromptStatus.OK Then                      Return                  End If                  ''''如果获取雇员名字成功                 If prNameRes.StringResult <> "" Then                     empName = prNameRes.StringResult                  End If             End If           Else            ''''获取职位时发生错误             ed.WriteMessage("***Error in getting a point, exiting!!***" + vbCrLf)             Return             End If ''''如果获取一个点End While 7)      上面的代码只提示输入名字，请加入提示输入薪水和部门的代码。 8)      完成提示输入后，我们将使用获得的值来创建雇员。             ''''创建雇员           CreateEmployee(empName, divName, salary, position) 9)      现在来检查部门经理是否已存在。我们通过检查NOD中部门的扩展记录中的经理名字来进行。如果检查到的是一个空字符串，那么我们会提示用户输入经理的名字。注意，通过修改CreateDivision()函数，获取经理的名字变得简单了。   Dim manager As String = New String("")   ''''创建部门  ''''给经理传入一个空字符串来检查它是否已存在   Dim depMgrXRec As Xrecord   Dim xRecId As ObjectId   xRecId = CreateDivision(divName, manager)    ''''打开部门经理扩展记录    depMgrXRec = trans.GetObject(xRecId, OpenMode.ForRead)     Dim val As TypedValue    For Each val In depMgrXRec.Data       Dim str As String       str = val.Value       If str = "" Then       ''''经理没有被设置，现在设置它        ''''先提示输入经理的名字        ed.WriteMessage(vbCrLf)        Dim prManagerName As PromptStringOptions = New PromptStringOptions("No manager set for the division! Enter Manager Name")        prManagerName.AllowSpaces = True        Dim prManagerNameRes As PromptResult = ed.GetString(prManagerName)        If prManagerNameRes.Status <> PromptStatus.OK Then             Return        End If         ''''设置经理的名字        depMgrXRec.Data = New ResultBuffer(New TypedValue(DxfCode.Text, prManagerNameRes.StringResult))       End If    Next 10)  测试CREATE命令 选择集：现在让我们来创建一个命令，当用户在图形中选择一个雇员对象时，它会显示雇员的详细资料。我们会使用上一章中创建的ListEmployee()函数在命令行中输出雇员的详细资料。下面是你必须遵循的步骤：
  1. 调用“LISTEMPLOYEES”命令
  1. 调用Editor的GetSelection()函数来选择实体
 Dim res As PromptSelectionResult = ed.GetSelection(Opts, filter) 
  1. 上面的filter用来过滤选择集中的块索引。你可以创建如下的过滤列表：
 Dim filList() As TypedValue = {New TypedValue(DxfCode.Start, "INSERT")}Dim filter As SelectionFilter = New SelectionFilter(filList) 
  1. 从选择集中获取ObjectId数组：
      ''''如果选择失败则什么也不做      If Not res.Status = PromptStatus.OK Then Return      Dim SS As Autodesk.AutoCAD.EditorInput.SelectionSet = res.Value   Dim idArray As ObjectId() = SS.GetObjectIds()  5. 最后，把选择集中的每个ObjectId输入到ListEmployee()函数来获取一个雇员详细资料的字符串数组。把雇员的详细资料输出到命令行。例如：    ''''获取saEmployeeList 数组中的所有雇员            For Each employeeId In idArray                ListEmployee(employeeId, saEmployeeList)                 ''''把雇员的详细资料输出到命令行                Dim employeeDetail As String                For Each employeeDetail In saEmployeeList                    ed.WriteMessage(employeeDetail)                Next                                ed.WriteMessage("----------------------" + vbCrLf)            Next   

上一页  [1] [2] 

打印本文 打印本文 关闭窗口 关闭窗口