6771 lines
132 KiB
C++
6771 lines
132 KiB
C++
// (C) Copyright 1996 by Autodesk, Inc.
|
|
#include "stdafx.h"
|
|
#include <windows.h>
|
|
#include <string.h>
|
|
#include <adslib.h>
|
|
#include <dbjig.h>
|
|
#include <dbents.h>
|
|
#include <aced.h>
|
|
#include <geassign.h>
|
|
#include <acgi.h>
|
|
#include <math.h>
|
|
#include <rxregsvc.h>
|
|
#include "actrans.h"
|
|
// 主要问题：
|
|
// 1. 墙层有多个, 层名不固定
|
|
// 2. 轴线层名称不固定
|
|
|
|
static BOOL g_nProcessMore=FALSE;
|
|
|
|
void tch0(double nVal);
|
|
|
|
static void diatzh(void);
|
|
static void diatzha(void);
|
|
|
|
static void xuwall(void);
|
|
static void tzha(void);
|
|
static void strlin(void);
|
|
static void ul112l(ads_real x01,ads_real y01,ads_real x02,ads_real y02,ads_real b0);
|
|
static void ssdelenpp0(void);
|
|
static void qmmm(int itdo);
|
|
|
|
static void tchmtxt(TCHAR txtins[40]);
|
|
static void ulin0(void);
|
|
static void ulmend2(void);
|
|
static void ulin2(ads_real xmen2,ads_real ymen2);
|
|
static void ulin3(void);
|
|
static void ulin3a(ads_real x0,ads_real y0);
|
|
static void ulin3dl(void);
|
|
static void ulin4(void);
|
|
static void ulin4a(void);
|
|
static void ulin4b(void);
|
|
static void ulin4ab(void);
|
|
static void ulin5(void);
|
|
static void ulin5a(int i0);
|
|
static void ulin0dd(int i0);
|
|
static void ulin0dda(void);
|
|
|
|
static void uldote(ads_real xp1,ads_real yp1,ads_real xp2,ads_real yp2);
|
|
static void wlinTDOTE(ads_point p1,ads_point p2);
|
|
static void tzhb(void);
|
|
static void qmmma(void);
|
|
|
|
static void ulendd(void);
|
|
static void uldda(int it0);
|
|
static void ulddb(int it0,ads_real xp1,ads_real yp1,ads_real xp2,ads_real yp2);
|
|
static void ulddc(int it0,ads_real xp1,ads_real yp1,ads_real xp2,ads_real yp2);
|
|
static void ulwa00(void);
|
|
static void ularc(void);
|
|
static void strarcd(void);
|
|
static void strarcda(void);
|
|
static void qyxpoint(void);
|
|
static void ularc3(void);
|
|
static void ularc3a(ads_real x0,ads_real y0);
|
|
static void ularc4(int i0);
|
|
static void ularcdote(void);
|
|
static void warc(ads_point p1,ads_real q1,ads_real q2,ads_real rr);
|
|
static void qlajd(void);
|
|
static void ulddarc(int it0);
|
|
static void ulddarcc(int it0);
|
|
static void ulenddzf(void);
|
|
static void ulinzf(void);
|
|
static void ularczf(void);
|
|
static void timekey2(void);
|
|
static void rucs(void);
|
|
static void gworld(void);
|
|
static void ulmcdg(void);
|
|
static void addentd(void);
|
|
static void tzhatd(void);
|
|
static void tzhatdc(void);
|
|
static void wlinTDWA(ads_real x1,ads_real y1,ads_real x2,ads_real y2);
|
|
static void warcTDWA(ads_real x1,ads_real y1,ads_real q1,ads_real q2,ads_real rr);
|
|
static void ulin6dd(void);
|
|
static void xwbmin(int i);
|
|
static void ulin01(void);
|
|
static void yyyq(void);
|
|
static void yyyqa(void);
|
|
static void yyyqb(void);
|
|
static void ulyyyqb(void);
|
|
static void ulrrxxyy(ads_real x01,ads_real y01,ads_real x02,ads_real y02,ads_real tchyy,ads_real dm);
|
|
|
|
|
|
static ads_real whou=500.0,wwjul=0.0;
|
|
static ads_real pi314=3.141592653589793;
|
|
static ads_real ds111=1.0,dswa500=500.0;
|
|
static ads_real jsjdu=0.001;
|
|
static ads_real whouz,whouy;
|
|
static ads_real xdot,ydot;
|
|
static ads_real qucs=0.0,dsdote=0.0;
|
|
static ads_real xx0,yy0,mmrr;
|
|
|
|
|
|
static int itch=0;
|
|
static int iul112l=0;
|
|
static int itwall=0;
|
|
static int icdp3=0,inntm=0,icolo=1,itmen=0;
|
|
static int iarry=1;
|
|
static int ientd=0,itdote=0;
|
|
|
|
static ads_real xka1,yka1,xka2,yka2,karr,kaq1,kaq2;
|
|
static ads_real xwb1,ywb1,xwb2,ywb2;
|
|
static ads_real xdo1,ydo1,xdo2,ydo2,xdz1,ydz1,xdz2,ydz2;
|
|
static ads_real dm,xmen0,ymen0,xmen1,ymen1,xmen2,ymen2;
|
|
static ads_real mank,manam,qhcjcou;
|
|
static ads_real qhcjc;
|
|
static ads_real timekey1=0.0,timekey0;
|
|
static ads_point porg;
|
|
|
|
static ads_real arry[302][8];
|
|
static ads_real ddar[4][8];
|
|
static ads_real arrysa[18][8];
|
|
|
|
static ads_name ensspp;
|
|
static ads_name ensspp0;
|
|
static ads_name endd0;
|
|
static ads_name entdwa;
|
|
static ads_name entch;
|
|
|
|
//static char htbuf[256]=_T("");
|
|
//static char zflay[80]=_T("");
|
|
//static char zfsy[80]=_T("");
|
|
|
|
|
|
// 计算直线的角度(以角度衡量)
|
|
void qjadu(ads_real xx1,ads_real yy1,ads_real xx2,ads_real yy2)
|
|
{
|
|
ads_point p1,p2;
|
|
p1[0]=xx1; p1[1]=yy1; p1[2]=0;
|
|
p2[0]=xx2; p2[1]=yy2; p2[2]=0;
|
|
|
|
qhcjc=0;
|
|
qhcjc=ads_angle(p1,p2);
|
|
qhcjc=qhcjc*180/pi314;
|
|
|
|
}
|
|
|
|
void hlin(ads_real x1,ads_real y1,ads_real x2,ads_real y2,int i)
|
|
{
|
|
ads_point p01,p02;
|
|
p01[0]=x1; p01[1]=y1; p01[2]=0;
|
|
p02[0]=x2; p02[1]=y2; p02[2]=0;
|
|
ads_grdraw(p01,p02,i,0);
|
|
}
|
|
|
|
// 屏幕缩放
|
|
void ul112l(ads_real x01,ads_real y01,ads_real x02,ads_real y02,ads_real b0)
|
|
{
|
|
return;
|
|
}
|
|
|
|
|
|
|
|
|
|
class LineDupEntry: public XLine{
|
|
public:
|
|
Entity m_ent;
|
|
char m_bDel;
|
|
public:
|
|
LineDupEntry(Entity &e): XLine(e), m_ent(e), m_bDel(0){}
|
|
int IsDeleted() { return m_bDel; }
|
|
int operator !() { return (GetLength()<_DIST_SNAP); }
|
|
};
|
|
|
|
|
|
static void ProcessLineDup()
|
|
{ /* module 1.1.3 */
|
|
|
|
PickSet ssAll(SS_FREE);
|
|
if (ssAll.Get(_T("X"), NULL, NULL, RBList(RTDXF0, _T("LINE"), 8, _T("TDOTE"), NULL))!=RTNORM)
|
|
return;
|
|
|
|
int len = (int)ssAll.Length();
|
|
DList<LineDupEntry> lstLines;
|
|
for(int i=0; i<len; i++) {
|
|
Entity ent = ssAll[(long)i];
|
|
LineDupEntry *pLine=new LineDupEntry(ent);
|
|
if (!(*pLine)) {
|
|
ent.Delete();
|
|
delete pLine;
|
|
} else
|
|
lstLines.Append(pLine);
|
|
}
|
|
|
|
len = lstLines.Length();
|
|
for(i=0; i<len; i++) {
|
|
LineDupEntry &line1 = *lstLines[i];
|
|
if (line1.IsDeleted()) continue;
|
|
for(int j=0; j<len; j++) { // origenal is from 0;
|
|
LineDupEntry &line2 = *lstLines[j];
|
|
if (j==i) continue;
|
|
if (line2.IsDeleted()) continue; // has been del
|
|
|
|
XVector3D vt1=line1.StartPoint()-line1.EndPoint(),
|
|
vt2=line2.StartPoint()-line2.EndPoint();
|
|
ads_real len1=vt1.Length(),
|
|
len2=vt2.Length();
|
|
if (len1) vt1.Scale(1.0/len1);
|
|
if (len2) vt2.Scale(1.0/len2);
|
|
double nSweepAng=acos(vt1&vt2);
|
|
if (nSweepAng<_angSnap || fabs(PI-nSweepAng)<_angSnap) { // same direction, 旧的算法没有考虑夹角精度
|
|
int flg=(line2.StartPoint()&line1);
|
|
int flg1=(line2.EndPoint()&line1);
|
|
if ((flg==PR_ONPT1 && flg1==PR_ONPT2) ||
|
|
(flg==PR_ONPT2 && flg1==PR_ONPT1)) {
|
|
line2.m_bDel=TRUE;
|
|
} else if (flg==PR_INSIDE) { /* p3 within line1*/
|
|
line2.m_bDel=TRUE;
|
|
XPoint ptOnLine1;
|
|
line2.EndPoint().Project(&line1, ptOnLine1);
|
|
if ((ptOnLine1&line1)==PR_EXTEND) { /* p4 on extension line1 */
|
|
if (ads_distance(line1.StartPoint(), line2.EndPoint())<
|
|
ads_distance(line1.EndPoint(), line2.EndPoint()))
|
|
line1.StartPoint() = line2.EndPoint();
|
|
else line1.EndPoint() = line2.EndPoint();
|
|
}
|
|
} else if (flg1==PR_INSIDE) {
|
|
// line2(EndPoint()) is partial inside line1
|
|
line2.m_bDel=TRUE;
|
|
XPoint ptOnLine1;
|
|
line2.StartPoint().Project(&line1, ptOnLine1);
|
|
|
|
if ((ptOnLine1&line1)==PR_EXTEND) {
|
|
if (ads_distance(line1.StartPoint(),line2.StartPoint())<
|
|
ads_distance(line1.EndPoint(),line2.StartPoint()))
|
|
line1.StartPoint() = line2.StartPoint();
|
|
else line1.EndPoint() = line2.StartPoint();
|
|
}
|
|
} else if ((line1.StartPoint()&line2)==PR_INSIDE &&
|
|
(line1.EndPoint()&line2)==PR_INSIDE) { //line1 is inside line2
|
|
line1.StartPoint()=line2.StartPoint(); // replace line1
|
|
line1.EndPoint()=line2.EndPoint();
|
|
Exchange(line1.m_ent, line2.m_ent);
|
|
line2.m_bDel=TRUE;
|
|
}
|
|
|
|
}
|
|
|
|
} /* end for j */
|
|
|
|
} /* end for i */
|
|
|
|
for(i=0; i<len; i++) {
|
|
LineDupEntry &ln=*lstLines[i];
|
|
if (ln.IsDeleted()) {
|
|
//ssAll -= ln.m_ent;
|
|
ln.m_ent.Delete();
|
|
} else {
|
|
ln.Modify(&ln.m_ent);
|
|
}
|
|
}
|
|
|
|
}
|
|
|
|
void tch0(double nVal)
|
|
{
|
|
TCHAR *appname=_T("TDOTE");
|
|
ads_regapp(appname);
|
|
|
|
whou=nVal+0.001;
|
|
dswa500=whou;
|
|
|
|
arxAssureLayer(_T("TDOTE"), LAYSTAT_THAW|LAYSTAT_ON|LAYSTAT_UNLOCK);
|
|
arxAssureLayer(_T("TDWALL"), LAYSTAT_THAW|LAYSTAT_ON|LAYSTAT_UNLOCK);
|
|
applyCurDwgLayerTableChanges();
|
|
//ads_getstring(0, _T("\nPause:"), XString());
|
|
ddar[1][5]=0;
|
|
ddar[2][5]=0;
|
|
|
|
xuwall();
|
|
|
|
ProcessLineDup();
|
|
}
|
|
|
|
|
|
|
|
void xuwall(void)
|
|
{
|
|
struct resbuf *rb;
|
|
int rc;
|
|
Adesk::Int32 len;
|
|
|
|
//modifed by whl on 060323
|
|
//rb=ads_buildlist(RTDXF0,_T("LINE,ARC"), 8, _T("WALL*"), NULL);
|
|
XString sLayer;
|
|
sLayer<<_T("WALL*,")<<LAY_WALL;
|
|
rb=ads_buildlist(RTDXF0,_T("LINE,ARC"), 8, (const TCHAR*)sLayer, NULL);
|
|
|
|
rc = ads_ssget(_T("X"),NULL,NULL,rb,ensspp);
|
|
ads_relrb(rb);
|
|
|
|
if (rc!=RTNORM)
|
|
return;
|
|
|
|
rc=ads_sslength(ensspp, &len);
|
|
if (rc!=RTNORM) {
|
|
ads_printf(_T("\n不能建立选择."));
|
|
ads_ssfree(ensspp);
|
|
return;
|
|
}
|
|
|
|
|
|
PickSet ssWall(ensspp);
|
|
XPoint pt1, pt2;
|
|
ssWall.GetExtend(pt1, pt2);
|
|
AssureOnScreen(pt1, pt2);
|
|
|
|
icolo=1;
|
|
|
|
ads_ssadd(NULL,NULL,endd0); //中线
|
|
ads_ssadd(NULL,NULL,entdwa); // 已转化的墙线
|
|
|
|
ientd=0;
|
|
|
|
// 首先转换>WHOU 直线和圆弧线
|
|
tzha();
|
|
|
|
// 再转换<WHOU 直线墙线
|
|
tzhb();
|
|
|
|
ientd=1;
|
|
|
|
|
|
// 延伸 TDOTE 线
|
|
actrTransactionManager->flushGraphics();
|
|
//ads_getstring(0,_T("\nPause"), XString());
|
|
ulendd();
|
|
|
|
// 消除重复 TDOTE 线
|
|
//ulenddzf();
|
|
|
|
// 已转换的墙线放到TDWALL 层上
|
|
tzhatdc();
|
|
|
|
ads_ssfree(entdwa);
|
|
ads_ssfree(endd0);
|
|
ads_ssfree(ensspp);
|
|
}
|
|
|
|
|
|
// ensspp0 -- 一段墙的选择集
|
|
void addentd(void)
|
|
{ Adesk::Int32 len,i;
|
|
ads_name en;
|
|
|
|
// TCHAR zf[40];
|
|
|
|
if (ads_sslength(ensspp0,&len)==RTNORM) goto cc0;
|
|
return;
|
|
|
|
cc0:if (len==0) return;
|
|
|
|
i=0;
|
|
bbb:ads_ssname(ensspp0,i,en);
|
|
|
|
|
|
ads_ssadd(en,entdwa,entdwa);
|
|
|
|
i=i+1;
|
|
if (i<len) goto bbb;
|
|
|
|
}
|
|
|
|
// 从总的选择集中扣除一段墙的选择集
|
|
void ssdelenpp0(void)
|
|
{
|
|
Adesk::Int32 len,i;
|
|
ads_name en;
|
|
|
|
|
|
if (ads_sslength(ensspp0,&len)==RTNORM) goto cc0;
|
|
return;
|
|
|
|
cc0:if (len==0) return;
|
|
|
|
i=0;
|
|
bbb:ads_ssname(ensspp0,i,en);
|
|
|
|
ads_ssdel(en,ensspp);
|
|
|
|
i=i+1;
|
|
if (i<len) goto bbb;
|
|
|
|
}
|
|
|
|
|
|
// 没有考虑图层的不同
|
|
void strlin(void)
|
|
{
|
|
struct resbuf *ebup,*rb;
|
|
ads_point p01,p02;
|
|
ads_name ss1,en;
|
|
|
|
int typi,itn,itdo,it1,it2;
|
|
Adesk::Int32 i,len;
|
|
|
|
ads_real xjc1,yjc1,x1,y1,x2,y2,q,dx,dy,d1,d2,dm;
|
|
|
|
TCHAR txtdxf0[40]=_T(""),txtnam8[40]=_T("");
|
|
ads_point p1,p2,p3,p4,pp;
|
|
|
|
p1[2]=0; p2[2]=0;
|
|
p3[2]=0; p4[2]=0;
|
|
|
|
itn=0;
|
|
|
|
sta0:itn=itn+1;
|
|
|
|
if (itn>300) return;
|
|
|
|
// p1[0]=xka1; p1[1]=yka1;
|
|
// p2[0]=xka2; p2[1]=yka2;
|
|
|
|
qjadu(xka1,yka1,xka2,yka2);
|
|
|
|
q=(qhcjc-180)*pi314/180;
|
|
p1[0]=xka1+cos(q);
|
|
p1[1]=yka1+sin(q);
|
|
|
|
q=qhcjc*pi314/180;
|
|
p2[0]=xka2+cos(q);
|
|
p2[1]=yka2+sin(q);
|
|
|
|
itdo=0;
|
|
|
|
p01[0]=xka1-10*ds111; p01[1]=yka1-10*ds111; p01[2]=0;
|
|
p02[0]=xka1+10*ds111; p02[1]=yka1+10*ds111; p02[2]=0;
|
|
|
|
ul112l(p01[0],p01[1],p02[0],p02[1],ds111);
|
|
|
|
//modified by whl on 060323
|
|
//RBList mask(RTDXF0, _T("LINE"), 8, _T("WALL*"), NULL);
|
|
XString sLayer;
|
|
sLayer<<_T("WALL*,")<<LAY_WALL;
|
|
RBList mask(RTDXF0, _T("LINE"), 8, (const TCHAR*)sLayer, NULL);
|
|
|
|
if (ads_ssget(_T("C"),p01,p02, mask,ss1)!=RTNORM)
|
|
return;
|
|
|
|
i=0;
|
|
if (ads_sslength(ss1,&len)==RTNORM) goto bbb;
|
|
return;
|
|
|
|
bbb:ads_ssname(ss1,i,en);
|
|
ebup=ads_entget(en);
|
|
|
|
if (ebup==NULL) goto mbb1;
|
|
|
|
for (rb=ebup;rb!=NULL;rb=rb->rbnext) {
|
|
typi=rb->restype;
|
|
|
|
if (typi==0) _tcscpy(txtdxf0,rb->resval.rstring);
|
|
if (typi==8) _tcscpy(txtnam8,rb->resval.rstring);
|
|
|
|
if (typi==10) {
|
|
x1=rb->resval.rpoint[0];
|
|
y1=rb->resval.rpoint[1]; }
|
|
if (typi==11) {
|
|
x2=rb->resval.rpoint[0];
|
|
y2=rb->resval.rpoint[1]; }
|
|
}
|
|
ads_relrb(ebup);
|
|
ads_relrb(rb);
|
|
|
|
//判断图层
|
|
//if ((txtnam8[0]==_T('W'))&&(txtnam8[1]==_T('A'))&&(txtnam8[2]==_T('L'))&&(txtnam8[3]==_T('L')))
|
|
// goto bbwa;
|
|
|
|
/// goto mbb1;
|
|
|
|
//bbwa:if ((txtdxf0[0]==_T('L'))&&(txtdxf0[1]==_T('I'))&&(txtdxf0[2]==_T('N'))&&(txtdxf0[3]==_T('E'))) goto lin;
|
|
|
|
// goto mbb1;
|
|
|
|
// lin:
|
|
dx=x1-x2; dy=y1-y2;
|
|
d1=sqrt(dx*dx+dy*dy);
|
|
if (d1<ds111) goto mbb1;
|
|
|
|
dm=d1;
|
|
|
|
d1=800;
|
|
d2=1600;
|
|
|
|
qjadu(p1[0],p1[1],p2[0],p2[1]);
|
|
|
|
q=(qhcjc+90)*pi314/180;
|
|
p4[0]=x1+800*cos(q);
|
|
p4[1]=y1+800*sin(q);
|
|
|
|
q=(qhcjc-90)*pi314/180;
|
|
p3[0]=x1+800*cos(q);
|
|
p3[1]=y1+800*sin(q);
|
|
|
|
if (ads_inters(p1,p2,p3,p4,0,pp)==RTNORM) {
|
|
dx=pp[0]-x1; dy=pp[1]-y1;
|
|
d1=sqrt(dx*dx+dy*dy);
|
|
}
|
|
|
|
it1=0;
|
|
if (ads_inters(p1,p2,p3,p4,1,pp)==RTNORM) it1=1;
|
|
|
|
|
|
q=(qhcjc+90)*pi314/180;
|
|
p4[0]=x2+800*cos(q);
|
|
p4[1]=y2+800*sin(q);
|
|
q=(qhcjc-90)*pi314/180;
|
|
p3[0]=x2+800*cos(q);
|
|
p3[1]=y2+800*sin(q);
|
|
|
|
if (ads_inters(p1,p2,p3,p4,0,pp)==RTNORM) {
|
|
dx=pp[0]-x2; dy=pp[1]-y2;
|
|
d2=sqrt(dx*dx+dy*dy);
|
|
}
|
|
|
|
it2=0;
|
|
if (ads_inters(p1,p2,p3,p4,1,pp)==RTNORM) it2=1;
|
|
|
|
if ((d1<ds111)&&(d2<ds111)) {
|
|
|
|
if ((it1==0)&&(it2==0)) goto mbb1;
|
|
|
|
dx=xka1-x1; dy=yka1-y1;
|
|
d1=sqrt(dx*dx+dy*dy);
|
|
|
|
dx=xka1-x2; dy=yka1-y2;
|
|
d2=sqrt(dx*dx+dy*dy);
|
|
|
|
xjc1=x2; yjc1=y2;
|
|
if (d2<d1) { xjc1=x1; yjc1=y1; }
|
|
|
|
q=(qhcjc-180)*pi314/180;
|
|
x1=xka1+80*cos(q);
|
|
y1=yka1+80*sin(q);
|
|
|
|
q=qhcjc*pi314/180;
|
|
x2=xka1+80*cos(q);
|
|
y2=yka1+80*sin(q);
|
|
|
|
dx=x1-xjc1; dy=y1-yjc1;
|
|
d1=sqrt(dx*dx+dy*dy);
|
|
|
|
dx=x2-xjc1; dy=y2-yjc1;
|
|
d2=sqrt(dx*dx+dy*dy);
|
|
|
|
if (d2<d1) goto mbb1;
|
|
|
|
xka1=xjc1; yka1=yjc1;
|
|
|
|
ads_ssadd(en,ensspp0,ensspp0);
|
|
ads_ssfree(ss1);
|
|
|
|
goto sta0; }
|
|
|
|
|
|
if ((d1<ds111)&&(d2>10*ds111)&&(dm<dswa500)||(d1<ds111)&&(d2>10*ds111)&&(dm<=whou)) {
|
|
|
|
xdo1=x1; ydo1=y1;
|
|
xdo2=x2; ydo2=y2;
|
|
itdo=1;
|
|
|
|
ads_name_set(en,entch);
|
|
|
|
goto mbb1; }
|
|
|
|
|
|
if ((d1>10*ds111)&&(d2<ds111)&&(dm<dswa500)||(d1>10*ds111)&&(d2<ds111)&&(dm<=whou)) {
|
|
|
|
xdo1=x2; ydo1=y2;
|
|
xdo2=x1; ydo2=y1;
|
|
|
|
itdo=1;
|
|
|
|
ads_name_set(en,entch);
|
|
|
|
goto mbb1; }
|
|
|
|
|
|
if ((d1<ds111)&&(d2>10*ds111)&&(dm>dswa500)||(d1<ds111)&&(d2>10*ds111)&&(dm>whou)) {
|
|
|
|
xdo1=x1; ydo1=y1;
|
|
xdo2=x2; ydo2=y2;
|
|
itdo=2;
|
|
|
|
ads_name_set(en,entch);
|
|
|
|
goto mbb1; }
|
|
|
|
|
|
if ((d1>10*ds111)&&(d2<ds111)&&(dm>dswa500)||(d1>10*ds111)&&(d2<ds111)&&(dm>whou)) {
|
|
|
|
xdo1=x2; ydo1=y2;
|
|
xdo2=x1; ydo2=y1;
|
|
|
|
itdo=2;
|
|
|
|
ads_name_set(en,entch);
|
|
|
|
goto mbb1; }
|
|
|
|
|
|
|
|
|
|
mbb1:i=i+1;
|
|
|
|
if (i<len) goto bbb;
|
|
|
|
ads_ssfree(ss1);
|
|
|
|
if (itdo==0) {
|
|
|
|
return; }
|
|
|
|
icdp3=0;
|
|
qmmm(itdo);
|
|
if (icdp3==1) goto sta0;
|
|
|
|
|
|
}
|
|
|
|
|
|
void qmmm(int itdo)
|
|
{
|
|
struct resbuf apps,*ebup,*rb;
|
|
ads_name ss1,en;
|
|
int typi,it;
|
|
Adesk::Int32 i,len;
|
|
|
|
ads_real x1,y1,x2,y2,dx,dy,d1,d2,gs1,gs2,gs3,dhh;
|
|
ads_real r41,r42,q1,bs,q,xjc1,yjc1,xjc2,yjc2;
|
|
|
|
ads_point p01,p02;
|
|
TCHAR txtdxf0[40]=_T(""),txtnam8[40]=_T(""),txtins[40]=_T(""),buf[40]=_T("");
|
|
ads_point p1,p2,p3,p4,pp;
|
|
|
|
p1[2]=0; p2[2]=0;
|
|
p3[2]=0; p4[2]=0;
|
|
|
|
// ads_printf(_T("mmmm"));
|
|
// xb1=xdo1; yb1=ydo1;
|
|
// xb2=xdo2; yb2=ydo2;
|
|
|
|
x1=xdo1; x2=xdo2;
|
|
if (x2<x1) { x1=xdo2; x2=xdo1;}
|
|
|
|
y1=ydo1; y2=ydo2;
|
|
if (y2<y1) { y1=ydo2; y2=ydo1; }
|
|
|
|
dx=100*ds111;
|
|
|
|
p01[0]=x1-dx; p01[1]=y1-dx; p01[2]=0;
|
|
p02[0]=x2+dx; p02[1]=y2+dx; p02[2]=0;
|
|
|
|
ul112l(p01[0],p01[1],p02[0],p02[1],0);
|
|
|
|
// 搜索门窗
|
|
//modified by whl on 060323
|
|
//RBList mask(RTDXF0, _T("INSERT"), 8, LAY_WIN, NULL);
|
|
XString sLayer;
|
|
sLayer<<_T("WINDOW,")<<LAY_WIN;
|
|
RBList mask(RTDXF0, _T("INSERT"), 8, (const TCHAR*)sLayer, NULL);
|
|
|
|
if (ads_ssget(_T("C"),p01,p02,mask,ss1)!=RTNORM)
|
|
return;
|
|
|
|
i=0;
|
|
if (ads_sslength(ss1,&len)==RTNORM) goto strbb;
|
|
return;
|
|
|
|
strbb:ads_ssname(ss1,i,en);
|
|
|
|
apps.restype=RTSTR;
|
|
_tcscpy(buf,_T("WTHICK"));
|
|
apps.resval.rstring=buf;
|
|
apps.rbnext=NULL;
|
|
ebup=ads_entgetx(en,&apps);
|
|
if (ebup==NULL) goto mbb1;
|
|
|
|
it=0; gs1=0; gs2=0; gs3=0;
|
|
|
|
for (rb=ebup;rb!=NULL;rb=rb->rbnext) {
|
|
typi=rb->restype;
|
|
|
|
if (typi==0) _tcscpy(txtdxf0,rb->resval.rstring);
|
|
if (typi==8) _tcscpy(txtnam8,rb->resval.rstring);
|
|
if (typi==2) _tcscpy(txtins,rb->resval.rstring);
|
|
if (typi==41) r41=rb->resval.rreal;
|
|
if (typi==42) r42=rb->resval.rreal;
|
|
if (typi==50) q1=rb->resval.rreal;
|
|
|
|
if (typi==10) {
|
|
x1=rb->resval.rpoint[0];
|
|
y1=rb->resval.rpoint[1]; }
|
|
|
|
if (typi==1040) {
|
|
it=it+1;
|
|
if (it==1) gs1=rb->resval.rreal;
|
|
if (it==2) gs2=rb->resval.rreal;
|
|
if (it==3) gs3=rb->resval.rreal;
|
|
}
|
|
}
|
|
|
|
ads_relrb(ebup);
|
|
ads_relrb(rb);
|
|
|
|
|
|
//if (_tcsicmp(txtnam8, LAY_WINDOW)==0) goto bbwa;
|
|
// goto mbb1;
|
|
|
|
//bbwa: if (_tcsicmp(txtdxf0, _T("INSERT"))==0) goto bbin;
|
|
// goto mbb1;
|
|
|
|
//bbin:
|
|
mank=0; inntm=0; manam=0;
|
|
|
|
// ads_printf(_T("\ngs1=%f,gs2=%f,gs3=%f"),gs1,gs2,gs3);
|
|
if (gs1<=0) gs1=400;
|
|
|
|
if (mank==0) tchmtxt(txtins);
|
|
|
|
bs=r41;
|
|
if (bs<0) bs=-bs;
|
|
mank=bs*mank;
|
|
|
|
if (mank>10*ds111) {
|
|
|
|
p3[0]=x1; p3[1]=y1; p3[2]=0;
|
|
|
|
qhcjc=q1*180/pi314;
|
|
if (r41<0) qhcjc=qhcjc+180;
|
|
|
|
q=(qhcjc+180)*pi314/180;
|
|
|
|
dx=ds111+mank/2;
|
|
|
|
p3[0]=x1+dx*cos(q);
|
|
p3[1]=y1+dx*sin(q);
|
|
p3[2]=0;
|
|
|
|
q=qhcjc*pi314/180;
|
|
p4[0]=x1+dx*cos(q);
|
|
p4[1]=y1+dx*sin(q);
|
|
p4[2]=0;
|
|
|
|
xdz1=p3[0]; ydz1=p3[1];
|
|
xdz2=p4[0]; ydz2=p4[1];
|
|
|
|
dx=mank/2;
|
|
x2=x1+dx*cos(q);
|
|
y2=y1+dx*sin(q);
|
|
|
|
q=(qhcjc+180)*pi314/180;
|
|
x1=x1+dx*cos(q);
|
|
y1=y1+dx*sin(q);
|
|
|
|
p1[0]=xdo1; p1[1]=ydo1; p1[2]=0;
|
|
p2[0]=xdo2; p2[1]=ydo2; p2[2]=0;
|
|
|
|
if (ads_inters(p1,p2,p3,p4,1,pp)==RTNORM) goto qjdmm;
|
|
goto mbb1;
|
|
|
|
qjdmm:dx=xdo1-xdo2; dy=ydo1-ydo2;
|
|
d1=sqrt(dx*dx+dy*dy);
|
|
|
|
dhh=d1;
|
|
if ((dhh>400)&&(dhh>whou)) dhh=whou;
|
|
|
|
dx=pp[0]-xka1; dy=pp[1]-yka1;
|
|
d1=sqrt(dx*dx+dy*dy);
|
|
if (d1>dhh) goto mbb1;
|
|
|
|
p1[0]=xka1; p1[1]=yka1;
|
|
p2[0]=xka2; p2[1]=yka2;
|
|
|
|
d1=800;
|
|
d2=1600;
|
|
|
|
qjadu(p1[0],p1[1],p2[0],p2[1]);
|
|
|
|
q=(qhcjc+90)*pi314/180;
|
|
p4[0]=x1+800*cos(q);
|
|
p4[1]=y1+800*sin(q);
|
|
|
|
q=(qhcjc-90)*pi314/180;
|
|
p3[0]=x1+800*cos(q);
|
|
p3[1]=y1+800*sin(q);
|
|
|
|
if (ads_inters(p1,p2,p3,p4,0,pp)==RTNORM) {
|
|
dx=pp[0]-x1; dy=pp[1]-y1;
|
|
d1=sqrt(dx*dx+dy*dy);
|
|
xjc1=pp[0]; yjc1=pp[1];
|
|
}
|
|
|
|
q=(qhcjc+90)*pi314/180;
|
|
p4[0]=x2+800*cos(q);
|
|
p4[1]=y2+800*sin(q);
|
|
q=(qhcjc-90)*pi314/180;
|
|
p3[0]=x2+800*cos(q);
|
|
p3[1]=y2+800*sin(q);
|
|
|
|
if (ads_inters(p1,p2,p3,p4,0,pp)==RTNORM) {
|
|
dx=pp[0]-x2; dy=pp[1]-y2;
|
|
d2=sqrt(dx*dx+dy*dy);
|
|
xjc2=pp[0]; yjc2=pp[1];
|
|
}
|
|
|
|
|
|
if ((d1<dhh)&&(d2<dhh)) {
|
|
|
|
dx=fabs(d1-d2);
|
|
if (dx>ds111) goto mbb1;
|
|
|
|
dx=xka1-x1; dy=yka1-y1;
|
|
d1=sqrt(dx*dx+dy*dy);
|
|
|
|
dx=xka1-x2; dy=yka1-y2;
|
|
d2=sqrt(dx*dx+dy*dy);
|
|
|
|
// ads_printf(_T("\nxjc1=%f,yjc1=%f,xjc2=%f,yjc2=%f"),xjc1,yjc1,xjc2,yjc2);
|
|
|
|
if (d2>d1) { xjc1=xjc2; yjc1=yjc2; }
|
|
|
|
q=(qhcjc-180)*pi314/180;
|
|
x1=xka1+80*cos(q); y1=yka1+80*sin(q);
|
|
|
|
q=qhcjc*pi314/180;
|
|
x2=xka1+80*cos(q); y2=yka1+80*sin(q);
|
|
|
|
dx=x1-xjc1; dy=y1-yjc1;
|
|
d1=sqrt(dx*dx+dy*dy);
|
|
|
|
dx=x2-xjc1; dy=y2-yjc1;
|
|
d2=sqrt(dx*dx+dy*dy);
|
|
|
|
if (d2<d1) goto mbb1;
|
|
|
|
xka1=xjc1; yka1=yjc1;
|
|
icdp3=1;
|
|
|
|
// if (itdo==1) ads_ssadd(entch,ensspp0,ensspp0);
|
|
|
|
if (itdo==2) {
|
|
qjadu(xdo1,ydo1,xdo2,ydo2);
|
|
q=qhcjc*pi314/180;
|
|
xdo2=xdo1+gs1*cos(q);
|
|
ydo2=ydo1+gs1*sin(q);
|
|
}
|
|
|
|
ads_ssfree(ss1);
|
|
|
|
ulmend2();
|
|
|
|
return;
|
|
}
|
|
}
|
|
|
|
mbb1:i=i+1;
|
|
|
|
if (i<len) goto strbb;
|
|
|
|
ads_ssfree(ss1);
|
|
|
|
}
|
|
|
|
void ulmend2(void)
|
|
{
|
|
struct resbuf *ebup,*rb;
|
|
ads_point p01,p02;
|
|
ads_name ss1,en;
|
|
|
|
int typi,img;
|
|
Adesk::Int32 i,len;
|
|
|
|
ads_real x1,y1,x2,y2,dx,dy,d1,d2,q1,dq,ds0;
|
|
|
|
TCHAR txtdxf0[40]=_T(""),txtnam8[40]=_T("");
|
|
ads_point p1,p2,p3,p4,pp;
|
|
|
|
p1[2]=0; p2[2]=0;
|
|
p3[2]=0; p4[2]=0;
|
|
|
|
// hlin(xka1,yka1,xka2,yka2,5);
|
|
// ads_getstring(5,NULL,txtdxf0);
|
|
|
|
img=0;
|
|
|
|
dx=xka1-xdz1; dy=yka1-ydz1;
|
|
d1=sqrt(dx*dx+dy*dy);
|
|
|
|
dx=xka1-xdz2; dy=yka1-ydz2;
|
|
d2=sqrt(dx*dx+dy*dy);
|
|
|
|
if (d1>d2) {
|
|
dx=xdz2; xdz2=xdz1; xdz1=dx;
|
|
dx=ydz2; ydz2=ydz1; ydz1=dx; }
|
|
|
|
dx=xdo1-xdo2; dy=ydo1-ydo2;
|
|
ds0=sqrt(dx*dx+dy*dy);
|
|
|
|
p01[0]=xdz1-10; p01[1]=ydz1-10; p01[2]=0;
|
|
p02[0]=xdz1+10; p02[1]=ydz1+10; p02[2]=0;
|
|
|
|
ul112l(p01[0],p01[1],p02[0],p02[1],ds111);
|
|
|
|
//modified by whl on 060323
|
|
//RBList mask(RTDXF0, _T("LINE"), 8, _T("WALL*"), NULL);
|
|
XString sLayer;
|
|
sLayer<<_T("WALL*,")<<LAY_WALL;
|
|
RBList mask(RTDXF0, _T("LINE"), 8,(const TCHAR*)sLayer, NULL);
|
|
|
|
if (ads_ssget(_T("C"),p01,p02,mask,ss1)!=RTNORM)
|
|
return;
|
|
|
|
|
|
i=0;
|
|
if (ads_sslength(ss1,&len)==RTNORM) goto bbb;
|
|
return;
|
|
|
|
bbb:ads_ssname(ss1,i,en);
|
|
ebup=ads_entget(en);
|
|
|
|
if (ebup==NULL) goto mbb1;
|
|
|
|
for (rb=ebup;rb!=NULL;rb=rb->rbnext) {
|
|
typi=rb->restype;
|
|
|
|
if (typi==0) _tcscpy(txtdxf0,rb->resval.rstring);
|
|
if (typi==8) _tcscpy(txtnam8,rb->resval.rstring);
|
|
|
|
if (typi==10) {
|
|
x1=rb->resval.rpoint[0];
|
|
y1=rb->resval.rpoint[1]; }
|
|
|
|
if (typi==11) {
|
|
x2=rb->resval.rpoint[0];
|
|
y2=rb->resval.rpoint[1]; }
|
|
}
|
|
|
|
ads_relrb(ebup);
|
|
ads_relrb(rb);
|
|
|
|
// 墙层
|
|
// if ((txtnam8[0]==_T('W'))&&(txtnam8[1]==_T('A'))&&(txtnam8[2]==_T('L'))&&(txtnam8[3]==_T('L'))) goto bbwa;
|
|
|
|
// goto mbb1;
|
|
|
|
//bbwa:
|
|
//if ((txtdxf0[0]==_T('L'))&&(txtdxf0[1]==_T('I'))&&(txtdxf0[2]==_T('N'))&&(txtdxf0[3]==_T('E'))) goto lin;
|
|
|
|
// goto mbb1;
|
|
|
|
//lin:
|
|
dx=x1-x2; dy=y1-y2;
|
|
d1=sqrt(dx*dx+dy*dy);
|
|
if (d1<ds111) goto mbb1;
|
|
|
|
dx=fabs(ds0-d1);
|
|
if (dx>0.5*ds0) goto mbb1;
|
|
|
|
dm=dx;
|
|
|
|
p1[0]=xdz1; p1[1]=ydz1;
|
|
p2[0]=xdz2; p2[1]=ydz2;
|
|
|
|
p3[0]=x1; p3[1]=y1;
|
|
p4[0]=x2; p4[1]=y2;
|
|
|
|
qjadu(p1[0],p1[1],p2[0],p2[1]);
|
|
q1=qhcjc;
|
|
|
|
qjadu(p3[0],p3[1],p4[0],p4[1]);
|
|
dq=q1-qhcjc;
|
|
if (dq<0) dq=-dq;
|
|
qq1:if (dq>269) { dq=dq-180; goto qq1; }
|
|
if ((dq<85)||(dq>95)) goto mbb1;
|
|
|
|
if (ads_inters(p1,p2,p3,p4,0,pp)==RTNORM) {
|
|
|
|
// hlin(x1,y1,x2,y2,7);
|
|
// hlin(xdo1,ydo1,xdo2,ydo2,5);
|
|
|
|
if (dm<ds111) {
|
|
|
|
dx=xka1-x1; dy=yka1-y1;
|
|
d1=sqrt(dx*dx+dy*dy);
|
|
|
|
dx=xka1-x2; dy=yka1-y2;
|
|
d2=sqrt(dx*dx+dy*dy);
|
|
|
|
if (d1>d2) {
|
|
dx=x2; x2=x1; x1=dx;
|
|
dx=y2; y2=y1; y1=dx; }
|
|
|
|
if (itmen==0) {
|
|
xmen1=x1; ymen1=x2;
|
|
xmen2=x2; ymen2=y2;
|
|
xmen0=xdo2; ymen0=ydo2;
|
|
itmen=1; }
|
|
|
|
img=1;
|
|
|
|
}
|
|
|
|
// ads_ssadd(en,ensspp0,ensspp0);
|
|
|
|
goto enss0; }
|
|
|
|
mbb1:i=i+1;
|
|
|
|
if (i<len) goto bbb;
|
|
|
|
enss0:ads_ssfree(ss1);
|
|
|
|
if (itmen==0) {
|
|
xmen1=xdo1; ymen1=xdo2;
|
|
xmen2=xdo2; ymen2=ydo2;
|
|
xmen0=xdo2; ymen0=ydo2;
|
|
itmen=1; }
|
|
|
|
if (img==0) ulmcdg();
|
|
|
|
|
|
}
|
|
|
|
|
|
void ulmcdg(void)
|
|
{
|
|
struct resbuf apps,*ebup,*rb;
|
|
ads_name ss1,en;
|
|
int typi,it,itn;
|
|
Adesk::Int32 i,len;
|
|
|
|
ads_real x1,y1,x2,y2,dx,dy,d1,d2,gs1,gs2,gs3,dhh;
|
|
ads_real r41,r42,q1,bs,q,xjc1,yjc1,xjc2,yjc2;
|
|
|
|
ads_real xm1,ym1,xm2,ym2,xd1,yd1,xd2,yd2;
|
|
|
|
|
|
ads_point p01,p02;
|
|
TCHAR txtdxf0[40]=_T(""),txtnam8[40]=_T(""),txtins[40]=_T(""),buf[40]=_T("");
|
|
ads_point p1,p2,p3,p4,pp;
|
|
|
|
p1[2]=0; p2[2]=0;
|
|
p3[2]=0; p4[2]=0;
|
|
|
|
// hlin(xka1,yka1,xka1+1000,yka1+1000,7);
|
|
// ads_getstring(5,NULL,txtdxf0);
|
|
//if (xka1!=1) return;
|
|
|
|
itn=0;
|
|
|
|
nn0:itn=itn+1;
|
|
if (itn>10) return;
|
|
|
|
qjadu(xka2,yka2,xka1,yka1);
|
|
q=(qhcjc+90)*pi314/180;
|
|
|
|
dx=dswa500;
|
|
if (dx<0.8*whou/2) dx=0.8*whou;
|
|
|
|
xm1=xka1+dx*cos(q);
|
|
ym1=yka1+dx*sin(q);
|
|
|
|
xm2=xka1-dx*cos(q);
|
|
ym2=yka1-dx*sin(q);
|
|
|
|
q=(qhcjc-180)*pi314/180;
|
|
dx=40;
|
|
xd1=xka1+dx*cos(q);
|
|
yd1=yka1+dx*sin(q);
|
|
|
|
q=qhcjc*pi314/180;
|
|
dx=40000.0;
|
|
xd2=xka1+dx*cos(q);
|
|
yd2=yka1+dx*sin(q);
|
|
|
|
x1=xka1; y1=yka1;
|
|
dx=180*ds111;
|
|
|
|
p01[0]=x1-dx; p01[1]=y1-dx; p01[2]=0;
|
|
p02[0]=x1+dx; p02[1]=y1+dx; p02[2]=0;
|
|
|
|
ul112l(p01[0],p01[1],p02[0],p02[1],0);
|
|
|
|
//modified by whl on 060323
|
|
//RBList mask(RTDXF0, _T("INSERT"), 8, LAY_WIN, NULL);
|
|
XString sLayer;
|
|
sLayer<<_T("WINDOW,")<<LAY_WIN;
|
|
RBList mask(RTDXF0, _T("INSERT"), 8, (const TCHAR*)sLayer, NULL);
|
|
|
|
if (ads_ssget(_T("C"),p01,p02,mask,ss1)!=RTNORM)
|
|
return;
|
|
|
|
i=0;
|
|
if (ads_sslength(ss1,&len)==RTNORM) goto strbb;
|
|
return;
|
|
|
|
strbb:ads_ssname(ss1,i,en);
|
|
|
|
apps.restype=RTSTR;
|
|
_tcscpy(buf,_T("WTHICK"));
|
|
apps.resval.rstring=buf;
|
|
apps.rbnext=NULL;
|
|
ebup=ads_entgetx(en,&apps);
|
|
if (ebup==NULL) goto mbb1;
|
|
|
|
it=0; gs1=0; gs2=0; gs3=0;
|
|
|
|
for (rb=ebup;rb!=NULL;rb=rb->rbnext) {
|
|
typi=rb->restype;
|
|
|
|
if (typi==0) _tcscpy(txtdxf0,rb->resval.rstring);
|
|
if (typi==8) _tcscpy(txtnam8,rb->resval.rstring);
|
|
if (typi==2) _tcscpy(txtins,rb->resval.rstring);
|
|
if (typi==41) r41=rb->resval.rreal;
|
|
if (typi==42) r42=rb->resval.rreal;
|
|
if (typi==50) q1=rb->resval.rreal;
|
|
|
|
if (typi==10) {
|
|
x1=rb->resval.rpoint[0];
|
|
y1=rb->resval.rpoint[1]; }
|
|
|
|
if (typi==1040) {
|
|
it=it+1;
|
|
if (it==1) gs1=rb->resval.rreal;
|
|
if (it==2) gs2=rb->resval.rreal;
|
|
if (it==3) gs3=rb->resval.rreal;
|
|
}
|
|
}
|
|
|
|
ads_relrb(ebup);
|
|
ads_relrb(rb);
|
|
|
|
|
|
//if ((txtnam8[0]==_T('W'))&&(txtnam8[1]==_T('I'))&&(txtnam8[2]==_T('N'))&&(txtnam8[3]==_T('D'))&&(txtnam8[4]==_T('O'))&&(txtnam8[5]==_T('W'))) goto bbwa;
|
|
// goto mbb1;
|
|
|
|
//bbwa: if ((txtdxf0[0]==_T('I'))&&(txtdxf0[1]==_T('N'))&&(txtdxf0[2]==_T('S'))&&(txtdxf0[3]==_T('E'))&&(txtdxf0[4]==_T('R'))&&(txtdxf0[5]==_T('T'))) goto bbin;
|
|
// goto mbb1;
|
|
|
|
//bbin:
|
|
mank=0; inntm=0; manam=0;
|
|
|
|
// ads_printf(_T("\ngs1=%f,gs2=%f,gs3=%f"),gs1,gs2,gs3);
|
|
if (gs1<=0) gs1=400;
|
|
|
|
|
|
|
|
if (mank==0) tchmtxt(txtins);
|
|
|
|
bs=r41;
|
|
if (bs<0) bs=-bs;
|
|
mank=bs*mank;
|
|
|
|
if (mank>10*ds111) {
|
|
|
|
p3[0]=x1; p3[1]=y1; p3[2]=0;
|
|
|
|
qhcjc=q1*180/pi314;
|
|
if (r41<0) qhcjc=qhcjc+180;
|
|
|
|
q=(qhcjc+180)*pi314/180;
|
|
|
|
dx=20*ds111+mank/2;
|
|
|
|
p3[0]=x1+dx*cos(q);
|
|
p3[1]=y1+dx*sin(q);
|
|
p3[2]=0;
|
|
|
|
q=qhcjc*pi314/180;
|
|
p4[0]=x1+dx*cos(q);
|
|
p4[1]=y1+dx*sin(q);
|
|
p4[2]=0;
|
|
|
|
// xdz1=p3[0]; ydz1=p3[1];
|
|
// xdz2=p4[0]; ydz2=p4[1];
|
|
|
|
dx=mank/2;
|
|
x2=x1+dx*cos(q);
|
|
y2=y1+dx*sin(q);
|
|
|
|
q=(qhcjc+180)*pi314/180;
|
|
x1=x1+dx*cos(q);
|
|
y1=y1+dx*sin(q);
|
|
|
|
p1[0]=xm1; p1[1]=ym1; p1[2]=0;
|
|
p2[0]=xm2; p2[1]=ym2; p2[2]=0;
|
|
|
|
if (ads_inters(p1,p2,p3,p4,1,pp)==RTNORM) goto qjdmm;
|
|
goto mbb1;
|
|
|
|
qjdmm:p1[0]=xd1; p1[1]=yd1;
|
|
p2[0]=xd2; p2[1]=yd2;
|
|
|
|
d1=800;
|
|
d2=1600;
|
|
|
|
qjadu(p1[0],p1[1],p2[0],p2[1]);
|
|
|
|
q=(qhcjc+90)*pi314/180;
|
|
p4[0]=x1+800*cos(q);
|
|
p4[1]=y1+800*sin(q);
|
|
|
|
q=(qhcjc-90)*pi314/180;
|
|
p3[0]=x1+800*cos(q);
|
|
p3[1]=y1+800*sin(q);
|
|
|
|
if (ads_inters(p1,p2,p3,p4,1,pp)==RTNORM) {
|
|
dx=pp[0]-x1; dy=pp[1]-y1;
|
|
d1=sqrt(dx*dx+dy*dy);
|
|
xjc1=pp[0]; yjc1=pp[1];
|
|
goto mm2;
|
|
}
|
|
|
|
goto mbb1;
|
|
|
|
mm2: q=(qhcjc+90)*pi314/180;
|
|
p4[0]=x2+800*cos(q);
|
|
p4[1]=y2+800*sin(q);
|
|
q=(qhcjc-90)*pi314/180;
|
|
p3[0]=x2+800*cos(q);
|
|
p3[1]=y2+800*sin(q);
|
|
|
|
if (ads_inters(p1,p2,p3,p4,1,pp)==RTNORM) {
|
|
dx=pp[0]-x2; dy=pp[1]-y2;
|
|
d2=sqrt(dx*dx+dy*dy);
|
|
xjc2=pp[0]; yjc2=pp[1];
|
|
goto mm3;
|
|
}
|
|
|
|
goto mbb1;
|
|
|
|
mm3:dhh=dswa500;
|
|
if (dhh<0.8*whou) dhh=0.8*whou;
|
|
|
|
if ((d1<dhh)&&(d2<dhh)) {
|
|
|
|
dx=fabs(d1-d2);
|
|
if (dx>ds111) goto mbb1;
|
|
|
|
dx=xka1-x1; dy=yka1-y1;
|
|
d1=sqrt(dx*dx+dy*dy);
|
|
|
|
dx=xka1-x2; dy=yka1-y2;
|
|
d2=sqrt(dx*dx+dy*dy);
|
|
|
|
// ads_printf(_T("\nxjc1=%f,yjc1=%f,xjc2=%f,yjc2=%f"),xjc1,yjc1,xjc2,yjc2);
|
|
|
|
if (d2>d1) { xjc1=xjc2; yjc1=yjc2; }
|
|
|
|
xka1=xjc1; yka1=yjc1;
|
|
|
|
icdp3=1;
|
|
|
|
// hlin(xd1,yd1,xd2,yd2,7);
|
|
// hlin(xka1,yka1,xka2,yka2,2);
|
|
// ads_getstring(5,NULL,txtdxf0);
|
|
|
|
ads_ssfree(ss1);
|
|
goto nn0;
|
|
|
|
}
|
|
}
|
|
|
|
mbb1:i=i+1;
|
|
|
|
if (i<len) goto strbb;
|
|
|
|
ads_ssfree(ss1);
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
void tchmtxt(TCHAR txtins[40])
|
|
{
|
|
// Zyu modify on 100722，支持64位
|
|
//int j,i,ii;
|
|
INT_PTR j,i,ii;
|
|
ads_real mk[14][2];
|
|
|
|
for (i=1;i<12;i++) mk[i][1]=0;
|
|
|
|
ii=0; manam=0;
|
|
j=_tcslen(txtins);
|
|
if (j<1) goto end;
|
|
|
|
mk[1][1]=1; mk[2][1]=1; ii=3; manam=1;
|
|
/*
|
|
if ((j>=4)&&(txtins[0]==_T('_'))&&(txtins[1]==_T('D'))&&(txtins[2]==_T('B'))&&(txtins[3]==_T('L'))&&(txtins[4]==_T('K'))) {
|
|
mk[1][1]=1; mk[2][1]=1; ii=3; manam=1; }
|
|
|
|
if ((j>=4)&&(txtins[0]==_T('_'))&&(txtins[1]==_T('W'))&&(txtins[2]==_T('B'))&&(txtins[3]==_T('L'))&&(txtins[4]==_T('K'))) {
|
|
mk[1][1]=1; mk[2][1]=1; ii=3; manam=1; }
|
|
|
|
if ((j>=4)&&(txtins[0]==_T('_'))&&(txtins[1]==_T('G'))&&(txtins[2]==_T('C'))&&(txtins[3]==_T('B'))&&(txtins[4]==_T('L'))&&(txtins[5]==_T('K'))) {
|
|
mk[1][1]=1; mk[2][1]=1; ii=3; manam=1; }
|
|
|
|
if ((j>=3)&&(txtins[0]==_T('M'))&&(txtins[1]==_T('_'))) {
|
|
mk[1][1]=1; mk[2][1]=1; ii=3; manam=1; }
|
|
*/
|
|
end:mank=mk[2][1];
|
|
|
|
}
|
|
|
|
|
|
void ulin2(ads_real xmen2,ads_real ymen2)
|
|
{
|
|
struct resbuf *ebup,*rb;
|
|
ads_point p01,p02;
|
|
ads_name ss1,en;
|
|
|
|
int typi;
|
|
Adesk::Int32 i,len;
|
|
|
|
ads_real x1,y1,x2,y2,dx,dy,d1,q1,dq;
|
|
TCHAR txtdxf0[40]=_T(""),txtnam8[40]=_T("");
|
|
|
|
p01[0]=xmen2-10; p01[1]=ymen2-10; p01[2]=0;
|
|
p02[0]=xmen2+10; p02[1]=ymen2+10; p02[2]=0;
|
|
|
|
ul112l(p01[0],p01[1],p02[0],p02[1],ds111);
|
|
|
|
//modified by whl on 060323
|
|
//RBList mask(RTDXF0, _T("LINE"), 8, _T("WALL*"), NULL);
|
|
XString sLayer;
|
|
sLayer<<_T("WALL*,")<<LAY_WALL;
|
|
RBList mask(RTDXF0, _T("LINE"), 8, (const TCHAR*)sLayer, NULL);
|
|
|
|
if (ads_ssget(_T("C"),p01,p02,mask,ss1)!=RTNORM)
|
|
return;
|
|
|
|
i=0;
|
|
if (ads_sslength(ss1,&len)==RTNORM) goto bbb;
|
|
return;
|
|
|
|
bbb:ads_ssname(ss1,i,en);
|
|
ebup=ads_entget(en);
|
|
|
|
if (ebup==NULL) goto mbb1;
|
|
|
|
for (rb=ebup;rb!=NULL;rb=rb->rbnext) {
|
|
typi=rb->restype;
|
|
|
|
if (typi==0) _tcscpy(txtdxf0,rb->resval.rstring);
|
|
if (typi==8) _tcscpy(txtnam8,rb->resval.rstring);
|
|
|
|
if (typi==10) {
|
|
x1=rb->resval.rpoint[0];
|
|
y1=rb->resval.rpoint[1]; }
|
|
|
|
if (typi==11) {
|
|
x2=rb->resval.rpoint[0];
|
|
y2=rb->resval.rpoint[1]; }
|
|
}
|
|
ads_relrb(ebup);
|
|
ads_relrb(rb);
|
|
|
|
// if ((txtnam8[0]==_T('W'))&&(txtnam8[1]==_T('A'))&&(txtnam8[2]==_T('L'))&&(txtnam8[3]==_T('L'))) goto bbwa;
|
|
|
|
// goto mbb1;
|
|
|
|
//bbwa:if ((txtdxf0[0]==_T('L'))&&(txtdxf0[1]==_T('I'))&&(txtdxf0[2]==_T('N'))&&(txtdxf0[3]==_T('E'))) goto lin;
|
|
|
|
// goto mbb1;
|
|
|
|
|
|
|
|
//lin:
|
|
dx=x1-x2; dy=y1-y2;
|
|
d1=sqrt(dx*dx+dy*dy);
|
|
if (d1<ds111) goto mbb1;
|
|
|
|
qjadu(xka1,yka1,xka2,yka2);
|
|
q1=qhcjc;
|
|
qjadu(x1,y1,x2,y2);
|
|
dq=q1-qhcjc;
|
|
if (dq<0) dq=-dq;
|
|
qq1:if (dq>179) { dq=dq-180; goto qq1; }
|
|
|
|
if (dq<1) {
|
|
itmen=2;
|
|
xka1=x1;
|
|
yka1=y1;
|
|
xka2=x2;
|
|
yka2=y2;
|
|
ads_ssadd(en,ensspp0,ensspp0);
|
|
|
|
goto enss0;
|
|
}
|
|
|
|
mbb1:i=i+1;
|
|
|
|
if (i<len) goto bbb;
|
|
|
|
enss0:ads_ssfree(ss1);
|
|
|
|
}
|
|
|
|
|
|
void ulin3(void)
|
|
{ int i,id;
|
|
ads_real q,dx,dy,d1;
|
|
ads_real dd3[5][3];
|
|
|
|
dx=xka1-xka2;
|
|
dy=yka1-yka2;
|
|
d1=sqrt(dx*dx+dy*dy);
|
|
|
|
qjadu(xka1,yka1,xka2,yka2);
|
|
|
|
dd3[1][1]=(xka1+xka2)/2;
|
|
dd3[1][2]=(yka1+yka2)/2;
|
|
|
|
// id=2;
|
|
// if ((d1<1000)||(d1<2*whou)) goto aa0;
|
|
|
|
q=qhcjc*pi314/180;
|
|
dd3[2][1]=xka1+d1*cos(q)/4;
|
|
dd3[2][2]=yka1+d1*sin(q)/4;
|
|
|
|
dd3[3][1]=xka1+3*d1*cos(q)/4;
|
|
dd3[3][2]=yka1+3*d1*sin(q)/4;
|
|
|
|
id=4;
|
|
|
|
i=1;
|
|
aa1:ulin3a(dd3[i][1],dd3[i][2]);
|
|
|
|
if (itmen==3) return;
|
|
|
|
i=i+1;
|
|
if (i<id) goto aa1;
|
|
|
|
}
|
|
|
|
|
|
void ulin3dl(void)
|
|
{ int i,id;
|
|
ads_real q,dx,dy,d1;
|
|
ads_real dd3[7][3];
|
|
|
|
dx=xka1-xka2;
|
|
dy=yka1-yka2;
|
|
d1=sqrt(dx*dx+dy*dy);
|
|
|
|
qjadu(xka1,yka1,xka2,yka2);
|
|
|
|
dd3[1][1]=(xka1+xka2)/2;
|
|
dd3[1][2]=(yka1+yka2)/2;
|
|
|
|
id=2;
|
|
|
|
if ((d1<1000)||(d1<2*whou)) goto aa0;
|
|
|
|
q=qhcjc*pi314/180;
|
|
dd3[2][1]=xka1+d1*cos(q)/4;
|
|
dd3[2][2]=yka1+d1*sin(q)/4;
|
|
dd3[3][1]=xka1+3*d1*cos(q)/4;
|
|
dd3[3][2]=yka1+3*d1*sin(q)/4;
|
|
|
|
// dx=20;
|
|
// dd3[4][1]=xka1+dx*cos(q);
|
|
// dd3[4][2]=yka1+dx*sin(q);
|
|
|
|
// dd3[5][1]=xka1+(d1-dx)*cos(q);
|
|
// dd3[5][2]=yka1+(d1-dx)*sin(q);
|
|
|
|
id=4;
|
|
|
|
aa0: i=1;
|
|
aa1:ulin3a(dd3[i][1],dd3[i][2]);
|
|
|
|
if (itmen==3) return;
|
|
|
|
i=i+1;
|
|
if (i<id) goto aa1;
|
|
|
|
// i=1;
|
|
// ulin3adl(dd3[i][1],dd3[i][2]);
|
|
|
|
}
|
|
|
|
|
|
|
|
void ulin3a(ads_real x0,ads_real y0)
|
|
{
|
|
struct resbuf *ebup,*rb;
|
|
ads_name ss1,en,en3,en1;
|
|
int typi;
|
|
Adesk::Int32 i,len;
|
|
|
|
TCHAR txtdxf0[40]=_T(""),txtnam8[40]=_T("");
|
|
ads_real q0,q,dx,dy,d1,x1,y1,x2,y2,dq;
|
|
|
|
ads_real ds1,ds2;
|
|
ads_real x11,y11,x12,y12,x21,y21,x22,y22;
|
|
|
|
ads_real ds3,ds4;
|
|
ads_real x31,y31,x32,y32,x41,y41,x42,y42;
|
|
|
|
ads_point p1,p2,p3,p4,pp;
|
|
ads_point p01,p02;
|
|
|
|
p1[2]=0; p2[2]=0;
|
|
p3[2]=0; p4[2]=0;
|
|
|
|
x11=0; y11=0;
|
|
x12=0; y12=0;
|
|
|
|
x31=0; y31=0;
|
|
x32=0; y32=0;
|
|
|
|
qjadu(xka1,yka1,xka2,yka2);
|
|
q0=qhcjc;
|
|
|
|
q=(qhcjc+90)*pi314/180;
|
|
|
|
dx=2000;
|
|
ds1=2000;
|
|
ds2=2000;
|
|
|
|
p1[0]=x0; p1[1]=y0;
|
|
p2[0]=x0+dx*cos(q); p2[1]=y0+dx*sin(q);
|
|
|
|
p01[0]=p1[0]; p01[1]=p1[1]; p01[2]=0;
|
|
p02[0]=p2[0]; p02[1]=p2[1]; p02[2]=0;
|
|
|
|
ul112l(p1[0],p1[1],p2[0],p2[1],ds111);
|
|
|
|
//modified by whl on 060323
|
|
//RBList mask(RTDXF0, _T("LINE"), 8, _T("WALL*"), NULL);
|
|
XString sLayer;
|
|
sLayer<<_T("WALL*,")<<LAY_WALL;
|
|
RBList mask(RTDXF0, _T("LINE"), 8, (const TCHAR*)sLayer, NULL);
|
|
|
|
if (ads_ssget(_T("C"),p01,p02,mask,ss1)!=RTNORM)
|
|
return;
|
|
|
|
i=0;
|
|
if (ads_sslength(ss1,&len)==RTNORM) goto bbb;
|
|
return;
|
|
|
|
bbb:ads_ssname(ss1,i,en);
|
|
ebup=ads_entget(en);
|
|
|
|
if (ebup==NULL) goto bb1;
|
|
|
|
for (rb=ebup;rb!=NULL;rb=rb->rbnext) {
|
|
typi=rb->restype;
|
|
|
|
if (typi==0) _tcscpy(txtdxf0,rb->resval.rstring);
|
|
if (typi==8) _tcscpy(txtnam8,rb->resval.rstring);
|
|
|
|
if (typi==10) {
|
|
x1=rb->resval.rpoint[0];
|
|
y1=rb->resval.rpoint[1]; }
|
|
if (typi==11) {
|
|
x2=rb->resval.rpoint[0];
|
|
y2=rb->resval.rpoint[1]; }
|
|
}
|
|
ads_relrb(ebup);
|
|
ads_relrb(rb);
|
|
|
|
//if ((txtnam8[0]==_T('W'))&&(txtnam8[1]==_T('A'))&&(txtnam8[2]==_T('L'))&&(txtnam8[3]==_T('L'))) goto bbwa;
|
|
|
|
// goto bb1;
|
|
|
|
//bbwa:if ((txtdxf0[0]==_T('L'))&&(txtdxf0[1]==_T('I'))&&(txtdxf0[2]==_T('N'))&&(txtdxf0[3]==_T('E'))) goto lin;
|
|
|
|
// goto bb1;
|
|
|
|
//lin:
|
|
dx=x1-x2; dy=y1-y2;
|
|
d1=sqrt(dx*dx+dy*dy);
|
|
if (d1<ds111) goto bb1;
|
|
|
|
qjadu(x1,y1,x2,y2);
|
|
dq=q0-qhcjc;
|
|
if (dq<0) dq=-dq;
|
|
qq1:if (dq>179) { dq=dq-180; goto qq1; }
|
|
if (dq>1) goto bb1;
|
|
|
|
p3[0]=x1; p3[1]=y1;
|
|
p4[0]=x2; p4[1]=y2;
|
|
|
|
if (ads_inters(p1,p2,p3,p4,1,pp)==RTNORM) goto lin2;
|
|
goto bb1;
|
|
|
|
lin2:dx=pp[0]-x0; dy=pp[1]-y0;
|
|
d1=sqrt(dx*dx+dy*dy);
|
|
if (d1<ds111) goto bb1;
|
|
|
|
if (d1<ds1) {
|
|
|
|
if (fabs(ds1-2000)>1.0E-6) {
|
|
ds2=ds1;
|
|
x21=x11; y21=y11;
|
|
x22=x12; y22=y12;
|
|
}
|
|
|
|
ds1=d1;
|
|
x11=x1; y11=y1;
|
|
x12=x2; y12=y2;
|
|
ads_name_set(en,en1);
|
|
|
|
goto bb1;
|
|
}
|
|
|
|
if (d1<ds2) {
|
|
ds2=d1;
|
|
x21=x1; y21=y1;
|
|
x22=x2; y22=y2;
|
|
}
|
|
|
|
bb1:i=i+1;
|
|
if (i<len) goto bbb;
|
|
|
|
ads_ssfree(ss1);
|
|
|
|
|
|
q=(q0-90)*pi314/180;
|
|
|
|
dx=2000;
|
|
ds3=2000;
|
|
ds4=2000;
|
|
|
|
p1[0]=x0; p1[1]=y0;
|
|
p2[0]=x0+dx*cos(q); p2[1]=y0+dx*sin(q);
|
|
|
|
p01[0]=p1[0]; p01[1]=p1[1]; p01[2]=0;
|
|
p02[0]=p2[0]; p02[1]=p2[1]; p02[2]=0;
|
|
|
|
ul112l(p1[0],p1[1],p2[0],p2[1],ds111);
|
|
|
|
if (ads_ssget(_T("C"),p01,p02,mask,ss1)!=RTNORM)
|
|
return;
|
|
|
|
i=0;
|
|
if (ads_sslength(ss1,&len)==RTNORM) goto ccc;
|
|
return;
|
|
|
|
ccc:ads_ssname(ss1,i,en);
|
|
ebup=ads_entget(en);
|
|
|
|
if (ebup==NULL) goto cc1;
|
|
|
|
for (rb=ebup;rb!=NULL;rb=rb->rbnext) {
|
|
typi=rb->restype;
|
|
|
|
if (typi==0) _tcscpy(txtdxf0,rb->resval.rstring);
|
|
if (typi==8) _tcscpy(txtnam8,rb->resval.rstring);
|
|
|
|
if (typi==10) {
|
|
x1=rb->resval.rpoint[0];
|
|
y1=rb->resval.rpoint[1]; }
|
|
if (typi==11) {
|
|
x2=rb->resval.rpoint[0];
|
|
y2=rb->resval.rpoint[1]; }
|
|
}
|
|
ads_relrb(ebup);
|
|
ads_relrb(rb);
|
|
|
|
// if ((txtnam8[0]==_T('W'))&&(txtnam8[1]==_T('A'))&&(txtnam8[2]==_T('L'))&&(txtnam8[3]==_T('L'))) goto ccwa;
|
|
|
|
// goto cc1;
|
|
|
|
//ccwa:if ((txtdxf0[0]==_T('L'))&&(txtdxf0[1]==_T('I'))&&(txtdxf0[2]==_T('N'))&&(txtdxf0[3]==_T('E'))) goto cclin;
|
|
|
|
// goto cc1;
|
|
|
|
//cclin:
|
|
dx=x1-x2; dy=y1-y2;
|
|
d1=sqrt(dx*dx+dy*dy);
|
|
if (d1<ds111) goto cc1;
|
|
|
|
qjadu(x1,y1,x2,y2);
|
|
dq=q0-qhcjc;
|
|
if (dq<0) dq=-dq;
|
|
ccqq1:if (dq>179) { dq=dq-180; goto ccqq1; }
|
|
if (dq>1) goto cc1;
|
|
|
|
p3[0]=x1; p3[1]=y1;
|
|
p4[0]=x2; p4[1]=y2;
|
|
|
|
if (ads_inters(p1,p2,p3,p4,1,pp)==RTNORM) goto cclin2;
|
|
goto cc1;
|
|
|
|
cclin2:dx=pp[0]-x0; dy=pp[1]-y0;
|
|
d1=sqrt(dx*dx+dy*dy);
|
|
if (d1<ds111) goto cc1;
|
|
|
|
if (d1<ds3) {
|
|
|
|
if (fabs(ds3-2000)>1.0E-6) {
|
|
ds4=ds3;
|
|
x41=x31; y41=y31;
|
|
x42=x32; y42=y32;
|
|
}
|
|
|
|
ds3=d1;
|
|
x31=x1; y31=y1;
|
|
x32=x2; y32=y2;
|
|
|
|
ads_name_set(en,en3);
|
|
goto cc1;
|
|
}
|
|
|
|
if (d1<ds4) {
|
|
ds4=d1;
|
|
x41=x1; y41=y1;
|
|
x42=x2; y42=y2;
|
|
}
|
|
|
|
cc1:i=i+1;
|
|
if (i<len) goto ccc;
|
|
|
|
ads_ssfree(ss1);
|
|
|
|
// ads_printf(_T("\nds1=%f,ds2=%f,ds3=%f,ds4=%f"),ds1,ds2,ds3,ds4);
|
|
// ads_printf(_T("\nxka1=%f,yka1=%f,xka2=%f,yka2=%f"),xka1,yka1,xka2,yka2);
|
|
|
|
if ((fabs(ds3-2000)<1.0E-6)&&(ds1<dswa500)||(fabs(ds3-2000)<1.0E-6)&&(ds1<=whou)) goto d11;
|
|
if ((fabs(ds1-2000)<1.0E-6)&&(ds3<dswa500)||(fabs(ds1-2000)<1.0E-6)&&(ds3<=whou)) goto d33;
|
|
|
|
|
|
if ((ds1<dswa500)&&(ds3<dswa500)||(ds1<=whou)&&(ds3<=whou)) {
|
|
|
|
if ((fabs(ds2-2000)<1.0E-6)&&(fabs(ds4-2000)<1.0E-6)||(ds2<2000)&&(ds4<2000)) {
|
|
if (ds1<=ds3) goto d11;
|
|
goto d33;
|
|
}
|
|
|
|
if ((fabs(ds2-2000)<1.0E-6)) goto d11;
|
|
if ((fabs(ds4-2000)<1.0E-6)) goto d33;
|
|
}
|
|
|
|
|
|
|
|
if ((ds1<dswa500)&&(ds1<ds3)||(ds1<=whou)&&(ds1<ds3)) goto d11;
|
|
if ((ds3<dswa500)&&(ds3<ds1)||(ds3<=whou)&&(ds3<ds1)) goto d33;
|
|
|
|
return;
|
|
|
|
d11:xka1=x11; yka1=y11;
|
|
xka2=x12; yka2=y12;
|
|
itmen=3;
|
|
ads_ssadd(en1,ensspp0,ensspp0);
|
|
return;
|
|
|
|
d33:xka1=x31; yka1=y31;
|
|
xka2=x32; yka2=y32;
|
|
itmen=3;
|
|
ads_ssadd(en3,ensspp0,ensspp0);
|
|
return;
|
|
}
|
|
|
|
|
|
|
|
void ulin0(void)
|
|
{
|
|
// int i;
|
|
ads_real ds,x1,y1,x2,y2,dx,dy,d1,d2,x0,y0,q;
|
|
// TCHAR zf[40];
|
|
|
|
ads_ssadd(NULL,NULL,ensspp0);
|
|
|
|
ads_ssadd(entch,ensspp0,ensspp0);
|
|
|
|
itmen=0;
|
|
|
|
strlin();
|
|
|
|
ds=xka2; xka2=xka1; xka1=ds;
|
|
ds=yka2; yka2=yka1; yka1=ds;
|
|
|
|
strlin();
|
|
|
|
x1=xka1; y1=yka1;
|
|
x2=xka2; y2=yka2;
|
|
|
|
// if (ientd==1) ads_printf(_T("\n itmen=%d"),itmen);
|
|
|
|
if (itmen==1) {
|
|
|
|
ulin2(xmen2,ymen2);
|
|
|
|
if (itmen==1) ulin2(xmen0,ymen0);
|
|
|
|
|
|
if (itmen==2) {
|
|
|
|
strlin();
|
|
|
|
ds=xka2; xka2=xka1; xka1=ds;
|
|
ds=yka2; yka2=yka1; yka1=ds;
|
|
|
|
strlin();
|
|
|
|
// hlin(x1,y1,x2,y2,7);
|
|
// hlin(xka1,yka1,xka2,yka2,7);
|
|
// ads_getstring(5,NULL,zf);
|
|
|
|
goto ssd0;
|
|
}
|
|
|
|
goto ssd;
|
|
|
|
}
|
|
|
|
if (itmen==0) {
|
|
|
|
// hlin(x1,y1,x2,y2,2);
|
|
// TCHAR zf[40];
|
|
// ads_getstring(5,NULL,zf);
|
|
// ads_printf(_T("\nulin3 itmen=%d"),itmen);
|
|
|
|
ulin3();
|
|
|
|
if (itmen==3) {
|
|
|
|
strlin();
|
|
ds=xka2; xka2=xka1; xka1=ds;
|
|
ds=yka2; yka2=yka1; yka1=ds;
|
|
strlin();
|
|
|
|
// hlin(x1,y1,x2,y2,2);
|
|
// hlin(xka1,yka1,xka2,yka2,3);
|
|
// TCHAR zf[40];
|
|
// ads_getstring(5,NULL,zf);
|
|
|
|
goto ssd0;
|
|
}
|
|
|
|
goto ssd;
|
|
}
|
|
|
|
goto ssd;
|
|
|
|
ssd0:qjadu(x1,y1,x2,y2);
|
|
|
|
dx=800000000.0;
|
|
q=(qhcjc-180)*pi314/180;
|
|
x0=x1+dx*cos(q);
|
|
y0=y1+dx*sin(q);
|
|
|
|
dx=x0-xka1; dy=y0-yka1;
|
|
d1=sqrt(dx*dx+dy*dy);
|
|
|
|
dx=x0-xka2; dy=y0-yka2;
|
|
d2=sqrt(dx*dx+dy*dy);
|
|
|
|
if (d1>d2) {
|
|
ds=xka2; xka2=xka1; xka1=ds;
|
|
ds=yka2; yka2=yka1; yka1=ds;
|
|
}
|
|
|
|
arry[1][1]=x1; arry[1][2]=y1;
|
|
arry[1][3]=x2; arry[1][4]=y2;
|
|
arry[1][5]=0; arry[1][6]=0;
|
|
|
|
arry[2][1]=xka1; arry[2][2]=yka1;
|
|
arry[2][3]=xka2; arry[2][4]=yka2;
|
|
arry[2][5]=0; arry[2][6]=0;
|
|
|
|
iarry=3;
|
|
|
|
//ads_printf(_T("\narry[1][1]=%f,arry[1][2]=%f,arry[1][3]=%f,arry[1][4]=%f"),arry[1][1],arry[1][2],arry[1][3],arry[1][4]);
|
|
//ads_printf(_T("\narry[2][1]=%f,arry[2][2]=%f,arry[2][3]=%f,arry[2][4]=%f"),arry[2][1],arry[2][2],arry[2][3],arry[2][4]);
|
|
|
|
ulin4();
|
|
|
|
icolo=icolo+1;
|
|
|
|
// if (ientd==1) {
|
|
// for (i=1;i<iarry;i++) {
|
|
// if (i==1) hlin(arry[i][1],arry[i][2],arry[i][3],arry[i][4],2);
|
|
// if (i>1) hlin(arry[i][1],arry[i][2],arry[i][3],arry[i][4],7);
|
|
// ads_printf(_T("\ni=%d,arry[i][1]=%f,%f,%f,%f"),i,arry[i][1],arry[i][2],arry[i][3],arry[i][4]);
|
|
// ads_getstring(5,NULL,zf); }
|
|
// }
|
|
// 绘 TDOTE 线
|
|
|
|
ulin5();
|
|
|
|
// 将以转换的墙端点选上 ensspp0
|
|
|
|
ulin6dd();
|
|
|
|
if (ientd==0) addentd();
|
|
|
|
ssd:ssdelenpp0();
|
|
|
|
ads_ssfree(ensspp0);
|
|
|
|
}
|
|
|
|
|
|
void ulin0dda(void)
|
|
{
|
|
// int i;
|
|
ads_real ds,x1,y1,x2,y2,dx,dy,d1,d2,x0,y0,q;
|
|
// TCHAR zf[40];
|
|
|
|
ads_ssadd(NULL,NULL,ensspp0);
|
|
|
|
// ads_ssadd(entch,ensspp0,ensspp0);
|
|
// itmen=0;
|
|
// strlin();
|
|
// ds=xka2; xka2=xka1; xka1=ds;
|
|
// ds=yka2; yka2=yka1; yka1=ds;
|
|
// strlin();
|
|
|
|
x1=xka1; y1=yka1;
|
|
x2=xka2; y2=yka2;
|
|
|
|
// if (ientd==1) ads_printf(_T("\n itmen=%d"),itmen);
|
|
|
|
itmen=0;
|
|
|
|
ulin3dl();
|
|
|
|
//ads_printf(_T("\nulin3 itmen=%d"),itmen);
|
|
|
|
if (itmen==3) {
|
|
|
|
strlin();
|
|
ds=xka2; xka2=xka1; xka1=ds;
|
|
ds=yka2; yka2=yka1; yka1=ds;
|
|
strlin();
|
|
|
|
// hlin(x1,y1,x2,y2,2);
|
|
// hlin(xka1,yka1,xka2,yka2,2);
|
|
// ads_getstring(5,NULL,zf);
|
|
goto ssd0;
|
|
}
|
|
|
|
|
|
goto ssd;
|
|
|
|
ssd0:qjadu(x1,y1,x2,y2);
|
|
|
|
dx=800000000.0;
|
|
q=(qhcjc-180)*pi314/180;
|
|
x0=x1+dx*cos(q);
|
|
y0=y1+dx*sin(q);
|
|
|
|
dx=x0-xka1; dy=y0-yka1;
|
|
d1=sqrt(dx*dx+dy*dy);
|
|
|
|
dx=x0-xka2; dy=y0-yka2;
|
|
d2=sqrt(dx*dx+dy*dy);
|
|
|
|
if (d1>d2) {
|
|
ds=xka2; xka2=xka1; xka1=ds;
|
|
ds=yka2; yka2=yka1; yka1=ds;
|
|
}
|
|
|
|
arry[1][1]=x1; arry[1][2]=y1;
|
|
arry[1][3]=x2; arry[1][4]=y2;
|
|
arry[1][5]=0; arry[1][6]=0;
|
|
|
|
arry[2][1]=xka1; arry[2][2]=yka1;
|
|
arry[2][3]=xka2; arry[2][4]=yka2;
|
|
arry[2][5]=0; arry[2][6]=0;
|
|
|
|
iarry=3;
|
|
|
|
//ads_printf(_T("\narry[1][1]=%f,arry[1][2]=%f,arry[1][3]=%f,arry[1][4]=%f"),arry[1][1],arry[1][2],arry[1][3],arry[1][4]);
|
|
//ads_printf(_T("\narry[2][1]=%f,arry[2][2]=%f,arry[2][3]=%f,arry[2][4]=%f"),arry[2][1],arry[2][2],arry[2][3],arry[2][4]);
|
|
|
|
// ulin4();
|
|
|
|
icolo=icolo+1;
|
|
|
|
// if (ientd==1) {
|
|
// for (i=1;i<iarry;i++) {
|
|
// if (i==1) hlin(arry[i][1],arry[i][2],arry[i][3],arry[i][4],2);
|
|
// if (i>1) hlin(arry[i][1],arry[i][2],arry[i][3],arry[i][4],7);
|
|
// ads_printf(_T("\ni=%d,arry[i][1]=%f,%f,%f,%f"),i,arry[i][1],arry[i][2],arry[i][3],arry[i][4]);
|
|
// ads_getstring(5,NULL,zf); }
|
|
// }
|
|
// 绘 TDOTE 线
|
|
|
|
ulin5();
|
|
|
|
// 将以转换的墙端点选上 ensspp0
|
|
|
|
ulin6dd();
|
|
|
|
if (ientd==0) addentd();
|
|
|
|
ssd:ssdelenpp0();
|
|
|
|
ads_ssfree(ensspp0);
|
|
|
|
}
|
|
|
|
|
|
void ulin4(void)
|
|
{
|
|
ulin4a();
|
|
|
|
ulin4ab();
|
|
|
|
}
|
|
|
|
void ulin4a(void)
|
|
{ int i;
|
|
ads_real q,dx,dy,d1;
|
|
ads_point p1,p2,p3,p4,pp;
|
|
|
|
p1[2]=0; p2[2]=0;
|
|
p3[2]=0; p4[2]=0;
|
|
|
|
aa0:p1[0]=arry[1][1]; p1[1]=arry[1][2];
|
|
p2[0]=arry[1][3]; p2[1]=arry[1][4];
|
|
|
|
i=iarry-1;
|
|
|
|
qjadu(p1[0],p1[1],p2[0],p2[1]);
|
|
q=(qhcjc+90)*pi314/180;
|
|
|
|
dx=8000.0;
|
|
p3[0]=arry[i][3]+dx*cos(q); p3[1]=arry[i][4]+dx*sin(q);
|
|
p4[0]=arry[i][3]-dx*cos(q); p4[1]=arry[i][4]-dx*sin(q);
|
|
|
|
if (ads_inters(p1,p2,p3,p4,1,pp)==RTNORM) goto dd1;
|
|
return;
|
|
|
|
dd1:dx=pp[0]-arry[1][3]; dy=pp[1]-arry[1][4];
|
|
d1=sqrt(dx*dx+dy*dy);
|
|
|
|
// if (d1<10*ds111) return;
|
|
if (d1<dswa500) return;
|
|
|
|
q=qhcjc*pi314/180;
|
|
dx=2*whou;
|
|
if (dx<1000) dx=1000;
|
|
|
|
if (dx<d1) dx=d1;
|
|
|
|
i=iarry-1;
|
|
|
|
xka2=arry[i][3];
|
|
yka2=arry[i][4];
|
|
|
|
xka1=arry[i][3]+dx*cos(q);
|
|
yka1=arry[i][4]+dx*sin(q);
|
|
|
|
itwall=0;
|
|
|
|
// ads_printf(_T("\nAAAxka1=%f,yka1=%f,xka2=%f,yka2=%f"),xka1,yka1,xka2,yka2);
|
|
|
|
|
|
ulin4b();
|
|
|
|
if (itwall==1) {
|
|
|
|
// ads_printf(_T("\nBBBxka1=%f,yka1=%f,xka2=%f,yka2=%f"),xka1,yka1,xka2,yka2);
|
|
|
|
i=iarry;
|
|
arry[i][1]=xka2; arry[i][2]=yka2;
|
|
arry[i][3]=xka1; arry[i][4]=yka1;
|
|
arry[i][5]=0; arry[i][6]=0;
|
|
|
|
if (iarry<300) { iarry=iarry+1; goto aa0; }
|
|
|
|
}
|
|
|
|
}
|
|
|
|
void ulin4b(void)
|
|
{ struct resbuf *ebup,*rb;
|
|
int typi;
|
|
Adesk::Int32 i,len;
|
|
ads_name ss1,en;
|
|
|
|
int it1,it2;
|
|
|
|
ads_real x0=0,y0=0,x1,y1,x2,y2,q,dx,dy,d1,d2,ds0,ds;
|
|
ads_real xp1=0,yp1=0,xp2=0,yp2=0;
|
|
|
|
TCHAR txtdxf0[40]=_T(""),txtnam8[40]=_T("");
|
|
ads_point p1,p2,p3,p4,pp;
|
|
ads_point p01,p02;
|
|
|
|
p1[2]=0; p2[2]=0;
|
|
p3[2]=0; p4[2]=0;
|
|
|
|
ds0=20000;
|
|
|
|
p1[0]=xka1; p1[1]=yka1;
|
|
p2[0]=xka2; p2[1]=yka2;
|
|
qjadu(p1[0],p1[1],p2[0],p2[1]);
|
|
|
|
q=(qhcjc-180)*pi314/180;
|
|
|
|
p2[0]=p2[0]+10*cos(q);
|
|
p2[1]=p2[1]+10*sin(q);
|
|
|
|
//ads_printf(_T("\nASD22 p1[0]=%f,p1[1]=%f,p2[0]=%f,p2[1]=%f"),p1[0],p1[1],p2[0],p2[1]);
|
|
// hlin(p1[0],p1[1],p2[0],p2[1],3);
|
|
|
|
|
|
p01[0]=p1[0]; p01[1]=p1[1]; p01[2]=0;
|
|
p02[0]=p2[0]; p02[1]=p2[1]; p02[2]=0;
|
|
|
|
ul112l(p1[0],p1[1],p2[0],p2[1],ds111);
|
|
|
|
//modified by whl on 060323
|
|
//RBList mask(RTDXF0, _T("LINE"), 8, _T("WALL*"), NULL);
|
|
XString sLayer;
|
|
sLayer<<_T("WALL*,")<<LAY_WALL;
|
|
RBList mask(RTDXF0, _T("LINE"), 8,(const TCHAR*)sLayer, NULL);
|
|
|
|
if (ads_ssget(_T("C"),p01,p02,mask,ss1)!=RTNORM)
|
|
return;
|
|
i=0;
|
|
if (ads_sslength(ss1,&len)==RTNORM) goto bbb;
|
|
return;
|
|
|
|
bbb:ads_ssname(ss1,i,en);
|
|
ebup=ads_entget(en);
|
|
|
|
if (ebup==NULL) goto mbb1;
|
|
|
|
for (rb=ebup;rb!=NULL;rb=rb->rbnext) {
|
|
typi=rb->restype;
|
|
|
|
if (typi==0) _tcscpy(txtdxf0,rb->resval.rstring);
|
|
if (typi==8) _tcscpy(txtnam8,rb->resval.rstring);
|
|
|
|
if (typi==10) {
|
|
x1=rb->resval.rpoint[0];
|
|
y1=rb->resval.rpoint[1]; }
|
|
if (typi==11) {
|
|
x2=rb->resval.rpoint[0];
|
|
y2=rb->resval.rpoint[1]; }
|
|
}
|
|
ads_relrb(ebup);
|
|
ads_relrb(rb);
|
|
|
|
// if ((txtnam8[0]==_T('W'))&&(txtnam8[1]==_T('A'))&&(txtnam8[2]==_T('L'))&&(txtnam8[3]==_T('L'))) goto bbwa;
|
|
|
|
goto mbb1;
|
|
//
|
|
//bbwa:if ((txtdxf0[0]==_T('L'))&&(txtdxf0[1]==_T('I'))&&(txtdxf0[2]==_T('N'))&&(txtdxf0[3]==_T('E'))) goto lin;
|
|
|
|
// goto mbb1;
|
|
|
|
// lin:
|
|
dx=x1-x2; dy=y1-y2;
|
|
d1=sqrt(dx*dx+dy*dy);
|
|
if (d1<ds111) goto mbb1;
|
|
|
|
|
|
d1=800;
|
|
d2=1600;
|
|
|
|
qjadu(p1[0],p1[1],p2[0],p2[1]);
|
|
|
|
q=(qhcjc+90)*pi314/180;
|
|
p4[0]=x1+800*cos(q);
|
|
p4[1]=y1+800*sin(q);
|
|
|
|
q=(qhcjc-90)*pi314/180;
|
|
p3[0]=x1+800*cos(q);
|
|
p3[1]=y1+800*sin(q);
|
|
|
|
it1=0; it2=0;
|
|
|
|
if (ads_inters(p1,p2,p3,p4,0,pp)==RTNORM) {
|
|
dx=pp[0]-x1; dy=pp[1]-y1;
|
|
d1=sqrt(dx*dx+dy*dy);
|
|
}
|
|
|
|
if (ads_inters(p1,p2,p3,p4,1,pp)==RTNORM) it1=1;
|
|
|
|
q=(qhcjc+90)*pi314/180;
|
|
p4[0]=x2+800*cos(q);
|
|
p4[1]=y2+800*sin(q);
|
|
q=(qhcjc-90)*pi314/180;
|
|
p3[0]=x2+800*cos(q);
|
|
p3[1]=y2+800*sin(q);
|
|
|
|
if (ads_inters(p1,p2,p3,p4,0,pp)==RTNORM) {
|
|
dx=pp[0]-x2; dy=pp[1]-y2;
|
|
d2=sqrt(dx*dx+dy*dy);
|
|
}
|
|
|
|
if (ads_inters(p1,p2,p3,p4,1,pp)==RTNORM) it2=1;
|
|
|
|
if ((it1==0)&&(it2==0)) goto mbb1;
|
|
|
|
if ((d1<ds111)&&(d2<ds111)) {
|
|
|
|
// ads_printf(_T("\nit1=%d,it2=%d"),it1,it2);
|
|
|
|
dx=xka2-x1; dy=yka2-y1;
|
|
d1=sqrt(dx*dx+dy*dy);
|
|
|
|
if ((d1>10)&&(d1<ds0)) {
|
|
x0=x1; y0=y1;
|
|
ds0=d1;
|
|
|
|
xp1=x2; yp1=y2;
|
|
xp2=x1; yp2=y1;
|
|
|
|
ads_name_set(en,entch);
|
|
|
|
}
|
|
|
|
dx=xka2-x2; dy=yka2-y2;
|
|
d1=sqrt(dx*dx+dy*dy);
|
|
|
|
if ((d1>10)&&(d1<ds0)) {
|
|
|
|
x0=x2; y0=y2;
|
|
ds0=d1;
|
|
|
|
xp1=x1; yp1=y1;
|
|
xp2=x2; yp2=y2;
|
|
|
|
ads_name_set(en,entch);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
mbb1:i=i+1;
|
|
|
|
if (i<len) goto bbb;
|
|
|
|
ads_ssfree(ss1);
|
|
|
|
// ads_printf(_T("\nds0=%f"),ds0);
|
|
|
|
|
|
if (ds0<20000) {
|
|
|
|
// ads_printf(_T("\nASD ds0=%f"),ds0);
|
|
// hlin(xp1,yp1,xp2,yp2,2);
|
|
|
|
p1[0]=arry[1][1]; p1[1]=arry[1][2];
|
|
p2[0]=arry[1][3]; p2[1]=arry[1][4];
|
|
|
|
qjadu(p1[0],p1[1],p2[0],p2[1]);
|
|
|
|
q=(qhcjc+90)*pi314/180;
|
|
p4[0]=x0+8000*cos(q);
|
|
p4[1]=y0+8000*sin(q);
|
|
|
|
q=(qhcjc-90)*pi314/180;
|
|
p3[0]=x0+8000*cos(q);
|
|
p3[1]=y0+8000*sin(q);
|
|
|
|
if (ads_inters(p1,p2,p3,p4,1,pp)==RTNORM) {
|
|
|
|
// ads_printf(_T("\nASD22 ds0=%f"),ds0);
|
|
|
|
ads_ssadd(entch,ensspp0,ensspp0);
|
|
|
|
dx=xka2-xp2; dy=yka2-yp2;
|
|
d1=sqrt(dx*dx+dy*dy);
|
|
|
|
// ads_printf(_T("\nd1=%f"),d1);
|
|
|
|
itwall=1;
|
|
|
|
dx=dswa500;
|
|
if (dx<whou) dx=whou;
|
|
|
|
if (d1<dx) {
|
|
xka1=xp1; yka1=yp1;
|
|
xka2=xp2; yka2=yp2;
|
|
strlin(); } else {
|
|
xka1=xp2; yka1=yp2;
|
|
xka2=xp1; yka2=yp1;
|
|
strlin();
|
|
ds=xka2; xka2=xka1; xka1=ds;
|
|
ds=yka2; yka2=yka1; yka1=ds;
|
|
strlin();
|
|
}
|
|
|
|
// hlin(xka1,yka1,xka2,yka2,5);
|
|
}
|
|
}
|
|
}
|
|
|
|
void ulin4ab(void)
|
|
{ int i,j;
|
|
ads_real q,dx,dy,d1;
|
|
ads_point p1,p2,p3,p4,pp;
|
|
|
|
p1[2]=0; p2[2]=0;
|
|
p3[2]=0; p4[2]=0;
|
|
|
|
aa0:p1[0]=arry[1][1]; p1[1]=arry[1][2];
|
|
p2[0]=arry[1][3]; p2[1]=arry[1][4];
|
|
|
|
|
|
qjadu(p1[0],p1[1],p2[0],p2[1]);
|
|
q=(qhcjc+90)*pi314/180;
|
|
|
|
i=2;
|
|
|
|
dx=8000.0;
|
|
p3[0]=arry[i][1]+dx*cos(q); p3[1]=arry[i][2]+dx*sin(q);
|
|
p4[0]=arry[i][1]-dx*cos(q); p4[1]=arry[i][2]-dx*sin(q);
|
|
|
|
if (ads_inters(p1,p2,p3,p4,1,pp)==RTNORM) goto dd1;
|
|
return;
|
|
|
|
dd1:dx=pp[0]-arry[1][1]; dy=pp[1]-arry[1][2];
|
|
d1=sqrt(dx*dx+dy*dy);
|
|
|
|
// if (d1<10*ds111) return;
|
|
if (d1<dswa500) return;
|
|
|
|
q=(qhcjc-180)*pi314/180;
|
|
dx=2*whou;
|
|
if (dx<1000) dx=1000;
|
|
|
|
if (dx<d1) dx=d1;
|
|
|
|
i=2;
|
|
|
|
xka2=arry[i][1];
|
|
yka2=arry[i][2];
|
|
|
|
xka1=arry[i][1]+dx*cos(q);
|
|
yka1=arry[i][2]+dx*sin(q);
|
|
|
|
// hlin(xka1,yka1,xka2,yka2,7);
|
|
|
|
itwall=0;
|
|
|
|
// ads_printf(_T("\nCCC arry[i][1]=%f,arry[i][2]=%f,arry[i][3]=%f,arry[i][4]=%f"),arry[i][1],arry[i][2],arry[i][3],arry[i][4]);
|
|
// ads_printf(_T("\nDDDxka2=%f,yka2=%f,xka1=%f,yka1=%f"),xka2,yka2,xka1,yka1);
|
|
|
|
ulin4b();
|
|
|
|
if (itwall==1) {
|
|
|
|
//ads_printf(_T("\nEEExka2=%f,yka2=%f,xka1=%f,yka1=%f"),xka2,yka2,xka1,yka1);
|
|
|
|
i=iarry;
|
|
j=i-1;
|
|
|
|
ccc: arry[i][1]=arry[j][1]; arry[i][2]=arry[j][2];
|
|
arry[i][3]=arry[j][3]; arry[i][4]=arry[j][4];
|
|
arry[i][5]=arry[j][5]; arry[i][6]=arry[j][6];
|
|
i=i-1;
|
|
j=j-1;
|
|
|
|
if (i>2) goto ccc;
|
|
|
|
i=2;
|
|
|
|
// arry[i][1]=xka2; arry[i][2]=yka2;
|
|
// arry[i][3]=xka1; arry[i][4]=yka1;
|
|
// arry[i][5]=0; arry[i][6]=0;
|
|
|
|
arry[i][1]=xka1; arry[i][2]=yka1;
|
|
arry[i][3]=xka2; arry[i][4]=yka2;
|
|
arry[i][5]=0; arry[i][6]=0;
|
|
|
|
|
|
if (iarry<300) {
|
|
iarry=iarry+1; goto aa0; }
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
void ulin5(void)
|
|
{
|
|
int i;
|
|
|
|
i=2;
|
|
|
|
aaa:xka1=arry[1][1]; yka1=arry[1][2];
|
|
xka2=arry[1][3]; yka2=arry[1][4];
|
|
|
|
xwb1=arry[i][1]; ywb1=arry[i][2];
|
|
xwb2=arry[i][3]; ywb2=arry[i][4];
|
|
|
|
ulin5a(i);
|
|
|
|
i=i+1;
|
|
if (i<iarry) goto aaa;
|
|
|
|
}
|
|
|
|
|
|
|
|
void uldote(ads_real xp1,ads_real yp1,ads_real xp2,ads_real yp2)
|
|
{
|
|
struct resbuf *ebup,*rb;
|
|
ads_point p01,p02;
|
|
ads_name ss1,en;
|
|
|
|
int typi;
|
|
Adesk::Int32 i,len;
|
|
|
|
ads_real x1,y1,x2,y2,dx,dy,d1,d0,x0,y0;
|
|
ads_real q,q1,dq,xp0,yp0;
|
|
|
|
TCHAR txtdxf0[40]=_T(""),txtnam8[40]=_T("");
|
|
ads_point p1,p2,p3,p4,pp;
|
|
|
|
p1[2]=0; p2[2]=0;
|
|
p3[2]=0; p4[2]=0;
|
|
|
|
x0=(xp1+xp2)/2;
|
|
y0=(yp1+yp2)/2;
|
|
d0=2000;
|
|
|
|
p01[0]=xp1; p01[1]=yp1; p01[2]=0;
|
|
p02[0]=xp2; p02[1]=yp2; p02[2]=0;
|
|
|
|
ul112l(p01[0],p01[1],p02[0],p02[1],ds111);
|
|
|
|
|
|
x1=xp1; x2=xp2;
|
|
if (x2<x1) { x1=xp2; x2=xp1;}
|
|
|
|
y1=yp1; y2=yp2;
|
|
if (y2<y1) { y1=yp2; y2=yp1; }
|
|
|
|
p01[0]=x1-1000; p01[1]=y1-1000; p01[2]=0;
|
|
p02[0]=x2+1000; p02[1]=y2+1000; p02[2]=0;
|
|
|
|
//modified by whl on 060323
|
|
//RBList mask(RTDXF0, _T("LINE"), 8, LAY_AXIS, NULL);
|
|
XString sLayer;
|
|
sLayer<<_T("DOTE,")<<LAY_AXIS;
|
|
RBList mask(RTDXF0, _T("LINE"), 8, (const TCHAR*)sLayer, NULL);
|
|
|
|
if (ads_ssget(_T("C"),p01,p02,mask,ss1)!=RTNORM)
|
|
return;
|
|
i=0;
|
|
if (ads_sslength(ss1,&len)==RTNORM) goto bbb;
|
|
return;
|
|
|
|
bbb:ads_ssname(ss1,i,en);
|
|
ebup=ads_entget(en);
|
|
|
|
if (ebup==NULL) goto mbb1;
|
|
|
|
for (rb=ebup;rb!=NULL;rb=rb->rbnext) {
|
|
typi=rb->restype;
|
|
|
|
if (typi==0) _tcscpy(txtdxf0,rb->resval.rstring);
|
|
if (typi==8) _tcscpy(txtnam8,rb->resval.rstring);
|
|
|
|
if (typi==10) {
|
|
x1=rb->resval.rpoint[0];
|
|
y1=rb->resval.rpoint[1]; }
|
|
if (typi==11) {
|
|
x2=rb->resval.rpoint[0];
|
|
y2=rb->resval.rpoint[1]; }
|
|
}
|
|
ads_relrb(ebup);
|
|
ads_relrb(rb);
|
|
|
|
//if ((txtnam8[0]==_T('D'))&&(txtnam8[1]==_T('O'))&&(txtnam8[2]==_T('T'))&&(txtnam8[3]==_T('E'))) goto bbwa;
|
|
|
|
// goto mbb1;
|
|
|
|
//bbwa:if ((txtdxf0[0]==_T('L'))&&(txtdxf0[1]==_T('I'))&&(txtdxf0[2]==_T('N'))&&(txtdxf0[3]==_T('E'))) goto lin;
|
|
// goto mbb1;
|
|
// lin:
|
|
dx=x1-x2; dy=y1-y2;
|
|
d1=sqrt(dx*dx+dy*dy);
|
|
if (d1<ds111) goto mbb1;
|
|
|
|
qjadu(xka1,yka1,xka2,yka2);
|
|
q1=qhcjc;
|
|
qjadu(x1,y1,x2,y2);
|
|
dq=q1-qhcjc;
|
|
|
|
if (dq<0) dq=-dq;
|
|
qq1:if (dq>179) { dq=dq-180; goto qq1; }
|
|
if (dq>1) goto mbb1;
|
|
|
|
|
|
qjadu(xp1,yp1,xp2,yp2);
|
|
q=(qhcjc-180)*pi314/180;
|
|
|
|
p1[0]=xp1+ds111*cos(q); p1[1]=yp1+ds111*sin(q);
|
|
|
|
q=qhcjc*pi314/180;
|
|
p2[0]=xp2+ds111*cos(q); p2[1]=yp2+ds111*sin(q);
|
|
|
|
p3[0]=x1; p3[1]=y1;
|
|
p4[0]=x2; p4[1]=y2;
|
|
|
|
if (ads_inters(p1,p2,p3,p4,1,pp)==RTNORM) {
|
|
dx=pp[0]-x0; dy=pp[1]-y0;
|
|
d1=sqrt(dx*dx+dy*dy);
|
|
|
|
if (d1<d0) {
|
|
d0=d1;
|
|
xp0=pp[0]; yp0=pp[1];
|
|
}
|
|
}
|
|
|
|
mbb1:i=i+1;
|
|
if (i<len) goto bbb;
|
|
|
|
ads_ssfree(ss1);
|
|
|
|
if (d0<2000) {
|
|
|
|
itdote=1;
|
|
|
|
dx=xp0-x0; dy=yp0-y0;
|
|
xdz1=xdz1+dx; ydz1=ydz1+dy;
|
|
xdz2=xdz2+dx; ydz2=ydz2+dy;
|
|
|
|
// hlin(xdz1,ydz1,xdz2,ydz2,7);
|
|
//ads_printf(_T("\nxdz1=%f,ydz1=%f,xdz2=%f,ydz2=%f"),xdz1,ydz1,xdz2,ydz2);
|
|
|
|
}
|
|
}
|
|
|
|
|
|
void uldote23(int it0,ads_real xp1,ads_real yp1,ads_real xp2,ads_real yp2)
|
|
{
|
|
struct resbuf *ebup,*rb;
|
|
ads_point p01,p02;
|
|
ads_name ss1,en;
|
|
|
|
int typi;
|
|
Adesk::Int32 i,len;
|
|
|
|
ads_real x1,y1,x2,y2,dx,dy,d1,x0,y0;
|
|
ads_real q,q1,dq,xp0,yp0;
|
|
|
|
TCHAR txtdxf0[40]=_T(""),txtnam8[40]=_T("");
|
|
ads_point p1,p2,p3,p4,pp;
|
|
|
|
p1[2]=0; p2[2]=0;
|
|
p3[2]=0; p4[2]=0;
|
|
|
|
x0=(xp1+xp2)/2;
|
|
y0=(yp1+yp2)/2;
|
|
|
|
dx=wwjul;
|
|
|
|
qjadu(xp1,yp1,xp2,yp2);
|
|
q=(qhcjc+90)*pi314/180;
|
|
p01[0]=x0+dx*cos(q); p01[1]=y0+dx*sin(q); p01[2]=0;
|
|
|
|
q=(qhcjc-90)*pi314/180;
|
|
p02[0]=x0+dx*cos(q); p02[1]=y0+dx*sin(q); p02[2]=0;
|
|
|
|
ul112l(p01[0],p01[1],p02[0],p02[1],ds111);
|
|
|
|
//modified by whl on 060323
|
|
//RBList mask(RTDXF0, _T("LINE"), 8, LAY_AXIS, NULL);
|
|
XString sLayer;
|
|
sLayer<<_T("DOTE,")<<LAY_AXIS;
|
|
RBList mask(RTDXF0, _T("LINE"), 8, (const TCHAR*)sLayer, NULL);
|
|
|
|
if (ads_ssget(_T("C"),p01,p02,mask,ss1)!=RTNORM)
|
|
return;
|
|
i=0;
|
|
if (ads_sslength(ss1,&len)==RTNORM) goto bbb;
|
|
return;
|
|
|
|
bbb:ads_ssname(ss1,i,en);
|
|
ebup=ads_entget(en);
|
|
|
|
if (ebup==NULL) goto mbb1;
|
|
|
|
for (rb=ebup;rb!=NULL;rb=rb->rbnext) {
|
|
typi=rb->restype;
|
|
|
|
if (typi==0) _tcscpy(txtdxf0,rb->resval.rstring);
|
|
if (typi==8) _tcscpy(txtnam8,rb->resval.rstring);
|
|
|
|
if (typi==10) {
|
|
x1=rb->resval.rpoint[0];
|
|
y1=rb->resval.rpoint[1]; }
|
|
if (typi==11) {
|
|
x2=rb->resval.rpoint[0];
|
|
y2=rb->resval.rpoint[1]; }
|
|
}
|
|
ads_relrb(ebup);
|
|
ads_relrb(rb);
|
|
|
|
//if ((txtnam8[0]==_T('D'))&&(txtnam8[1]==_T('O'))&&(txtnam8[2]==_T('T'))&&(txtnam8[3]==_T('E'))) goto bbwa;
|
|
|
|
// goto mbb1;
|
|
|
|
//bbwa:if ((txtdxf0[0]==_T('L'))&&(txtdxf0[1]==_T('I'))&&(txtdxf0[2]==_T('N'))&&(txtdxf0[3]==_T('E'))) goto lin;
|
|
|
|
// goto mbb1;
|
|
|
|
// lin:
|
|
dx=x1-x2; dy=y1-y2;
|
|
d1=sqrt(dx*dx+dy*dy);
|
|
if (d1<ds111) goto mbb1;
|
|
|
|
qjadu(xka1,yka1,xka2,yka2);
|
|
q1=qhcjc;
|
|
qjadu(x1,y1,x2,y2);
|
|
dq=q1-qhcjc;
|
|
|
|
if (dq<0) dq=-dq;
|
|
qq1:if (dq>179) { dq=dq-180; goto qq1; }
|
|
if (dq>1) goto mbb1;
|
|
|
|
p1[0]=p01[0]; p1[1]=p01[1];
|
|
p2[0]=p02[0]; p2[1]=p02[1];
|
|
|
|
p3[0]=x1; p3[1]=y1;
|
|
p4[0]=x2; p4[1]=y2;
|
|
|
|
if (ads_inters(p1,p2,p3,p4,1,pp)==RTNORM) {
|
|
dx=pp[0]-x0; dy=pp[1]-y0;
|
|
d1=sqrt(dx*dx+dy*dy);
|
|
|
|
if (d1<dsdote) {
|
|
dsdote=d1;
|
|
xp0=pp[0]; yp0=pp[1];
|
|
}
|
|
}
|
|
|
|
mbb1:i=i+1;
|
|
if (i<len) goto bbb;
|
|
|
|
ads_ssfree(ss1);
|
|
|
|
if (dsdote<2000) {
|
|
|
|
itdote=it0;
|
|
xdot=xp0; ydot=yp0;
|
|
|
|
// hlin(xdz1,ydz1,xdz2,ydz2,7);
|
|
//ads_printf(_T("\nxdz1=%f,ydz1=%f,xdz2=%f,ydz2=%f"),xdz1,ydz1,xdz2,ydz2);
|
|
|
|
}
|
|
}
|
|
|
|
|
|
|
|
void wlinTDOTE(ads_point p1,ads_point p2)
|
|
{
|
|
struct resbuf *rb;
|
|
ads_name en;
|
|
ads_real dx,dy,d1;
|
|
|
|
dx=p1[0]-p2[0]; dy=p1[1]-p2[1];
|
|
d1=sqrt(dx*dx+dy*dy);
|
|
if (d1<ds111) return;
|
|
|
|
rb=ads_buildlist(RTDXF0,_T("LINE"),10,p1,11,p2,
|
|
6,_T("BYLAYER"),
|
|
8,_T("TDOTE"),
|
|
62,256,
|
|
39,3000.0,
|
|
-3,
|
|
1001,_T("TDOTE"),
|
|
1040,whouz,
|
|
1040,whouy,
|
|
NULL);
|
|
|
|
ads_entmake(rb);
|
|
ads_relrb(rb);
|
|
|
|
if (ads_entlast(en)==RTNORM) {
|
|
|
|
ads_ssadd(en,endd0,endd0);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
void tzhb(void)
|
|
{ struct resbuf *ebup,*rbp;
|
|
ads_name en;
|
|
int typi,itn;
|
|
|
|
Adesk::Int32 len,i;
|
|
|
|
ads_real x1,y1,x2,y2,dx,dy,d1,rr,q1,q2;
|
|
TCHAR zf[40]=_T("");
|
|
|
|
itn=0;
|
|
|
|
aa0:i=0;
|
|
itn=itn+1;
|
|
if (itn>5000) return;
|
|
|
|
if (ads_sslength(ensspp,&len)==RTNORM) goto bbb;
|
|
return;
|
|
|
|
bbb:if (len==0) return;
|
|
|
|
ads_ssname(ensspp,i,en);
|
|
ebup=ads_entget(en);
|
|
|
|
if (ebup==NULL) goto bb1;
|
|
|
|
q1=0; q2=2*pi314;
|
|
|
|
for (rbp=ebup;rbp!=NULL;rbp=rbp->rbnext) {
|
|
typi=rbp->restype;
|
|
if (typi==0) _tcscpy(zf,rbp->resval.rstring);
|
|
if (typi==40) rr=rbp->resval.rreal;
|
|
if (typi==50) q1=rbp->resval.rreal;
|
|
if (typi==51) q2=rbp->resval.rreal;
|
|
if (typi==10) {
|
|
x1=rbp->resval.rpoint[0];
|
|
y1=rbp->resval.rpoint[1]; }
|
|
if (typi==11) {
|
|
x2=rbp->resval.rpoint[0];
|
|
y2=rbp->resval.rpoint[1]; }
|
|
}
|
|
|
|
ads_relrb(ebup);
|
|
ads_relrb(rbp);
|
|
|
|
if ((zf[0]==_T('L'))&&(zf[1]==_T('I'))&&(zf[2]==_T('N'))&&(zf[3]==_T('E'))) goto lin;
|
|
if ((zf[0]==_T('A'))&&(zf[1]==_T('R'))&&(zf[2]==_T('C'))) goto cir;
|
|
if ((zf[0]==_T('C'))&&(zf[1]==_T('I'))&&(zf[2]==_T('R'))&&(zf[3]==_T('C'))&&(zf[4]==_T('L'))&&(zf[5]==_T('E'))) goto cir;
|
|
goto bb1;
|
|
|
|
cir:if (rr<ds111) {
|
|
ads_ssdel(en,ensspp);
|
|
goto aa0; }
|
|
|
|
// ads_ssadd(en,ensspp0,ensspp0);
|
|
ads_ssdel(en,ensspp);
|
|
goto aa0;
|
|
|
|
lin:dx=x1-x2;
|
|
dy=y1-y2;
|
|
d1=sqrt(dx*dx+dy*dy);
|
|
|
|
if (d1<ds111) {
|
|
ads_ssdel(en,ensspp);
|
|
goto aa0; }
|
|
|
|
|
|
if (d1<60) goto bb1;
|
|
|
|
// 处理小于墙厚的墙线
|
|
// if (d1<whou) goto bb1;
|
|
|
|
xdo1=x1; ydo1=y1;
|
|
xdo2=x2; ydo2=y2;
|
|
|
|
itmen=0;
|
|
|
|
// 判定是否窗头线
|
|
|
|
qmmma();
|
|
|
|
// ads_printf(_T("\nitmen=%d"),itmen);
|
|
|
|
xdo1=x1; ydo1=y1;
|
|
xdo2=x2; ydo2=y2;
|
|
|
|
// 判定是否端头线
|
|
|
|
if (itmen==0) ulwa00();
|
|
|
|
if (itmen==0) {
|
|
|
|
ads_name_set(en,entch);
|
|
xka1=x2; yka1=y2; xka2=x1; yka2=y1;
|
|
|
|
ddar[1][5]=0;
|
|
ddar[2][5]=0;
|
|
|
|
ulin0();
|
|
|
|
goto aa0; }
|
|
|
|
bb1:i=i+1;
|
|
if (i<len) goto bbb;
|
|
|
|
}
|
|
|
|
|
|
|
|
void qmmma(void)
|
|
{
|
|
struct resbuf apps,*ebup,*rb;
|
|
ads_name ss1,en;
|
|
int typi,it;
|
|
Adesk::Int32 i,len;
|
|
|
|
ads_real x1,y1,x2,y2,dx,gs1,gs2,gs3;
|
|
ads_real r41,r42,q1,bs,q;
|
|
|
|
ads_point p01,p02;
|
|
TCHAR txtdxf0[40]=_T(""),txtnam8[40]=_T(""),txtins[40]=_T(""),buf[40]=_T("");
|
|
ads_point p1,p2,p3,p4,pp;
|
|
|
|
p1[2]=0; p2[2]=0;
|
|
p3[2]=0; p4[2]=0;
|
|
|
|
// ads_printf(_T("mmmm"));
|
|
// xb1=xdo1; yb1=ydo1;
|
|
// xb2=xdo2; yb2=ydo2;
|
|
// hlin(xdo1,ydo1,xdo2,ydo2,7);
|
|
|
|
x1=xdo1; x2=xdo2;
|
|
if (x2<x1) { x1=xdo2; x2=xdo1;}
|
|
|
|
y1=ydo1; y2=ydo2;
|
|
if (y2<y1) { y1=ydo2; y2=ydo1; }
|
|
|
|
|
|
dx=100*ds111;
|
|
|
|
p01[0]=x1-dx; p01[1]=y1-dx; p01[2]=0;
|
|
p02[0]=x2+dx; p02[1]=y2+dx; p02[2]=0;
|
|
|
|
ul112l(p01[0],p01[1],p02[0],p02[1],0);
|
|
|
|
//modified by whl
|
|
//RBList mask(RTDXF0, _T("INSERT"), 8, LAY_WIN, NULL);
|
|
XString sLayer;
|
|
sLayer<<_T("WINDOW,")<<LAY_WIN;
|
|
RBList mask(RTDXF0, _T("INSERT"), 8, (const TCHAR*)sLayer, NULL);
|
|
|
|
if (ads_ssget(_T("C"),p01,p02,mask,ss1)!=RTNORM)
|
|
return;
|
|
i=0;
|
|
if (ads_sslength(ss1,&len)==RTNORM) goto strbb;
|
|
return;
|
|
|
|
strbb:ads_ssname(ss1,i,en);
|
|
|
|
apps.restype=RTSTR;
|
|
_tcscpy(buf,_T("WTHICK"));
|
|
apps.resval.rstring=buf;
|
|
apps.rbnext=NULL;
|
|
ebup=ads_entgetx(en,&apps);
|
|
if (ebup==NULL) return;
|
|
|
|
it=0; gs1=0; gs2=0; gs3=0;
|
|
|
|
for (rb=ebup;rb!=NULL;rb=rb->rbnext) {
|
|
typi=rb->restype;
|
|
|
|
if (typi==0) _tcscpy(txtdxf0,rb->resval.rstring);
|
|
if (typi==8) _tcscpy(txtnam8,rb->resval.rstring);
|
|
if (typi==2) _tcscpy(txtins,rb->resval.rstring);
|
|
if (typi==41) r41=rb->resval.rreal;
|
|
if (typi==42) r42=rb->resval.rreal;
|
|
if (typi==50) q1=rb->resval.rreal;
|
|
|
|
if (typi==10) {
|
|
x1=rb->resval.rpoint[0];
|
|
y1=rb->resval.rpoint[1]; }
|
|
|
|
if (typi==1040) {
|
|
it=it+1;
|
|
if (it==1) gs1=rb->resval.rreal;
|
|
if (it==2) gs2=rb->resval.rreal;
|
|
if (it==3) gs3=rb->resval.rreal;
|
|
}
|
|
}
|
|
|
|
ads_relrb(ebup);
|
|
ads_relrb(rb);
|
|
|
|
|
|
//if ((txtnam8[0]==_T('W'))&&(txtnam8[1]==_T('I'))&&(txtnam8[2]==_T('N'))&&(txtnam8[3]==_T('D'))&&(txtnam8[4]==_T('O'))&&(txtnam8[5]==_T('W'))) goto bbwa;
|
|
// goto mbb1;
|
|
|
|
//bbwa: if ((txtdxf0[0]==_T('I'))&&(txtdxf0[1]==_T('N'))&&(txtdxf0[2]==_T('S'))&&(txtdxf0[3]==_T('E'))&&(txtdxf0[4]==_T('R'))&&(txtdxf0[5]==_T('T'))) goto bbin;
|
|
// goto mbb1;
|
|
|
|
//bbin:
|
|
mank=0; inntm=0; manam=0;
|
|
|
|
// ads_printf(_T("\ngs1=%f,gs2=%f,gs3=%f"),gs1,gs2,gs3);
|
|
if (gs1<=0) gs1=400;
|
|
|
|
if (mank==0) tchmtxt(txtins);
|
|
|
|
bs=r41;
|
|
if (bs<0) bs=-bs;
|
|
mank=bs*mank;
|
|
|
|
if (mank>10*ds111) {
|
|
|
|
p3[0]=x1; p3[1]=y1; p3[2]=0;
|
|
|
|
qhcjc=q1*180/pi314;
|
|
if (r41<0) qhcjc=qhcjc+180;
|
|
|
|
q=(qhcjc+180)*pi314/180;
|
|
dx=(mank+ds111)/2;
|
|
p3[0]=x1+dx*cos(q);
|
|
p3[1]=y1+dx*sin(q);
|
|
p3[2]=0;
|
|
|
|
q=qhcjc*pi314/180;
|
|
p4[0]=x1+dx*cos(q);
|
|
p4[1]=y1+dx*sin(q);
|
|
p4[2]=0;
|
|
|
|
xdz1=p3[0]; ydz1=p3[1];
|
|
xdz2=p4[0]; ydz2=p4[1];
|
|
|
|
dx=ds111+mank/2;
|
|
|
|
x2=x1+dx*cos(q);
|
|
y2=y1+dx*sin(q);
|
|
|
|
q=(qhcjc+180)*pi314/180;
|
|
x1=x1+dx*cos(q);
|
|
y1=y1+dx*sin(q);
|
|
|
|
p1[0]=xdo1; p1[1]=ydo1;
|
|
p2[0]=xdo2; p2[1]=ydo2;
|
|
|
|
if (ads_inters(p1,p2,p3,p4,1,pp)==RTNORM) goto qjdmm;
|
|
goto mbb1;
|
|
|
|
qjdmm:itmen=1;
|
|
|
|
}
|
|
|
|
mbb1:i=i+1;
|
|
|
|
if (i<len) goto strbb;
|
|
|
|
ads_ssfree(ss1);
|
|
|
|
}
|
|
|
|
void ulin5a(int i0)
|
|
{ int it11,it12,it21,it22;
|
|
|
|
ads_real q,dx,dy,d1,dhh;
|
|
ads_real xp1,yp1,xp2,yp2,x0,y0;
|
|
ads_real x11,y11,x12,y12,x21,y21,x22,y22;
|
|
|
|
ads_point p1,p2,p3,p4,pp;
|
|
|
|
p1[2]=0; p2[2]=0;
|
|
p3[2]=0; p4[2]=0;
|
|
|
|
qjadu(xka1,yka1,xka2,yka2);
|
|
|
|
p1[0]=xka1; p1[1]=yka1;
|
|
p2[0]=xka2; p2[1]=yka2;
|
|
|
|
p3[0]=(xwb1+xwb2)/2;
|
|
p3[1]=(ywb1+ywb2)/2;
|
|
q=(qhcjc+90)*pi314/180;
|
|
|
|
p4[0]=p3[0]+100*cos(q);
|
|
p4[1]=p3[1]+100*sin(q);
|
|
|
|
if (ads_inters(p1,p2,p3,p4,0,pp)==RTNORM) goto lin;
|
|
return;
|
|
|
|
lin:dx=p3[0]-pp[0]; dy=p3[1]-pp[1];
|
|
dhh=sqrt(dx*dx+dy*dy);
|
|
if (dhh<10*ds111) return;
|
|
|
|
// qjadu(p3[0],p3[1],pp[0],pp[1]);
|
|
// q=qhcjc*pi314/180;
|
|
// xdz1=p3[0]+dhh*cos(q)/2;
|
|
// ydz1=p3[1]+dhh*sin(q)/2;
|
|
// qjadu(xka1,yka1,xka2,yka2);
|
|
|
|
x11=xka1; y11=yka1;
|
|
x12=xka2; y12=yka2;
|
|
|
|
x21=xwb1; y21=ywb1;
|
|
x22=xwb2; y22=ywb2;
|
|
|
|
p1[0]=xka1; p1[1]=yka1;
|
|
p2[0]=xka2; p2[1]=yka2;
|
|
|
|
qjadu(xka1,yka1,xka2,yka2);
|
|
|
|
q=(qhcjc+90)*pi314/180;
|
|
p3[0]=xwb1+8000*cos(q);
|
|
p3[1]=ywb1+8000*sin(q);
|
|
|
|
q=(qhcjc-90)*pi314/180;
|
|
p4[0]=xwb1+8000*cos(q);
|
|
p4[1]=ywb1+8000*sin(q);
|
|
|
|
it11=0;
|
|
if (ads_inters(p1,p2,p3,p4,1,pp)==RTNORM) {
|
|
x11=pp[0]; y11=pp[1];
|
|
it11=1; }
|
|
|
|
q=(qhcjc+90)*pi314/180;
|
|
p3[0]=xwb2+8000*cos(q);
|
|
p3[1]=ywb2+8000*sin(q);
|
|
|
|
q=(qhcjc-90)*pi314/180;
|
|
p4[0]=xwb2+8000*cos(q);
|
|
p4[1]=ywb2+8000*sin(q);
|
|
|
|
it12=0;
|
|
if (ads_inters(p1,p2,p3,p4,1,pp)==RTNORM) {
|
|
x12=pp[0]; y12=pp[1];
|
|
it12=1; }
|
|
|
|
|
|
p1[0]=xwb1; p1[1]=ywb1;
|
|
p2[0]=xwb2; p2[1]=ywb2;
|
|
|
|
qjadu(xka1,yka1,xka2,yka2);
|
|
|
|
q=(qhcjc+90)*pi314/180;
|
|
p3[0]=xka1+8000*cos(q);
|
|
p3[1]=yka1+8000*sin(q);
|
|
|
|
q=(qhcjc-90)*pi314/180;
|
|
p4[0]=xka1+8000*cos(q);
|
|
p4[1]=yka1+8000*sin(q);
|
|
|
|
it21=0;
|
|
if (ads_inters(p1,p2,p3,p4,1,pp)==RTNORM) {
|
|
x21=pp[0]; y21=pp[1];
|
|
it21=1;
|
|
|
|
if (i0==2) {
|
|
dx=x21-xwb1; dy=y21-ywb1;
|
|
d1=sqrt(dx*dx+dy*dy);
|
|
|
|
if ((d1>800.0)&&(ddar[1][5]==200)) {
|
|
ddar[1][1]=xwb1; ddar[1][2]=ywb1;
|
|
ddar[1][3]=x21; ddar[1][4]=y21;
|
|
ddar[1][5]=0; ddar[1][6]=0;
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
q=(qhcjc+90)*pi314/180;
|
|
p3[0]=xka2+8000*cos(q);
|
|
p3[1]=yka2+8000*sin(q);
|
|
|
|
q=(qhcjc-90)*pi314/180;
|
|
p4[0]=xka2+8000*cos(q);
|
|
p4[1]=yka2+8000*sin(q);
|
|
|
|
it22=0;
|
|
if (ads_inters(p1,p2,p3,p4,1,pp)==RTNORM) {
|
|
x22=pp[0]; y22=pp[1];
|
|
it22=1;
|
|
|
|
if (i0==iarry-1) {
|
|
dx=x22-xwb2; dy=y22-ywb2;
|
|
d1=sqrt(dx*dx+dy*dy);
|
|
|
|
if ((d1>800.0)&&(ddar[2][5]==200)) {
|
|
ddar[2][1]=x22; ddar[2][2]=y22;
|
|
ddar[2][3]=xwb2; ddar[2][4]=ywb2;
|
|
ddar[2][5]=0; ddar[2][6]=0;
|
|
}
|
|
}
|
|
|
|
}
|
|
|
|
xdz1=(x11+x21)/2; ydz1=(y11+y21)/2;
|
|
xdz2=(x12+x22)/2; ydz2=(y12+y22)/2;
|
|
|
|
// hlin(xdz1,ydz1,xdz2,ydz2,3);
|
|
|
|
xp1=(x11+x12)/2; yp1=(y11+y12)/2;
|
|
xp2=(x21+x22)/2; yp2=(y21+y22)/2;
|
|
|
|
// hlin(xp1,yp1,xp2,yp2,7);
|
|
|
|
itdote=0;
|
|
|
|
uldote(xp1,yp1,xp2,yp2);
|
|
|
|
if ((itdote==0)&&(wwjul>0)) {
|
|
|
|
xdot=(xdz1+xdz2)/2;
|
|
ydot=(ydz1+ydz2)/2;
|
|
|
|
x0=xdot; y0=ydot;
|
|
|
|
dsdote=2000.0;
|
|
|
|
uldote23(2,x11,y11,x12,y12);
|
|
uldote23(3,x21,y21,x22,y22);
|
|
|
|
if (itdote==0) goto aaa;
|
|
|
|
dx=xdot-x0; dy=ydot-y0;
|
|
xdz1=xdz1+dx; ydz1=ydz1+dy;
|
|
xdz2=xdz2+dx; ydz2=ydz2+dy;
|
|
|
|
whouz=0; whouy=0;
|
|
|
|
qjadu(xdz1,ydz1,xdz2,ydz2);
|
|
|
|
p3[0]=(xdz1+xdz2)/2;
|
|
p3[1]=(ydz1+ydz2)/2;
|
|
q=(qhcjc-90)*pi314/180;
|
|
p4[0]=p3[0]+8000*cos(q);
|
|
p4[1]=p3[1]+8000*sin(q);
|
|
|
|
p1[0]=xka1; p1[1]=yka1;
|
|
p2[0]=xka2; p2[1]=yka2;
|
|
|
|
if (ads_inters(p1,p2,p3,p4,1,pp)==RTNORM) {
|
|
dx=p3[0]-pp[0]; dy=p3[1]-pp[1];
|
|
d1=sqrt(dx*dx+dy*dy);
|
|
if (d1>0.0001) whouy=d1;
|
|
}
|
|
|
|
p1[0]=xwb1; p1[1]=ywb1;
|
|
p2[0]=xwb2; p2[1]=ywb2;
|
|
|
|
if (ads_inters(p1,p2,p3,p4,1,pp)==RTNORM) {
|
|
dx=p3[0]-pp[0]; dy=p3[1]-pp[1];
|
|
d1=sqrt(dx*dx+dy*dy);
|
|
if (d1>0.0001) whouz=d1;
|
|
}
|
|
|
|
//ads_printf(_T("\nAAA whouz=%f,whouy=%f"),whouz,whouy);
|
|
|
|
if ((whouz>0)&&(whouy>0)) {
|
|
|
|
if (whouy<whouz) {
|
|
dx=whouz; whouz=whouy; whouy=dx; }
|
|
|
|
whouz=-whouz;
|
|
|
|
// ads_printf(_T("\nAAA whouz=%f,whouy=%f"),whouz,whouy);
|
|
|
|
goto edd;
|
|
}
|
|
|
|
|
|
whouz=0; whouy=0;
|
|
|
|
p3[0]=(xdz1+xdz2)/2;
|
|
p3[1]=(ydz1+ydz2)/2;
|
|
|
|
q=(qhcjc+90)*pi314/180;
|
|
p4[0]=p3[0]+8000*cos(q);
|
|
p4[1]=p3[1]+8000*sin(q);
|
|
|
|
p1[0]=xka1; p1[1]=yka1;
|
|
p2[0]=xka2; p2[1]=yka2;
|
|
|
|
if (ads_inters(p1,p2,p3,p4,1,pp)==RTNORM) {
|
|
dx=p3[0]-pp[0]; dy=p3[1]-pp[1];
|
|
d1=sqrt(dx*dx+dy*dy);
|
|
if (d1>0.0001) whouz=d1;
|
|
}
|
|
|
|
p1[0]=xwb1; p1[1]=ywb1;
|
|
p2[0]=xwb2; p2[1]=ywb2;
|
|
|
|
if (ads_inters(p1,p2,p3,p4,1,pp)==RTNORM) {
|
|
dx=p3[0]-pp[0]; dy=p3[1]-pp[1];
|
|
d1=sqrt(dx*dx+dy*dy);
|
|
if (d1>0.0001) whouy=d1;
|
|
}
|
|
|
|
//ads_printf(_T("\nBBB whouz=%f,whouy=%f"),whouz,whouy);
|
|
|
|
if ((whouz>0)&&(whouy>0)) {
|
|
|
|
if (whouz<whouy) {
|
|
dx=whouz; whouz=whouy; whouy=dx; }
|
|
|
|
whouy=-whouy;
|
|
|
|
//ads_printf(_T("\nBBB whouz=%f,whouy=%f"),whouz,whouy);
|
|
goto edd;
|
|
}
|
|
|
|
return;
|
|
}
|
|
|
|
aaa: whouz=0; whouy=0;
|
|
|
|
qjadu(xdz1,ydz1,xdz2,ydz2);
|
|
|
|
p3[0]=(xdz1+xdz2)/2;
|
|
p3[1]=(ydz1+ydz2)/2;
|
|
q=(qhcjc-90)*pi314/180;
|
|
p4[0]=p3[0]+8000*cos(q);
|
|
p4[1]=p3[1]+8000*sin(q);
|
|
|
|
p1[0]=xka1; p1[1]=yka1;
|
|
p2[0]=xka2; p2[1]=yka2;
|
|
|
|
if (ads_inters(p1,p2,p3,p4,1,pp)==RTNORM) {
|
|
dx=p3[0]-pp[0]; dy=p3[1]-pp[1];
|
|
d1=sqrt(dx*dx+dy*dy);
|
|
if (d1>0.0001) whouy=d1;
|
|
}
|
|
|
|
p1[0]=xwb1; p1[1]=ywb1;
|
|
p2[0]=xwb2; p2[1]=ywb2;
|
|
|
|
if (ads_inters(p1,p2,p3,p4,1,pp)==RTNORM) {
|
|
dx=p3[0]-pp[0]; dy=p3[1]-pp[1];
|
|
d1=sqrt(dx*dx+dy*dy);
|
|
if (d1>0.0001) whouy=d1;
|
|
}
|
|
|
|
|
|
p3[0]=(xdz1+xdz2)/2;
|
|
p3[1]=(ydz1+ydz2)/2;
|
|
|
|
q=(qhcjc+90)*pi314/180;
|
|
p4[0]=p3[0]+8000*cos(q);
|
|
p4[1]=p3[1]+8000*sin(q);
|
|
|
|
p1[0]=xka1; p1[1]=yka1;
|
|
p2[0]=xka2; p2[1]=yka2;
|
|
|
|
if (ads_inters(p1,p2,p3,p4,1,pp)==RTNORM) {
|
|
dx=p3[0]-pp[0]; dy=p3[1]-pp[1];
|
|
d1=sqrt(dx*dx+dy*dy);
|
|
if (d1>0.0001) whouz=d1;
|
|
}
|
|
|
|
p1[0]=xwb1; p1[1]=ywb1;
|
|
p2[0]=xwb2; p2[1]=ywb2;
|
|
|
|
if (ads_inters(p1,p2,p3,p4,1,pp)==RTNORM) {
|
|
dx=p3[0]-pp[0]; dy=p3[1]-pp[1];
|
|
d1=sqrt(dx*dx+dy*dy);
|
|
if (d1>0.0001) whouz=d1;
|
|
}
|
|
|
|
|
|
edd:p1[0]=xdz1; p1[1]=ydz1; p1[2]=0;
|
|
p2[0]=xdz2; p2[1]=ydz2; p2[2]=0;
|
|
|
|
// hlin(xdz1,ydz1,xdz2,ydz2,3);
|
|
|
|
wlinTDOTE(p1,p2);
|
|
|
|
}
|
|
|
|
|
|
|
|
void ulwa00(void)
|
|
{
|
|
struct resbuf *ebup,*rb;
|
|
ads_name ss1,en;
|
|
int typi;
|
|
Adesk::Int32 i,len;
|
|
|
|
ads_real x1,y1,x2,y2,dx,dy,d1,d01,d02;
|
|
ads_real q1,dq;
|
|
ads_real x11,y11,x12,y12,x21,y21,x22,y22;
|
|
|
|
ads_point p01,p02;
|
|
TCHAR txtdxf0[40]=_T(""),txtnam8[40]=_T("");
|
|
|
|
|
|
x1=xdo1; x2=xdo2;
|
|
if (x2<x1) { x1=xdo2; x2=xdo1;}
|
|
|
|
y1=ydo1; y2=ydo2;
|
|
if (y2<y1) { y1=ydo2; y2=ydo1; }
|
|
|
|
p01[0]=x1-10*ds111; p01[1]=y1-10*ds111; p01[2]=0;
|
|
p02[0]=x2+10*ds111; p02[1]=y2+10*ds111; p02[2]=0;
|
|
|
|
d01=2000; d02=2000;
|
|
ul112l(p01[0],p01[1],p02[0],p02[1],0);
|
|
|
|
//modified by whl on 060323
|
|
//RBList mask(RTDXF0, _T("LINE"), 8, _T("WALL*"), NULL);
|
|
XString sLayer;
|
|
sLayer<<_T("WALL*,")<<LAY_WALL;
|
|
RBList mask(RTDXF0, _T("LINE"), 8,(const TCHAR*)sLayer, NULL);
|
|
|
|
if (ads_ssget(_T("C"),p01,p02,mask,ss1)!=RTNORM)
|
|
return;
|
|
i=0;
|
|
if (ads_sslength(ss1,&len)==RTNORM) goto strbb;
|
|
return;
|
|
|
|
strbb:ads_ssname(ss1,i,en);
|
|
|
|
ebup=ads_entget(en);
|
|
|
|
if (ebup==NULL) goto mbb1;
|
|
|
|
for (rb=ebup;rb!=NULL;rb=rb->rbnext) {
|
|
typi=rb->restype;
|
|
|
|
if (typi==0) _tcscpy(txtdxf0,rb->resval.rstring);
|
|
if (typi==8) _tcscpy(txtnam8,rb->resval.rstring);
|
|
|
|
|
|
if (typi==10) {
|
|
x1=rb->resval.rpoint[0];
|
|
y1=rb->resval.rpoint[1]; }
|
|
|
|
if (typi==11) {
|
|
x2=rb->resval.rpoint[0];
|
|
y2=rb->resval.rpoint[1]; }
|
|
}
|
|
|
|
ads_relrb(ebup);
|
|
ads_relrb(rb);
|
|
|
|
|
|
//if ((txtnam8[0]==_T('W'))&&(txtnam8[1]==_T('A'))&&(txtnam8[2]==_T('L'))&&(txtnam8[3]==_T('L'))) goto bbwa;
|
|
// goto mbb1;
|
|
|
|
//bbwa: if ((txtdxf0[0]==_T('L'))&&(txtdxf0[1]==_T('I'))&&(txtdxf0[2]==_T('N'))&&(txtdxf0[3]==_T('E'))) goto bbin;
|
|
// goto mbb1;
|
|
|
|
//bbin:
|
|
dx=x1-x2; dy=y1-y2;
|
|
d1=sqrt(dx*dx+dy*dy);
|
|
if (d1<ds111) goto mbb1;
|
|
|
|
if ((fabs(x1-xdo1)<1.0E-6)&&
|
|
(fabs(y1-ydo1)<1.0E-6)&&
|
|
(fabs(x2-xdo2)<1.0E-6)&&
|
|
(fabs(y2-ydo2)<1.0E-6)) goto mbb1;
|
|
|
|
qjadu(xdo1,ydo1,xdo2,ydo2);
|
|
q1=qhcjc;
|
|
|
|
qjadu(x1,y1,x2,y2);
|
|
dq=q1-qhcjc;
|
|
|
|
if (dq<0) dq=-dq;
|
|
qq1:if (dq>269) { dq=dq-180; goto qq1; }
|
|
|
|
// ads_printf(_T("dq %f"),dq);
|
|
|
|
if ((dq<70)||(dq>101)) goto mbb1;
|
|
|
|
dx=xdo1-x1; dy=ydo1-y1;
|
|
d1=sqrt(dx*dx+dy*dy);
|
|
|
|
if (d1<ds111) {
|
|
d01=d1;
|
|
x11=x1; y11=y1; x12=x2; y12=y2;
|
|
}
|
|
|
|
dx=xdo1-x2; dy=ydo1-y2;
|
|
d1=sqrt(dx*dx+dy*dy);
|
|
|
|
if (d1<ds111) {
|
|
d01=d1;
|
|
x11=x2; y11=y2; x12=x1; y12=y1;
|
|
}
|
|
|
|
dx=xdo2-x1; dy=ydo2-y1;
|
|
d1=sqrt(dx*dx+dy*dy);
|
|
|
|
if (d1<ds111) {
|
|
d02=d1;
|
|
x21=x1; y21=y1; x22=x2; y22=y2;
|
|
}
|
|
|
|
dx=xdo2-x2; dy=ydo2-y2;
|
|
d1=sqrt(dx*dx+dy*dy);
|
|
|
|
if (d1<ds111) {
|
|
d02=d1;
|
|
x21=x2; y21=y2; x22=x1; y22=y1;
|
|
}
|
|
|
|
mbb1:i=i+1;
|
|
|
|
if (i<len) goto strbb;
|
|
|
|
ads_ssfree(ss1);
|
|
|
|
// ads_printf(_T("\nd01=%f,d02=%f"),d01,d02);
|
|
|
|
if ((d02<ds111)&&(d01<ds111)) {
|
|
qjadu(x11,y11,x12,y12);
|
|
q1=qhcjc;
|
|
|
|
qjadu(x21,y21,x22,y22);
|
|
dq=q1-qhcjc;
|
|
if (dq<0) dq=-dq;
|
|
if (dq>359) dq=dq-360;
|
|
if (dq<20) itmen=1;
|
|
}
|
|
|
|
}
|
|
|
|
void tzha(void)
|
|
{ struct resbuf *ebup,*rbp;
|
|
ads_name en;
|
|
int typi,itn;
|
|
|
|
Adesk::Int32 len,i;
|
|
|
|
ads_real x1,y1,x2,y2,dx,dy,d1,rr,dq,q1,q2;
|
|
TCHAR zf[40]=_T("");
|
|
|
|
itn=0;
|
|
|
|
aa0:i=0;
|
|
itn=itn+1;
|
|
if (itn>5000) return;
|
|
|
|
|
|
if (ads_sslength(ensspp,&len)==RTNORM) goto bbb;
|
|
|
|
return;
|
|
|
|
bbb:if (len==0) return;
|
|
|
|
ads_ssname(ensspp,i,en);
|
|
ebup=ads_entget(en);
|
|
|
|
if (ebup==NULL) goto bb1;
|
|
|
|
q1=0; q2=2*pi314;
|
|
|
|
for (rbp=ebup;rbp!=NULL;rbp=rbp->rbnext) {
|
|
typi=rbp->restype;
|
|
if (typi==0) _tcscpy(zf,rbp->resval.rstring);
|
|
if (typi==40) rr=rbp->resval.rreal;
|
|
if (typi==50) q1=rbp->resval.rreal;
|
|
if (typi==51) q2=rbp->resval.rreal;
|
|
if (typi==10) {
|
|
x1=rbp->resval.rpoint[0];
|
|
y1=rbp->resval.rpoint[1]; }
|
|
if (typi==11) {
|
|
x2=rbp->resval.rpoint[0];
|
|
y2=rbp->resval.rpoint[1]; }
|
|
}
|
|
|
|
ads_relrb(ebup);
|
|
ads_relrb(rbp);
|
|
|
|
if ((zf[0]==_T('L'))&&(zf[1]==_T('I'))&&(zf[2]==_T('N'))&&(zf[3]==_T('E'))) goto lin;
|
|
if ((zf[0]==_T('A'))&&(zf[1]==_T('R'))&&(zf[2]==_T('C'))) goto cir;
|
|
if ((zf[0]==_T('C'))&&(zf[1]==_T('I'))&&(zf[2]==_T('R'))&&(zf[3]==_T('C'))&&(zf[4]==_T('L'))&&(zf[5]==_T('E'))) goto cir;
|
|
goto bb1;
|
|
|
|
cir:if (rr<ds111) { //删除小圆弧
|
|
ads_ssdel(en,ensspp);
|
|
goto aa0; }
|
|
|
|
|
|
|
|
ads_name_set(en,entch);
|
|
|
|
xka1=x1; yka1=y1; karr=rr;
|
|
|
|
kaq1=q1*180/pi314;
|
|
kaq2=q2*180/pi314;
|
|
if (kaq2<kaq1) kaq2=kaq2+360;
|
|
|
|
dq=kaq2-kaq1;
|
|
d1=2*pi314*rr*dq/360;
|
|
|
|
//小于10 长度的墙线不处理
|
|
|
|
if (d1<10*ds111) goto bb1;
|
|
|
|
ularc();
|
|
|
|
goto aa0;
|
|
|
|
lin:dx=x1-x2;
|
|
dy=y1-y2;
|
|
d1=sqrt(dx*dx+dy*dy);
|
|
|
|
if (d1<ds111) {
|
|
ads_ssdel(en,ensspp);
|
|
goto aa0; }
|
|
|
|
//小于墙厚的墙线可能是窗线,不处理
|
|
|
|
if (d1<whou) goto bb1;
|
|
|
|
ads_name_set(en,entch);
|
|
xka1=x2; yka1=y2; xka2=x1; yka2=y1;
|
|
|
|
ddar[1][5]=200;
|
|
ddar[2][5]=200;
|
|
|
|
ulin0();
|
|
|
|
// 可能导致重合墙，因此用全局变量控制执行与否
|
|
if (g_nProcessMore) {
|
|
if (ddar[1][5]==0) ulin0dd(1);
|
|
if (ddar[2][5]==0) ulin0dd(2);
|
|
}
|
|
goto aa0;
|
|
|
|
bb1:i=i+1;
|
|
if (i<len) goto bbb;
|
|
|
|
}
|
|
|
|
void ulin0dd(int i0)
|
|
{ ads_real ds2;
|
|
|
|
ds2=ddar[2][5];
|
|
|
|
ddar[2][5]=0;
|
|
xka1=ddar[i0][1]; yka1=ddar[i0][2]; xka2=ddar[i0][3]; yka2=ddar[i0][4];
|
|
ulin0dda();
|
|
|
|
ddar[2][5]=ds2;
|
|
}
|
|
|
|
|
|
void ularc(void)
|
|
{
|
|
// ads_real ds;
|
|
|
|
ads_ssadd(NULL,NULL,ensspp0);
|
|
ads_ssadd(entch,ensspp0,ensspp0);
|
|
|
|
arry[2][5]=0;
|
|
|
|
arry[1][1]=xka1; arry[1][2]=yka1;
|
|
arry[1][3]=karr; arry[1][4]=kaq1;
|
|
arry[1][5]=6; arry[1][6]=kaq2;
|
|
|
|
|
|
ularc3();
|
|
|
|
if (arry[2][5]==0) goto sdd;
|
|
|
|
|
|
|
|
itmen=0;
|
|
|
|
// ads_printf(_T("\n111 kaq1=%f,kaq2=%f,karr=%f"),kaq1,kaq2,karr);
|
|
|
|
yyyq();
|
|
|
|
if (kaq2<kaq1+359) yyyqa();
|
|
|
|
// ads_printf(_T("\n111 end kaq1=%f,kaq2=%f"),kaq1,kaq2);
|
|
|
|
arry[1][1]=xka1; arry[1][2]=yka1;
|
|
arry[1][3]=karr; arry[1][4]=kaq1;
|
|
arry[1][5]=6; arry[1][6]=kaq2;
|
|
|
|
// hxucirarry(1,7);
|
|
// TCHAR dxfnam[40];
|
|
// ads_getstring(5,NULL,dxfnam);
|
|
|
|
if (arry[2][5]==6) {
|
|
xka1=arry[2][1]; yka1=arry[2][2];
|
|
karr=arry[2][3]; kaq1=arry[2][4];
|
|
kaq2=arry[2][6];
|
|
|
|
// ads_printf(_T("\n222 kaq1=%f,kaq2=%f,karr=%f"),kaq1,kaq2,karr);
|
|
|
|
yyyq();
|
|
|
|
if (kaq2<kaq1+359) yyyqa();
|
|
|
|
// ads_printf(_T("\n222 end kaq1=%f,kaq2=%f"),kaq1,kaq2);
|
|
|
|
arry[2][1]=xka1; arry[2][2]=yka1;
|
|
arry[2][3]=karr; arry[2][4]=kaq1;
|
|
arry[2][5]=6; arry[2][6]=kaq2;
|
|
|
|
// hxucirarry(2,2);
|
|
// TCHAR dxfnam[40];
|
|
// ads_getstring(5,NULL,dxfnam);
|
|
|
|
}
|
|
|
|
|
|
if ((arry[1][5]==6)&&(arry[2][5]==6)) {
|
|
ularc4(1);
|
|
ularc4(2); }
|
|
|
|
if ((arry[1][5]==6)&&(arry[2][5]==6)) {
|
|
ularcdote();
|
|
}
|
|
|
|
if (ientd==0) addentd();
|
|
|
|
sdd:ssdelenpp0();
|
|
|
|
ads_ssfree(ensspp0);
|
|
|
|
}
|
|
|
|
|
|
void qyxpoint(void)
|
|
{
|
|
ads_real x0,y0,d1,d2;
|
|
ads_real dx,dy,x1,y1,q,dd,dh,dx1,dx2,r1,r2;
|
|
ads_real xj1,yj1,xj2,yj2,x01,y01,x02,y02;
|
|
|
|
arrysa[3][5]=0;
|
|
|
|
x01=arrysa[1][1]; y01=arrysa[1][2]; r1=arrysa[1][3];
|
|
x02=arrysa[2][1]; y02=arrysa[2][2]; r2=arrysa[2][3];
|
|
|
|
dx=x01-x02;
|
|
dy=y01-y02;
|
|
dd=sqrt(dx*dx+dy*dy);
|
|
dx=r1+r2;
|
|
|
|
if ((dd>dx)||(dd<jsjdu)) return;
|
|
|
|
if (r1<r2) {
|
|
dy=r1+dd;
|
|
if (dy<r2) return; }
|
|
|
|
if (r2<r1) {
|
|
dy=r2+dd;
|
|
if (dy<r1) return; }
|
|
|
|
dx2=(r2*r2-r1*r1+dd*dd)/(2*dd);
|
|
dx1=dd-dx2;
|
|
|
|
dh=r2*r2-dx2*dx2;
|
|
if (dh<0) return;
|
|
|
|
dh=sqrt(dh);
|
|
qjadu(x01,y01,x02,y02);
|
|
q=qhcjc*pi314/180;
|
|
x1=x01+dx1*cos(q);
|
|
y1=y01+dx1*sin(q);
|
|
|
|
q=(qhcjc+90)*pi314/180;
|
|
xj1=x1+dh*cos(q);
|
|
yj1=y1+dh*sin(q);
|
|
q=(qhcjc-90)*pi314/180;
|
|
xj2=x1+dh*cos(q);
|
|
yj2=y1+dh*sin(q);
|
|
|
|
qjadu(x01,y01,x02,y02);
|
|
q=(qhcjc+90)*pi314/180;
|
|
x0=x01+1000*cos(q);
|
|
y0=y01+1000*sin(q);
|
|
dx=x0-xj1;
|
|
dy=y0-yj1;
|
|
d1=sqrt(dx*dx+dy*dy);
|
|
|
|
dx=x0-xj2;
|
|
dy=y0-yj2;
|
|
d2=sqrt(dx*dx+dy*dy);
|
|
|
|
arrysa[3][1]=xj1; arrysa[3][2]=yj1;
|
|
arrysa[3][3]=xj2; arrysa[3][4]=yj2;
|
|
|
|
if (d2<d1) {
|
|
arrysa[3][1]=xj2; arrysa[3][2]=yj2;
|
|
arrysa[3][3]=xj1; arrysa[3][4]=yj1; }
|
|
|
|
arrysa[3][5]=200;
|
|
}
|
|
|
|
|
|
void ularc3(void)
|
|
{ int i,id;
|
|
ads_real q,dq;
|
|
|
|
ads_real dd3[5][3];
|
|
|
|
// dx=xka1-xka2;
|
|
// dy=yka1-yka2;
|
|
// d1=sqrt(dx*dx+dy*dy);
|
|
// qjadu(xka1,yka1,xka2,yka2);
|
|
|
|
q=(kaq1+kaq2)/2;
|
|
q=q*pi314/180;
|
|
|
|
dd3[1][1]=xka1+karr*cos(q);
|
|
dd3[1][2]=yka1+karr*sin(q);
|
|
|
|
dq=kaq2-kaq1;
|
|
|
|
q=kaq1+dq/4;
|
|
q=q*pi314/180;
|
|
|
|
dd3[2][1]=xka1+karr*cos(q);
|
|
dd3[2][2]=yka1+karr*sin(q);
|
|
|
|
q=kaq1+3*dq/4;
|
|
q=q*pi314/180;
|
|
|
|
dd3[3][1]=xka1+karr*cos(q);
|
|
dd3[3][2]=yka1+karr*sin(q);
|
|
|
|
id=4;
|
|
itmen=0;
|
|
|
|
i=1;
|
|
aa1:ularc3a(dd3[i][1],dd3[i][2]);
|
|
|
|
if (itmen==3) return;
|
|
i=i+1;
|
|
if (i<id) goto aa1;
|
|
|
|
}
|
|
|
|
|
|
void ularc3a(ads_real x0,ads_real y0)
|
|
{
|
|
struct resbuf *ebup,*rb;
|
|
ads_name ss1,en;
|
|
int typi;
|
|
Adesk::Int32 i,len;
|
|
|
|
TCHAR txtdxf0[40]=_T(""),txtnam8[40]=_T("");
|
|
ads_real q0,q,dx,dy,d1,x1,y1;
|
|
|
|
ads_real d0,rr,q1,q2,dq;
|
|
|
|
ads_point p01,p02;
|
|
|
|
d0=2000;
|
|
|
|
arry[2][5]=0;
|
|
|
|
qjadu(xka1,yka1,x0,y0);
|
|
|
|
q0=qhcjc;
|
|
dx=dswa500;
|
|
if (dx<whou) dx=whou;
|
|
|
|
|
|
q=qhcjc*pi314/180;
|
|
p01[0]=x0+dx*cos(q); p01[1]=y0+dx*sin(q); p01[2]=0;
|
|
p02[0]=x0-dx*cos(q); p02[1]=y0-dx*sin(q); p02[2]=0;
|
|
|
|
ul112l(p01[0],p01[1],p02[0],p02[1],ds111);
|
|
|
|
//modified by whl on 060323
|
|
//RBList mask(RTDXF0, _T("ARC,CIRCLE"), 8, _T("WALL*"), NULL);
|
|
XString sLayer;
|
|
sLayer<<_T("WALL*,")<<LAY_WALL;
|
|
RBList mask(RTDXF0, _T("ARC,CIRCLE"), 8,(const TCHAR*)sLayer, NULL);
|
|
|
|
if (ads_ssget(_T("C"),p01,p02,mask,ss1)!=RTNORM)
|
|
return;
|
|
|
|
i=0;
|
|
if (ads_sslength(ss1,&len)==RTNORM) goto bbb;
|
|
return;
|
|
|
|
bbb:ads_ssname(ss1,i,en);
|
|
ebup=ads_entget(en);
|
|
|
|
if (ebup==NULL) goto bb1;
|
|
|
|
q1=0; q2=2*pi314;
|
|
|
|
for (rb=ebup;rb!=NULL;rb=rb->rbnext) {
|
|
typi=rb->restype;
|
|
|
|
if (typi==0) _tcscpy(txtdxf0,rb->resval.rstring);
|
|
if (typi==8) _tcscpy(txtnam8,rb->resval.rstring);
|
|
|
|
if (typi==40) rr=rb->resval.rreal;
|
|
if (typi==50) q1=rb->resval.rreal;
|
|
if (typi==51) q2=rb->resval.rreal;
|
|
|
|
if (typi==10) {
|
|
x1=rb->resval.rpoint[0];
|
|
y1=rb->resval.rpoint[1]; }
|
|
}
|
|
|
|
ads_relrb(ebup);
|
|
ads_relrb(rb);
|
|
|
|
//if ((txtnam8[0]==_T('W'))&&(txtnam8[1]==_T('A'))&&(txtnam8[2]==_T('L'))&&(txtnam8[3]==_T('L'))) goto bbwa;
|
|
|
|
// goto bb1;
|
|
|
|
//bbwa:
|
|
if ((txtdxf0[0]==_T('A'))&&(txtdxf0[1]==_T('R'))&&(txtdxf0[2]==_T('C'))) goto arc;
|
|
if ((txtdxf0[0]==_T('C'))&&(txtdxf0[1]==_T('I'))&&(txtdxf0[2]==_T('R'))&&(txtdxf0[3]==_T('C'))&&(txtdxf0[4]==_T('L'))&&(txtdxf0[5]==_T('E'))) goto arc;
|
|
|
|
goto bb1;
|
|
|
|
arc:dx=x1-xka1; dy=y1-yka1;
|
|
d1=sqrt(dx*dx+dy*dy);
|
|
if (d1>10*ds111) goto bb1;
|
|
|
|
d1=fabs(karr-rr);
|
|
|
|
if ((d1<d0)&&(d1>ds111)) {
|
|
|
|
d0=d1;
|
|
q1=q1*180/pi314;
|
|
q2=q2*180/pi314;
|
|
if (q2<q1) q2=q2+360;
|
|
|
|
dq=q2-q1;
|
|
|
|
arry[2][1]=x1; arry[2][2]=y1; arry[2][3]=rr;
|
|
arry[2][4]=q1; arry[2][5]=6; arry[2][6]=q2;
|
|
|
|
if (dq>359) {
|
|
arry[2][4]=arry[1][4];
|
|
arry[2][6]=arry[1][6];
|
|
|
|
|
|
}
|
|
|
|
|
|
}
|
|
|
|
bb1:i=i+1;
|
|
if (i<len) goto bbb;
|
|
|
|
ads_ssfree(ss1);
|
|
|
|
if (d0<2000) {
|
|
itmen=3;
|
|
}
|
|
|
|
}
|
|
|
|
void ularc4(int i0)
|
|
{
|
|
struct resbuf *ebup,*rb;
|
|
ads_name ss1,en;
|
|
int typi;
|
|
Adesk::Int32 i,len;
|
|
|
|
TCHAR txtdxf0[40]=_T(""),txtnam8[40]=_T("");
|
|
ads_real x0,y0,q,dx,dy,d1,d2,x1,y1,x2,y2,rr0;
|
|
|
|
ads_real rr,q1,q2,q01,q02;
|
|
|
|
ads_point p01,p02;
|
|
|
|
x0=arry[i0][1]; y0=arry[i0][2];
|
|
rr0=arry[i0][3];
|
|
q01=arry[i0][4]-0.001;
|
|
q02=arry[i0][6]+0.001;
|
|
|
|
dx=arry[i0][3]+ds111;
|
|
p01[0]=x0-dx; p01[1]=y0-dx; p01[2]=0;
|
|
p02[0]=x0+dx; p02[1]=y0+dx; p02[2]=0;
|
|
|
|
ul112l(p01[0],p01[1],p02[0],p02[1],ds111);
|
|
|
|
//modified by whl on 060323
|
|
//RBList mask(RTDXF0, _T("LINE,ARC"), 8, _T("WALL*"), NULL);
|
|
XString sLayer;
|
|
sLayer<<_T("WALL*,")<<LAY_WALL;
|
|
RBList mask(RTDXF0, _T("LINE,ARC"), 8,(const TCHAR*)sLayer, NULL);
|
|
|
|
if (ads_ssget(_T("C"),p01,p02,mask,ss1)!=RTNORM)
|
|
return;
|
|
i=0;
|
|
if (ads_sslength(ss1,&len)==RTNORM) goto bbb;
|
|
return;
|
|
|
|
bbb:ads_ssname(ss1,i,en);
|
|
ebup=ads_entget(en);
|
|
|
|
if (ebup==NULL) goto bb1;
|
|
|
|
q1=0; q2=2*pi314;
|
|
|
|
for (rb=ebup;rb!=NULL;rb=rb->rbnext) {
|
|
typi=rb->restype;
|
|
|
|
if (typi==0) _tcscpy(txtdxf0,rb->resval.rstring);
|
|
if (typi==8) _tcscpy(txtnam8,rb->resval.rstring);
|
|
|
|
if (typi==40) rr=rb->resval.rreal;
|
|
if (typi==50) q1=rb->resval.rreal;
|
|
if (typi==51) q2=rb->resval.rreal;
|
|
|
|
if (typi==10) {
|
|
x1=rb->resval.rpoint[0];
|
|
y1=rb->resval.rpoint[1]; }
|
|
|
|
if (typi==11) {
|
|
x2=rb->resval.rpoint[0];
|
|
y2=rb->resval.rpoint[1]; }
|
|
|
|
|
|
}
|
|
|
|
ads_relrb(ebup);
|
|
ads_relrb(rb);
|
|
|
|
//if ((txtnam8[0]==_T('W'))&&(txtnam8[1]==_T('A'))&&(txtnam8[2]==_T('L'))&&(txtnam8[3]==_T('L'))) goto bbwa;
|
|
|
|
// goto bb1;
|
|
|
|
//bbwa:
|
|
if ((txtdxf0[0]==_T('A'))&&(txtdxf0[1]==_T('R'))&&(txtdxf0[2]==_T('C'))) goto arc;
|
|
if ((txtdxf0[0]==_T('L'))&&(txtdxf0[1]==_T('I'))&&(txtdxf0[2]==_T('N'))&&(txtdxf0[3]==_T('E'))) goto lin;
|
|
goto bb1;
|
|
|
|
lin:qjadu(x0,y0,x1,y1);
|
|
q=qhcjc;
|
|
if ((q>q01)&&(q<q02)||(q>q01-360)&&(q<q02-360)||(q>q01+360)&&(q<q02+360)) goto bblin;
|
|
|
|
qjadu(x0,y0,x2,y2);
|
|
q=qhcjc;
|
|
if ((q>q01)&&(q<q02)||(q>q01-360)&&(q<q02-360)||(q>q01+360)&&(q<q02+360)) goto bblin;
|
|
goto bb1;
|
|
|
|
bblin:dx=x1-x0; dy=y1-y0;
|
|
rr=sqrt(dx*dx+dy*dy);
|
|
|
|
d1=fabs(arry[1][3]-rr);
|
|
d2=fabs(arry[2][3]-rr);
|
|
if ((d1>2*ds111)&&(d2>2*ds111)) goto bb1;
|
|
|
|
dx=x2-x0; dy=y2-y0;
|
|
rr=sqrt(dx*dx+dy*dy);
|
|
|
|
d1=fabs(arry[1][3]-rr);
|
|
d2=fabs(arry[2][3]-rr);
|
|
|
|
if ((d1>2*ds111)&&(d2>2*ds111)) goto bb1;
|
|
|
|
ads_ssadd(en,ensspp0,ensspp0);
|
|
|
|
goto bb1;
|
|
|
|
arc:dx=x1-x0; dy=y1-y0;
|
|
d1=sqrt(dx*dx+dy*dy);
|
|
if (d1>10*ds111) goto bb1;
|
|
|
|
d1=fabs(rr0-rr);
|
|
if (d1>ds111) goto bb1;
|
|
|
|
q=q1*180/pi314;
|
|
|
|
if ((q>q01)&&(q<q02)||(q>q01-360)&&(q<q02-360)||(q>q01+360)&&(q<q02+360)) goto bb20;
|
|
goto bb1;
|
|
|
|
bb20: q=q2*180/pi314;
|
|
if ((q>q01)&&(q<q02)||(q>q01-360)&&(q<q02-360)||(q>q01+360)&&(q<q02+360)) goto bb30;
|
|
goto bb1;
|
|
|
|
bb30:ads_ssadd(en,ensspp0,ensspp0);
|
|
|
|
bb1:i=i+1;
|
|
if (i<len) goto bbb;
|
|
|
|
ads_ssfree(ss1);
|
|
|
|
}
|
|
|
|
|
|
|
|
void ularcdote(void)
|
|
{
|
|
|
|
struct resbuf *ebup,*rb;
|
|
ads_name ss1,en;
|
|
int typi;
|
|
Adesk::Int32 i,len;
|
|
|
|
TCHAR txtdxf0[40]=_T(""),txtnam8[40]=_T("");
|
|
ads_real x0,y0,q,dq,dx,dy,d1,x1,y1,rr1,rr2,rr0;
|
|
|
|
ads_real rr,q0,q1,q2;
|
|
|
|
ads_point p01,p02;
|
|
|
|
|
|
x0=arry[1][1]; y0=arry[1][2];
|
|
rr1=arry[1][3];
|
|
if (rr1>arry[2][3]) rr1=arry[2][3];
|
|
|
|
rr2=arry[1][3];
|
|
if (rr2<arry[2][3]) rr2=arry[2][3];
|
|
|
|
rr0=(rr2+rr1)/2;
|
|
|
|
whouy=(rr2-rr1)/2;
|
|
whouz=whouy;
|
|
|
|
|
|
//ads_printf(_T("\n arry[1][4]=%f,arry[1][6]=%f"),arry[1][4],arry[1][6]);
|
|
//ads_printf(_T("\n arry[2][4]=%f,arry[2][6]=%f"),arry[2][4],arry[2][6]);
|
|
|
|
|
|
dq=(arry[1][6]-arry[1][4]);
|
|
|
|
if (dq>355) {
|
|
q1=arry[2][4]; q2=arry[2][6];
|
|
goto aaa; }
|
|
|
|
|
|
dq=(arry[2][6]-arry[2][4]);
|
|
|
|
if (dq>355) {
|
|
q1=arry[1][4]; q2=arry[1][6];
|
|
goto aaa; }
|
|
|
|
|
|
|
|
|
|
q1=arry[1][4];
|
|
if (q1<arry[2][4]) q1=arry[2][4];
|
|
|
|
q2=arry[1][6];
|
|
if (q2>arry[2][6]) q2=arry[2][6];
|
|
|
|
// ads_printf(_T("\n q1=%f,q2=%f"),q1,q2);
|
|
|
|
if (q2<q1) q2=q2+360;
|
|
if (q2>q1+360) q2=q2-360;
|
|
|
|
aaa: arry[1][4]=q1; arry[1][6]=q2;
|
|
arry[2][4]=q1; arry[2][6]=q2;
|
|
|
|
dq=q2-q1;
|
|
if (dq<0.001) return;
|
|
q0=(q1+q2)/2;
|
|
|
|
|
|
dx=arry[1][3];
|
|
if (dx<arry[2][3]) dx=arry[2][3];
|
|
|
|
p01[0]=x0-dx; p01[1]=y0-dx; p01[2]=0;
|
|
p02[0]=x0+dx; p02[1]=y0+dx; p02[2]=0;
|
|
|
|
|
|
//modified by whl on 060323
|
|
//RBList mask(RTDXF0, _T("ARC,CIRCLE"), 8, LAY_AXIS, NULL);
|
|
XString sLayer;
|
|
sLayer<<_T("DOTE,")<<LAY_AXIS;
|
|
RBList mask(RTDXF0, _T("ARC,CIRCLE"), 8, (const TCHAR*)sLayer, NULL);
|
|
|
|
if (ads_ssget(_T("C"),p01,p02,mask,ss1)!=RTNORM)
|
|
return;
|
|
|
|
i=0;
|
|
if (ads_sslength(ss1,&len)==RTNORM) goto bbb;
|
|
return;
|
|
|
|
bbb:ads_ssname(ss1,i,en);
|
|
ebup=ads_entget(en);
|
|
|
|
if (ebup==NULL) goto bb1;
|
|
|
|
q1=0; q2=2*pi314;
|
|
|
|
for (rb=ebup;rb!=NULL;rb=rb->rbnext) {
|
|
typi=rb->restype;
|
|
|
|
if (typi==0) _tcscpy(txtdxf0,rb->resval.rstring);
|
|
if (typi==8) _tcscpy(txtnam8,rb->resval.rstring);
|
|
|
|
if (typi==40) rr=rb->resval.rreal;
|
|
if (typi==50) q1=rb->resval.rreal;
|
|
if (typi==51) q2=rb->resval.rreal;
|
|
|
|
if (typi==10) {
|
|
x1=rb->resval.rpoint[0];
|
|
y1=rb->resval.rpoint[1]; }
|
|
|
|
|
|
}
|
|
|
|
ads_relrb(ebup);
|
|
ads_relrb(rb);
|
|
|
|
//if ((txtnam8[0]==_T('D'))&&(txtnam8[1]==_T('O'))&&(txtnam8[2]==_T('T'))&&(txtnam8[3]==_T('E'))) goto bbwa;
|
|
|
|
// goto bb1;
|
|
|
|
//bbwa:
|
|
if ((txtdxf0[0]==_T('A'))&&(txtdxf0[1]==_T('R'))&&(txtdxf0[2]==_T('C'))) goto arc;
|
|
if ((txtdxf0[0]==_T('C'))&&(txtdxf0[1]==_T('I'))&&(txtdxf0[2]==_T('R'))&&(txtdxf0[3]==_T('C'))&&(txtdxf0[4]==_T('L'))&&(txtdxf0[5]==_T('E'))) goto arc;
|
|
goto bb1;
|
|
|
|
arc:dx=x1-x0; dy=y1-y0;
|
|
d1=sqrt(dx*dx+dy*dy);
|
|
if (d1>10*ds111) goto bb1;
|
|
|
|
q1=q1*180/pi314;
|
|
q2=q2*180/pi314;
|
|
if (q2<q1) q2=q2+360;
|
|
q=q0;
|
|
|
|
if ((q>q1)&&(q<q2)||(q>q1-360)&&(q<q2-360)||(q>q1+360)&&(q<q2+360)) goto bb20;
|
|
goto bb1;
|
|
|
|
bb20:if ((rr<rr1-0.001)||(rr>rr2+0.001)) goto bb1;
|
|
|
|
rr0=rr;
|
|
whouy=rr2-rr;
|
|
if (whouy<0) whouy=0;
|
|
|
|
whouz=rr-rr1;
|
|
if (whouz<0) whouz=0;
|
|
|
|
bb1:i=i+1;
|
|
if (i<len) goto bbb;
|
|
|
|
ads_ssfree(ss1);
|
|
|
|
p01[0]=x0; p01[1]=y0; p01[2]=0;
|
|
|
|
//ads_printf(_T("\n arry[1][4]=%f,arry[1][6]=%f"),arry[1][4],arry[1][6]);
|
|
|
|
warc(p01,arry[1][4],arry[1][6],rr0);
|
|
|
|
}
|
|
|
|
|
|
void warc(ads_point p1,ads_real q1,ads_real q2,ads_real rr)
|
|
{ struct resbuf *rb;
|
|
ads_name en;
|
|
|
|
q1=q1*pi314/180;
|
|
q2=q2*pi314/180;
|
|
|
|
rb=ads_buildlist(RTDXF0,_T("ARC"),
|
|
6,_T("BYLAYER"),
|
|
8,_T("TDOTE"),
|
|
62,256,
|
|
10,p1,
|
|
40,rr,
|
|
50,q1,
|
|
51,q2,
|
|
39,3000.0,
|
|
-3,
|
|
1001,_T("TDOTE"),
|
|
1040,whouz,
|
|
1040,whouy,
|
|
NULL);
|
|
|
|
ads_entmake(rb);
|
|
ads_relrb(rb);
|
|
|
|
if (ads_entlast(en)==RTNORM) {
|
|
ads_ssadd(en,endd0,endd0);
|
|
}
|
|
|
|
}
|
|
|
|
void ulendd(void)
|
|
{ struct resbuf apps,*ebup,*rb;
|
|
ads_name en;
|
|
int typi,it;
|
|
Adesk::Int32 i,len;
|
|
|
|
ads_real x1,y1,x2,y2,gs1,gs2,q1,q2,rr;
|
|
TCHAR txtdxf0[40]=_T(""),txtnam8[40]=_T(""),buf[40]=_T("");
|
|
|
|
i=0;
|
|
if (ads_sslength(endd0,&len)==RTNORM) goto bbb;
|
|
return;
|
|
|
|
bbb:if (len==0) return;
|
|
|
|
ads_ssname(endd0,i,en);
|
|
|
|
apps.restype=RTSTR;
|
|
_tcscpy(buf,_T("TDOTE"));
|
|
apps.resval.rstring=buf;
|
|
apps.rbnext=NULL;
|
|
|
|
ebup=ads_entgetx(en,&apps);
|
|
if (ebup==NULL) goto bb1;
|
|
|
|
it=0; gs1=0; gs2=0;
|
|
q1=0; q2=2*pi314;
|
|
|
|
for (rb=ebup;rb!=NULL;rb=rb->rbnext) {
|
|
typi=rb->restype;
|
|
|
|
if (typi==0) _tcscpy(txtdxf0,rb->resval.rstring);
|
|
if (typi==8) _tcscpy(txtnam8,rb->resval.rstring);
|
|
|
|
if (typi==40) rr=rb->resval.rreal;
|
|
if (typi==50) q1=rb->resval.rreal;
|
|
if (typi==51) q2=rb->resval.rreal;
|
|
|
|
if (typi==10) {
|
|
x1=rb->resval.rpoint[0];
|
|
y1=rb->resval.rpoint[1]; }
|
|
|
|
if (typi==11) {
|
|
x2=rb->resval.rpoint[0];
|
|
y2=rb->resval.rpoint[1]; }
|
|
|
|
if (typi==1040) {
|
|
it=it+1;
|
|
if (it==1) gs1=rb->resval.rreal;
|
|
if (it==2) gs2=rb->resval.rreal;
|
|
}
|
|
}
|
|
|
|
ads_relrb(ebup);
|
|
ads_relrb(rb);
|
|
|
|
// ads_printf(_T("\ngs1=%f,gs2=%f"),gs1,gs2);
|
|
|
|
if ((txtdxf0[0]==_T('A'))&&(txtdxf0[1]==_T('R'))&&(txtdxf0[2]==_T('C'))) {
|
|
|
|
q1=q1*180/pi314;
|
|
q2=q2*180/pi314;
|
|
if (q2<q1) q2=q2+360;
|
|
|
|
// ads_printf(_T("\nx1=%f,y1=%f,q1=%f,q2=%f"),x1,y1,q1,q2);
|
|
// ads_printf(_T("\ngs1=%f,gs2=%f"),gs1,gs2);
|
|
|
|
xka1=x1; yka1=y1; karr=rr;
|
|
kaq1=q1;
|
|
kaq2=q2;
|
|
|
|
ulddarc(1);
|
|
ulddarc(2);
|
|
|
|
q1=kaq1*pi314/180;
|
|
q2=kaq2*pi314/180;
|
|
|
|
apps.restype=RTSTR;
|
|
_tcscpy(buf,_T("TDOTE"));
|
|
apps.resval.rstring=buf;
|
|
apps.rbnext=NULL;
|
|
|
|
ebup=ads_entgetx(en,&apps);
|
|
if (ebup==NULL) goto bb1;
|
|
|
|
it=0;
|
|
|
|
for (rb=ebup;rb!=NULL;rb=rb->rbnext) {
|
|
typi=rb->restype;
|
|
if (typi==50) rb->resval.rreal=q1;
|
|
if (typi==51) rb->resval.rreal=q2;
|
|
}
|
|
|
|
ads_entmod(ebup);
|
|
|
|
ads_relrb(ebup);
|
|
ads_relrb(rb);
|
|
|
|
goto bb1;
|
|
}
|
|
|
|
|
|
// ads_printf(_T("\nx1=%f,y1=%f,x2=%f,y2=%f"),x1,y1,x2,y2);
|
|
// ads_printf(_T("\ngs1=%f,gs2=%f"),gs1,gs2);
|
|
|
|
xdz1=x1; ydz1=y1;
|
|
xdz2=x2; ydz2=y2;
|
|
|
|
uldda(1);
|
|
uldda(2);
|
|
|
|
apps.restype=RTSTR;
|
|
_tcscpy(buf,_T("TDOTE"));
|
|
apps.resval.rstring=buf;
|
|
apps.rbnext=NULL;
|
|
|
|
ebup=ads_entgetx(en,&apps);
|
|
if (ebup==NULL) goto bb1;
|
|
|
|
it=0;
|
|
|
|
for (rb=ebup;rb!=NULL;rb=rb->rbnext) {
|
|
typi=rb->restype;
|
|
|
|
if (typi==10) {
|
|
rb->resval.rpoint[0]=xdz1;
|
|
rb->resval.rpoint[1]=ydz1; }
|
|
|
|
if (typi==11) {
|
|
rb->resval.rpoint[0]=xdz2;
|
|
rb->resval.rpoint[1]=ydz2; }
|
|
}
|
|
|
|
ads_entmod(ebup);
|
|
|
|
ads_relrb(ebup);
|
|
ads_relrb(rb);
|
|
|
|
bb1:i=i+1;
|
|
if (i<len) goto bbb;
|
|
|
|
}
|
|
|
|
|
|
void uldda(int it0)
|
|
{ struct resbuf *ebup,*rb;
|
|
ads_name ss1,en;
|
|
|
|
int typi,itwa;
|
|
Adesk::Int32 i,len;
|
|
|
|
ads_real dx,dy,d1,d0,x1,y1,x2,y2,xp1,yp1,xp2,yp2;
|
|
ads_real dd,q0,q,q1,q2,dq,xp0,yp0,rr;
|
|
TCHAR txtdxf0[40]=_T(""),txtnam8[40]=_T("");
|
|
ads_point p01,p02;
|
|
ads_point p1,p2,p3,p4,pp;
|
|
|
|
p1[2]=0; p2[2]=0;
|
|
p3[2]=0; p4[2]=0;
|
|
|
|
|
|
d0=2000;
|
|
|
|
qjadu(xdz2,ydz2,xdz1,ydz1);
|
|
q0=qhcjc;
|
|
|
|
q=qhcjc*pi314/180;
|
|
|
|
|
|
dx=dswa500;
|
|
if (dx<whou) dx=whou;
|
|
|
|
xp1=xdz1+dx*cos(q); yp1=ydz1+dx*sin(q);
|
|
xp2=xdz1; yp2=ydz1;
|
|
|
|
if (it0==2) {
|
|
qjadu(xdz1,ydz1,xdz2,ydz2);
|
|
|
|
q=qhcjc*pi314/180;
|
|
dx=dswa500;
|
|
if (dx<whou) dx=whou;
|
|
|
|
xp1=xdz2+dx*cos(q); yp1=ydz2+dx*sin(q);
|
|
xp2=xdz2; yp2=ydz2;
|
|
}
|
|
|
|
|
|
p01[0]=xp1; p01[1]=yp1; p01[2]=0;
|
|
p02[0]=xp2; p02[1]=yp2; p02[2]=0;
|
|
|
|
// ul112l(p01[0],p01[1],p02[0],p02[1],ds111);
|
|
RBList mask(RTDXF0,_T("LINE,ARC,CIRCLE"),NULL);
|
|
if (ads_ssget(_T("C"),p01,p02,mask,ss1)!=RTNORM)
|
|
return;
|
|
|
|
i=0;
|
|
if (ads_sslength(ss1,&len)==RTNORM) goto bbb;
|
|
return;
|
|
|
|
bbb:ads_ssname(ss1,i,en);
|
|
|
|
ebup=ads_entget(en);
|
|
|
|
if (ebup==NULL) goto mbb1;
|
|
|
|
q1=0; q2=2*pi314;
|
|
|
|
for (rb=ebup;rb!=NULL;rb=rb->rbnext) {
|
|
typi=rb->restype;
|
|
|
|
if (typi==0) _tcscpy(txtdxf0,rb->resval.rstring);
|
|
if (typi==8) _tcscpy(txtnam8,rb->resval.rstring);
|
|
|
|
if (typi==40) rr=rb->resval.rreal;
|
|
if (typi==50) q1=rb->resval.rreal;
|
|
if (typi==51) q2=rb->resval.rreal;
|
|
|
|
if (typi==10) {
|
|
x1=rb->resval.rpoint[0];
|
|
y1=rb->resval.rpoint[1]; }
|
|
if (typi==11) {
|
|
x2=rb->resval.rpoint[0];
|
|
y2=rb->resval.rpoint[1]; }
|
|
}
|
|
ads_relrb(ebup);
|
|
ads_relrb(rb);
|
|
|
|
itwa=0;
|
|
|
|
//modified by whl on 060323
|
|
//if (_tcsicmp(txtnam8, LAY_AXIS)==0) goto bbwa;
|
|
if (_tcsicmp(txtnam8, _T("DOTE"))==0||_tcsicmp(txtnam8, LAY_AXIS)==0) goto bbwa;
|
|
|
|
//modified by whl on 060323
|
|
//if (ads_wcmatch(txtnam8, _T("WALL*"))==RTNORM) {
|
|
if (ads_wcmatch(txtnam8, _T("WALL*"))==RTNORM||ads_wcmatch(txtnam8, LAY_WALL)==RTNORM) {
|
|
|
|
itwa=1;
|
|
goto bbwa; }
|
|
|
|
goto mbb1;
|
|
|
|
bbwa:if ((txtdxf0[0]==_T('L'))&&(txtdxf0[1]==_T('I'))&&(txtdxf0[2]==_T('N'))&&(txtdxf0[3]==_T('E'))) goto lin;
|
|
if ((txtdxf0[0]==_T('A'))&&(txtdxf0[1]==_T('R'))&&(txtdxf0[2]==_T('C'))) goto arc;
|
|
if ((txtdxf0[0]==_T('C'))&&(txtdxf0[1]==_T('I'))&&(txtdxf0[2]==_T('R'))&&(txtdxf0[3]==_T('C'))&&(txtdxf0[4]==_T('L'))&&(txtdxf0[5]==_T('E'))) goto arc;
|
|
|
|
|
|
goto mbb1;
|
|
|
|
arc:if (itwa==1) goto mbb1;
|
|
|
|
if (rr<ds111) goto mbb1;
|
|
|
|
q1=q1*180/pi314;
|
|
q2=q2*180/pi314;
|
|
if (q2<q1) q2=q2+360;
|
|
|
|
arrysa[1][1]=xp1; arrysa[1][2]=yp1;
|
|
arrysa[1][3]=xp2; arrysa[1][4]=yp2;
|
|
arrysa[1][5]=0; arrysa[1][6]=0;
|
|
|
|
arrysa[2][1]=x1; arrysa[2][2]=y1;
|
|
arrysa[2][3]=rr; arrysa[2][4]=q1;
|
|
arrysa[2][6]=6; arrysa[2][6]=q2;
|
|
|
|
arrysa[3][5]=200;
|
|
|
|
qlajd();
|
|
|
|
if (arrysa[3][5]==0) {
|
|
|
|
pp[0]=arrysa[3][1];
|
|
pp[1]=arrysa[3][2];
|
|
|
|
dx=pp[0]-xp2; dy=pp[1]-yp2;
|
|
d1=sqrt(dx*dx+dy*dy);
|
|
|
|
if (d1<d0) {
|
|
d0=d1;
|
|
xp0=pp[0]; yp0=pp[1];
|
|
}
|
|
|
|
}
|
|
|
|
goto mbb1;
|
|
|
|
lin:dx=x1-x2; dy=y1-y2;
|
|
d1=sqrt(dx*dx+dy*dy);
|
|
if (d1<ds111) goto mbb1;
|
|
|
|
// qjadu(xka1,yka1,xka2,yka2);
|
|
|
|
qjadu(xdz2,ydz2,xdz1,ydz1);
|
|
|
|
q1=qhcjc;
|
|
qjadu(x1,y1,x2,y2);
|
|
|
|
dq=q1-qhcjc;
|
|
|
|
if (dq<0) dq=-dq;
|
|
qq1:if (dq>269) { dq=dq-180; goto qq1; }
|
|
|
|
if ((dq<30)||(dq>150)) goto mbb1;
|
|
|
|
if (itwa==1) {
|
|
|
|
if ((dq<89)||(dq>91)) goto mbb1;
|
|
|
|
}
|
|
|
|
qjadu(xp1,yp1,xp2,yp2);
|
|
q=(qhcjc-180)*pi314/180;
|
|
|
|
p1[0]=xp1+ds111*cos(q); p1[1]=yp1+ds111*sin(q);
|
|
|
|
q=qhcjc*pi314/180;
|
|
p2[0]=xp2+ds111*cos(q); p2[1]=yp2+ds111*sin(q);
|
|
|
|
p3[0]=x1; p3[1]=y1;
|
|
p4[0]=x2; p4[1]=y2;
|
|
|
|
if (ads_inters(p1,p2,p3,p4,1,pp)==RTNORM) {
|
|
dx=pp[0]-xp2; dy=pp[1]-yp2;
|
|
d1=sqrt(dx*dx+dy*dy);
|
|
|
|
if (itwa==0) {
|
|
if (d1<d0) {
|
|
d0=d1;
|
|
xp0=pp[0]; yp0=pp[1];
|
|
}
|
|
goto mbb1;
|
|
}
|
|
|
|
|
|
if ((d1<d0)&&(d1<ds111)) {
|
|
|
|
dx=pp[0]-x1; dy=pp[1]-y1;
|
|
dd=sqrt(dx*dx+dy*dy);
|
|
if (dd<10) goto mbb1;
|
|
|
|
dx=pp[0]-x2; dy=pp[1]-y2;
|
|
dd=sqrt(dx*dx+dy*dy);
|
|
if (dd<10) goto mbb1;
|
|
|
|
d0=d1;
|
|
xp0=pp[0]; yp0=pp[1];
|
|
|
|
}
|
|
}
|
|
|
|
mbb1:i=i+1;
|
|
if (i<len) goto bbb;
|
|
|
|
ads_ssfree(ss1);
|
|
|
|
if (d0<2000) {
|
|
|
|
if (it0==1) {
|
|
|
|
xp2=xdz1; yp2=ydz1;
|
|
|
|
q=q0*pi314/180;
|
|
xdz1=xdz1+d0*cos(q);
|
|
ydz1=ydz1+d0*sin(q);
|
|
|
|
xp1=xdz1; yp1=ydz1;
|
|
|
|
if (d0>10) ulddc(it0,xp1,yp1,xp2,yp2);
|
|
|
|
}
|
|
|
|
if (it0==2) {
|
|
|
|
xp2=xdz2; yp2=ydz2;
|
|
|
|
q=(q0+180)*pi314/180;
|
|
xdz2=xdz2+d0*cos(q);
|
|
ydz2=ydz2+d0*sin(q);
|
|
|
|
xp1=xdz2; yp1=ydz2;
|
|
|
|
if (d0>10) ulddc(it0,xp1,yp1,xp2,yp2);
|
|
|
|
}
|
|
}
|
|
|
|
|
|
if (fabs(d0-2000)<1.0E-6) {
|
|
qjadu(xdz2,ydz2,xdz1,ydz1);
|
|
q=qhcjc*pi314/180;
|
|
|
|
dx=dswa500;
|
|
if (dx<whou) dx=whou;
|
|
|
|
xp1=xdz1+dx*cos(q); yp1=ydz1+dx*sin(q);
|
|
xp2=xdz1; yp2=ydz1;
|
|
|
|
if (it0==2) {
|
|
qjadu(xdz1,ydz1,xdz2,ydz2);
|
|
|
|
q=qhcjc*pi314/180;
|
|
dx=dswa500;
|
|
if (dx<whou) dx=whou;
|
|
|
|
xp1=xdz2+dx*cos(q); yp1=ydz2+dx*sin(q);
|
|
xp2=xdz2; yp2=ydz2;
|
|
}
|
|
|
|
ulddb(it0,xp1,yp1,xp2,yp2);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
void ulddb(int it0,ads_real xp1,ads_real yp1,ads_real xp2,ads_real yp2)
|
|
{
|
|
struct resbuf *ebup,*rb;
|
|
ads_name ss1,en;
|
|
|
|
int typi;
|
|
Adesk::Int32 i,len;
|
|
|
|
ads_real dq0,q0,q,q1,q2,dq,x1,y1,rr,x2,y2,dx,dy,d1,d0;
|
|
|
|
TCHAR txtdxf0[40]=_T(""),txtnam8[40]=_T("");
|
|
|
|
ads_point p01,p02;
|
|
ads_point p1,p2,p3,p4,pp;
|
|
|
|
p1[2]=0; p2[2]=0;
|
|
p3[2]=0; p4[2]=0;
|
|
|
|
qjadu(xdz2,ydz2,xdz1,ydz1);
|
|
q0=qhcjc;
|
|
|
|
d0=2000;
|
|
|
|
x1=(xp1+xp2)/2; y1=(yp1+yp2)/2;
|
|
|
|
dx=dswa500;
|
|
if (dx<whou) dx=whou;
|
|
|
|
p01[0]=x1-dx; p01[1]=y1-dx; p01[2]=0;
|
|
p02[0]=x1+dx; p02[1]=y1+dx; p02[2]=0;
|
|
|
|
|
|
RBList mask(RTDXF0, _T("LINE,ARC,CIRCLE"), 8, _T("TDOTE"), NULL);
|
|
if (ads_ssget(_T("C"),p01,p02,mask,ss1)!=RTNORM)
|
|
return;
|
|
|
|
i=0;
|
|
if (ads_sslength(ss1,&len)==RTNORM) goto bbb;
|
|
return;
|
|
|
|
bbb:ads_ssname(ss1,i,en);
|
|
ebup=ads_entget(en);
|
|
|
|
if (ebup==NULL) goto mbb1;
|
|
q1=0; q2=2*pi314;
|
|
|
|
for (rb=ebup;rb!=NULL;rb=rb->rbnext) {
|
|
typi=rb->restype;
|
|
|
|
if (typi==0) _tcscpy(txtdxf0,rb->resval.rstring);
|
|
if (typi==8) _tcscpy(txtnam8,rb->resval.rstring);
|
|
|
|
if (typi==40) rr=rb->resval.rreal;
|
|
if (typi==50) q1=rb->resval.rreal;
|
|
if (typi==51) q2=rb->resval.rreal;
|
|
|
|
if (typi==10) {
|
|
x1=rb->resval.rpoint[0];
|
|
y1=rb->resval.rpoint[1]; }
|
|
if (typi==11) {
|
|
x2=rb->resval.rpoint[0];
|
|
y2=rb->resval.rpoint[1]; }
|
|
}
|
|
ads_relrb(ebup);
|
|
ads_relrb(rb);
|
|
|
|
|
|
//if ((txtnam8[0]==_T('T'))&&(txtnam8[1]==_T('D'))&&(txtnam8[2]==_T('O'))&&(txtnam8[3]==_T('T'))&&(txtnam8[4]==_T('E'))) goto bbwa;
|
|
|
|
// goto mbb1;
|
|
|
|
//bbwa:
|
|
if ((txtdxf0[0]==_T('L'))&&(txtdxf0[1]==_T('I'))&&(txtdxf0[2]==_T('N'))&&(txtdxf0[3]==_T('E'))) goto lin;
|
|
if ((txtdxf0[0]==_T('A'))&&(txtdxf0[1]==_T('R'))&&(txtdxf0[2]==_T('C'))) goto arc;
|
|
if ((txtdxf0[0]==_T('C'))&&(txtdxf0[1]==_T('I'))&&(txtdxf0[2]==_T('R'))&&(txtdxf0[3]==_T('C'))&&(txtdxf0[4]==_T('L'))&&(txtdxf0[5]==_T('E'))) goto arc;
|
|
|
|
goto mbb1;
|
|
|
|
arc: if (rr<ds111) goto mbb1;
|
|
|
|
q1=q1*180/pi314;
|
|
q2=q2*180/pi314;
|
|
if (q2<q1) q2=q2+360;
|
|
|
|
arrysa[1][1]=xp1; arrysa[1][2]=yp1;
|
|
arrysa[1][3]=xp2; arrysa[1][4]=yp2;
|
|
arrysa[1][5]=0; arrysa[1][6]=0;
|
|
|
|
dx=dswa500;
|
|
if (dx<whou) dx=whou;
|
|
dq0=360*dx/2*pi314*rr;
|
|
|
|
arrysa[2][1]=x1; arrysa[2][2]=y1;
|
|
arrysa[2][3]=rr; arrysa[2][4]=q1-dq0;
|
|
arrysa[2][6]=6; arrysa[2][6]=q2+dq0;
|
|
|
|
arrysa[3][5]=200;
|
|
qlajd();
|
|
|
|
if (fabs(arrysa[3][5])<1.0E-6) {
|
|
|
|
pp[0]=arrysa[3][1];
|
|
pp[1]=arrysa[3][2];
|
|
|
|
dx=pp[0]-xp2; dy=pp[1]-yp2;
|
|
d1=sqrt(dx*dx+dy*dy);
|
|
|
|
if (d1<d0) {
|
|
d0=d1;
|
|
}
|
|
|
|
}
|
|
|
|
|
|
goto mbb1;
|
|
|
|
lin:dx=x1-x2; dy=y1-y2;
|
|
d1=sqrt(dx*dx+dy*dy);
|
|
if (d1<ds111) goto mbb1;
|
|
|
|
qjadu(xdz1,ydz1,xdz2,ydz2);
|
|
q1=qhcjc;
|
|
|
|
qjadu(x1,y1,x2,y2);
|
|
dq=q1-qhcjc;
|
|
|
|
if (dq<0) dq=-dq;
|
|
qq1:if (dq>269) { dq=dq-180; goto qq1; }
|
|
|
|
if ((dq<30)||(dq>150)) goto mbb1;
|
|
|
|
dx=dswa500;
|
|
if (dx<whou) dx=whou;
|
|
|
|
qjadu(x1,y1,x2,y2);
|
|
q=(qhcjc-180)*pi314/180;
|
|
p1[0]=x1+dx*cos(q); p1[1]=y1+dx*sin(q);
|
|
|
|
q=qhcjc*pi314/180;
|
|
p2[0]=x2+dx*cos(q); p2[1]=y2+dx*sin(q);
|
|
|
|
p3[0]=xp1; p3[1]=yp1;
|
|
p4[0]=xp2; p4[1]=yp2;
|
|
|
|
if (ads_inters(p1,p2,p3,p4,1,pp)==RTNORM) {
|
|
dx=pp[0]-xp2; dy=pp[1]-yp2;
|
|
d1=sqrt(dx*dx+dy*dy);
|
|
|
|
if (d1<d0) {
|
|
d0=d1;
|
|
}
|
|
|
|
}
|
|
|
|
mbb1:i=i+1;
|
|
if (i<len) goto bbb;
|
|
|
|
ads_ssfree(ss1);
|
|
|
|
|
|
if (d0<2000) {
|
|
|
|
if (it0==1) {
|
|
|
|
q=q0*pi314/180;
|
|
xdz1=xdz1+d0*cos(q);
|
|
ydz1=ydz1+d0*sin(q);
|
|
|
|
}
|
|
|
|
if (it0==2) {
|
|
q=(q0+180)*pi314/180;
|
|
xdz2=xdz2+d0*cos(q);
|
|
ydz2=ydz2+d0*sin(q);
|
|
}
|
|
}
|
|
}
|
|
|
|
|
|
void ulddc(int it0,ads_real xp1,ads_real yp1,ads_real xp2,ads_real yp2)
|
|
{
|
|
struct resbuf *ebup,*rb;
|
|
ads_name ss1,en;
|
|
|
|
int typi;
|
|
Adesk::Int32 i,len;
|
|
|
|
ads_real rr,q0,q,q1,q2,dq,x1,y1,x2,y2,dx,dy,d1,d0,xp0,yp0;
|
|
|
|
TCHAR txtdxf0[40]=_T(""),txtnam8[40]=_T("");
|
|
|
|
ads_point p01,p02;
|
|
ads_point p1,p2,p3,p4,pp;
|
|
|
|
p1[2]=0; p2[2]=0;
|
|
p3[2]=0; p4[2]=0;
|
|
|
|
qjadu(xdz2,ydz2,xdz1,ydz1);
|
|
q0=qhcjc;
|
|
|
|
d0=2000;
|
|
|
|
x1=(xp1+xp2)/2; y1=(yp1+yp2)/2;
|
|
|
|
dx=xp1-xp2; dy=yp1-yp2;
|
|
d1=sqrt(dx*dx+dy*dy);
|
|
|
|
if (d1<10) return;
|
|
|
|
p01[0]=x1-d1; p01[1]=y1-d1; p01[2]=0;
|
|
p02[0]=x1+d1; p02[1]=y1+d1; p02[2]=0;
|
|
|
|
|
|
RBList mask(RTDXF0,_T("LINE,ARC"),8,_T("TDOTE"),NULL);
|
|
if (ads_ssget(_T("C"),p01,p02,mask,ss1)!=RTNORM)
|
|
return;
|
|
|
|
i=0;
|
|
if (ads_sslength(ss1,&len)==RTNORM) goto bbb;
|
|
return;
|
|
|
|
bbb:ads_ssname(ss1,i,en);
|
|
ebup=ads_entget(en);
|
|
|
|
if (ebup==NULL) goto mbb1;
|
|
|
|
q1=0; q2=2*pi314;
|
|
|
|
for (rb=ebup;rb!=NULL;rb=rb->rbnext) {
|
|
typi=rb->restype;
|
|
|
|
if (typi==0) _tcscpy(txtdxf0,rb->resval.rstring);
|
|
if (typi==8) _tcscpy(txtnam8,rb->resval.rstring);
|
|
|
|
if (typi==40) rr=rb->resval.rreal;
|
|
if (typi==50) q1=rb->resval.rreal;
|
|
if (typi==51) q2=rb->resval.rreal;
|
|
|
|
if (typi==10) {
|
|
x1=rb->resval.rpoint[0];
|
|
y1=rb->resval.rpoint[1]; }
|
|
if (typi==11) {
|
|
x2=rb->resval.rpoint[0];
|
|
y2=rb->resval.rpoint[1]; }
|
|
}
|
|
ads_relrb(ebup);
|
|
ads_relrb(rb);
|
|
|
|
|
|
//if ((txtnam8[0]==_T('T'))&&(txtnam8[1]==_T('D'))&&(txtnam8[2]==_T('O'))&&(txtnam8[3]==_T('T'))&&(txtnam8[4]==_T('E'))) goto bbwa;
|
|
|
|
// goto mbb1;
|
|
|
|
//bbwa:
|
|
if ((txtdxf0[0]==_T('L'))&&(txtdxf0[1]==_T('I'))&&(txtdxf0[2]==_T('N'))&&(txtdxf0[3]==_T('E'))) goto lin;
|
|
if ((txtdxf0[0]==_T('A'))&&(txtdxf0[1]==_T('R'))&&(txtdxf0[2]==_T('C'))) goto arc;
|
|
goto mbb1;
|
|
|
|
arc:if (rr<ds111) goto mbb1;
|
|
|
|
q1=q1*180/pi314;
|
|
q2=q2*180/pi314;
|
|
if (q2<q1) q2=q2+360;
|
|
|
|
dx=dswa500;
|
|
if (dx<whou) dx=whou;
|
|
|
|
dq=360*dx/(2*pi314*rr);
|
|
q1=q1-dq;
|
|
q2=q2+dq;
|
|
|
|
arrysa[1][1]=xp1; arrysa[1][2]=yp1;
|
|
arrysa[1][3]=xp2; arrysa[1][4]=yp2;
|
|
arrysa[1][5]=0; arrysa[1][6]=0;
|
|
|
|
arrysa[2][1]=x1; arrysa[2][2]=y1;
|
|
arrysa[2][3]=rr; arrysa[2][4]=q1;
|
|
arrysa[2][6]=6; arrysa[2][6]=q2;
|
|
|
|
arrysa[3][5]=200;
|
|
|
|
qlajd();
|
|
|
|
if (fabs(arrysa[3][5])<1.0E-6) {
|
|
|
|
pp[0]=arrysa[3][1];
|
|
pp[1]=arrysa[3][2];
|
|
|
|
dx=pp[0]-xp2; dy=pp[1]-yp2;
|
|
d1=sqrt(dx*dx+dy*dy);
|
|
|
|
if (d1<d0) {
|
|
d0=d1;
|
|
xp0=pp[0]; yp0=pp[1];
|
|
}
|
|
|
|
}
|
|
|
|
goto mbb1;
|
|
|
|
lin:dx=x1-x2; dy=y1-y2;
|
|
d1=sqrt(dx*dx+dy*dy);
|
|
if (d1<ds111) goto mbb1;
|
|
|
|
qjadu(xdz1,ydz1,xdz2,ydz2);
|
|
q1=qhcjc;
|
|
|
|
qjadu(x1,y1,x2,y2);
|
|
dq=q1-qhcjc;
|
|
|
|
if (dq<0) dq=-dq;
|
|
qq1:if (dq>269) { dq=dq-180; goto qq1; }
|
|
|
|
if ((dq<30)||(dq>150)) goto mbb1;
|
|
|
|
dx=dswa500;
|
|
if (dx<whou) dx=whou;
|
|
|
|
qjadu(x1,y1,x2,y2);
|
|
q=(qhcjc-180)*pi314/180;
|
|
p1[0]=x1+dx*cos(q); p1[1]=y1+dx*sin(q);
|
|
|
|
q=qhcjc*pi314/180;
|
|
p2[0]=x2+dx*cos(q); p2[1]=y2+dx*sin(q);
|
|
|
|
p3[0]=xp1; p3[1]=yp1;
|
|
p4[0]=xp2; p4[1]=yp2;
|
|
|
|
if (ads_inters(p1,p2,p3,p4,1,pp)==RTNORM) {
|
|
dx=pp[0]-xp2; dy=pp[1]-yp2;
|
|
d1=sqrt(dx*dx+dy*dy);
|
|
|
|
if (d1<d0) {
|
|
d0=d1;
|
|
xp0=pp[0]; yp0=pp[1];
|
|
}
|
|
|
|
}
|
|
|
|
mbb1:i=i+1;
|
|
if (i<len) goto bbb;
|
|
|
|
ads_ssfree(ss1);
|
|
|
|
|
|
if (d0<2000) {
|
|
|
|
if (it0==1) {
|
|
xdz1=xp0;
|
|
ydz1=yp0;
|
|
}
|
|
|
|
if (it0==2) {
|
|
xdz2=xp0;
|
|
ydz2=yp0;
|
|
}
|
|
|
|
}
|
|
|
|
|
|
}
|
|
|
|
|
|
void qlajd(void)
|
|
{ ads_real q01,q02;
|
|
ads_point pa,pb,pdd,pee,ppjd;
|
|
ads_real dx,dy,d,d0,x1,y1,q,rr;
|
|
ads_real xb1,yb1,xb2,yb2,xj1,yj1,xj2,yj2;
|
|
|
|
pa[2]=0; pb[2]=0;
|
|
pdd[2]=0; pee[2]=0;
|
|
|
|
pa[0]=arrysa[1][1];
|
|
pa[1]=arrysa[1][2];
|
|
pb[0]=arrysa[1][3];
|
|
pb[1]=arrysa[1][4];
|
|
|
|
xb1=arrysa[1][1];
|
|
yb1=arrysa[1][2];
|
|
|
|
xb2=arrysa[1][3];
|
|
yb2=arrysa[1][4];
|
|
|
|
d0=arrysa[3][4];
|
|
|
|
q01=arrysa[2][4]; q02=arrysa[2][6];
|
|
|
|
if (q01>q02) q01=q01-360;
|
|
|
|
q01=q01-0.01;
|
|
q02=q02+0.01;
|
|
|
|
qjadu(pa[0],pa[1],pb[0],pb[1]);
|
|
|
|
q=(qhcjc+90)*pi314/180;
|
|
x1=arrysa[2][1];
|
|
y1=arrysa[2][2];
|
|
rr=arrysa[2][3];
|
|
pdd[0]=x1; pdd[1]=y1;
|
|
pee[0]=x1+rr*cos(q);
|
|
pee[1]=y1+rr*sin(q);
|
|
|
|
if (ads_inters(pa,pb,pdd,pee,0,ppjd)==RTNORM) {
|
|
dx=x1-ppjd[0];
|
|
dy=y1-ppjd[1];
|
|
d=sqrt(dx*dx+dy*dy);
|
|
if (d>rr) return;
|
|
|
|
dx=rr*rr-d*d;
|
|
if (dx<0) dx=0;
|
|
|
|
dx=sqrt(dx);
|
|
q=qhcjc*pi314/180;
|
|
xj1=ppjd[0]+dx*cos(q);
|
|
yj1=ppjd[1]+dx*sin(q);
|
|
|
|
q=(qhcjc+180)*pi314/180;
|
|
xj2=ppjd[0]+dx*cos(q);
|
|
yj2=ppjd[1]+dx*sin(q);
|
|
qjadu(x1,y1,xj1,yj1);
|
|
|
|
if ((qhcjc>q01)&&(qhcjc<q02)||(qhcjc>q01-360)&&(qhcjc<q02-360)||(qhcjc>q01+360)&&(qhcjc<q02+360)) goto arc0a;
|
|
goto arc0b;
|
|
|
|
arc0a:if ((xj1<xb1-jsjdu)&&(xj1<xb2-jsjdu)||(xj1>xb1+jsjdu)&&(xj1>xb2+jsjdu)) goto arc0b;
|
|
if ((yj1<yb1-jsjdu)&&(yj1<yb2-jsjdu)||(yj1>yb1+jsjdu)&&(yj1>yb2+jsjdu)) goto arc0b;
|
|
|
|
arrysa[3][1]=xj1;
|
|
arrysa[3][2]=yj1;
|
|
arrysa[3][5]=0;
|
|
|
|
|
|
arc0b:qjadu(x1,y1,xj2,yj2);
|
|
if ((qhcjc>q01)&&(qhcjc<q02)||(qhcjc>q01-360)&&(qhcjc<q02-360)||(qhcjc>q01+360)&&(qhcjc<q02+360)) goto arc0c;
|
|
return;
|
|
|
|
arc0c:if ((xj2<xb1-jsjdu)&&(xj2<xb2-jsjdu)||(xj2>xb1+jsjdu)&&(xj2>xb2+jsjdu)) return;
|
|
if ((yj2<yb1-jsjdu)&&(yj2<yb2-jsjdu)||(yj2>yb1+jsjdu)&&(yj2>yb2+jsjdu)) return;
|
|
|
|
|
|
arrysa[3][1]=xj2;
|
|
arrysa[3][2]=yj2;
|
|
arrysa[3][5]=0;
|
|
|
|
}
|
|
}
|
|
|
|
|
|
void ulddarc(int it0)
|
|
{ struct resbuf *ebup,*rb;
|
|
ads_name ss1,en;
|
|
|
|
int typi,itwa;
|
|
Adesk::Int32 i,len;
|
|
|
|
ads_real dx,dy,d1,d0,x1,y1,x2,y2,xp1,yp1,xp2,yp2;
|
|
ads_real q,q1,q2,dq,xp0,yp0,rr,ds;
|
|
ads_real q01,q02;
|
|
TCHAR txtdxf0[40]=_T(""),txtnam8[40]=_T("");
|
|
ads_point p01,p02;
|
|
|
|
|
|
d0=2000;
|
|
|
|
dx=dswa500;
|
|
if (dx<whou) dx=whou;
|
|
|
|
ds=2*pi314*karr;
|
|
|
|
if (ds<0.1) return;
|
|
|
|
dq=360*dx/ds;
|
|
|
|
|
|
q01=kaq1;
|
|
q02=kaq1-dq;
|
|
|
|
if (it0==2) {
|
|
q01=kaq2;
|
|
q02=kaq2+dq;
|
|
}
|
|
|
|
q=q01*pi314/180;
|
|
xp1=xka1+karr*cos(q);
|
|
yp1=yka1+karr*sin(q);
|
|
|
|
q=q02*pi314/180;
|
|
xp2=xka1+karr*cos(q);
|
|
yp2=yka1+karr*sin(q);
|
|
|
|
if (it0==1) {
|
|
q02=kaq1;
|
|
q01=kaq1-dq;
|
|
}
|
|
|
|
// hlin(xp1,yp1,xp2,yp2,7);
|
|
|
|
x1=xp1; x2=xp2;
|
|
if (x1>x2) { x1=xp2; x2=xp1; }
|
|
|
|
y1=yp1; y2=yp2;
|
|
if (y1>y2) { y1=yp2; y2=yp1; }
|
|
|
|
dx=dswa500;
|
|
if (dx<whou) dx=whou;
|
|
|
|
p01[0]=x1-dx; p01[1]=y1-dx; p01[2]=0;
|
|
p02[0]=x2+dx; p02[1]=y2+dx; p02[2]=0;
|
|
|
|
// ul112l(p01[0],p01[1],p02[0],p02[1],ds111);
|
|
|
|
|
|
RBList mask(RTDXF0,_T("LINE"),NULL);
|
|
if (ads_ssget(_T("C"),p01,p02,mask,ss1)!=RTNORM)
|
|
return;
|
|
|
|
i=0;
|
|
if (ads_sslength(ss1,&len)==RTNORM) goto bbb;
|
|
return;
|
|
|
|
bbb:ads_ssname(ss1,i,en);
|
|
|
|
ebup=ads_entget(en);
|
|
|
|
if (ebup==NULL) goto mbb1;
|
|
|
|
q1=0; q2=2*pi314;
|
|
|
|
for (rb=ebup;rb!=NULL;rb=rb->rbnext) {
|
|
typi=rb->restype;
|
|
|
|
if (typi==0) _tcscpy(txtdxf0,rb->resval.rstring);
|
|
if (typi==8) _tcscpy(txtnam8,rb->resval.rstring);
|
|
|
|
if (typi==40) rr=rb->resval.rreal;
|
|
if (typi==50) q1=rb->resval.rreal;
|
|
if (typi==51) q2=rb->resval.rreal;
|
|
|
|
if (typi==10) {
|
|
x1=rb->resval.rpoint[0];
|
|
y1=rb->resval.rpoint[1]; }
|
|
if (typi==11) {
|
|
x2=rb->resval.rpoint[0];
|
|
y2=rb->resval.rpoint[1]; }
|
|
}
|
|
ads_relrb(ebup);
|
|
ads_relrb(rb);
|
|
|
|
itwa=0;
|
|
|
|
//modified by whl on 060323
|
|
//if (_tcsicmp(txtnam8, LAY_AXIS)==0) goto bbwa;
|
|
if (_tcsicmp(txtnam8, _T("DOTE"))==0||_tcsicmp(txtnam8, LAY_AXIS)==0) goto bbwa;
|
|
|
|
if ((txtnam8[0]==_T('T'))&&(txtnam8[1]==_T('D'))&&(txtnam8[2]==_T('O'))&&(txtnam8[3]==_T('T'))&&(txtnam8[4]==_T('E'))) {
|
|
itwa=1;
|
|
goto bbwa;
|
|
}
|
|
|
|
|
|
// if ((txtnam8[0]==_T('W'))&&(txtnam8[1]==_T('A'))&&(txtnam8[2]==_T('L'))&&(txtnam8[3]==_T('L'))) {
|
|
// itwa=1;
|
|
// goto bbwa; }
|
|
|
|
goto mbb1;
|
|
|
|
bbwa:
|
|
//if ((txtdxf0[0]==_T('L'))&&(txtdxf0[1]==_T('I'))&&(txtdxf0[2]==_T('N'))&&(txtdxf0[3]==_T('E'))) goto lin;
|
|
|
|
//goto mbb1;
|
|
|
|
|
|
//lin:
|
|
dx=x1-x2; dy=y1-y2;
|
|
d1=sqrt(dx*dx+dy*dy);
|
|
if (d1<ds111) goto mbb1;
|
|
|
|
if (itwa==1) {
|
|
|
|
dx=dswa500;
|
|
if (dx<whou) dx=whou;
|
|
|
|
qjadu(x1,y1,x2,y2);
|
|
q=(qhcjc-180)*pi314/180;
|
|
x1=x1+dx*cos(q);
|
|
y1=y1+dx*sin(q);
|
|
|
|
q=qhcjc*pi314/180;
|
|
x2=x2+dx*cos(q);
|
|
y2=y2+dx*sin(q);
|
|
}
|
|
|
|
arrysa[1][1]=x1; arrysa[1][2]=y1;
|
|
arrysa[1][3]=x2; arrysa[1][4]=y2;
|
|
arrysa[1][5]=0; arrysa[1][6]=0;
|
|
|
|
arrysa[2][1]=xka1; arrysa[2][2]=yka1;
|
|
arrysa[2][3]=karr; arrysa[2][4]=q01;
|
|
arrysa[2][6]=6; arrysa[2][6]=q02;
|
|
|
|
arrysa[3][5]=200;
|
|
|
|
qlajd();
|
|
|
|
// ads_printf(_T("\n arrysa[3][5]=%f,q01=%f,q02=%f"),arrysa[3][5],q01,q02);
|
|
|
|
if (fabs(arrysa[3][5])<1.0E-6) {
|
|
|
|
dx=arrysa[3][1]-xp1; dy=arrysa[3][2]-yp1;
|
|
d1=sqrt(dx*dx+dy*dy);
|
|
|
|
// ads_printf(_T("\n itwa=%d,d1=%f"),itwa,d1);
|
|
// hlin(arrysa[3][1],arrysa[3][2],arrysa[3][1]+400,arrysa[3][2]+400,3);
|
|
// hlin(xp1,yp1,xp1+400,yp1+400,2);
|
|
|
|
if (d1<d0) {
|
|
d0=d1;
|
|
xp0=arrysa[3][1]; yp0=arrysa[3][2];
|
|
}
|
|
|
|
}
|
|
|
|
|
|
mbb1:i=i+1;
|
|
if (i<len) goto bbb;
|
|
|
|
ads_ssfree(ss1);
|
|
|
|
if (d0<2000) {
|
|
|
|
if (it0==1) {
|
|
qjadu(xka1,yka1,xp0,yp0);
|
|
kaq1=qhcjc;
|
|
|
|
if (kaq1>kaq2) kaq1=kaq1-360;
|
|
if (kaq1<kaq2-360) kaq1=kaq1+360;
|
|
}
|
|
|
|
if (it0==2) {
|
|
|
|
qjadu(xka1,yka1,xp0,yp0);
|
|
kaq2=qhcjc;
|
|
|
|
if (kaq1>kaq2) kaq2=kaq2+360;
|
|
if (kaq1<kaq2-360) kaq2=kaq2-360;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
if (d0==2000) ulddarcc(it0);
|
|
|
|
|
|
}
|
|
|
|
|
|
void ulddarcc(int it0)
|
|
{ struct resbuf *ebup,*rb;
|
|
ads_name ss1,en;
|
|
|
|
int typi,itwa;
|
|
Adesk::Int32 i,len;
|
|
|
|
ads_real dx,dy,d1,d0,x1,y1,x2,y2,xp1,yp1,xp2,yp2;
|
|
ads_real q,q1,q2,dq,xp0,yp0,rr,ds;
|
|
ads_real q01,q02;
|
|
TCHAR txtdxf0[40]=_T(""),txtnam8[40]=_T("");
|
|
ads_point p01,p02;
|
|
|
|
|
|
d0=2000;
|
|
|
|
dx=dswa500;
|
|
if (dx<whou) dx=whou;
|
|
|
|
ds=2*pi314*karr;
|
|
|
|
if (ds<0.1) return;
|
|
|
|
dq=360*dx/ds;
|
|
|
|
q01=kaq1-dq;
|
|
q02=kaq1;
|
|
|
|
if (it0==2) {
|
|
q01=kaq2;
|
|
q02=kaq2+dq; }
|
|
|
|
q=q01*pi314/180;
|
|
xp1=xka1+karr*cos(q);
|
|
yp1=yka1+karr*sin(q);
|
|
|
|
q=q02*pi314/180;
|
|
xp2=xka1+karr*cos(q);
|
|
yp2=yka1+karr*sin(q);
|
|
|
|
if (it0==1) {
|
|
q=q02*pi314/180;
|
|
xp1=xka1+karr*cos(q);
|
|
yp1=yka1+karr*sin(q);
|
|
|
|
q=q01*pi314/180;
|
|
xp2=xka1+karr*cos(q);
|
|
yp2=yka1+karr*sin(q);
|
|
}
|
|
|
|
// hlin(xp1,yp1,xp2,yp2,7);
|
|
|
|
|
|
dx=dswa500;
|
|
if (dx<whou) dx=whou;
|
|
|
|
x1=(xp1+xp2)/2; y1=(yp1+yp2)/2;
|
|
|
|
p01[0]=x1-dx; p01[1]=y1-dx; p01[2]=0;
|
|
p02[0]=x1+dx; p02[1]=y1+dx; p02[2]=0;
|
|
|
|
// ul112l(p01[0],p01[1],p02[0],p02[1],ds111);
|
|
|
|
|
|
RBList mask(RTDXF0,_T("LINE"),8,_T("TDOTE"),NULL);
|
|
if (ads_ssget(_T("C"),p01,p02,mask,ss1)!=RTNORM)
|
|
return;
|
|
|
|
i=0;
|
|
if (ads_sslength(ss1,&len)==RTNORM) goto bbb;
|
|
return;
|
|
|
|
bbb:ads_ssname(ss1,i,en);
|
|
|
|
ebup=ads_entget(en);
|
|
|
|
if (ebup==NULL) goto mbb1;
|
|
|
|
q1=0; q2=2*pi314;
|
|
|
|
for (rb=ebup;rb!=NULL;rb=rb->rbnext) {
|
|
typi=rb->restype;
|
|
|
|
if (typi==0) _tcscpy(txtdxf0,rb->resval.rstring);
|
|
if (typi==8) _tcscpy(txtnam8,rb->resval.rstring);
|
|
|
|
if (typi==40) rr=rb->resval.rreal;
|
|
if (typi==50) q1=rb->resval.rreal;
|
|
if (typi==51) q2=rb->resval.rreal;
|
|
|
|
if (typi==10) {
|
|
x1=rb->resval.rpoint[0];
|
|
y1=rb->resval.rpoint[1]; }
|
|
if (typi==11) {
|
|
x2=rb->resval.rpoint[0];
|
|
y2=rb->resval.rpoint[1]; }
|
|
}
|
|
ads_relrb(ebup);
|
|
ads_relrb(rb);
|
|
|
|
itwa=0;
|
|
|
|
//if ((txtnam8[0]==_T('T'))&&(txtnam8[1]==_T('D'))&&(txtnam8[2]==_T('O'))&&(txtnam8[3]==_T('T'))&&(txtnam8[4]==_T('E'))) goto bbwa;
|
|
|
|
|
|
// goto mbb1;
|
|
|
|
//bbwa:if ((txtdxf0[0]==_T('L'))&&(txtdxf0[1]==_T('I'))&&(txtdxf0[2]==_T('N'))&&(txtdxf0[3]==_T('E'))) goto lin;
|
|
|
|
// goto mbb1;
|
|
|
|
|
|
|
|
//lin:
|
|
dx=x1-x2; dy=y1-y2;
|
|
d1=sqrt(dx*dx+dy*dy);
|
|
if (d1<ds111) goto mbb1;
|
|
|
|
dx=dswa500;
|
|
if (dx<whou) dx=whou;
|
|
|
|
qjadu(x1,y1,x2,y2);
|
|
q=(qhcjc+180)*pi314/180;
|
|
x1=x1+dx*cos(q); y1=y1+dx*sin(q);
|
|
q=qhcjc*pi314/180;
|
|
x2=x2+dx*cos(q); y2=y2+dx*sin(q);
|
|
|
|
arrysa[1][1]=x1; arrysa[1][2]=y1;
|
|
arrysa[1][3]=x2; arrysa[1][4]=y2;
|
|
arrysa[1][5]=0; arrysa[1][6]=0;
|
|
|
|
arrysa[2][1]=xka1; arrysa[2][2]=yka1;
|
|
arrysa[2][3]=karr; arrysa[2][4]=q01;
|
|
arrysa[2][6]=6; arrysa[2][6]=q02;
|
|
|
|
arrysa[3][5]=200;
|
|
|
|
qlajd();
|
|
|
|
// ads_printf(_T("\n arrysa[3][5]=%f,q01=%f,q02=%f"),arrysa[3][5],q01,q02);
|
|
|
|
if (fabs(arrysa[3][5])<1.0E-6) {
|
|
|
|
dx=arrysa[3][1]-xp2; dy=arrysa[3][2]-yp2;
|
|
d1=sqrt(dx*dx+dy*dy);
|
|
|
|
if (d1<d0) {
|
|
d0=d1;
|
|
xp0=arrysa[3][1]; yp0=arrysa[3][2];
|
|
}
|
|
|
|
}
|
|
|
|
|
|
mbb1:i=i+1;
|
|
if (i<len) goto bbb;
|
|
|
|
ads_ssfree(ss1);
|
|
|
|
if (d0<2000) {
|
|
|
|
if (it0==1) {
|
|
qjadu(xka1,yka1,xp0,yp0);
|
|
kaq1=qhcjc;
|
|
|
|
if (kaq1>kaq2) kaq1=kaq1-360;
|
|
if (kaq1<kaq2-360) kaq1=kaq1+360;
|
|
}
|
|
|
|
if (it0==2) {
|
|
|
|
qjadu(xka1,yka1,xp0,yp0);
|
|
kaq2=qhcjc;
|
|
|
|
if (kaq1>kaq2) kaq2=kaq2+360;
|
|
if (kaq1<kaq2-360) kaq2=kaq2-360;
|
|
|
|
}
|
|
}
|
|
}
|
|
|
|
|
|
void ulenddzf(void)
|
|
{ struct resbuf apps,*ebup,*rb;
|
|
ads_name en;
|
|
int typi,it;
|
|
Adesk::Int32 i,len;
|
|
|
|
ads_real x1,y1,x2,y2,dx,dy,d1,gs1,gs2,q1,q2,rr;
|
|
TCHAR txtdxf0[40]=_T(""),txtnam8[40]=_T(""),buf[40]=_T("");
|
|
|
|
i=0;
|
|
if (ads_sslength(endd0,&len)==RTNORM) goto bbb;
|
|
return;
|
|
|
|
bbb:if (len==0) return;
|
|
|
|
ads_ssname(endd0,i,en);
|
|
|
|
apps.restype=RTSTR;
|
|
_tcscpy(buf,_T("TDOTE"));
|
|
apps.resval.rstring=buf;
|
|
apps.rbnext=NULL;
|
|
|
|
ebup=ads_entgetx(en,&apps);
|
|
if (ebup==NULL) goto bb1;
|
|
|
|
it=0; gs1=0; gs2=0;
|
|
q1=0; q2=2*pi314;
|
|
|
|
for (rb=ebup;rb!=NULL;rb=rb->rbnext) {
|
|
typi=rb->restype;
|
|
|
|
if (typi==0) _tcscpy(txtdxf0,rb->resval.rstring);
|
|
if (typi==8) _tcscpy(txtnam8,rb->resval.rstring);
|
|
|
|
if (typi==40) rr=rb->resval.rreal;
|
|
if (typi==50) q1=rb->resval.rreal;
|
|
if (typi==51) q2=rb->resval.rreal;
|
|
|
|
if (typi==10) {
|
|
x1=rb->resval.rpoint[0];
|
|
y1=rb->resval.rpoint[1]; }
|
|
|
|
if (typi==11) {
|
|
x2=rb->resval.rpoint[0];
|
|
y2=rb->resval.rpoint[1]; }
|
|
|
|
if (typi==1040) {
|
|
it=it+1;
|
|
if (it==1) gs1=rb->resval.rreal;
|
|
if (it==2) gs2=rb->resval.rreal;
|
|
}
|
|
}
|
|
|
|
ads_relrb(ebup);
|
|
ads_relrb(rb);
|
|
|
|
// ads_printf(_T("\ngs1=%f,gs2=%f"),gs1,gs2);
|
|
|
|
if ((txtdxf0[0]==_T('A'))&&(txtdxf0[1]==_T('R'))&&(txtdxf0[2]==_T('C'))) {
|
|
|
|
xka1=x1; yka1=y1; karr=rr;
|
|
kaq1=q1;
|
|
kaq2=q2;
|
|
|
|
ularczf();
|
|
|
|
goto bb1;
|
|
}
|
|
|
|
|
|
if ((txtdxf0[0]==_T('L'))&&(txtdxf0[1]==_T('I'))&&(txtdxf0[2]==_T('N'))&&(txtdxf0[3]==_T('E'))) {
|
|
|
|
xdz1=x1; ydz1=y1;
|
|
xdz2=x2; ydz2=y2;
|
|
|
|
dx=xdz1-xdz2; dy=ydz1-ydz2;
|
|
d1=sqrt(dx*dx+dy*dy);
|
|
|
|
if (d1<ds111) { ads_entdel(en); goto bb1; }
|
|
|
|
ulinzf();
|
|
|
|
goto bb1;
|
|
}
|
|
|
|
|
|
bb1:i=i+1;
|
|
if (i<len) goto bbb;
|
|
|
|
}
|
|
|
|
|
|
void ulinzf(void)
|
|
{ struct resbuf apps,*ebup,*rb;
|
|
ads_name ss1,en;
|
|
|
|
int typi,igw,it;
|
|
Adesk::Int32 i,len;
|
|
|
|
ads_real x1,y1,x2,y2;
|
|
ads_real q,gs1,gs2;
|
|
|
|
TCHAR txtdxf0[40]=_T(""),txtnam8[40]=_T(""),buf[40]=_T("");
|
|
ads_point p01,p02;
|
|
ads_point p1,p2,p3,p4,pp;
|
|
|
|
p1[2]=0; p2[2]=0;
|
|
p3[2]=0; p4[2]=0;
|
|
|
|
igw=0;
|
|
|
|
|
|
p01[0]=xdz1; p01[1]=ydz1; p01[2]=0;
|
|
p02[0]=xdz2; p02[1]=ydz2; p02[2]=0;
|
|
|
|
|
|
RBList mask(RTDXF0,_T("LINE"),8,_T("TDOTE"),NULL);
|
|
if (ads_ssget(_T("C"),p01,p02,mask,ss1)!=RTNORM)
|
|
return;
|
|
|
|
i=0;
|
|
if (ads_sslength(ss1,&len)==RTNORM) goto bbb;
|
|
return;
|
|
|
|
bbb:ads_ssname(ss1,i,en);
|
|
|
|
apps.restype=RTSTR;
|
|
|
|
_tcscpy(buf,_T("TDOTE"));
|
|
apps.resval.rstring=buf;
|
|
apps.rbnext=NULL;
|
|
|
|
ebup=ads_entgetx(en,&apps);
|
|
if (ebup==NULL) goto bb1;
|
|
|
|
it=0; gs1=0; gs2=0;
|
|
|
|
|
|
for (rb=ebup;rb!=NULL;rb=rb->rbnext) {
|
|
typi=rb->restype;
|
|
|
|
if (typi==0) _tcscpy(txtdxf0,rb->resval.rstring);
|
|
if (typi==8) _tcscpy(txtnam8,rb->resval.rstring);
|
|
|
|
if (typi==10) {
|
|
x1=rb->resval.rpoint[0];
|
|
y1=rb->resval.rpoint[1]; }
|
|
|
|
if (typi==11) {
|
|
x2=rb->resval.rpoint[0];
|
|
y2=rb->resval.rpoint[1]; }
|
|
|
|
if (typi==1040) {
|
|
it=it+1;
|
|
if (it==1) gs1=rb->resval.rreal;
|
|
if (it==2) gs2=rb->resval.rreal;
|
|
}
|
|
}
|
|
|
|
ads_relrb(ebup);
|
|
ads_relrb(rb);
|
|
|
|
|
|
//if ((txtnam8[0]==_T('T'))&&(txtnam8[1]==_T('D'))&&(txtnam8[2]==_T('O'))&&(txtnam8[3]==_T('T'))&&(txtnam8[4]==_T('E'))) goto bbwa;
|
|
|
|
// goto bb1;
|
|
|
|
//bbwa:if ((txtdxf0[0]==_T('L'))&&(txtdxf0[1]==_T('I'))&&(txtdxf0[2]==_T('N'))&&(txtdxf0[3]==_T('E'))) goto lin;
|
|
|
|
// goto bb1;
|
|
|
|
//lin:
|
|
if ((fabs(xdz1-x1)<1.0E-6)
|
|
&&(fabs(ydz1-y1)<1.0E-6)
|
|
&&(fabs(xdz2-x2)<1.0E-6)
|
|
&&(fabs(ydz2-y2)<1.0E-6)) {
|
|
igw=igw+1;
|
|
if (igw>=2) ads_entdel(en);
|
|
goto bb1; }
|
|
|
|
qjadu(xdz1,ydz1,xdz2,ydz2);
|
|
|
|
q=(qhcjc+90)*pi314/180;
|
|
p1[0]=x1+ds111*cos(q); p1[1]=y1+ds111*sin(q);
|
|
|
|
q=(qhcjc-90)*pi314/180;
|
|
p2[0]=x1+ds111*cos(q); p2[1]=y1+ds111*sin(q);
|
|
|
|
p3[0]=xdz1; p3[1]=ydz1;
|
|
p4[0]=xdz2; p4[1]=ydz2;
|
|
|
|
if (ads_inters(p1,p2,p3,p4,1,pp)==RTNORM) goto d11;
|
|
|
|
goto bb1;
|
|
|
|
d11:q=(qhcjc+90)*pi314/180;
|
|
p1[0]=x2+ds111*cos(q); p1[1]=y2+ds111*sin(q);
|
|
|
|
q=(qhcjc-90)*pi314/180;
|
|
p2[0]=x2+ds111*cos(q); p2[1]=y2+ds111*sin(q);
|
|
|
|
if (ads_inters(p1,p2,p3,p4,1,pp)==RTNORM) ads_entdel(en);
|
|
|
|
bb1:i=i+1;
|
|
if (i<len) goto bbb;
|
|
|
|
ads_ssfree(ss1);
|
|
|
|
}
|
|
|
|
|
|
void ularczf(void)
|
|
{ struct resbuf apps,*ebup,*rb;
|
|
ads_name ss1,en;
|
|
|
|
int typi,igw,it;
|
|
Adesk::Int32 i,len;
|
|
|
|
ads_real x1,y1,q01,q02;
|
|
ads_real q1,q2,rr,gs1,gs2;
|
|
|
|
TCHAR txtdxf0[40]=_T(""),txtnam8[40]=_T(""),buf[40]=_T("");
|
|
ads_point p01,p02;
|
|
|
|
igw=0;
|
|
|
|
p01[0]=xka1-karr; p01[1]=yka1-karr; p01[2]=0;
|
|
p02[0]=xka1+karr; p02[1]=yka1+karr; p02[2]=0;
|
|
|
|
|
|
RBList mask(RTDXF0,_T("ARC"),8,_T("TDOTE"),NULL);
|
|
if (ads_ssget(_T("C"),p01,p02,mask,ss1)!=RTNORM)
|
|
return;
|
|
|
|
i=0;
|
|
if (ads_sslength(ss1,&len)==RTNORM) goto bbb;
|
|
return;
|
|
|
|
bbb:ads_ssname(ss1,i,en);
|
|
|
|
apps.restype=RTSTR;
|
|
|
|
_tcscpy(buf,_T("TDOTE"));
|
|
apps.resval.rstring=buf;
|
|
apps.rbnext=NULL;
|
|
|
|
ebup=ads_entgetx(en,&apps);
|
|
if (ebup==NULL) goto bb1;
|
|
|
|
it=0; gs1=0; gs2=0;
|
|
|
|
|
|
for (rb=ebup;rb!=NULL;rb=rb->rbnext) {
|
|
typi=rb->restype;
|
|
|
|
if (typi==0) _tcscpy(txtdxf0,rb->resval.rstring);
|
|
if (typi==8) _tcscpy(txtnam8,rb->resval.rstring);
|
|
|
|
if (typi==40) rr=rb->resval.rreal;
|
|
if (typi==50) q1=rb->resval.rreal;
|
|
if (typi==51) q2=rb->resval.rreal;
|
|
|
|
if (typi==10) {
|
|
x1=rb->resval.rpoint[0];
|
|
y1=rb->resval.rpoint[1]; }
|
|
|
|
if (typi==1040) {
|
|
it=it+1;
|
|
if (it==1) gs1=rb->resval.rreal;
|
|
if (it==2) gs2=rb->resval.rreal;
|
|
}
|
|
}
|
|
|
|
ads_relrb(ebup);
|
|
ads_relrb(rb);
|
|
|
|
|
|
//if ((txtnam8[0]==_T('T'))&&(txtnam8[1]==_T('D'))&&(txtnam8[2]==_T('O'))&&(txtnam8[3]==_T('T'))&&(txtnam8[4]==_T('E'))) goto bbwa;
|
|
|
|
// goto bb1;
|
|
|
|
//bbwa:if ((txtdxf0[0]==_T('A'))&&(txtdxf0[1]==_T('R'))&&(txtdxf0[2]==_T('C'))) goto arc;
|
|
|
|
// goto bb1;
|
|
|
|
//arc:
|
|
if ((fabs(xka1-x1)<1.0E-6)
|
|
&&(fabs(yka1-y1)<1.0E-6)
|
|
&&(fabs(karr-rr)<1.0E-6)
|
|
&&(fabs(kaq1-q1)<1.0E-6)
|
|
&&(fabs(kaq2-q2)<1.0E-6)) {
|
|
igw=igw+1;
|
|
if (igw>=2) ads_entdel(en);
|
|
goto bb1; }
|
|
|
|
|
|
if (fabs(xka1-x1)>1.0E-6 ||
|
|
fabs(yka1-y1)>1.0E-6 ||
|
|
fabs(karr-rr)>1.0E-6) goto bb1;
|
|
q01=kaq1*180/pi314;
|
|
q02=kaq2*180/pi314;
|
|
if (q02<q01) q02=q02+360;
|
|
|
|
q1=q1*180/pi314;
|
|
q2=q2*180/pi314;
|
|
if (q2<q1) q2=q2+360;
|
|
|
|
if ((q1<q01)||(q2>q02)) goto bb1;
|
|
|
|
ads_entdel(en);
|
|
|
|
bb1:i=i+1;
|
|
if (i<len) goto bbb;
|
|
|
|
ads_ssfree(ss1);
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
void ulin01(void)
|
|
{
|
|
// int i;
|
|
ads_real ds,x1,y1,x2,y2,dx,dy,d1,d2,x0,y0,q;
|
|
// TCHAR zf[40];
|
|
|
|
ads_ssadd(NULL,NULL,ensspp0);
|
|
ads_ssadd(entch,ensspp0,ensspp0);
|
|
|
|
itmen=0;
|
|
|
|
// strlin();
|
|
// ds=xka2; xka2=xka1; xka1=ds;
|
|
// ds=yka2; yka2=yka1; yka1=ds;
|
|
// strlin();
|
|
|
|
x1=xka1; y1=yka1;
|
|
x2=xka2; y2=yka2;
|
|
|
|
// if (ientd==1) ads_printf(_T("\n itmen=%d"),itmen);
|
|
|
|
if (itmen==0) {
|
|
|
|
ulin3();
|
|
|
|
//ads_printf(_T("\nulin3 itmen=%d"),itmen);
|
|
|
|
if (itmen==3) {
|
|
|
|
strlin();
|
|
ds=xka2; xka2=xka1; xka1=ds;
|
|
ds=yka2; yka2=yka1; yka1=ds;
|
|
strlin();
|
|
|
|
// hlin(x1,y1,x2,y2,2);
|
|
// hlin(xka1,yka1,xka2,yka2,2);
|
|
// ads_getstring(5,NULL,zf);
|
|
goto ssd0;
|
|
}
|
|
|
|
goto ssd;
|
|
}
|
|
|
|
goto ssd;
|
|
|
|
ssd0:qjadu(x1,y1,x2,y2);
|
|
|
|
dx=800000000.0;
|
|
q=(qhcjc-180)*pi314/180;
|
|
x0=x1+dx*cos(q);
|
|
y0=y1+dx*sin(q);
|
|
|
|
dx=x0-xka1; dy=y0-yka1;
|
|
d1=sqrt(dx*dx+dy*dy);
|
|
|
|
dx=x0-xka2; dy=y0-yka2;
|
|
d2=sqrt(dx*dx+dy*dy);
|
|
|
|
if (d1>d2) {
|
|
ds=xka2; xka2=xka1; xka1=ds;
|
|
ds=yka2; yka2=yka1; yka1=ds;
|
|
}
|
|
|
|
arry[1][1]=x1; arry[1][2]=y1;
|
|
arry[1][3]=x2; arry[1][4]=y2;
|
|
arry[1][5]=0; arry[1][6]=0;
|
|
|
|
arry[2][1]=xka1; arry[2][2]=yka1;
|
|
arry[2][3]=xka2; arry[2][4]=yka2;
|
|
arry[2][5]=0; arry[2][6]=0;
|
|
|
|
iarry=3;
|
|
|
|
//ads_printf(_T("\narry[1][1]=%f,arry[1][2]=%f,arry[1][3]=%f,arry[1][4]=%f"),arry[1][1],arry[1][2],arry[1][3],arry[1][4]);
|
|
//ads_printf(_T("\narry[2][1]=%f,arry[2][2]=%f,arry[2][3]=%f,arry[2][4]=%f"),arry[2][1],arry[2][2],arry[2][3],arry[2][4]);
|
|
|
|
ulin4();
|
|
|
|
// icolo=icolo+1;
|
|
|
|
// if (ientd==1) {
|
|
// for (i=1;i<iarry;i++) {
|
|
// if (i==1) hlin(arry[i][1],arry[i][2],arry[i][3],arry[i][4],2);
|
|
// if (i>1) hlin(arry[i][1],arry[i][2],arry[i][3],arry[i][4],7);
|
|
// ads_printf(_T("\ni=%d,arry[i][1]=%f,%f,%f,%f"),i,arry[i][1],arry[i][2],arry[i][3],arry[i][4]);
|
|
// ads_getstring(5,NULL,zf); }
|
|
// }
|
|
|
|
ulin5();
|
|
|
|
// 将以转换的墙端点选上 ensspp0
|
|
|
|
ulin6dd();
|
|
|
|
ssd:ssdelenpp0();
|
|
|
|
ads_ssfree(ensspp0);
|
|
|
|
}
|
|
|
|
|
|
void tzhatdc(void)
|
|
{ struct resbuf *ebup,*rbp;
|
|
ads_name en;
|
|
int typi;
|
|
|
|
Adesk::Int32 len,i;
|
|
|
|
ads_real x1,y1,x2,y2,q1,q2,rr;
|
|
|
|
TCHAR zf[40]=_T("");
|
|
|
|
i=0;
|
|
|
|
if (ads_sslength(entdwa,&len)==RTNORM) goto bbb;
|
|
|
|
return;
|
|
|
|
bbb:if (len==0) return;
|
|
|
|
ads_ssname(entdwa,i,en);
|
|
ebup=ads_entget(en);
|
|
if (ebup==NULL) goto bb1;
|
|
|
|
q1=0; q2=2*pi314;
|
|
|
|
for (rbp=ebup;rbp!=NULL;rbp=rbp->rbnext) {
|
|
typi=rbp->restype;
|
|
if (typi==0) _tcscpy(zf,rbp->resval.rstring);
|
|
|
|
if (typi==40) rr=rbp->resval.rreal;
|
|
if (typi==50) q1=rbp->resval.rreal;
|
|
if (typi==51) q2=rbp->resval.rreal;
|
|
|
|
if (typi==10) {
|
|
x1=rbp->resval.rpoint[0];
|
|
y1=rbp->resval.rpoint[1]; }
|
|
if (typi==11) {
|
|
x2=rbp->resval.rpoint[0];
|
|
y2=rbp->resval.rpoint[1]; }
|
|
}
|
|
|
|
ads_relrb(ebup);
|
|
ads_relrb(rbp);
|
|
|
|
if ((zf[0]==_T('L'))&&(zf[1]==_T('I'))&&(zf[2]==_T('N'))&&(zf[3]==_T('E'))) goto lin;
|
|
if ((zf[0]==_T('A'))&&(zf[1]==_T('R'))&&(zf[2]==_T('C'))) goto arc;
|
|
goto bb1;
|
|
|
|
arc:warcTDWA(x1,y1,q1,q2,rr);
|
|
ads_entdel(en);
|
|
|
|
goto bb1;
|
|
|
|
lin:wlinTDWA(x1,y1,x2,y2);
|
|
ads_entdel(en);
|
|
|
|
bb1:i=i+1;
|
|
if (i<len) goto bbb;
|
|
|
|
}
|
|
|
|
void wlinTDWA(ads_real x1,ads_real y1,ads_real x2,ads_real y2)
|
|
{
|
|
struct resbuf *rb;
|
|
|
|
ads_point p1,p2;
|
|
|
|
p1[0]=x1; p1[1]=y1; p1[2]=0;
|
|
p2[0]=x2; p2[1]=y2; p2[2]=0;
|
|
|
|
rb=ads_buildlist(RTDXF0,_T("LINE"),10,p1,11,p2,
|
|
6,_T("BYLAYER"),
|
|
8,_T("TDWALL"),
|
|
62,256,
|
|
39,0.0,
|
|
NULL);
|
|
|
|
ads_entmake(rb);
|
|
ads_relrb(rb);
|
|
|
|
}
|
|
|
|
|
|
void warcTDWA(ads_real x1,ads_real y1,ads_real q1,ads_real q2,ads_real rr)
|
|
{ struct resbuf *rb;
|
|
|
|
ads_point p1;
|
|
|
|
p1[0]=x1; p1[1]=y1; p1[2]=0;
|
|
|
|
rb=ads_buildlist(RTDXF0,_T("ARC"),
|
|
6,_T("BYLAYER"),
|
|
8,_T("TDWALL"),
|
|
62,256,
|
|
10,p1,
|
|
40,rr,
|
|
50,q1,
|
|
51,q2,
|
|
39,0.0,
|
|
NULL);
|
|
|
|
ads_entmake(rb);
|
|
ads_relrb(rb);
|
|
|
|
}
|
|
|
|
|
|
void ulin6dd(void)
|
|
{
|
|
struct resbuf *ebup,*rb;
|
|
ads_point p01,p02;
|
|
ads_name ss1,en;
|
|
|
|
int typi,j;
|
|
Adesk::Int32 i,len;
|
|
|
|
ads_real x1,y1,x2,y2,dx,dy,d1,d2,q1,dq,q;
|
|
|
|
TCHAR txtdxf0[40]=_T(""),txtnam8[40]=_T("");
|
|
|
|
ads_point p1,p2,p3,p4,pp;
|
|
|
|
p1[2]=0; p2[2]=0;
|
|
p3[2]=0; p4[2]=0;
|
|
|
|
|
|
if (iarry<3) return;
|
|
|
|
xwb1=arry[1][1]; ywb1=arry[1][2];
|
|
xwb2=arry[1][1]; ywb2=arry[1][2];
|
|
|
|
xwbmin(1);
|
|
xwbmin(2);
|
|
xwbmin(iarry-1);
|
|
|
|
p01[0]=xwb1; p01[1]=ywb1; p01[2]=0;
|
|
p02[0]=xwb2; p02[1]=ywb2; p02[2]=0;
|
|
|
|
//modified by whl on 060323
|
|
//RBList mask(RTDXF0,_T("LINE"),8,_T("WALL*"),NULL);
|
|
XString sLayer;
|
|
sLayer<<_T("WALL*,")<<LAY_WALL;
|
|
RBList mask(RTDXF0,_T("LINE"),8,(const TCHAR*)sLayer,NULL);
|
|
|
|
if (ads_ssget(_T("C"),p01,p02,mask,ss1)!=RTNORM)
|
|
return;
|
|
|
|
i=0;
|
|
if (ads_sslength(ss1,&len)==RTNORM) goto bbb;
|
|
return;
|
|
|
|
bbb:ads_ssname(ss1,i,en);
|
|
ebup=ads_entget(en);
|
|
|
|
if (ebup==NULL) goto mbb1;
|
|
|
|
for (rb=ebup;rb!=NULL;rb=rb->rbnext) {
|
|
typi=rb->restype;
|
|
|
|
if (typi==0) _tcscpy(txtdxf0,rb->resval.rstring);
|
|
if (typi==8) _tcscpy(txtnam8,rb->resval.rstring);
|
|
|
|
if (typi==10) {
|
|
x1=rb->resval.rpoint[0];
|
|
y1=rb->resval.rpoint[1]; }
|
|
|
|
if (typi==11) {
|
|
x2=rb->resval.rpoint[0];
|
|
y2=rb->resval.rpoint[1]; }
|
|
}
|
|
|
|
ads_relrb(ebup);
|
|
ads_relrb(rb);
|
|
|
|
//if ((txtnam8[0]==_T('W'))&&(txtnam8[1]==_T('A'))&&(txtnam8[2]==_T('L'))&&(txtnam8[3]==_T('L'))) goto bbwa;
|
|
|
|
// goto mbb1;
|
|
|
|
//bbwa:if ((txtdxf0[0]==_T('L'))&&(txtdxf0[1]==_T('I'))&&(txtdxf0[2]==_T('N'))&&(txtdxf0[3]==_T('E'))) goto lin;
|
|
|
|
// goto mbb1;
|
|
|
|
//lin:
|
|
dx=x1-x2; dy=y1-y2;
|
|
d1=sqrt(dx*dx+dy*dy);
|
|
if (d1<ds111) goto mbb1;
|
|
|
|
qjadu(arry[1][1],arry[1][2],arry[1][3],arry[1][4]);
|
|
q1=qhcjc;
|
|
|
|
qjadu(x1,y1,x2,y2);
|
|
dq=q1-qhcjc;
|
|
if (dq<0) dq=-dq;
|
|
qq1:if (dq>179) { dq=dq-180; goto qq1; }
|
|
if (dq<2) goto mbb1;
|
|
|
|
q=(qhcjc+180)*pi314/180;
|
|
p1[0]=x1+cos(q); p1[1]=y1+sin(q);
|
|
|
|
q=qhcjc*pi314/180;
|
|
p2[0]=x2+cos(q); p2[1]=y2+sin(q);
|
|
|
|
p3[0]=arry[1][1]; p3[1]=arry[1][2];
|
|
p4[0]=arry[1][3]; p4[1]=arry[1][4];
|
|
|
|
if (ads_inters(p1,p2,p3,p4,1,pp)==RTNORM) goto lin2;
|
|
goto mbb1;
|
|
|
|
lin2:dx=x1-pp[0]; dy=y1-pp[1];
|
|
d1=sqrt(dx*dx+dy*dy);
|
|
|
|
dx=x2-pp[0]; dy=y2-pp[1];
|
|
d2=sqrt(dx*dx+dy*dy);
|
|
if ((d1>ds111)&&(d2>ds111)) goto mbb1;
|
|
|
|
j=2;
|
|
|
|
jjj: p3[0]=arry[j][1]; p3[1]=arry[j][2];
|
|
p4[0]=arry[j][3]; p4[1]=arry[j][4];
|
|
|
|
if (ads_inters(p1,p2,p3,p4,1,pp)==RTNORM) {
|
|
|
|
// dx=arry[j][1]-pp[0]; dy=arry[j][2]-pp[1];
|
|
// d1=sqrt(dx*dx+dy*dy);
|
|
// dx=arry[j][3]-pp[0]; dy=arry[j][4]-pp[1];
|
|
// d2=sqrt(dx*dx+dy*dy);
|
|
|
|
dx=x1-pp[0]; dy=y1-pp[1];
|
|
d1=sqrt(dx*dx+dy*dy);
|
|
|
|
dx=x2-pp[0]; dy=y2-pp[1];
|
|
d2=sqrt(dx*dx+dy*dy);
|
|
|
|
if ((d1<ds111)||(d2<ds111)) {
|
|
ads_ssadd(en,ensspp0,ensspp0);
|
|
goto mbb1;
|
|
}
|
|
}
|
|
|
|
j=j+1;
|
|
if (j<iarry) goto jjj;
|
|
|
|
mbb1:i=i+1;
|
|
if (i<len) goto bbb;
|
|
|
|
ads_ssfree(ss1);
|
|
|
|
}
|
|
|
|
|
|
void xwbmin(int i)
|
|
{
|
|
|
|
if (xwb1>arry[i][1]) xwb1=arry[i][1];
|
|
if (ywb1>arry[i][2]) ywb1=arry[i][2];
|
|
if (xwb1>arry[i][3]) xwb1=arry[i][3];
|
|
if (ywb1>arry[i][4]) ywb1=arry[i][4];
|
|
|
|
if (xwb2<arry[i][1]) xwb2=arry[i][1];
|
|
if (ywb2<arry[i][2]) ywb2=arry[i][2];
|
|
if (xwb2<arry[i][3]) xwb2=arry[i][3];
|
|
if (ywb2<arry[i][4]) ywb2=arry[i][4];
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
void yyyq(void)
|
|
{
|
|
struct resbuf *ebup,*rb;
|
|
ads_point p01,p02;
|
|
ads_name ss1,en;
|
|
int typi,itn,itm;
|
|
Adesk::Int32 i,len;
|
|
ads_real x1,y1,x2,y2,dx,dy,d1,d2,rr0,q;
|
|
ads_real q1,q2,q12,rr,xd1,yd1;
|
|
ads_real q01,q02;
|
|
TCHAR txtdxf0[40]=_T(""),txtnam8[40]=_T("");
|
|
|
|
itn=0;
|
|
|
|
sta0:itn=itn+1;
|
|
if (itn>300) return;
|
|
|
|
// ads_printf(_T("\n itn=%d"),itn);
|
|
|
|
if (kaq2>kaq1+359.99) return;
|
|
|
|
itm=0;
|
|
|
|
rr0=karr;
|
|
q=kaq2*pi314/180;
|
|
|
|
xd1=xka1+rr0*cos(q);
|
|
yd1=yka1+rr0*sin(q);
|
|
|
|
q01=kaq1-0.001;
|
|
q02=kaq2+0.001;
|
|
|
|
p01[2]=0; p02[2]=0;
|
|
|
|
rr=10*ds111;
|
|
p01[0]=xd1-rr; p01[1]=yd1-rr;
|
|
p02[0]=xd1+rr; p02[1]=yd1+rr;
|
|
|
|
ul112l(p01[0],p01[1],p02[0],p02[1],0);
|
|
|
|
//modified by whl on 060323
|
|
//RBList mask(RTDXF0, _T("LINE,ARC"), 8, _T("WALL*"),NULL);
|
|
XString sLayer;
|
|
sLayer<<_T("WALL*,")<<LAY_WALL;
|
|
RBList mask(RTDXF0, _T("LINE,ARC"), 8,(const TCHAR*)sLayer,NULL);
|
|
|
|
if (ads_ssget(_T("C"),p01,p02,mask,ss1)!=RTNORM)
|
|
return;
|
|
|
|
i=0;
|
|
|
|
if (ads_sslength(ss1,&len)==RTNORM) goto strbb;
|
|
return;
|
|
|
|
strbb:ads_ssname(ss1,i,en);
|
|
ebup=ads_entget(en);
|
|
|
|
if (ebup==NULL) goto mbb1;
|
|
|
|
q1=0; q2=0;
|
|
|
|
for (rb=ebup;rb!=NULL;rb=rb->rbnext) {
|
|
typi=rb->restype;
|
|
|
|
if (typi==0) _tcscpy(txtdxf0,rb->resval.rstring);
|
|
if (typi==8) _tcscpy(txtnam8,rb->resval.rstring);
|
|
|
|
if (typi==40) rr=rb->resval.rreal;
|
|
if (typi==50) q1=rb->resval.rreal;
|
|
if (typi==51) q2=rb->resval.rreal;
|
|
|
|
if (typi==10) {
|
|
x1=rb->resval.rpoint[0];
|
|
y1=rb->resval.rpoint[1]; }
|
|
if (typi==11) {
|
|
x2=rb->resval.rpoint[0];
|
|
y2=rb->resval.rpoint[1]; }
|
|
}
|
|
ads_relrb(ebup);
|
|
ads_relrb(rb);
|
|
|
|
//if ((txtnam8[0]==_T('W'))&&(txtnam8[1]==_T('A'))&&(txtnam8[2]==_T('L'))&&(txtnam8[3]==_T('L'))) goto bbwa;
|
|
|
|
// goto mbb1;
|
|
|
|
//bbwa:
|
|
if ((txtdxf0[0]==_T('L'))&&(txtdxf0[1]==_T('I'))&&(txtdxf0[2]==_T('N'))&&(txtdxf0[3]==_T('E'))) goto lin;
|
|
if ((txtdxf0[0]==_T('A'))&&(txtdxf0[1]==_T('R'))&&(txtdxf0[2]==_T('C'))) goto arcjd;
|
|
goto mbb1;
|
|
|
|
arcjd:dx=xka1-x1;
|
|
dy=yka1-y1;
|
|
d1=sqrt(dx*dx+dy*dy);
|
|
if (d1>ds111) goto mbb1;
|
|
|
|
dx=fabs(karr-rr);
|
|
if (dx>ds111) goto mbb1;
|
|
|
|
q1=q1*180/pi314;
|
|
q2=q2*180/pi314;
|
|
if (q2<q1) q2=q2+360;
|
|
|
|
|
|
|
|
if ((q1>q01)&&(q1<q02)||(q1>q01-360)&&(q1<q02-360)||(q1>q01+360)&&(q1<q02+360)) goto acc1;
|
|
goto mbb1;
|
|
|
|
acc1:if ((q2>q01)&&(q2<q02)||(q2>q01-360)&&(q2<q02-360)||(q2>q01+360)&&(q2<q02+360)) {
|
|
q12=(q1+q2)/2;
|
|
if ((q12>q01)&&(q12<q02)||(q12>q01-360)&&(q12<q02-360)||(q12>q01+360)&&(q12<q02+360)) goto mbb1;
|
|
}
|
|
|
|
// ads_printf(_T("\nAAA arc kaq1=%f,kaq2=%f"),kaq1,kaq2);
|
|
// ads_printf(_T("\nAAA arc q1=%f,q2=%f"),q1,q2);
|
|
|
|
if (q2<kaq2) q2=q2+360;
|
|
if (q2>kaq1+360) q2=q2-360;
|
|
|
|
kaq2=q2;
|
|
ads_ssfree(ss1);
|
|
|
|
goto sta0;
|
|
|
|
|
|
lin:dx=x1-x2; dy=y1-y2;
|
|
d1=sqrt(dx*dx+dy*dy);
|
|
if (d1<ds111) goto mbb1;
|
|
|
|
if ((d1<dswa500)||(d1<whou)) {
|
|
|
|
dx=xd1-x1; dy=yd1-y1;
|
|
d1=sqrt(dx*dx+dy*dy);
|
|
|
|
dx=xd1-x2; dy=yd1-y2;
|
|
d2=sqrt(dx*dx+dy*dy);
|
|
|
|
if ((d1>10*ds111)&&(d2>10*ds111)) goto mbb1;
|
|
|
|
xdo1=x1; ydo1=y1;
|
|
xdo2=x2; ydo2=y2;
|
|
|
|
itm=1;
|
|
|
|
if (d2<d1) {
|
|
|
|
xdo1=x2; ydo1=y2;
|
|
xdo2=x1; ydo2=y1;
|
|
|
|
}
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
mbb1:i=i+1;
|
|
if (i<len) goto strbb;
|
|
|
|
ads_ssfree(ss1);
|
|
|
|
if (itm==1) {
|
|
itmen=0;
|
|
ulyyyqb();
|
|
|
|
if (itmen==1) {
|
|
qjadu(xka1,yka1,xdz2,ydz2);
|
|
q2=qhcjc;
|
|
|
|
q01=kaq1+0.001;
|
|
q02=kaq2-0.001;
|
|
|
|
if ((q2>q01)&&(q2<q02)||(q2>q01-360)&&(q2<q02-360)||(q2>q01+360)&&(q2<q02+360)) return;
|
|
|
|
|
|
if (q2<kaq2) q2=q2+360;
|
|
if ((q2-kaq2)>180) return;
|
|
|
|
// ads_printf(_T("END kaq2=%f"),kaq2);
|
|
|
|
kaq2=q2;
|
|
if (kaq2<kaq1+359.99) goto sta0;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
void yyyqa(void)
|
|
{
|
|
struct resbuf *ebup,*rb;
|
|
ads_point p01,p02;
|
|
ads_name ss1,en;
|
|
int typi,itn,itm;
|
|
Adesk::Int32 i,len;
|
|
ads_real x1,y1,x2,y2,dx,dy,d1,d2,rr0,q;
|
|
ads_real q12,q1,q2,rr,xd1,yd1;
|
|
ads_real q01,q02;
|
|
TCHAR txtdxf0[40]=_T(""),txtnam8[40]=_T("");
|
|
|
|
|
|
itn=0;
|
|
sta0:itn=itn+1;
|
|
|
|
if (itn>300) return;
|
|
|
|
//ads_printf(_T("\n itn=%d"),itn);
|
|
|
|
if (kaq2>kaq1+359.99) return;
|
|
|
|
itm=0;
|
|
|
|
rr0=karr;
|
|
q=kaq1*pi314/180;
|
|
|
|
xd1=xka1+rr0*cos(q);
|
|
yd1=yka1+rr0*sin(q);
|
|
|
|
q01=kaq1-0.001;
|
|
q02=kaq2+0.001;
|
|
|
|
p01[2]=0; p02[2]=0;
|
|
|
|
rr=10*ds111;
|
|
p01[0]=xd1-rr; p01[1]=yd1-rr;
|
|
p02[0]=xd1+rr; p02[1]=yd1+rr;
|
|
|
|
ul112l(p01[0],p01[1],p02[0],p02[1],0);
|
|
|
|
//modified by whl on 060323
|
|
//RBList mask(RTDXF0, _T("LINE,ARC"), 8, _T("WALL*"),NULL);
|
|
XString sLayer;
|
|
sLayer<<_T("WALL*,")<<LAY_WALL;
|
|
RBList mask(RTDXF0, _T("LINE,ARC"), 8,(const TCHAR*)sLayer,NULL);
|
|
|
|
if (ads_ssget(_T("C"),p01,p02,mask,ss1)!=RTNORM)
|
|
return;
|
|
i=0;
|
|
|
|
if (ads_sslength(ss1,&len)==RTNORM) goto strbb;
|
|
return;
|
|
|
|
strbb:ads_ssname(ss1,i,en);
|
|
ebup=ads_entget(en);
|
|
|
|
if (ebup==NULL) goto mbb1;
|
|
|
|
q1=0; q2=0;
|
|
|
|
for (rb=ebup;rb!=NULL;rb=rb->rbnext) {
|
|
typi=rb->restype;
|
|
|
|
if (typi==0) _tcscpy(txtdxf0,rb->resval.rstring);
|
|
if (typi==8) _tcscpy(txtnam8,rb->resval.rstring);
|
|
|
|
if (typi==40) rr=rb->resval.rreal;
|
|
if (typi==50) q1=rb->resval.rreal;
|
|
if (typi==51) q2=rb->resval.rreal;
|
|
|
|
if (typi==10) {
|
|
x1=rb->resval.rpoint[0];
|
|
y1=rb->resval.rpoint[1]; }
|
|
if (typi==11) {
|
|
x2=rb->resval.rpoint[0];
|
|
y2=rb->resval.rpoint[1]; }
|
|
}
|
|
ads_relrb(ebup);
|
|
ads_relrb(rb);
|
|
|
|
//if ((txtnam8[0]==_T('W'))&&(txtnam8[1]==_T('A'))&&(txtnam8[2]==_T('L'))&&(txtnam8[3]==_T('L'))) goto bbwa;
|
|
|
|
// goto mbb1;
|
|
|
|
//bbwa:
|
|
if ((txtdxf0[0]==_T('L'))&&(txtdxf0[1]==_T('I'))&&(txtdxf0[2]==_T('N'))&&(txtdxf0[3]==_T('E'))) goto lin;
|
|
if ((txtdxf0[0]==_T('A'))&&(txtdxf0[1]==_T('R'))&&(txtdxf0[2]==_T('C'))) goto arcjd;
|
|
goto mbb1;
|
|
|
|
arcjd:dx=xka1-x1;
|
|
dy=yka1-y1;
|
|
d1=sqrt(dx*dx+dy*dy);
|
|
if (d1>ds111) goto mbb1;
|
|
|
|
dx=fabs(karr-rr);
|
|
if (dx>ds111) goto mbb1;
|
|
|
|
q1=q1*180/pi314;
|
|
q2=q2*180/pi314;
|
|
if (q2<q1) q2=q2+360;
|
|
|
|
if ((q2>q01)&&(q2<q02)||(q2>q01-360)&&(q2<q02-360)||(q2>q01+360)&&(q2<q02+360)) goto acc1;
|
|
goto mbb1;
|
|
|
|
acc1:if ((q1>q01)&&(q1<q02)||(q1>q01-360)&&(q1<q02-360)||(q1>q01+360)&&(q1<q02+360)) {
|
|
q12=(q1+q2)/2;
|
|
if ((q12>q01)&&(q12<q02)||(q12>q01-360)&&(q12<q02-360)||(q12>q01+360)&&(q12<q02+360)) goto mbb1;
|
|
}
|
|
|
|
// ads_printf(_T("\nBBB arc kaq1=%f,kaq2=%f"),kaq1,kaq2);
|
|
// ads_printf(_T("\nBBB arc q1=%f,q2=%f"),q1,q2);
|
|
|
|
if (q1>kaq2) q1=q1-360;
|
|
if (q1<kaq2-360) q1=q1+360;
|
|
|
|
kaq1=q1;
|
|
ads_ssfree(ss1);
|
|
|
|
goto sta0;
|
|
|
|
|
|
lin:dx=x1-x2; dy=y1-y2;
|
|
d1=sqrt(dx*dx+dy*dy);
|
|
if (d1<ds111) goto mbb1;
|
|
|
|
if ((d1<dswa500)||(d1<whou)) {
|
|
|
|
dx=xd1-x1; dy=yd1-y1;
|
|
d1=sqrt(dx*dx+dy*dy);
|
|
|
|
dx=xd1-x2; dy=yd1-y2;
|
|
d2=sqrt(dx*dx+dy*dy);
|
|
|
|
if ((d1>10*ds111)&&(d2>10*ds111)) goto mbb1;
|
|
|
|
itm=1;
|
|
|
|
xdo1=x1; ydo1=y1;
|
|
xdo2=x2; ydo2=y2;
|
|
|
|
if (d2<d1) {
|
|
|
|
xdo1=x2; ydo1=y2;
|
|
xdo2=x1; ydo2=y1;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
mbb1:i=i+1;
|
|
if (i<len) goto strbb;
|
|
|
|
// kaq2=qdd1;
|
|
//if (dqend<dqsta) kaq2=qdd2;
|
|
|
|
ads_ssfree(ss1);
|
|
|
|
|
|
if (itm==1) {
|
|
|
|
itmen=0;
|
|
ulyyyqb();
|
|
|
|
if (itmen==1) {
|
|
qjadu(xka1,yka1,xdz2,ydz2);
|
|
q1=qhcjc;
|
|
|
|
|
|
q01=kaq1+0.001;
|
|
q02=kaq2-0.001;
|
|
if ((q1>q01)&&(q1<q02)||(q1>q01-360)&&(q1<q02-360)||(q1>q01+360)&&(q1<q02+360)) return;
|
|
|
|
if (q1>kaq1) q1=q1-360;
|
|
if ((kaq1-q1)>180) return;
|
|
|
|
kaq1=q1;
|
|
|
|
// ads_printf(_T("\n END kaq1=%f"),kaq1);
|
|
|
|
if (kaq2<kaq1+359.99) goto sta0;
|
|
}
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
void ulyyyqb(void)
|
|
{
|
|
struct resbuf apps,*rbps,*rb;
|
|
|
|
ads_name ensss,en;
|
|
int ires,it,itp;
|
|
Adesk::Int32 i,len;
|
|
TCHAR dxfnam[40]=_T(""),laynam[40]=_T(""),txtins[40]=_T(""),buf[40]=_T("");
|
|
ads_real r41,r42,q1,x1,y1,bs,dx,dy,gs1,gs2,gs3,tchyy,doork;
|
|
ads_real x01,y01,x02,y02,d1,d2,dm;
|
|
ads_point p1010,p1011;
|
|
ads_point pd1,pd2;
|
|
|
|
|
|
pd1[0]=xdo1; pd1[1]=ydo1; pd1[2]=0;
|
|
pd2[0]=xdo2; pd2[1]=ydo2; pd2[2]=0;
|
|
|
|
//modified by whl on 060323
|
|
//RBList mask(RTDXF0, _T("INSERT"), 8, LAY_WIN, NULL);
|
|
XString sLayer;
|
|
sLayer<<_T("WINDOW,")<<LAY_WIN;
|
|
RBList mask(RTDXF0, _T("INSERT"), 8, (const TCHAR*)sLayer, NULL);
|
|
|
|
if (ads_ssget(_T("C"),pd1,pd2,mask,ensss)!=RTNORM)
|
|
return;
|
|
|
|
i=0;
|
|
if (ads_sslength(ensss,&len)==RTNORM) goto starb;
|
|
return;
|
|
|
|
starb:ads_ssname(ensss,i,en);
|
|
|
|
apps.restype=RTSTR;
|
|
_tcscpy(buf,_T("WTHICK"));
|
|
apps.resval.rstring=buf;
|
|
apps.rbnext=NULL;
|
|
rbps=ads_entgetx(en,&apps);
|
|
|
|
if (rbps==NULL) goto starb1;
|
|
|
|
it=0; gs1=0; gs2=0; gs3=0;
|
|
|
|
for (rb=rbps;rb!=NULL;rb=rb->rbnext) {
|
|
ires=rb->restype;
|
|
|
|
if (ires==0) _tcscpy(dxfnam,rb->resval.rstring);
|
|
if (ires==8) _tcscpy(laynam,rb->resval.rstring);
|
|
if (ires==2) _tcscpy(txtins,rb->resval.rstring);
|
|
if (ires==41) r41=rb->resval.rreal;
|
|
if (ires==42) r42=rb->resval.rreal;
|
|
if (ires==50) q1=rb->resval.rreal;
|
|
|
|
if (ires==10) {
|
|
x1=rb->resval.rpoint[0];
|
|
y1=rb->resval.rpoint[1]; }
|
|
|
|
if (ires==1040) {
|
|
it=it+1;
|
|
if (it==1) gs1=rb->resval.rreal;
|
|
if (it==2) gs2=rb->resval.rreal;
|
|
if (it==3) gs3=rb->resval.rreal;
|
|
}
|
|
}
|
|
|
|
ads_relrb(rbps);
|
|
ads_relrb(rb);
|
|
|
|
|
|
itp=0; it=0; tchyy=0;
|
|
p1010[0]=0; p1010[1]=0; p1010[2]=0;
|
|
p1011[0]=0; p1011[1]=0; p1011[2]=0;
|
|
|
|
apps.restype=RTSTR;
|
|
_tcscpy(buf,_T("WPLINE"));
|
|
apps.resval.rstring=buf;
|
|
apps.rbnext=NULL;
|
|
rbps=ads_entgetx(en,&apps);
|
|
|
|
if (rbps==NULL) goto starb1;
|
|
|
|
for (rb=rbps;rb!=NULL;rb=rb->rbnext) {
|
|
ires=rb->restype;
|
|
|
|
if (ires==1040) {
|
|
it=it+1;
|
|
if (it==1) tchyy=rb->resval.rreal;
|
|
}
|
|
|
|
if (ires==1010) {
|
|
|
|
if (itp<100) itp=itp+1;
|
|
|
|
if (itp==1) {
|
|
p1010[0]=rb->resval.rpoint[0];
|
|
p1010[1]=rb->resval.rpoint[1];
|
|
p1010[2]=rb->resval.rpoint[2]; }
|
|
|
|
if (itp==2) {
|
|
p1011[0]=rb->resval.rpoint[0];
|
|
p1011[1]=rb->resval.rpoint[1];
|
|
p1011[2]=rb->resval.rpoint[2]; }
|
|
|
|
}
|
|
}
|
|
|
|
ads_relrb(rbps);
|
|
ads_relrb(rb);
|
|
|
|
//if ((laynam[0]==_T('W'))&&(laynam[1]==_T('I'))&&(laynam[2]==_T('N'))&&(laynam[3]==_T('D'))&&(laynam[4]==_T('O'))&&(laynam[5]==_T('W'))) goto strabw;
|
|
// goto starb1;
|
|
|
|
//strabw:if ((dxfnam[0]==_T('I'))&&(dxfnam[1]==_T('N'))&&(dxfnam[2]==_T('S'))&&(dxfnam[3]==_T('E'))&&(dxfnam[4]==_T('R'))&&(dxfnam[5]==_T('T'))) goto bbin;
|
|
// goto starb1;
|
|
|
|
//bbin:
|
|
doork=0;
|
|
bs=_tstof(txtins);
|
|
|
|
// ads_printf(_T("\ngs1=%f,gs2=%f"),gs1,gs2);
|
|
|
|
if (itp>2) {
|
|
goto starb1; }
|
|
|
|
// ads_printf(_T("\np1010[0]=%f,tchyy=%f"),p1010[0],tchyy);
|
|
|
|
if (fabs(p1010[0])<1.0E-6) goto starb1;
|
|
|
|
if ((bs>90000.0)&&(fabs(p1010[0])>1.0E-6)) {
|
|
|
|
bs=r41;
|
|
if (bs<0) bs=-bs;
|
|
|
|
dx=bs*p1010[0];
|
|
x01=x1+dx*cos(q1);
|
|
y01=y1+dx*sin(q1);
|
|
|
|
dx=bs*p1011[0];
|
|
x02=x1+dx*cos(q1);
|
|
y02=y1+dx*sin(q1);
|
|
|
|
// if (tchyy<0) {
|
|
// dx=xdz1; xdz1=xdz2; xdz2=dx;
|
|
// dx=ydz1; ydz1=ydz2; ydz2=dx;
|
|
// tchyy=-tchyy; }
|
|
|
|
dm=bs*p1010[0];
|
|
// ulrrxxyy(x01,y01,x02,y02,tchyy,dm);
|
|
goto dmm; }
|
|
|
|
|
|
if (fabs(p1010[0])>1.0E-6) {
|
|
|
|
bs=r41;
|
|
if (bs<0) bs=-bs;
|
|
doork=bs/2;
|
|
|
|
dm=p1010[0];
|
|
if (dm>0) {
|
|
x01=x1+doork*cos(q1);
|
|
y01=y1+doork*sin(q1);
|
|
x02=x1+doork*cos(q1+pi314);
|
|
y02=y1+doork*sin(q1+pi314); }
|
|
else {
|
|
x02=x1+doork*cos(q1);
|
|
y02=y1+doork*sin(q1);
|
|
x01=x1+doork*cos(q1+pi314);
|
|
y01=y1+doork*sin(q1+pi314);
|
|
}
|
|
|
|
//ulrrxxyy(x01,y01,x02,y02,tchyy,dm);
|
|
|
|
goto dmm;
|
|
}
|
|
|
|
goto starb1;
|
|
|
|
dmm:dx=x01-xdo1; dy=y01-ydo1;
|
|
d1=sqrt(dx*dx+dy*dy);
|
|
|
|
dx=x02-xdo1; dy=y02-ydo1;
|
|
d2=sqrt(dx*dx+dy*dy);
|
|
|
|
if ((d1>gs1)&&(d2>gs1)) goto starb1;
|
|
|
|
ulrrxxyy(x01,y01,x02,y02,tchyy,dm);
|
|
|
|
starb1:i=i+1;
|
|
if (i<len) goto starb;
|
|
|
|
ads_ssfree(ensss);
|
|
|
|
if (itmen==1) {
|
|
dx=xdo1-xdz1; dy=ydo1-ydz1;
|
|
d1=sqrt(dx*dx+dy*dy);
|
|
|
|
dx=xdo1-xdz2; dy=ydo1-ydz2;
|
|
d2=sqrt(dx*dx+dy*dy);
|
|
|
|
if (d2<d1) {
|
|
dx=xdz1; xdz1=xdz2; xdz2=dx;
|
|
dx=ydz1; ydz1=ydz2; ydz2=dx;
|
|
}
|
|
}
|
|
|
|
}
|
|
|
|
|
|
void ulrrxxyy(ads_real x01,ads_real y01,ads_real x02,ads_real y02,ads_real tchyy,ads_real dm)
|
|
{
|
|
ads_real x0,y0,xd1,yd1,x2,y2,dx,dy,dd,rr,r42,d1,q;
|
|
|
|
r42=tchyy;
|
|
|
|
dx=x01-x02; dy=y01-y02;
|
|
dd=sqrt(dx*dx+dy*dy);
|
|
dx=dd/2;
|
|
|
|
d1=r42*dx;
|
|
dd=r42*dx;
|
|
if (dd<0) dd=-dd;
|
|
if (dd<0.0001) return;
|
|
|
|
dy=(dd*dd-dx*dx)/(2*dd);
|
|
rr=dd-dy;
|
|
|
|
qjadu(x01,y01,x02,y02);
|
|
|
|
q=(qhcjc-90)*pi314/180;
|
|
x2=(x01+x02)/2;
|
|
y2=(y01+y02)/2;
|
|
|
|
xd1=x2+d1*cos(q);
|
|
yd1=y2+d1*sin(q);
|
|
|
|
/* hlin(x1,y1,x2,y2,5); */
|
|
|
|
q=(qhcjc+90)*pi314/180;
|
|
if (r42<0) q=(qhcjc-90)*pi314/180;
|
|
|
|
x0=xd1+rr*cos(q);
|
|
y0=yd1+rr*sin(q);
|
|
|
|
if (dm<0) dm=-dm;
|
|
|
|
dx=rr*rr-dm*dm;
|
|
if (dx<0) dx=0;
|
|
dx=sqrt(dx);
|
|
|
|
dx=x0-xka1; dy=y0-yka1;
|
|
d1=sqrt(dx*dx+dy*dy);
|
|
|
|
// hlin(x01,y01,x02,y02,7);
|
|
// hlin(x0,y0,x01,y01,1);
|
|
// hlin(x0,y0,x02,y02,2);
|
|
// TCHAR zf[40];
|
|
//ads_getstring(5,NULL,zf);
|
|
|
|
if (d1<ds111) {
|
|
|
|
itmen=1;
|
|
|
|
// hlin(xx0,yy0,xdz1,ydz1,1);
|
|
// hlin(xka1,yka1,xdz2,ydz2,2);
|
|
|
|
mmrr=rr;
|
|
xx0=x0; yy0=y0;
|
|
|
|
xdz1=x01; ydz1=y01;
|
|
xdz2=x02; ydz2=y02;
|
|
|
|
// hlin(x0,y0,x01,y01,7);
|
|
// hlin(x0,y0,x02,y02,7);
|
|
|
|
}
|
|
}
|