/*#TITLE# 寸法線上での寸法連続移動 用マクロ */ /* MV_DIM_ON.MAC */ clear(); TPAT for(;;){ p0 = getany(1); if(vtype(p0) == 5) {exit;} /* Ret で終了 */ DTEXT/MOVE [p0] ONN echo "移動中";p1 = getpnt(1); [p1] EDIM/ADJ [idptr(#CURMAXID)] } exit;