ページ設定の尺度を直接入力する方法

[Miyamoco]

ページ設定の印刷尺度の項目で、尺度をもっと楽に入力できる方法が無いか探しています。

通常だと

PAGESETUP > ページ設定管理ダイアログで[修正]をクリック > 印刷尺度を手入力(or プルダウンから選択)

という手順になりますが、これを

コマンド実行 > 尺度を入力

または

コマンド実行 > LTSCALE や AMSYMSCALE 等のシステム変数から自動で尺度入力

となるようなLISPやマクロはご存じないでしょうか。

よろしくお願いいたします。

使用CAD：AutoCAD Mechanical 2021

[WeTanks]

以下のLISP、ご参考になると思います。

https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/pagesetup-lisp/m-p/12546423#:~:text=... 

[Miyamoco]

参考lispの紹介ありがとうございます。

lispは詳しくないのですが、通常のコマンドを走らせているように見えるのでマクロで代用可能なように見えますね。

少し工夫してみようと思います。

[N.H1971 · Accepted solution]

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)
)

[Miyamoco]

N.H1971 さん

ありがとうございます。

これでサクッと入力できるようになりました。助かりました。