Qt通过COM调用AutoCAD问题

[qtFreshman]

在Qt中利用COM输出.dwg格式的CAD文件，但是使用需要传递点数据的函数时出现错误，其他函数正常。AutoCAD的VBA帮助文档中点数据为three-element array of doubles。
（1）如下：

    QAxObject * cad=new QAxObject(this);
    cad->setControl("AutoCAD.Application");
    cad->setProperty("Visible",true);
    QAxObject * documents=cad->querySubObject("Documents");
    //打开已存在的一个.dwg文件
    QAxObject * document=documents-    
    >querySubObject("Open(QString)",absolutefileName);
    //定义点数据
    QList<QVariant> startP;
    QList<QVariant> endP;
    startP<<0<<0<<0;
    endP<<200<<200<<0;
    QVariantList pointList;
    pointList<<QVariant(startP)<<QVariant(endP);
    //调用AddLine函数画一条线
    QAxObject * space=document->querySubObject("ModelSpace");
    space->querySubObject("AddLine(QVariant,QVariant)",pointList);

（2）错误提示：
QAxBase: Error calling IDispatch member AddLine: Exception thrown by server
Code : 87
Source :
Description:
Help :
Connect to the exception(int,QString,QString,QString) signal to catch this exception

（3）COM的“AddLine”说明：
IDispatch* AddLine (QVariant StartPoint, QVariant EndPoint) [slot]
Connect a signal to this slot:
QObject::connect(sender, SIGNAL(someSignal(QVariant, QVariant)),object, SLOT(AddLine(QVariant,
QVariant)));
Or call the function directly:
QVariantList params = ...
QAxObject * result = object->querySubObject("AddLine(QVariant, QVariant)", params);

（4）AutoCAD中关于相应的VBA函数格式的说明：
Signature
RetVal = object.AddLine(StartPoint, EndPoint)
Object
ModelSpace Collection, PaperSpace Collection, Block
The objects this method applies to.
StartPoint
Variant (three-element array of doubles); input-only
The 3D WCS coordinates specifying the line start point.
EndPoint
Variant (three-element array of doubles); input-only
The 3D WCS coordinates specifying the line endpoint.
RetVal
Line object
The newly created Line object.

[lthrwx]

modelSpace = cadDocument->querySubObject("ModelSpace()"); 采用这个方式调用。

[qtFreshman]

好久没上来了，多谢回复啊！我试试看

[bingsongchen2722]

楼主，能加下QQ么？我想请教下怎么打开CAD文件、。。

[qtFreshman]

引用 1 楼 lthrwx 的回复:

modelSpace = cadDocument->querySubObject("ModelSpace()"); 采用这个方式调用。

还是不行，你有完整的代码吗？

[bingsongchen2722]

引用 5 楼 cross_man 的回复:

[quote=引用 4 楼 bingsongchen2722 的回复:] 楼主，能加下QQ么？我想请教下怎么打开CAD文件、。。

可以，你QQ多少？[/quote] 谢谢，我已经私信给你

[qtFreshman]

引用 4 楼 bingsongchen2722 的回复:

楼主，能加下QQ么？我想请教下怎么打开CAD文件、。。

可以，你QQ多少？

[爱学习丶]

楼主，能留个QQ吗？我想学习一下打开CAD文件查看

[杨洪静]

楼主在吗，可以加个qq学习一下吗，想学习通过在qt界面中改变参数，得到CAD图形