[求助]我自己编写的图幅及标题栏后置设定程序怎么不能运行？

grasshorse 发表于 2009-6-10 16:59:00

// ObjectARX defined commands #include "StdAfx.h" #include "StdArx.h" #include <aced.h> #include <string.h> #include <adslib.h> #include <dbents.h> #include <stdio.h> #include <math.h> #include <dbgroup.h> #include <dbid.h> #include "dbmain.h" #include "dbidar.h " #include "dbapserv.h" #include "gepnt3d.h " #include  "rxregsvc.h" #include  "acedads.h" #include  "adscodes.h" #include   <stdlib.h> #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.");\} #define  layer_edit(mode,value,layer_name){\  if(acedCommand(RTSTR,"LAYER",RTSTR,mode,RTSTR,value,RTSTR,layer_name,\     RTSTR,"",0)!=RTNORM) acdbFail("\n layer edit opration  error.");\  } 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=格式Bchar tbuf;//全局性的自由变量 int draw_size(ads_point pt_temp1,int hor,int ver,short a,short c,char style,char head,ads_real scale) { // 传递参数依次为：左下角点坐标，水平长度，纵向长度，至左边界距离，到其他三边的距离，图纸布置方式，标题栏格式，绘图比例   ads_point  pt0,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<%s> 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",RTSTR,"@12<-90",RTSTR,"@40<-180",RTSTR,"@12<90",RTSTR,"",0);//绘图号区 acedCommand(RTSTR,"INSERT",RTSTR,head_name,RT3DPOINT,pt1,RTSTR,"",RTSTR,"",RTSTR,"",0);//插入标题栏图块 acedCommand(RTSTR,"COLOR",RTSTR,"BYLAYER",0); acedSSAdd(NULL,NULL,ss);//构造的新的选择集ss do {//生成包含所有新实体的(标题栏，图框等)的选择集，送ss中  acedSSAdd(e0,ss,ss);  acdbNameSet(e0,e1); } while(acdbEntNext(e1,e0)==RTNORM); acedCommand(RTSTR,"SCALE",RTPICKS,ss,RTSTR,"",RTPOINT,pt_temp1,RTREAL,1.0/scale,0);//对图框和标题栏进行反比例缩放 acedSSFree(ss);//释放选择集ss return RTNORM; } // This is command 'SETSIZE' void arxarxsetsize() {  int i,size;  struct resbuf rb,rb1,rb2;//供存取AutoCAD系统变量之用  ads_real lx,ly,//图形的真实宽度和高度           real1,real2,//图形的有效绘图区域x，y     head_ht=40.0,//标题栏高度     no_ht=12.0,//左上角的图号区的高度     scale;//绘图比例  ads_point pt_temp1;  style='1';//在后置设定过程中，图纸布置方式只考虑正常方式  head='1';//标题栏只考虑用格式A  acedGetVar("userr1",&rb);//从系统变量userr1获取当前使用的比例值  scale=rb.resval.rreal;  if(scale==0.0) scale=1.0;  CommandB();  acedCommand(RTSTR,"ZOOM",RTSTR,"ALL",0);  CommandE();  acedGetVar("EXTMAX",&rb1);//获取当前图形的右上角点坐标  acedGetVar("EXTMIN",&rb2);//获取当前图形的左下角点坐标  lx=rb1.resval.rpoint-rb2.resval.rpoint;//图形水平长度     ly=rb1.resval.rpoint-rb2.resval.rpoint;//图形纵向长度  for(i=5;i>=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<real1)&&(ly<real2)){ //找到合适的图幅        size=i;        break;       }  }  if(i==-1) {          acedAlert("找不到合适的标准图幅");        return;  }  real1=real1-lx;  real2=real2-ly;  Spoint(pt_temp1,rb2.resval.rpoint-real1/2.0,rb2.resval.rpoint-real2/2.0,0.0);//pt_temp1，图纸左下角点  pt_temp1-=size_list.a/scale;  pt_temp1-=(head_ht+size_list.c)/scale;  CommandB();//关CMDECHO命令回显，然后调用draw_size()绘图框标题栏等  if(draw_size(pt_temp1,size_list.hor,size_list.ver,size_list.a,size_list.c,style,head,scale)!=RTERROR)  acedCommand(RTSTR,"ZOOM",RTSTR,"ALL",0);  CommandE();//打开CMDECHO命令回显  acedRetVoid();  return;// TODO: Implement the command// TODO: Implement the command}

grasshorse 发表于 2009-6-11 10:22:00

没有高手帮我看一看吗？

页: [1]

明经CAD社区's Archiver

[求助]我自己编写的图幅及标题栏后置设定程序怎么不能运行？