AutoCADマクロ屋本舗 掲示板

ワールド座標の寸法を回転したビューで表示すると寸法の上下、左右がひっくり返ります。
描き直さずに変更する方法はありますか？

寸法を選択→オブジェクトプロパティ管理で、文字項目の中の文字の方向を「右から左」、垂直方向の寸法位置を「下側」でどうでしょう？

LUNE様、ご提案ありがとうございます。
修正したい寸法とそっくりの寸法スタイルを作り、「右から左」、「下側」にして、MAします。
なんとかなりそうです。

ビューポートの中で寸法を選択すると、そのビューポートのUCSに合わせて
グループコード51番を変更するLISPです。

(defun c:Test ( / sel i ent edata ucs_x ucs_angle)
(setq sel (ssget '((0 . "DIMENSION"))))
(if sel
(progn
(setq i 0)
(repeat (sslength sel)
(setq ent (ssname sel i))
(setq edata (entget ent))
(setq ucs_x (getvar "UCSXDIR"))
(setq ucs_angle (atan (cadr ucs_x) (car ucs_x)))
(setq edata (subst (cons 51 ucs_angle) (assoc 51 edata) edata))
(entmod edata)
(entupd ent)
(setq i (1+ i))
)
(princ "\n選択した寸法の寸法値の位置を現在のUCSに変更しました。")
)
(princ "\n寸法オブジェクトが選択されませんでした。")
)
(princ)
)

Lispはよくわからんのですが、、うまく行きません。登録しても、、・・コマンドありません。と出ます。名前が悪いのか？　ViewUCSDim.lspとしましたが、、

1行目の
(defun c:Test ( / sel i ent edata ucs_x ucs_angle)

を

(defun c:ViewUCSDim ( / sel i ent edata ucs_x ucs_angle)

に書き換えて再度ロードしてください。（スタートアップ登録しているなら再起動でも良いです）

これで、ViewUCSDimと入力すれば実行できます。
目的のビューポートの中に入った状態でViewUCSDimを入力してください。
実行後にビューポートに入った場合、うまく処理できないかもしれません。

もし、メモ帳で作成しているなら、文字のエンコードはANSI(Shift JIS)にして保存して下さい。
最近のAUTOCADではユニコードでも大丈夫ですが、昔のAUTOCADや互換CADではANSIじゃないとエラーが出ます。

AutoCAD2024を使ってます。スタートアップ登録しています。1行目はご指示に従い書き換えました。
動作はしているようですが、寸法位置、向きは変化なしです。現在のUCSに従った寸法値の形になりません。

コマンド: ViewUCSDim
オブジェクトを選択: 認識された数: 1
オブジェクトを選択:
選択した寸法の寸法値の位置を現在のUCSに変更しました。
コマンド:

どこが悪いのか、使い方でしょうか？