【转帖】[求助]环形阵列函数问题
 

[求助]环形阵列函数问题
[求助]环形阵列函数问题
下面是我的代码：
lpdispatch pappdisp;
pappdisp = acedgetacadwinapp()->getidispatch(true);
variant parrayobjs;
variantinit(&parrayobjs);
v_vt(&parrayobjs) = vt_array | vt_dispatch;
double val[3] = {0,0,0};
variant basepoint ;
ctransutil::pointstovariant (val,&basepoint);//将double型数组转换为variant型
acgepoint3d ptcenter(100, 100, 0);
acdbobjectid objid=ctransutil::createcircle(ptcenter, 20);//创建一个以100，100为圆心以20为半径的圆
if (succeeded(acaxarraypolar(objid,pappdisp,4,2*(ctransutil::pi()),basepoint,&parrayobjs)))acutprintf("\nsucceeded");
//将double转换为variant型
void ctransutil::pointstovariant (double* pt,variant *a)
{safearraybound rgsabound;
rgsabound.llbound=0l;
rgsabound.celements=3;
safearray* psa=null;
psa=safearraycreate(vt_r8,1,&rgsabound);
for(long i=0;i<3;i++)
{if( failed(safearrayputelement(psa,&i,&pt[i])))
acutprintf("\nputelement failed");
}
v_vt(a)=vt_array | vt_r8;
v_array(a)=psa;}
调试时代码没有问题，可是在执行时却显示cad内部命令出错，请问我哪里出了问题？？？
高手一定帮帮忙啊
可能是内存释放问题。safearraycreate创建出来内存直接传入了cad，可能会有问题。查一下msdn，用拷贝函数复制一份数据传入cad，然后把safearraycreate创建的释放掉。
basepoint 有问题，因为它的parray所指的数组psa生命期已经结束了，parray所指的内容是不确定的。
*******************************
truetable: 在cad和excel间互导表格
支持autocad,中望cad、浩辰cad
*******************************
线材(网架,型钢,角钢)排料优化
*******************************
//www.truetable.com