[求助]我自己编写的图幅及标题栏后置设定程序怎么不能运行？
// ObjectARX defined commands#include "StdAfx.h"
#include "StdArx.h"
#include
#include
#include
#include
#include
#include
#include
#include
#include "dbmain.h"
#include "dbidar.h "
#include "dbapserv.h"
#include "gepnt3d.h "
#include"rxregsvc.h"
#include"acedads.h"
#include"adscodes.h"
#include
#include"accmd.h"
#define Cpoint(d,s) {d=s;d=s;d=s;}
#define Spoint(d,x,y,z){d=(x);d=(y);d=(z);}
//#define ELEMENTS(array) {sizeof(array)/sizeof((array))}
#define CommandB(){ struct resbuf rB_cmd,rB_usr; \
acedGetVar("CMDECHO", &rB_cmd); \
rB_usr.restype = RTSHORT; \
rB_usr.resval.rint = (int) (0); \
acedSetVar("CMDECHO", &rB_usr);
#define CommandE()acedSetVar("CMDECHO", &rB_cmd); \
};
#define layer_do(mode,layer_name){\
if(acedCommand(RTSTR,"LAYER",RTSTR,mode,RTSTR,layer_name,RTSTR,"",0)\
!=RTNORM) acdbFail("\n Layer opration error.");\}
#definelayer_edit(mode,value,layer_name){\
if(acedCommand(RTSTR,"LAYER",RTSTR,mode,RTSTR,value,RTSTR,layer_name,\
RTSTR,"",0)!=RTNORM) acdbFail("\n layer edit oprationerror.");\
}
static struct size_list{ //图幅尺寸的数据结构
char *name;//图幅名称
int hor;//图纸水平长度
int ver;//图纸纵向长度
short a;//图框的图纸左边界距离
short c;//图框到图纸上，下，右边界距离
}
size_list[]={
{"A0",1189,841,25,10},//A0,A1...幅面边界的尺寸
{"A1",841,594,25,10},
{"A2",594,420,25,10},
{"A3",420,297,25,5},
{"A4",210,297,25,5},
{"A5",210,148,25,5},
};
#define SIZE_L 6
//static int size=0;
static char style;//图纸布置方式，1=正常，0=转置
static char head ;//标题栏，1= 格式A，0=格式B
char tbuf;//全局性的自由变量
int draw_size(ads_point pt_temp1,int hor,int ver,short a,short c,char style,char head,ads_real scale)
{
// 传递参数依次为：左下角点坐标，水平长度，纵向长度，至左边界距离，到其他三边的距离，图纸布置方式，标题栏格式，绘图比例
ads_pointpt0,pt1,pt2,pt3;
int intl;
char head_name;
ads_name ss,e0,e1;//选择集和实体名称
if(style!='1'){//图纸转置90°
intl=hor;
hor=ver;
ver=intl;}
if(head=='1') strcpy(head_name,"head_a.dwg");//标题栏格式A
else strcpy(head_name,"head_b.dwg");//标题栏格式B
if (acedFindFile(head_name,tbuf)!=RTNORM){//在盘上查找标题栏图块
sprintf(tbuf,"file not existed.",head_name);
acedAlert(tbuf);
return RTERROR;}
Cpoint(pt0,pt_temp1);//对图幅外边界四角点x,y,z坐标赋值
Spoint(pt1,pt0+hor,pt0,0);
Spoint(pt2,pt0+hor,pt0+ver,0);
Spoint(pt3,pt0,pt0+ver,0);
acedCommand(RTSTR,"COLOR",RTSTR,"YELLOW",0);
acedCommand(RTSTR,"LINE",RTPOINT,pt0,RTPOINT,pt1,0);//画外边界
// acdbEntNext(NULL,ss);
acdbEntLast(e0);//为后续生成ss选择集而保存第一个实体的名称
acedCommand(RTPOINT,pt2,RTPOINT,pt3,RTSTR,"C",0);
Spoint(pt0,pt0+a,pt0+c,0);
Spoint(pt1,pt1-c,pt1+c,0);
Spoint(pt2,pt2-c,pt2-c,0);
Spoint(pt3,pt3+a,pt3-c,0);
acedCommand(RTSTR,"COLOR",RTSTR,"WHITE",0);
acedCommand(RTSTR,"LINE",RTPOINT,pt0,RTPOINT,pt1,RTPOINT,pt2,RTPOINT,pt3,RTSTR,"C",0);//绘图框线
acedCommand(RTSTR,"LINE",RTPOINT,pt3,RTSTR,"@40=0;i--) { //查找能包含此图形的最小图幅
real1=(size_list.hor-size_list.a-size_list.c)/scale;
real2=(size_list.ver-size_list.c*2-head_ht-no_ht)/scale;
if((lx
}
没有高手帮我看一看吗？
页:
[1]