マクロ FAQ

/* #TITLE# マクロ選択時、タイトルを表示させるマクロ */
DLGMODE [0]
MACRO "*"
echo "<CE> で終了";
getany(1);
<CE>
      

/* #TITLE# 製図用定義をマクロ実行前に保存し、実行後に回復するマクロ */
s = getprm(1,1); /* save */

GNT "FONT" <0,0> <CE> /* 文字列処理を行う */
TEXT/FONT 2   /* マクロ内で使用するフォントに変更 */
GNT "FONT 2" <0,10> <CE> /* 文字列処理を行う */

TEXT/FONT [s] /* 回復 */
GNT "FONT" <0,20> <CE> /* 文字列処理を行う */
      

/* #TITLE# ダイアログモードをオフにしてマクロ実行、実行後に回復するサンプルマクロ */
s = getprm(4,7); /* save */

DLGMODE [0]   /* ダイアログモードをオフにしてマクロ時、表示されないようにする */
            /* COLORGEN を使用して背景色を変更する */
            /* 1900 : 背景色指定 */
            /*    1 : 緑 */
            /*  120 : 緑の値 */
            /*    2 : 赤 */
            /*  110 : 赤の値 */
            /*    3 : 赤 */
            /*  100 : 赤の値 */
COLORGEN 1900 1 100 2 100 3 100 <CE>

DLGMODE [s] /* ダイアログモードをマクロ実行前のモードに回復する */
      

/* #TITLE# モデル保存しないと印刷処理が行えないよう限定するマクロ */
if (dbchgd() == 1) {
  echo "モデルが変更されています。モデルを保存してください。\a";
} else {
  /* モデル保存後に図面印刷をする場合  */
  PLOT/PRINT OFF <CE>
}

/* #TITLE# 座標値でソートする */
/* 点列をランダムに作成する */
PCE
<20,30> < 0, 0> < 0,20> < 0,30>
<10,30> <30,30> <20, 0> <40,30>
<40,20> < 0,10> <40,10> <40, 0>
<30, 0> <10,0>
<CE>
/* 作成した点列をアクティブリストに登録 */
ACT/REL
ACT/ALL <CE>
/* アクティブリストを配列として使用 */
alist = actlst();
pcnt = length(alist);
/* 上記アクティブリスト数は下記取得方法でも可能
pcnt = #CURACTCNT;
*/
/* アクティブリストに登録がなければ処理しない */
if( pcnt <= 0 ) { return; }
/* 座標値登録用としてアクトアイテム数分の配列を作成 */
plist=array(pcnt);
/* 配列に座標値登録 */
for(i=0;i<pcnt;i=i+1) {
  id = alist[i];
  VER [idptr(id)] <CE>
  plist[i]=pdg(#VERXS,#VERYS);
}
/* ソート方法を選択 */
echo "並べ替える方法を選択:0 ～ 4";
ans = getnum(1);
if(vtype(ans) != 3 ) { ans = 0; }
switch(ans) {
case 1:
  err = sort(plist,"x:descend;y:ascend");
  break;
case 2:
  err = sort(plist,"x:ascend;y:descend");
  break;
case 3:
  err = sort(plist,"y:descend;x:ascend");
  break;
case 4:
  err = sort(plist,"y:ascend;x:descend");
  break;
}

/* ソートされていることを確認するために、配列の先頭から付番する */
GNT
for(i=0;i<pcnt;i=i+1) {
  [sprint("No%d",i+1)]
  p=plist[i];
  [p]
}
<CE>