|
|
小弟初入门学习VBA，编了一段程序如下
Private Sub circle02_Click()
Dim text As AcadText
Dim insertpoint(0 To 2) As Double
insertpoint(0) = 10
insertpoint(1) = 10
insertpoint(2) = 0
Set text = ThisDrawing.ModelSpace.AddText("02", insertpoint, 5)
ThisDrawing.Application.ZoomExtents
End Sub
Private Sub line01_Click()
Dim text As AcadText
Dim insertpoint(0 To 2) As Double
insertpoint(0) = 10
insertpoint(1) = 10
insertpoint(2) = 0
Set text = ThisDrawing.ModelSpace.AddText("01", insertpoint, 5)
ThisDrawing.Application.ZoomExtents
End Sub
请教各位高手，应该如何清空上面文本框里的文字内容
|
|
置顶卡
