/*#TITLE# カム曲線のセグメントを解析するマクロ(最小長さ0.1mm) */ /* CAM_CNT.MAC 2008.8.19 kita */ /* 線分の足し算処理を見直し */ clear(); echo "0:調査だけ 1:線分の足し算処理"; menu_no = getany(1); /*menu_no = 0; 0: 調査だけ 1:線分の足し算処理 */ MENU/OFF LIST/OFF CLS 52 ps0 = pce(0,0); pe0 = pce(0,0); ps1 = pce(0,0); pe1 = pce(0,0); n_mod = 0; /* 修正ヶ所 */ limit = 0.1; n = #CURACTCNT; /*len = array(n-1);*/ len = array(n); for(i=1; i <= n; i+=1){ /* echo "i=" i;getany(1);*/ VER [actlst(i)] len[i-1] = #VERLEN; if(len[i-1] < limit){ n_mod += 1; if(menu_no == 0){ CLS/MOD 62 [actlst(i)] } else if(menu_no == 1 && i <= n-1){ /*echo i " " (len[i-1]); getany(1);*/ ps0 = pce(#VERXS,#VERYS); pe0 = pce(#VERXE,#VERYE); VER [actlst(i+1)] ps1 = pce(#VERXS,#VERYS); pe1 = pce(#VERXE,#VERYE); LBP [ps0] [pe1] DEL [actlst(i)] [actlst(i+1)] i+=1; } } } /*nn = vdump("/home/acad/len.dat","w",len);*/ /* データーの File 出力 */ /* 0を除くlen の個数 */ n_len0 = 0; for(i=0;i exit;