AutoCADマクロ屋本舗 掲示板

別のCADから変換したDWGがあるのですが文字幅や高さを自動調整しているため
文字幅係数が1.000576489みたいになってしまいACADで見ると文字が崩れた（太く見える）感じになるので
これを1.00にしたいのです。
もともと0.8程度のものもあるので精度は0.1単位の以下切り捨てのようなのが希望です。（1.0、0.9、0.8等にしたい）

マクロでは文字幅係数が選択できないのであれば諦めます。

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

使用する文字スタイルが決まっていますか？
決まっていればもしかすると出来るかも。

そうでないならマクロじゃ厳しいです。

プロパティ管理で修正するか
プロパティコピーを使うかですかねぇ。

文字スタイルは名前がYOKO_GOTHICかTATE_GOTHICでMSゴシック、＠MSゴシックです。

新規登録で少し諄く書いてしまいましたが、文字幅係数が1.000576489というのがほとんどなので

それを1にしたいので、選択出来るだけでも構いません。

クイックセレクトで1.0より大きく1.1より小さいというのを選択したいだけです。

よろしくおねがいします。

マクロでは厳しそうですねぇ

Ｒ版であればLispでも出来そうですが・・

R版なのですが、LISPもさっぱりで・・・

やはり無理なのですねー残念

LISPでもよければ。幅係数の小数第2位以下を切り捨てます。
--------------------------------------------------------------------
(defun C:TWD(/ ss nm ent wd i)

; (setq ss (ssget "_X" '((0 . "TEXT")))) ;全部処理したい場合
(setq ss (ssget '((0 . "TEXT")))) ;窓選択したい場合
(setq i 0)
(repeat (sslength ss)
(setq nm (ssname ss i))
(setq ent (entget nm))
(setq wd (cdr (assoc 41 ent)))
(setq wd (/ (fix (* wd 10)) 10.0))
(setq ent(subst (cons 41 wd) (assoc 41 ent) ent))
(entmod ent)
(setq i (1+ i))

);repeat
(princ)
);defun
-------------------------------------------------------------------------
上記の「------------」で囲まれた部分を（---------はなしで）、メモ帳にコピーして、twd.lspという名前で適当な場所に保存します。lspは拡張子です。拡張子を非表示にしている場合は、ご注意を。

上記のlspファイルを、文字幅を調整したいファイルを開いた画面にドラッグ＆ドロップします。
コマンドラインに「twd」と入力して、調整したい文字を選択してください。
文字以外が含まれていても大丈夫です。

LUNE様

ありがとうございます。

思い通りに動きました。ボタンにも登録できました

何かありましたらまたお願いいたします。

とってぃ様

マクロ屋本舗にてLISPを頂くことになってしまい、申し訳ありません。

いろいろご指導頂き、ありがとうございました。