他ﾌｧｲﾙの全てのﾋﾟｸﾁｬを取り込む

連日、"AdvanceCAD" のﾃﾞｰﾀをｺﾋﾟﾍﾟする作業があり、さすがにｳﾝｻﾞﾘ。
根本的な原因は、CADﾃﾞｰﾀの運用の問題があるのは十分
わかっているのですが、今更運用方法を変更する事に
理解してもらえるはずが無い為、ﾏｸﾛで対応何とか
してしまえと思い、作成してみました。

ﾌｧｲﾙAのﾃﾞｰﾀを、ﾌｧｲﾙBの同一ﾋﾟｸﾁｬに全て取り込みます。
(ひょっとしたらこの機能は標準で有るのでしょうか？)
すんなり出来そうに無かったので、2段階の作業となります。

○ｴｸｽﾎﾟｰﾄ
ﾌｧｲﾙAのﾃﾞｰﾀをｴｸｽﾎﾟｰﾄする為の情報を取得するﾏｸﾛです。

/* AdvanceCAD_macro */
/* MDLExport.MAC */
/* 他のAcadﾌｧｲﾙの全てのﾋﾟｸﾁｬを同一ﾋﾟｸﾁｬに取り込むﾏｸﾛです */
/* ｴｸｽﾎﾟｰﾄ側 */

/* --- 設定 --- */
/* ﾘｽﾄﾊﾟｽ ｲﾝﾎﾟｰﾄとｴｸｽﾎﾟｰﾄ一致させて下さい*/
listPath = "C:/temp/";
listFileName = "MDLInportList.MAC";
/* ------------ */

clear();
/* ﾌｧｲﾙ名の取得 */
extern filepath = fname("#MODEL#",#CURFILNAME);
vdump(listPath + listFileName,"w",filepath);

/* 全ﾋﾟｸﾁｬのｱｲﾃﾑの有無 */
/* 1：あり -1:なし */
picmax = 63;
extern picItem,drwScl,picScl;
picItem = array(picmax + 1);
drwScl = picScl = picItem;
startpic=#CURPIC ;
LIST/OFF <CE>
for ( i=1;i<picmax + 1;i+=1 ) {
	picItem[i] = getitm(0,i)>0?1:-1;
	if(picItem[i] >0){
		PIC [i] <CE> 
		drwScl[i] = #CURDRWSCF;
		picScl[i] = #CURPICSCF;
	}
}
PIC [startpic] <CE> 
LIST/ONN <CE>
vdump(listPath + listFileName,"a",picItem);
vdump(listPath + listFileName,"a",drwScl);
vdump(listPath + listFileName,"a",picScl);

echo "ｴｸｽﾎﾟｰﾄしました";
exit;

必要な情報は "vdump" で出力しています。本来ﾃﾞﾊﾞｯｸﾞの為の
機能なのですが、出力したﾌｧｲﾙは外部ﾏｸﾛとしてそのまま実行
できる為お手軽な上、非常に便利です。

○ｲﾝﾎﾟｰﾄ
続いてﾌｧｲﾙBにﾌｧｲﾙAのﾃﾞｰﾀを取り込むﾏｸﾛです。
ｺﾋﾟﾍﾟではなく、ｻﾌﾞﾓﾃﾞﾙ-分解の状態で取り込むため
元のﾃﾞｰﾀと同じ状態です。

/* AdvanceCAD_macro */
/* MDLInport.MAC */
/* 他のAcadﾌｧｲﾙの全てのﾋﾟｸﾁｬを同一ﾋﾟｸﾁｬに取り込むﾏｸﾛです */
/* ｲﾝﾎﾟｰﾄ側 */

/* --- 設定 --- */
/* ﾘｽﾄﾊﾟｽ ｲﾝﾎﾟｰﾄとｴｸｽﾎﾟｰﾄ一致させて下さい*/
listPath = "C:/temp/";
listFileName = "MDLInportList.MAC";
/* ------------ */

msg=" ";
clear();
CLA/EVT <CE>
/* ﾓﾃﾞﾙ変更ﾁｪｯｸ */
if (dbchgd()==1) {msg="ﾓﾃﾞﾙを保存して実行してください!!";goto bye;}

/* ｲﾝﾎﾟｰﾄ情報取得 */
extern filepath,picItem;
extern drwScl,picScl;
tmp=fstat(listPath + listFileName,"exist");
if(tmp==0){msg="ｲﾝﾎﾟｰﾄ情報が見つかりません";goto bye;}
MACRO NEW [listPath + listFileName] <CE>

/* ｲﾝﾎﾟｰﾄ情報ﾁｪｯｸ */
tmp=vtype(filepath);
if(tmp!=4){msg="ｲﾝﾎﾟｰﾄ情報が不正です(listPath)";goto bye;}
tmp=fstat(filepath ,"exist");
if(tmp==0){msg="ｲﾝﾎﾟｰﾄﾌｧｲﾙが見つかりません";goto bye;}
tmp=vtype(picItem);
if(tmp!=30){msg="ｲﾝﾎﾟｰﾄ情報が不正です(picItem)";goto bye;}
tmp=vtype(drwScl);
if(tmp!=30){msg="ｲﾝﾎﾟｰﾄ情報が不正です(drwScl)";goto bye;}
tmp=vtype(picScl);
if(tmp!=30){msg="ｲﾝﾎﾟｰﾄ情報が不正です(picScl)";goto bye;}

/* ｲﾝﾎﾟｰﾄ-ｻﾌﾞﾓﾃﾞﾙ分解 */
picmax = 63;
LIST/OFF <CE>
for ( i=1;i<picmax + 1;i+=1 ) {
	tmp=vtype(picItem[i]);
	if(tmp!=3){msg="ﾋﾟｸﾁｬ情報が不正です(picItem)";goto bye;}
	tmp=vtype(drwScl[i]);
	if(tmp!=3){msg="ﾋﾟｸﾁｬ情報が不正です(drwScl)";goto bye;}
	tmp=vtype(picScl[i]);
	if(tmp!=3){msg="ﾋﾟｸﾁｬ情報が不正です(picScl)";goto bye;}
	if(picItem[i]>0){
		PIC [i] <CE> 
		s=drwScl[i];DRWSCF [s] <CE> 
		s=picScl[i];PICSCF [s] <CE> 
		SUB [filepath] RDPIC [i] ITMXPD <CE><CE> <0,0> <CE>
		ZOOM/ALL <CE>
	}
}
msg="終了しました。確認してください。";

/* Exit Program */
bye:
CLA/EVT <CE>
RPT/ALL <CE>
LIST/ONN <CE>
echo msg;
exit;

ｲﾝﾎﾟｰﾄ側の同一ﾋﾟｸﾁｬに、問答無用で取り込むため変更されている
ﾌｧｲﾙ(未保存の状態)では、ﾏｸﾛを実行しないようにしています。
又、取り込む際は出来るだけ元のﾌｧｲﾙと同じ状態にしたい為
元のﾋﾟｸﾁｬの "ﾋﾟｸﾁｬｽｹｰﾙ" "ﾄﾞﾛｰｲﾝｸﾞｽｹｰﾙ" と同じ値にしています。

(うちでは、ﾄﾞﾛｰｲﾝｸﾞｽｹｰﾙはあまり使わないですが)

今年のﾌﾞﾛｸﾞはこれでおしまいです。　正直、こんなに続けると
思いませんでした。　CATIAの "ﾌｧｲﾙ間ﾘﾝｸの取得" は来年の宿題
にします。　良いお年を。