efan版主

pyqzww

为什么我运行宏的时候，系统总是提示说“子程序或函数没有定义，”？

efan2000

pyqzww

总的意思是：在图形下用鼠标点取一点，立即弹出一个窗体，窗体里显示这点所在面的属性！
在ThisDrawing 下的代码为：Sub ShowForm()
                              Form1.Show
                           End sub
在UserForm下的代码是：Sub Userform_Initialize()
                          Form1.TextBox1 = 2
                          Form1.TextBox2 = "外圆“
                          Form1.TextBox3 = 45
                      EndSub
在模块下的代码是：Sub Formshow()
                      Dim Pt As Varient
                      Dim PtPosition(0 to 2) As Double
                      Pt = ThisDrawing.Utility.GetPoint()
                      If PtPosition(0)>200 And PtPosition(0)<400Then
                         Userform_Initialize()
                         Form1.Show
                   End Sub
还有就是为什么我用命令绘制的圆柱而左下脚的坐标怎么只显示X,Y的坐标而不显示Z的坐标

efan2000

在过程Formshow中，Userform_Initialize这个调用是没有必要的。直接用Form1.Show，窗体会自动调用Initialize过程。
上面的程序可以整合一下。
Sub Formshow()
    Dim Pt As Variant
   
    On Error GoTo ErrTrap
    Pt = ThisDrawing.Utility.GetPoint(, "指定点: ")
    If Pt(0) > 200 And Pt(0) < 400 Then
        Form1.TextBox1 = 2
        Form1.TextBox2 = "外圆“ "
        Form1.TextBox3 = 45
        Form1.Show
    End If
    Exit Sub

ErrTrap:
    On Error GoTo 0
End Sub
状态栏上显示的鼠标位置的坐标跟当前的坐标系有关，默认的是世界坐标系，在图纸中仅显示X和Y坐标，如果要显示Z坐标，应将坐标系设为三维的。

pyqzww

首先谢谢版主帮我解决了难题!
    If Condition1 Then
       代码1
    ElseIf Condition2 Then
       代码2
    ElseIf Condition3 Then
       代码3
    ElseIf Condition4 Then
       代码4
一直这样用ElseIf行吗?

efan2000