■モデル空間での図面枠挿入/図面枠尺度変更マクロ
※使用前の注意
| zuwaku.lzh ①上記リンクをクリック ②ダウンロードボタンを押し、ファイルを保存するにチェックを入れ 保存先を指定してファイルを保存 ●初めに、上記ファイルをダウンロードし 解凍後、作成されたzuwakuフォルダ内の、全てのファイルを 検索パスの通ったフォルダへ移動させて下さい。 ●使用前に、寸法スタイル管理での「フィット」タブの 「寸法図形の尺度」を「全体の尺度」にチェックしておいて下さい。 又、尺度の数値を０以外に設定しておいて下さい。 ●又、あくまでも、自分専用のマクロとして作成したマクロなので 常用マクロとして使用する際は、修正が必要となる可能性があります。 御了承下さい |
◆図枠挿入マクロ(A1～A4)
【A1挿入】 [2007.6.20修正]
| ^C^Czoom;non;0,0;$M=$(*,$(getvar,dimscale),841),$(*,$(getvar,dimscale),594);limits;non;0,0;$M=$(*,$(getvar,dimscale),841),$(*,$(getvar,dimscale),594);snapmode;0;snapunit;non;$M=$(*,$(getvar,dimscale),10),$(*,$(getvar,dimscale),10);-layer;m;WAKU;;-insert;A1;s;$M=$(getvar,dimscale);non;0,0;;-insert;TITLE;s;non;$(getvar,dimscale);$(*,$(getvar,dimscale),653),$(*,$(getvar,dimscale),20);;;;;;;;;;$(edtime,$(getvar,date),YYYY"."M"."D);1：$(getvar,dimscale);;;;;;;;;;;-insert;TEISEI1;s;non;$(getvar,dimscale);$(*,$(getvar,dimscale),653),$(*,$(getvar,dimscale),50);;-layer;s;$(getvar,clayer);; |
【A2挿入】 [2007.6.20修正]
| ^C^Czoom;0,0;$M=$(*,$(getvar,dimscale),594),$(*,$(getvar,dimscale),420);limits;0,0;$M=$(*,$(getvar,dimscale),594),$(*,$(getvar,dimscale),420);snapmode;0;snapunit;$M=$(*,$(getvar,dimscale),10),$(*,$(getvar,dimscale),10);-layer;m;WAKU;;-insert;A2;s;$M=$(getvar,dimscale);0,0;;-insert;TITLE;s;$(getvar,dimscale);$(*,$(getvar,dimscale),400.5),$(*,$(getvar,dimscale),10);;;;;;;;;;$(edtime,$(getvar,date),YYYY"."M"."D);1：$(getvar,dimscale);;;;;;;;;;;-insert;TEISEI1;s;$(getvar,dimscale);$(*,$(getvar,dimscale),400.5),$(*,$(getvar,dimscale),40);;-layer;s;$(getvar,clayer);; |
【A3挿入】 [2007.6.20修正]
| ^C^Czoom;0,0;$M=$(*,$(getvar,dimscale),420),$(*,$(getvar,dimscale),297);limits;0,0;$M=$(*,$(getvar,dimscale),420),$(*,$(getvar,dimscale),297);snapmode;0;snapunit;$M=$(*,$(getvar,dimscale),10),$(*,$(getvar,dimscale),10);-layer;m;WAKU;;-insert;A3;s;$M=$(getvar,dimscale);0,0;;-insert;TITLE;s;$(getvar,dimscale);$(*,$(getvar,dimscale),235),$(*,$(getvar,dimscale),10);;;;;;;;;;$(edtime,$(getvar,date),YYYY"."M"."D);1：$(getvar,dimscale);;;;;;;;;;;-insert;TEISEI1;s;$(getvar,dimscale);$(*,$(getvar,dimscale),235),$(*,$(getvar,dimscale),40);;-layer;s;$(getvar,clayer);; |
【A4挿入】 [2007.6.20修正]
| ^C^Czoom;0,0;$M=$(*,$(getvar,dimscale),210),$(*,$(getvar,dimscale),297);limits;0,0;$M=$(*,$(getvar,dimscale),210),$(*,$(getvar,dimscale),297);snapmode;0;snapunit;$M=$(*,$(getvar,dimscale),10),$(*,$(getvar,dimscale),10);-layer;m;WAKU;;-insert;A4;s;$M=$(getvar,dimscale);0,0;;-insert;TITLE;s;$(getvar,dimscale);$(*,$(getvar,dimscale),25),$(*,$(getvar,dimscale),10);;;;;;;;;;$(edtime,$(getvar,date),YYYY"."M"."D);1：$(getvar,dimscale);;;;;;;;;;;-insert;TEISEI1;s;$(getvar,dimscale);$(*,$(getvar,dimscale),200),$(*,$(getvar,dimscale),287);;-layer;s;$(getvar,clayer);; |
LT2000/LT2004 R2005 動作確認済
◆図面枠尺度変更マクロ [2007.6.20修正]
| *^C^Csetenv;SCALE;\limits;of;zoom;0,0;$m=$(*,$(getenv,SCALE),$(/,$(index,0,$(getvar,limmax)),$(getvar,dimscale))),$(*,$(getenv,SCALE),$(/,$(index,1,$(getvar,limmax)),$(getvar,dimscale)));limits;0,0;$(*,$(getenv,SCALE),$(/,$(index,0,$(getvar,limmax)),$(getvar,dimscale))),$(*,$(getenv,SCALE),$(/,$(index,1,$(getvar,limmax)),$(getvar,dimscale)));snap;a;$(*,$(getenv,SCALE),10);$(*,$(getenv,SCALE),10);dimscale;$(getenv,SCALE);filedia;0;script;layer;0,0;$(/,$(getenv,SCALE),$(getvar,dimscale));-layer;u;*;s;$(getvar,clayer);;filedia;1;snap;of;zoom;a;-attedit;N;N;*;尺度;;1：$(getvar,dimscale);1：$(getenv,SCALE);graphscr; |
LT2000/LT2004 R2005 動作確認済
●使い方
１．Ａ１～Ａ４のいずれかの図面枠を挿入
２．図面枠尺度変更マクロにて尺度を入力
▲注意
１．画層WAKUを自動で作成し、図面枠を座標(0,0)に挿入しています。
その為、画層WAKUに、他のオブジェクトを作成し
図面枠尺度変更マクロを使用すると、そのオブジェクトの尺度も変更されます。
御注意下さい。
２．Ａ１～Ａ４の各図面枠の表題は、属性となっております。
お好みに合わせて、修正して下さい。
３．表題の日付の欄には、挿入した時の日付が表示されます。
４．図面枠尺度変更マクロでの、尺度変更は何度でも可能です。
尚、現在の寸法スタイルの「全体の尺度」が変更されます。
５．マクロが長い為、メニューファイルに直接コピペして下さい。
６．上記の「図面枠尺度変更マクロ」では、
寸法スタイルに〈優先スタイル〉が付加されます。
[現在のスタイルに登録]したい場合は
マクロ中の「dimscale;$(getenv,SCALE);」の後に
「-dimstyle;s;「現在の寸法スタイル名」;y;」 を追記し
「現在の寸法スタイル名」部分を、登録したい寸法スタイル名に変更して下さい。
■コメント
マクロ覚えたての頃に、四苦八苦して作成したモノです(^^;
雑な部分もありますが、一応自分の環境下では動いてるので
現在もこのまま使用してます♪
(ちなみに･･･ツールバーじゃなくメニューバーに登録してます)
モデル空間での、図面枠時挿入及び、図面枠尺度変更を目的としたマクロですが
あくまでも、参考程度のマクロとお考え下さい(^^;
※自分の環境下以外での使用確認済みです!!(^^) 協力してくれた方々に感謝♪
ただし･･･全てのバージョンでの動作は確認してません(^^;
7日でおぼえるAutoCADL AutoCAD LT2011/2010/2009/2008/2.../鳥谷部 真
￥3,360
Amazon.co.jp