Autodesk官方最新的.NET教程（五）（vb.net版）

                 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)