社区 › VB › 调用AUTOCAD窗口名称时报错

陈琦 发表于 2007-3-16 07:57:00

调用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
求助!
各位高手!小弟在学习VBA时,按照书上的程序输入.结果程序运行时系统提示;"编译错误!属性的使用无效!"
错误处在代码中红色NAME部分.请教原因!是否因为该属性为只读属性.

laoliu09 发表于 2007-3-16 23:45:00

Application.Documents.Item(CInt(TextBox1.Text)).Name
怎么没有赋值语句？建议先花点时间打好VB基础！

陈琦 发表于 2007-3-17 06:54:00

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

laoliu09 发表于 2007-3-17 22:53:00

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

陈琦 发表于 2007-3-18 08:28:00

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 发表于 2007-3-20 09:59:00

Application.Documents.Item(CInt(TextBox1.Text)).Name
主要是你要拿Name属性干什么，是赋给某个变量，还是被赋值，没有表达阿
你单独访问到document的name值却没有用来干什么，如果想赋给一个变量，
如Dname,则可以写成
Dname=Application.Documents.Item(CInt(TextBox1.Text)).Name

查看完整版本: 调用AUTOCAD窗口名称时报错