明总: 我这段代码不能运行,请问问题在哪里?

jxb8888

已知一个单行文本的Handle  请问怎样把这个文本中的文字显示到VBA窗体中的文本框中?,   我这段代码不能运行,请问问题在哪里?
Dim txtObject As AcadText
txtObject.handle = 120
txtObject.Text = StringTextBox1.Text

efan2000

句柄是对象生成后ACAD自动分配的，不能由自己赋值。
Dim txtObject As AcadText
这儿虽然声明了文字对象，但没有在ACAD中实际创建，因而句柄也就不存在。
txtObject.handle = 120
句柄是只读属性，不能通过赋值而改变。

gzy

大错哦！