AutoCADマクロ屋本舗 掲示板

いつもお世話になります。
AutoCAD 2026について教えて下さい。
レイアウト空間上のビューポートの尺度をAutoLISPで取得を頑張っています。
ネットで調べていて
以下のコードにたどり着いたのですが
本来の取得した尺度と本来の標準尺度に相違があります。
コードは以下の通りです。
***************************************************
(vl-load-com)
(defun c:TEST()

(prompt "\nビューポートを選択してください:")
(setq ss (ssget ":S" '((0 . "VIEWPORT")))) ; VIEWPORTのみを選択
(if ss
(progn
(setq ent (ssname ss 0))
(setq vobj (vlax-ename->vla-object ent))
; 標準尺度を取得
(setq scale (vla-get-standardscale vobj))
(setq syakudo (itoa scale))
(princ (strcat "\n標準尺度: " "1/" syakudo))
)
(princ "\nビューポートが選択されませんでした。")
)
(princ)
)
***************************************************
どこがおかしいのでしょうか。
私の頭がおかしいのは、ごもっともです。

>本来の取得した尺度と本来の標準尺度
の意味が判らないのですが、

ビューポートのグループコードの41番と45番を比較。
（41番の数値：45番の数値　が　ビューポートの尺度）

>本来の取得した尺度と本来の標準尺度に相違があります。
ごめんなさい。
「(setq scale (vla-get-standardscale vobj))で取得した尺度とオブジェクトプロパティの標準尺度が違っている」
の間違えです。

Hamuさんご指摘通リコーディングしたらできました。
ありがとうございます。

こちらの、2/18にあるhmsilvaさんのコード
https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/viewport-scale/td-p/5830592

(rtos (/ 1 (vla-get-CustomScale (vlax-ename->vla-object (car (entsel))))) 2 0)

だと正しい数値が返るのでは？

vla-get-standardscale ではなく、vla-get-CustomScale を使うのではないでしょうか。

LUNEさんお返事ありがとうございます。
気づきませんで申し訳ありません。