ページ設定の印刷尺度の項目で、尺度をもっと楽に入力できる方法が無いか探しています。
通常だと
PAGESETUP > ページ設定管理ダイアログで[修正]をクリック > 印刷尺度を手入力(or プルダウンから選択)
という手順になりますが、これを
コマンド実行 > 尺度を入力
または
コマンド実行 > LTSCALE や AMSYMSCALE 等のシステム変数から自動で尺度入力
となるようなLISPやマクロはご存じないでしょうか。
よろしくお願いいたします。
使用CAD:AutoCAD Mechanical 2021
解決済! 解決策の投稿を見る。
回答者: N.H1971. 解決策の投稿を見る。
以下のLISP、ご参考になると思います。
Lispならこんな感じでしょうか。
コマンド名は setsc です。
現在のタブの印刷尺度を変更します。
(defun c:setsc ( / DIC name en elist sc)
(setq sc (getreal "\n尺度を入力してください:"))
(setq DIC (dictsearch (namedobjdict) "ACAD_LAYOUT")) ;"ACAD_LAYOUT"のディクショナリ内項目
(setq name (getvar "CTAB"));現在のタブ名
(setq en (cdr (assoc 350 (member (cons 3 name) DIC)))) ;レイアウト名以降のリストから最初の350の図形名
(setq elist (entget en)) ;図形名から定義データ取得
(setq elist (subst (cons 143 sc)(assoc 143 elist) elist));尺度 dxfコード143を置換
(entmod elist)
(command "REGEN")
(princ)
)
お探しの情報が見つからないときは、コミュニティで質問しましょう。困っている人がいたら、情報を教えてあげましょう。