|
|
看下面这段：
Private Sub CommandButton1_Click()
' This example creates a text object in model space.
' It then returns the text string for that object.
Dim dimobj As AcadDimension
Dim text As String
UserForm1.Showmodal = False
' Define the text object
ThisDrawing.Utility.GetEntity dimobj, basePnt, "Select an object"
'修改尺寸文字
text = dimobj.Measurement
UserForm1.Showmodal = True
'Print text
TextBox1.text = text
End Sub
Private Sub CommandButton2_Click()
End
End Sub
程序中 UserForm1.Showmodal = False错误，我的意思是当点CommandButton1时，进行选择标注尺寸，当尺寸选取后UserForm1.Showmodal =True，即窗口重新显示，不知道应该如何写？
|
|
置顶卡
