VC调用AUTOCAD类型库acad.tlb时，一个三维点变量怎样转换成VARIANT类型？

indal · 发表于 2002-10-6 14:02:00

VC调用类型库acad.tlb时，一个三维点变量怎样转换成VARIANT类型？
例画圆函数LPDISPATCH IAcadModelSpace::AddCircle(const VARIANT& Center, double Radius)中的Center是怎样被赋值的？

indal · 发表于 2002-10-6 14:12:00

例如：我想让圆心坐标为(1,1,0)，应怎样赋值呢？

goldenshin · 发表于 2002-10-8 10:43:00

A point is saved as SAFEARRAY Type in VARIANT.
SAFEARRAYBOUND aBound;
aBound.....(set aBound)
SAFEARRAY center;
center=SafeArrayCreate(VT_R8,1,&aBound);
//for center.X
long i=0;
double x=12;
SafeArrayPutElement(center,&i,&x);
//.....for y,z,...
.....
VARIANT pt1;
VariantInit(&pt1);
V_VT(&pt1)=VT_ARRAY | VT_R8;
V_ARRAY(&pt1)=center;

fayifu · 发表于 2003-3-8 11:46:00

SAFEARRAYBOUND pSab[1];
                              pSab[0].lLbound       = 0;
                              pSab[0].cElements = 3;

                              SAFEARRAY *pSa, *pSb;
                              pSa = SafeArrayCreate(VT_R8, 1, pSab);
                              pSb = SafeArrayCreate(VT_R8, 1, pSab);

                              double value;

                              value = 0;
                              long ix[1];
                              ix[0] = 0;
                              SafeArrayPutElement(pSa, ix, &value);
                              ix[0] = 1;
                              SafeArrayPutElement(pSa, ix, &value);
                              value = 0;
                              ix[0] = 2;
                              SafeArrayPutElement(pSa, ix, &value);

                              value = 30;
                              ix[0] = 0;
                              SafeArrayPutElement(pSb, ix, &value);
                              value = 79;
                              ix[0] = 1;
                              SafeArrayPutElement(pSb, ix, &value);
                              value = 0;
                              ix[0] = 2;
                              SafeArrayPutElement(pSb, ix, &value);

                              VARIANT v1, v2;
                              VariantInit(&v1);
                              v1.vt = VT_ARRAY | VT_R8;
                              v1.parray = pSa;

                              VariantInit(&v2);
                              v2.vt = VT_ARRAY | VT_R8;
                              v2.parray = pSb;
pAcadDoc = pAcadApp->ActiveDocument;                               IAcadModelSpacePtr pAcadSpace = pAcadDoc->GetModelSpace();
pAcadSpace->AddLine(v1, v2);
            //       pAcadApp->ActiveDocument->ModelSpace->AddLine(v1, v2);
                              SafeArrayDestroy(pSa);
                              SafeArrayDestroy(pSb);

VC调用AUTOCAD类型库acad.tlb时，一个三维点变量怎样转换成VARIANT类型？

发表回复

精选推荐