边坡分析，ARX, CAD二次开发，程序源代码(4)

第9章 专题部分

//

acedCommand(RTSTR,\],RTSTR,\ } xlt[j][p][X]=xtz[j][p][X]-d[j][1]/2;

xlt[j][p][Y]=po[i][Y]-sqrt(r[i]*r[i]-(xlt[j][p][X]-po[i][X])*(xlt[j][p][X]-po[i][X])); xlt[j][p][Z]=0; xrt[j][p][X]=xtz[j][p][X]+d[j][1]/2;

xrt[j][p][Y]=po[i][Y]-sqrt(r[i]*r[i]-(xrt[j][p][X]-po[i][X])*(xrt[j][p][X]-po[i][X])); xrt[j][p][Z]=0; // }//圆弧端点 for(p=0;p1) { for(p=0;p=(pb[X]+lq)&&xrt[j][p][X]<=(pb[X]+lq+dq)) { zk=zk+zk1+(zk2+zk3)*zk4; mk=mk+(mk1+mk2)*mk3; } else{ zk=zk+zk1+zk3*zk4; mk=mk+mk2*mk3; } } zk11=c[j]*al[j][p]; zk22=q*d[j][1]; zk33=gam[j]*d[j][1]*(tg[j][p]-gh)+d[j][1]*ctz; zk44=(po[i][Y]-xtz[j][p][Y])/r[i]*tan(fai[j]*3.14159/180); mk11=q*d[j][1]; mk22=gam[j]*d[j][1]*(tg[j][p]-gh)+d[j][1]*ctz; mk33=(xtz[j][p][X]-po[i][X])/r[i];

74

辽宁工程技术大学毕业设计（论文）

if(xlt[j][p][X]>=pb[X]+lq&&xrt[j][p][X]<=pb[X]+lq+dq) { zk=zk+zk11+(zk22+zk33)*zk44; mk=mk+(mk11+mk22)*mk33; } else{ zk=zk+zk11+zk33*zk44; mk=mk+mk22*mk33; } } else{ zk11=c[j]*al[j][0]; zk22=q*d[j][1]; zk33=gam[j]*d[j][1]*(tg[j][p]-gh)+d[j][1]*ctz; zk44=(po[i][Y]-xtz[j][0][Y])/r[i]*tan(fai[j]*3.14159/180); mk11=zk22; mk22=zk33; mk33=(xtz[j][0][X]-po[i][X])/r[i]; if(xlt[j][0][X]>=pb[X]+lq&&xrt[j][0][X]<=pb[X]+lq+dq) { zk=zk+zk11+(zk22+zk33)*zk44; mk=mk+(mk11+mk22)*mk33; } else{ zk=zk+zk11+zk33*zk44; mk=mk+mk22*mk33; } } gh=gh+ch[j]; ctz=ctz+gam[j]*ch[j];

acutPrintf(\ zk =%f mk =%f \ }

k[i]=zk/mk; acutPrintf(\ %f \\n\ zk=0; mk=0; gh=0; ctz=0; zk1=0; zk2=0; zk3=0;

75

第9章 专题部分

zk4=0; mk1=0; mk2=0; mk3=0; zk11=0; zk22=0; zk33=0; zk44=0; mk11=0; mk22=0;

mk33=0; }

/////////保存OD垂线上的计算结果///////////////////////////////////////////

for(i=0;i

ads_point w1,w2; w1[X]=ko[X]-0.5; w1[Y]=ko[Y]+0.5; w1[Z]=0;

w2[X]=ke[X]+1; w2[Y]=pa[Y]-2; w2[Z]=0;

acedCommand(RTSTR,\ads_point pt[100],ad[100]; pt[0][X]=ke[X];

76

辽宁工程技术大学毕业设计（论文）

pt[0][Y]=ke[Y]-ch[0]; pt[0][Z]=0;

ad[0][X]=ke[X]+0.05; ad[0][Y]=pt[0][Y]; ad[0][Z]=0;

acedCommand(RTSTR,\INT,ad[0],RTSTR,\for(i=1;i

pt[i][Y]=pt[i-1][Y]-ch[i]; pt[i][Z]=0;

ad[i][X]=ke[X]+0.05; ad[i][Y]=pt[0][Y]; ad[i][Z]=0;

acedCommand(RTSTR,\POINT,ad[i],RTSTR,\}

ads_point hd[100],bd[100]; ads_point as; as[X]=pb[X];

as[Y]=pb[Y]+0.05; as[Z]=0;

acedCommand(RTSTR,\INT,as,RTSTR,\ for(j=0;j

bd[j][X]=hd[j][X]; bd[j][Y]=hd[j][Y]+0.05; bd[j][Z]=0;

acedCommand(RTSTR,\DPOINT,bd[j],RTSTR,\}

acedCommand(RTSTR,\T3DPOINT,ke,RTSTR,\

acedCommand(RTSTR,\TNONE);

acutPrintf(\安全系数为____%f\\n\ }

9.4.5 模块定义文件hello.def LIBRARY helloarx

77

第9章 专题部分

DESCRIPTION 'ARX program for AutoCAD 2000' EXPORTS

acrxEntryPoint PRIVATE acrxGetApiVersion PRIVATE _SetacrxPtp PRIVATE

78