|
|
Sub yy()
Dim pt As Variant
Dim xyz(2) As Double
pt = ThisDrawing.Utility.GetPoint(xyz, "请在屏幕上指定一个点")
Dim ptname As String
ptname = ThisDrawing.Utility.GetString(1, "请输入点号")
Dim keys As String
keys = "Y N"
ThisDrawing.Utility.InitializeUserInput 1, keys
Dim mykey As String
mykey = ThisDrawing.Utility.GetKeyword("是否要显示点号?是(Y)否(N)")
If UCase(mykey) = "Y" Then
ThisDrawing.ModelSpace.AddText ptname, pt, 0
End If
End Sub
交互式操作代码出错 请问如何修改 |
|
置顶卡
