AutoCAD - 日本語フォーラムのトピックRe: 文字の大きさは変えずに図形全体の縮尺/縦横比を変更する方法

文字の大きさは変えずに図形全体の縮尺/縦横比を変更する方法

t-oomine — Thu, 24 Oct 2024 02:43:06 GMT

既往の縦断図（画像01）を編集したいと考えております。

①上側赤枠の部分は、文字の高さはそのままで、全体を２倍の大きさに変更したいです。

②下側青枠の部分は、文字の高さはそのままで、縦横比を1：2で横方向にのみ拡大したいです。

上記を簡単に行いたい場合、どのように操作したらよろしいでしょうか。

一応文字一つ一つを移動したり大きさを戻したりする操作ではなく、可能であれば他社製CADのような、①②の各ステップを１回の単純な操作で変換できれば有難いです。

ご教授のほど、よろしくお願いいたします。

Re: 文字の大きさは変えずに図形全体の縮尺/縦横比を変更する方法

N.H1971 — Thu, 24 Oct 2024 03:57:11 GMT

残念ながら、AutoCADの標準コマンドには、そのような機能はありません。

（Civilとかならあるのかな？）

なので、

1. 文字も含めてすべてを2倍して、文字だけを元のサイズに戻す、という手順になります。

　文字だけを元のサイズに戻すには、SCALETEXTを使います。

2. 通常のSCALEコマンドでは、縦横で異なる拡縮はできないので、一度文字も含めすべてをブロック化します。

　ブロック化の手順は、COPYCLIP（Ctrl＋C）で選択→PASTEBLOCK（Ctri＋Shift+V）で貼り付けます。

　そのブロックを選択し、オブジェクトプロパティ管理で尺度Xのみ2にしてから分解します。

　分解したオブジェクトを選択して、オブジェクトプロパティ管理を開いて上部で文字を選び、幅係数の欄を半分の値にします。

　※幅係数の異なる文字がある場合は*で表示されるので、その場合は元の幅と異なる文字もできてしまいますがとりあえず1などのよく使う幅係数にするしかないです。（画層ごとなどで幅係数が決まっているのなら、クイック選択で選択を絞ってから操作することもできます）

2の文字サイズを変更しない、というところが、ちょっと面倒ですが・・・

Re: 文字の大きさは変えずに図形全体の縮尺/縦横比を変更する方法

t-oomine — Thu, 24 Oct 2024 05:18:01 GMT

N.H1971さん、早速ご回答ありがとうございます。
一応上記のような方法で作業が可能であることは知っております。ただ他社製CADと比べると操作が多いため、もっと単純に操作可能なのではないかと考えて質問させていただきました。

私の住んでる県ではAutocadがあまり一般的ではないのですが（市町村や県でも無料や他社製のCADを使用しているところが多いです）、現在弊社ではBIM/CIMを視野に入れて、Autocadへの移行を検討しております。内地では土木でもAutocadが一般的であると聞いているので、土木でよく使用する方法について、簡単な操作方法やマクロ、LISPの情報がたくさんあると思っていました。普段皆さんがどのように作業しておられるのか知りたかったです。

Re: 文字の大きさは変えずに図形全体の縮尺/縦横比を変更する方法

N.H1971 — Thu, 24 Oct 2024 06:16:43 GMT

1に関しては、レイアウトで異尺度対応文字を使用すれば、可能です。

図形をモデル空間で変倍するのではなく、同じ図形をレイアウトで別々のビューポートで表示し、そのビューポートの縮尺を変更します。

Re: 文字の大きさは変えずに図形全体の縮尺/縦横比を変更する方法

N.H1971 — Thu, 24 Oct 2024 07:31:01 GMT

2に関しては、検索してみましたがLISPはなかったです。

なので、簡単ではありますが、作ってみました。

対象オブジェクトを選択→貼り付け先を指定で、文字以外のオブジェクトをX方向のみ2倍にします。

(defun c:xdbl (/ ss pt e ent bn blken sen sent tw) (setq ss (ssget)) (command "copyclip" ss "") (setq pt (getpoint "\n貼り付け先を指定:")) (command "pasteblock" "non" pt) (setq e (entlast)) (setq ent (entget e)) (setq ent (subst (cons 41 2) (assoc 41 ent) ent)) ;X尺度2倍 (entmod ent) (setq bn (cdr (assoc 2 ent))) (setq blken (tblobjname "block" bn)) (setq sen (entnext blken)) (while (/= sen nil) ;nilになるまで (setq ent (entget sen)) (if (= (cdr (assoc 0 ent)) "TEXT") ;文字オブジェクトが対象 (progn (setq tw (* 0.5 (cdr (assoc 41 ent)))) ;文字幅0.5倍 (setq ent (subst (cons 41 tw) (assoc 41 ent) ent)) (entmod ent) ) ) (setq sen (entnext sen)) ) ;end while (command-s "explode" "L" "") (princ) )

Re: 文字の大きさは変えずに図形全体の縮尺/縦横比を変更する方法

poki9900 — Fri, 25 Oct 2024 01:34:11 GMT

1 はマクロでは

^C^Cselect;$M=$(if,$(getvar,cmdactive),\)scale;p;;\2;scaletext;p;;e;s;0.5^M

Re: 文字の大きさは変えずに図形全体の縮尺/縦横比を変更する方法

buf_fa — Fri, 25 Oct 2024 05:09:00 GMT

Civil3D ユーザーからは、当初設定の図面尺度を半分にして、ACADで単純に２倍にする方法を提案します。

初期設定では横1:1000、縦1:200なっているので、「ツールスペース」の設定タブ、一番上の図面名をクリック、「図面設定を編集」をクリックします。

「図面設定」ダイアログの「単位と測地座標系」タブ→「尺度」を1:500に変更します。

Re: 文字の大きさは変えずに図形全体の縮尺/縦横比を変更する方法

t-oomine — Thu, 31 Oct 2024 08:41:49 GMT

NH1971さん、ご回答ありがとうございます。
わざわざLISPを作成していただいたようで、感謝いたします！！
今回は急ぎだったので、他社製CADで作業しましたが、今後同じような場面が出てきた場合は、使用してみようと思います。
ありがとうございました。

Re: 文字の大きさは変えずに図形全体の縮尺/縦横比を変更する方法

t-oomine — Thu, 31 Oct 2024 08:42:51 GMT

poki9900さん、ご回答ありがとうございます。
わざわざマクロを組んでいただいて、誠にありがとうございます。
使用してみたいと思います。
ありがとうございました。

Re: 文字の大きさは変えずに図形全体の縮尺/縦横比を変更する方法

t-oomine — Thu, 31 Oct 2024 08:50:27 GMT

buf_faさん、ご回答ありがとうございます。
Civil3Dで縦断を作成した場合は確かにこの方法で縦横比を変えることは可能みたいですけど、図面設定の単位から変更してしまうと、図面全体の縮尺が変わってしまいませんか？
以前Civil3Dで作成した縦断図の縦横比と変更したいことがあり（今回とは別の作業の時の話です）、一度調べたことがあるのですが、注意書きで上記のようなことになるとあったので、やめたことがあります。
また、今回はCivil3Dで作成したデータではないので、2Dで作成した図面で可能な方法を調べておりました。
また何かわからないことがあれば質問させていただきます。その際はまたいろいろ教えていただけると有難いです。
ありがとうございました。