调用AUTOCAD窗口名称时报错

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

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 发表于 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

页: [1]

明经CAD社区's Archiver

调用AUTOCAD窗口名称时报错