/* #TITLE# ALP: C2面取り寸法の作成 ALP_DCHAMF.MAC coded by ??? 15-Dec-1999 Advance CAD version 12使用によるファイル名の変更(旧ファイル名: DCHAMF.MAC) */ /* 面取り寸法線作成 */ txt=array(3); txt[1]="面取り1点目デジタイズ。"; txt[2]="面取り寸法引出方向デジタイズ。"; DCHM while(1) { p=1; s=2; /* C2 */ TPND while(1) { mecho(pos(3,2,6),"削 除"); mecho(pos(3,3,6),"終 了"); echo (txt[p]); v=getany(1); switch (vtype(v)) { case 5: [v] break; case 6: if (p==1) {VPP [v] TPAT px1=#CURX;py1=#CURY;p=2;} else { px2=#CURX;py2=#CURY;goto dim;} break; case 7: p=1; [v] TPND break; case 12: if (v[0]==3 && v[1]==2) { DEL while(1) {echo "削除するアイテムピック。"; [del=getpnt(1)] if (vtype(del)==5) {break;}}} else if (v[0]==3 && v[1]==3) {goto end;} else {echo"\007";continue;} break; default: ;continue; } } dim: merase(pos(0,0,6)); dx=px2-px1; dy=py2-py1; r=(+dx*(+dy))/(dx*dy); lx1=px1-(s/2); ly1=py1+(r*s/2); lx2=px1+(s/2); ly2=py1-(r*s/2); DCHM CEN PNTPIC <[lx1],[ly1]> <[lx2],[ly2]> do { v=getany(1); if (vtype(v)==3) {v=encode("\MDC%g\MZ",v);} if (vtype(v)==7) { break;} [v] } while(vtype(v)!=5); } end: /* End of MACRO*/