程序无法输入点

lichunling

Private Sub CommandButton1_Click()
End
End Sub

Private Sub CommandButton2_Click()
TextBox1.Text = ""
Dim mtextobj As AcadMText
Dim point As Variant
Dim width As Double
Dim textstring As String
Dim prompt As String
textstring = TextBox1.Text
userform1.Hide
prompt = vbCrLf & "请输入技术要求的插入点："
point = ThisDrawing.Utility.GetPoint(, prompt)
width = 200
'在模型空间中创建文字对象
Set mtextobj = ThisDrawing.ModelSpace.AddMText(point, width, textstring)
ZoomAll
End Sub

这是我的 一段用对话框输入技术要求的程序，打算在lisp程序中调用这段宏，可是宏代码每次执行到"请输入技术要求的插入点："时，就提示点无效，自动退出了，请大家帮我看看问题到底出在哪里。另外把整个工程作为附件传上，大家可以下载。

wyj7485

去掉TextBox1.Text = ""没问题啊，TextBox1.Text 不能为空

lichunling

原来用过这段程序，一直工作很好，后来重装了一次CAD就工作不正常了。

TextBox1.Text = ""这句是想每次打开时文本框内的文字可以清空。

文涛武略

那你把TextBox1.Text = ""放在

TextBox1.Text = ""
End Sub

试试！！

lichunling

已经改好了，谢谢

mccad

应该在创建文字前，判断字符串是否为空，如果为空则不创建多行文字。