请大家指点一下！急

kellyyang1 · 发表于 2004-10-29 21:26:00

我写了如下的一段代码
#include "StdAfx.h"
#include "StdArx.h"
#include "string.h"
long len1;/////////图形中所有管段的个数
ads_name sspipe;///////图形中管段的选择集
int line_data(ads_name ent,ads_point pt_start,ads_point pt_end)
{struct resbuf *eb1=NULL,*eb2=NULL;
eb1=acdbEntGet(ent);
for(eb2=eb1;eb2!=NULL;eb2=eb2->rbnext)
{if(eb2->restype==0)
if(strcmp(eb2->resval.rstring,"LINE")!=0)
{acutRelRb(eb1);
return RTERROR;
}
if(eb2->restype==10)
ads_point_set(eb2->resval.rpoint,pt_start);
if(eb2->restype==11)
ads_point_set(eb2->resval.rpoint,pt_end);
}
acutRelRb(eb1);
return RTNORM;
}
// This is command 'GD'
void vcstep1gd()////////此函数用来给管段编号
{
// TODO: Implement the command
ads_name pipe;///////前者为所有管段的集合，后者为单个管段
struct resbuf res1;
char str1[20],str2[20];////////str2为管段的标号
ads_point s_point,e_point;
ads_point mid_point;
strcpy(str1,"LINE");
res1.resval.rstring=str1;
res1.restype=0;
res1.rbnext=NULL;
if(acedSSGet("X",NULL,NULL,&res1,sspipe)!=RTNORM)
acedAlert("图形中还没有管线\n请绘制管线");
acedSSLength(sspipe,&len1);
acedCommand(RTSTR,"LAYER",RTSTR,"M",RTSTR,"HELLO",RTSTR,"S",RTSTR,"HELLO",RTSTR,"",0);
for(int i=0;irbnext)
{
if(eb2->restype==0)
if(strcmp(eb2->resval.rstring,"LINE")!=0)
{acutRelRb(eb1);
return RTERROR;
}
if(eb2->restype==10)
ads_point_set(eb2->resval.rpoint,pt_start);
if(eb2->restype==11)
ads_point_set(eb2->resval.rpoint,pt_end);
}
acutRelRb(eb1);
return RTNORM;
}
// This is command 'GD'
static void vcstep1gd()////////此函数用来给管段编号
{
// TODO: Implement the command
ads_name pipe;///////前者为所有管段的集合，后者为单个管段
struct resbuf res1;
char str1[20],str2[20];////////str2为管段的标号
ads_point s_point,e_point;
ads_point mid_point;
strcpy(str1,"LINE");
res1.resval.rstring=str1;
res1.restype=0;
res1.rbnext=NULL;
if(acedSSGet("X",NULL,NULL,&res1,sspipe)!=RTNORM)
acedAlert("图形中还没有管线\n请绘制管线");
acedSSLength(sspipe,&len1);
acedCommand(RTSTR,"LAYER",RTSTR,"M",RTSTR,"HELLO",RTSTR,"S",RTSTR,"HELLO",RTSTR,"",0);
for(int i=0;i<len1;i++)
{
acedSSName(sspipe,i,pipe);
line_data(pipe,s_point,e_point);
mid_point[X]=(s_point[X]+e_point[X])/2;
mid_point[Y]=(s_point[Y]+e_point[Y])/2;
mid_point[Z]=0;
ads_real angle=180/3.141592657589*acutAngle(s_point,e_point);///////每条直线的角度
acdbRToS(i+1,2,2,str2);
acedCommand(RTSTR,"CIRCLE",RTPOINT,s_point,RTSTR,"10",RTNONE);
acedCommand(RTSTR,"TEXT",RTPOINT,mid_point,RTSTR,"10",RTREAL,angle,RTSTR,str2,0);
}
if (sspipe)
acedSSFree(sspipe);
}
下次代码还是写清楚一点吧?

王咣生 · 发表于 2004-10-29 21:58:00

呵呵，真是非常感谢啊，不过能告诉我为什么要这样做吗》？？不好意思啊，我是新手

kellyyang1 · 发表于 2004-10-29 22:35:00

怎么做? 指什么?

王咣生 · 发表于 2004-10-29 22:42:00

其实下面还有如下的代码
void vcstp2jd()
{
// TODO: Implement the command
ads_name pipe;////////管段的数组
ads_point as_point[200],ae_point[200];///////管段起始节点的数组
ads_point totalpoint[200];
for(int i=0;i<len1;i++)
{acedSSName(sspipe,i,pipe);
line_data(pipe,as_point[i],ae_point[i]);
totalpoint[2*i][X]=as_point[i][X];
totalpoint[2*i][Y]=as_point[i][Y];
totalpoint[2*i][Z]=as_point[i][Z];
totalpoint[2*i+1][X]=ae_point[i][X];
totalpoint[2*i+1][Y]=ae_point[i][Y];
totalpoint[2*i+1][Z]=ae_point[i][Z];
acedCommand(RTSTR,"CIRCLE",RT3DPOINT,as_point[i],RTREAL,10,0);
acedCommand(RTSTR,"CIRCLE",RT3DPOINT,ae_point[i],RTREAL,10,0);
}
int sizeofpoint=sizeof(totalpoint)/4;
}可是在CAD下运行还是会出现Invalid type in acutBuildList() arg #7
命令: Invalid type in acutBuildList() arg #7这样的问题，能告诉究竟是什么原因呢？？

kellyyang1 · 发表于 2004-10-29 22:44:00

从调试的结果
acedCommand(RTSTR,"CIRCLE",RT3DPOINT,as_point[i],RTREAL,10,0);
没有执行成功, 那问题就在这里了, 而这里acedCommand有7个参数, 但
"Invalid type in acutBuildList() arg #7 " 不一定准确, 总之能找到出错的位置!
你执行你的程序后, F2看一下AutoCAD Command Line, 也可以清楚地
看到CIRCLE和TEXT的执行过程!