ご連絡、ありがとうございます。
マクロでボタンに割り当てることも可能ですが、文字数の制限もありますので、画層の作成だけならば、スクリプトファイルや図面挿入をお勧めします。
■ スクリプトファイル
サンプルのスクリプトを作成しました。
—— スクリプトサンプル ——
-layer
M
D-ECDT
C
7
D-ECDT
lw
0.13
D-ECDT
l
Continuous
D-ECDT
ps
細線
D-ECDT
-layer
M
D-ECDT-TXT1
C
7
D-ECDT-TXT1
lw
0.13
D-ECDT-TXT1
l
Continuous
D-ECDT-TXT1
ps
細線
D-ECDT-TXT1
—— スクリプトサンプル ——
上の—— スクリプトサンプル —— 間の内側のテキストをコピーしてください（最後の行は空白の改行が必要です）。次にメモ帳を開いてテキストを貼り付けてください。今回は一部分のみのスクリプトになっていますので、その他の必要な画層についてはテキストを必要分コピーしてgaso 名を編集しLayer.scrファイル名でファイルを保存後、作図ウィンドウにドラッグすると画層が作成、設定されます。
■図面挿入
必要な画層のみを登録したdwgを作成、保存して、目的の図面で「CLASSICINSERT」コマンドを実行して先に作成したdwgファイルを分解して挿入します。
下記2件につきましては、更新プログラムで追加できるかどうか検討させていただきます。
〇 履歴付文字編集
〇 アルファベットと英数字だけを全角<==>半角変換
国土交通省のCAD製図基準に準拠するよう作成する図面の内容毎に自動でレイヤ作成、線種、色、線の太さを定義するようにしています。これはあくまで当社の設定です。
例として 電気配管図を書く場合の一部ですが、
;電気配管、電気管路(埋設管、電線管等)
(defun c:ECDT()
(setq gaso “D-ECDT”)
(command “_-layer” “M” gaso “C” “7” gaso “lw” “0.13” gaso “l” “Continuous” gaso “ps” “細線” gaso “”)
(setq gaso “D-ECDT-TXT1”)
(command “_-layer” “M” gaso “C” “7” gaso “lw” “0.13” gaso “l” “Continuous” gaso “ps” “細線” gaso “”)
(setq gaso “D-ECDT-TXT2”)
(command “_-layer” “M” gaso “C” “6” gaso “lw” “0.25” gaso “l” “Continuous” gaso “ps” “太線” gaso “”)
(setq gaso “D-ECDT-DIM1”)
(command “_-layer” “M” gaso “C” “7” gaso “lw” “0.13” gaso “l” “Continuous” gaso “ps” “細線” gaso “”)
(setq gaso “D-ECDT-CNTR”)
(command “_-layer” “M” gaso “C” “1” gaso “lw” “0.13” gaso “l” “SXF_一点鎖線” gaso “ps” “細線” gaso “”)
)
AutoCADLTは使用してないので判りませんが、このようなことは可能でしょうか？
図面を作成するたびにセットするには、時間が掛かりすぎてしまいます。
LTでもマクロは使えるようですね！
あと重宝しているのは、SpeedDraft_Basicにある「履歴付文字編集」です。
アルファベットと英数字だけを全角<==>半角変換できる機能がほしい。
addCADでは、カタカナも一緒に変換されるので使えません。
お問合せの件、回答します。
addCadは、AutoCAD OEMをプラットフォームに開発していますが、カスタマイズ機能はありません。
イメージとして、AutoCAD LTにアド設計の独自コマンドが追加されているとお考え下さい。
addCad = AutoCAD – カスタマイズ + アドメニュー21
LISPやVBAなどAutoCADのカスタマイズ機能はご利用できません。
メニューカスタマイズやコンテンツであればご利用できます。
ご利用の機能につきましてお客様からご要望をいただけましたら、今後のaddCad開発に検討させていただきます。
ご不明な点がございましたら遠慮なくお問い合わせください。
有り難うございます。
スクリプト形式に変更して対応できました。