|
看下面这段:
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,即窗口重新显示,不知道应该如何写?
|
|