roem 发表于 2004-10-15 09:18:00

[求助]在vb中打开autocad失败

Option Explicit<BR>Dim AcadApp As autocad.AcadApplication


On Error Resume Next<BR>Set AcadApp = GetObject("AutoCAD.Application")       此处错误提示：自动化操作时文件名或者类名没有找到<BR>If Err.Number Then<BR>                       Err.Clear<BR>                       AcadApp = CreateObject("AutoCAD.Application")<BR>                       If Err.Number Then<BR>                                               MsgBox "无法打开Autocad" &amp; Err.Description                               此处错误提示：对象变量或with块变量未设置


                                               unload me<BR>                                               Exit Sub<BR>                       End If<BR>End If


AcadApp.Visible = True<BR>AcadApp.WindowState = acMax<BR>AppActivate AcadApp.Caption<BR>End Sub


但是当我没有打开cad时,用set acadapp=new acadappplication 可以打开cad ,请高手指点，谢谢！

雪山飞狐_lzh 发表于 2004-10-15 09:22:00

Set AcadApp = GetObject(,"AutoCAD.Application")

roem 发表于 2004-10-15 09:25:00

试过了，也不行啊

roem 发表于 2004-10-15 09:28:00

是不是跟安装有关？我用的是cad2002简化版的

roem 发表于 2004-10-15 09:31:00

为什么createobject不起作用呢？

雪山飞狐_lzh 发表于 2004-10-15 09:31:00

Dim AcadApp As Object



set AcadApp = CreateObject("AutoCAD.Application")

roem 发表于 2004-10-15 09:46:00

谢谢您，cad 终于浮出水面了

新手求救 发表于 2004-10-18 15:53:00

你的程序中有两个错误：


1.Dim        AcadApp As AcadApplication


2.Set AcadApp = GetObject(, "AutoCAD.Application")
页: [1]
查看完整版本: [求助]在vb中打开autocad失败