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()函数在命令行中输出雇员的详细资料。下面是你必须遵循的步骤:
调用“LISTEMPLOYEES”命令
调用Editor的GetSelection()函数来选择实体
Dim res As PromptSelectionResult = ed.GetSelection(Opts, filter)
上面的filter用来过滤选择集中的块索引。你可以创建如下的过滤列表:
Dim filList() As TypedValue = {New TypedValue(DxfCode.Start, "INSERT")}Dim filter As SelectionFilter = New SelectionFilter(filList)
从选择集中获取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