[VBA程序]：VC里也能用autocad的automation来编程么

bookworm_zju

VB在编制AutoCAD时，用的是ACAD.TLB，而我想，既然vb可以，vc也肯定可以。所以就把
ACAD.TLB倒成idl，然后生成了ACAD_I.h和ACAD_c.h，然后我写了下面的代码：
  
IID_PROGID是CLSID。
  
    if(FAILED(OleInitialize(NULL)))
    {
        return ;
    }
    IAcadApplication *pIApp = NULL ;
    HRESULT hr = ::CoCreateInstance(IID_PROGID ,
        NULL,
        CLSCTX_ALL,
        IID_IAcadApplication ,
        (LPVOID*)&pIApp);
    if(FAILED(hr))
    {
        int i;

        i = 0;
        _com_error err(hr);
        AfxMessageBox(err.ErrorMessage());
    }
可是就是不成功，MessageBox的提示是：一般性拒绝访问错误。hr = -2147467262
问，我该怎么办。随便提及，是不是要生成一个代理dll才行？如果是要，同tlb文件什
么生成？生成了又如何使用？

rave

最初由 bookworm_zju 发布
[B]VB在编制AutoCAD时，用的是ACAD.TLB，而我想，既然vb可以，vc也肯定可以。所以就把
ACAD.TLB倒成idl，然后生成了ACAD_I.h和ACAD_c.h，然后我写了下面的代码：
  
IID_PROGID是CLSID。
  
    if(FAILED(OleI... [/B]

回答是肯定的。

如果你使用MFC, 你可以利用ClassWizard来生成一组接口类。在ClassWizard中选AddClass并点取From a Type Library菜单，选acad.tlb,然后在Confirm Classes中选取你感兴趣的接口类即可。ClassWizard会自动从类型库中输入这些接口并生成相应的C++ class。

如果你不用MFC直接用COM， 可能麻烦点. 建议用MFC

更好的建议是直接用ObjectARX.

bookworm_zju

我按照你的办法做了，可是还是达不到目的：
办法一：        IAcadApplication *pIApp = NULL;
        CLSID clsid;
        if ( FAILED(::CLSIDFromProgID( L"AutoCAD.Application.14",&clsid) ) )
        {
                return ;
        }
        const IID IID_IAcadApplication = {0x372FA490,0x600C,0x11CF,{0x93,0xEB,0x08,0x00,0x09,0x9E,0xB3,0xB7}};                       
        HRESULT hr = ::CoCreateInstance( clsid,NULL,CLSCTX_ALL,IID_IAcadApplication,(void**)pIApp);

办法二：把autocad先打开，然后
        IAcadApplication *pIApp = NULL;
        CLSID clsid;
        if ( FAILED(::CLSIDFromProgID( L"AutoCAD.Application.14",&clsid) ) )
        {
                return ;
        }

        LPUNKNOWN pUnk=NULL;
        ::GetActiveObject(clsid,NULL,&pUnk);//这步是正确的
        HRESULT hr = pUnk->QueryInterface( IID_IAcadApplication, (void**)pIApp);
hr的返回值的意思大概是，该接口不存在。我查了一下注册表，好象确实找不到该接口.........是不是我用的的14而不是2000的缘故呢？

EMeiMonkey

老兄为什么不用智能接口指针来访问呢？CComPtr <AcadApplication>  pIApp;
pIApp.CreateInstance(__uuidof(AcadApplication));即可创建对象

bookworm_zju

老兄，不行呀
我程序如下：
        CComPtr<IAcadApplication> pIApp;
        HRESULT hr = pIApp.CoCreateInstance(__uuidof(IAcadApplication));
后来，我改成：
        CLSID clsid;
        if ( FAILED(::CLSIDFromProgID( L"AutoCAD.Application.14",&clsid) ) )
        {
                return ;
        }
        HRESULT hr = pIApp.CoCreateInstance(clsid));
创建了一个acad进程，可是，还是无法获取该接口。我估计是因为我的定义错了。应该定义成什么呢？
CComPtr<？？？？？？？？？？？？？？？？？> pIApp;
老兄，可不可以帮我编编看？

rave

老兄，在调用
CoCreateInstance()
之前一定要调用
CoInitialize(NULL);

rave

用MFC&ClassWizard

1. 
   
2. BOOL CAcadTestDlg::OnInitDialog()
   
3. {
   
4.     //....
   
5.     CoInitialize(NULL);
   
6.     return TRUE;  // return TRUE  unless you set the focus to a control
   
7. }
   
8. void CAcadTestDlg::OnButton1()
   
9. {
   
10.     // TODO: Add your control notification handler code here
    
11.     IAcadApplication IApp;
    
12.     HRESULT hr = NOERROR;
    
13.     CLSID clsid;
    
14.     LPDISPATCH pAcadDisp = NULL;
    
15.        
    
16.     hr = ::CLSIDFromProgID(L"AutoCAD.Application", &clsid);
    
17.     if (SUCCEEDED(hr))
    
18.     {
    
19.       hr = ::CoCreateInstance(clsid,NULL,CLSCTX_LOCAL_SERVER,IID_IDispatch,(LPVOID *)&pAcadDisp);
    
20.       if (SUCCEEDED(hr)){
    
21.           IApp.AttachDispatch(pAcadDisp);
    
22.           IApp.SetVisible(true);
    
23.       }
    
24.     }
    
25. 
    
26. }
    

复制代码

bookworm_zju

感谢感谢！

可是为什么我调用IApp.SetVisible(true)时，出现错误，提示如下：停用了“调用取消”
这是为什么呢

dwjnet

put_Visible(true);