调用AUTOCAD窗口名称时报错

陈琦

Private Sub TextBox1_Change()
 TextBox2.Text = ""
 On Error Resume Next
 TextBox2.Text = ""
 Application.Documents.Item(CInt(TextBox1.Text)).Name
 If TextBox1.Text <> "" And TextBox2.Text = "" Then
  MsgBox "document number" & TextBox1.Text&
  vbCritical , "find name of drawing-error"
TextBox1.Text = ""
End If
End Sub

求助!

各位高手!小弟在学习AutoCADVBA时,按照书上的程序输入.结果程序运行时系统提示;"编译错误!属性的使用无效!"

错误处在代码中红色NAME部分.请教原因!是否因为该属性为只读属性.

laoliu09

Application.Documents.Item(CInt(TextBox1.Text)).Name

怎么没有赋值语句？建议先花点时间打好VB基础！

陈琦

请教大哥:

 如何学好VB的赋值语句,变量声明和擦的CAD的层结构,小弟初学,尚没有摸到门路.

laoliu09

不要急，先拿本VB基础的书看一下，然后就可以开始VBA二次开发了，期间有问题就到明经通道上取经啦！学习cad二次开发，明经通道是首选！

陈琦

Private Sub TextBox1_Change()
Dim Name As (    ) 

TextBox2.Text = ""
 On Error Resume Next
 TextBox2.Text = ""
 Application.Documents.Item(CInt(TextBox1.Text)).Name
 If TextBox1.Text <> "" And TextBox2.Text = "" Then
  MsgBox "document number" & TextBox1.Text&
  vbCritical , "find name of drawing-error"
TextBox1.Text = ""
End If
End Sub

侠哥,看看这个程序是不是少这条语句,已说明NAME为CAD的文件名,但小弟不知道这个属性名是什么.可否告诉小弟这种CAD的属性名从那里去查找.麻烦侠哥将本程序修订正确.小弟在此拜谢!

weianhui

Application.Documents.Item(CInt(TextBox1.Text)).Name

主要是你要拿Name属性干什么，是赋给某个变量，还是被赋值，没有表达阿

你单独访问到document的name值却没有用来干什么，如果想赋给一个变量，

如Dname,则可以写成

Dname=Application.Documents.Item(CInt(TextBox1.Text)).Name