AutoCADマクロ屋本舗 掲示板

フィールドで面積を簡単にm表示表示したいのですが
オブジェクトを選んで
面積や長さとか項目から選んで
単位の精度を選んで
単位m2表示にするのに0.000001に設定したり
選ぶことが多いのですが
マクロで作れるものなのでしょうか。
よろしくお願いします。

>表示したい
ここがちょっと不明ですが
文字記入したいのかなとも思ったのですけど
それだと表示という表現はしないかなと思いました

とりあえずコマンドラインに表示していますので
コマンドラインを2段以上に設定しておいてください

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),offset;;オブジェクト選択(R-Clickで終了)^X\$M="""$(if,$(getvar,CMDACTIVE),;select;non;@;non;@;;area;o;non;@;setenv;to;1,^Csetenv;to;0)""",,)$(nth,$(getenv,to),,ray;面積:L-Click／長さ:R-Click^X\$M="""$(if,$(getvar,CMDACTIVE),;setenv;ar1;$(/,$(getvar,AREA),1000000);;sw;1;;to;2,setenv;l1;$(/,$(getvar,PERIMETER),1000);;sw;0;;to;2)""",)$(nth,$(getenv,to),,,^Csetenv;^Z$(if,$(getenv,sw),面積＝$(getenv,ar1)㎡,長さ＝$(getenv,l1)m)^X)^M

１.マクロ起動
２.オブジェクト選択(R-Clickで終了)
３.面積(L-Click)か長さ(R-Click)を指定
４.コマンドラインに面積または長さを表示して終了

フィールドの項目設定、面倒ですよね。
しかも、新規でフィールド挿入する場合は、最初から全部の項目を選び直す必要があるので・・・

結論から言うと、マクロでフィールドの項目設定を操作することはできません。
FIELDコマンドはダイアログ版しか用意されていないので、コマンドラインで操作できないからです。

R版をお使いであれば、Lispでなんとかできますが。

>フィールドの項目設定
フィールド使わないからそもそもが見当違いでした

失礼しました

手数が増えますが

フィールドをDIESEL式にして$(getenv,フィールド名)として製作しておき
下記マクロを実行すれば可能？

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;フィールド名;\offset;;オブジェクト選択(R-Clickで再入力)^X\$M="""$(if,$(getvar,CMDACTIVE),;select;non;@;non;@;;area;o;non;@;setenv;to;1,setenv;to;0)""",,)$(nth,$(getenv,to),,ray;面積:L-Click／長さ:R-Click^X\$M="""$(if,$(getvar,CMDACTIVE),;setenv;$(getenv,フィールド名);$(/,$(getvar,AREA),1000000)㎡;;sw;1;;to;2,setenv;$(getenv,フィールド名);$(/,$(getvar,PERIMETER),1000)ｍ;;sw;0;;to;2)""",)$(nth,$(getenv,to),,,regen;^Csetenv;to;0)^M

１.マクロ起動
２.フィールド名を入力
３.オブジェクト選択(R-Clickでフィールド名の再入力)
４.面積(L-Click)か長さ(R-Click)を指定

※、フィールド名が同じものはすべて一緒に更新されますのでご注意ください

繰り返しになりますがフィールドを使わないので
見当違いはスルーしてください

Lineさん　R版なのですが
Lispでできるんですか！？
教えて頂きたいです！

Lispの使い方はご理解いただいていると判断して、以下にコードを記載します。
（※2022/6/1 修正内容も含め、Lispを再掲載しました）
-----------------------------------------------------------------------------
(defun c:fsqm
(/ ename vlobj obid pt mt fstr dsc c_unt pref suff pr_0 pr)
(setq pref "") ;接頭辞を指定
(setq suff "㎡") ;接尾辞を指定
(setq c_unt "1e-006") ;変換単位を指定　ただし、浮動小数点表示
(setq pr_0 "pr2") ;精度を指定　小数点以下の桁数をpr0～pr8で表示 現在の精度の場合は空白
(setq pr (if (= pr_0 "")
""
(strcat "\%" pr_0)
)
) ;精度を示す文字列を作成


(vl-load-com)
(setq ename (car (entsel)))
(setq vlobj (vlax-ename->vla-object ename))
(setq obid (itoa (vla-get-objectid vlobj)))
;図形IDを10進法に変換　itoa必要（rtosだと64bitで不具合）

(setq fstr (strcat
"\%\<\\AcObjProp.16.2 Object(\%\<\\_ObjId "
obid "\>\%).Area \\f \"%lu2"
pr "\%ps["
pref ","
suff "]%ct8["
c_unt "]\" \>\%"
)
) ;フィールド文字列を作成
;(setq tsty (getvar "TEXTSTYLE"));現在の文字スタイルを取得
(setq dsc (getvar "DIMSCALE")) ;DIMSCALEの値を取得
(setq mt (* dsc 2.8)) ;DIMSCALEのを2.8倍を文字高さとする
(setq pt (getpoint "\n文字挿入位置を指定: "))
;異尺度対応の文字スタイル・文字高さを設定した文字スタイルを分岐
(if (or (LM:isAnnotative) (textHeight))
(command "text" pt "" fstr)
(command "text" pt mt "" fstr)
)
(princ)
)

'異尺度対応の文字スタイルかどうかを判定
(defun LM:isAnnotative ( / object annotx )
(and
(setq object (tblobjname "STYLE" (getvar "TEXTSTYLE")))
(setq annotx (cadr (assoc -3 (entget object '("AcadAnnotative")))))
(= 1 (cdr (assoc 1070 (reverse annotx))))
)
)

'文字高さ設定した文字スタイルかどうかを判定
(defun textHeight ( / object txtH )
(and
(setq object (tblobjname "STYLE" (getvar "TEXTSTYLE")))
(setq txtH (cdr (assoc 40 (entget object))))
(/= 0 txtH)
)
)
-----------------------------------------------------------------------------
メモ帳を使用するなら、文字コードはANSIで保存してください。
コマンドはfsqm、上記のLispはフィールドの面積で取得される値を、1e-006（0.000001）倍して、最後に「㎡」を付加したダイナミックテキストにします。
文字スタイルは現在のスタイル、文字のサイズは現在のDIMSCALEの2.8倍となります。

あとは注釈を参考に、お好みの設定にどうぞ。

Luneさん
ご親切に
ありがとうございました！
色々試したのですが
フィールドの文字列の作成のところで
止まってしまいます。
2019R なのですが
原因はあるのでしょうか？

>フィールドの文字列の作成のところで止まってしまいます。
とのことですが、Lispは記載通りのものをご使用でしょうか？
それともなにか変更されましたか？

文字列作成で止まるということは、「文字挿入位置を指定:」がコマンドラインに出ないということでしょうか。
止まるときに、コマンドラインには何か表示されますか？

もしかして、現在の文字スタイルは高さが設定されているものですか？

LUNEさん
エラー症状をお伝えできていなく
大変失礼いたしました。
記載とおりで、変更せず実行しますと
下記コマンドラインになります。

オブジェクトを選択:
文字挿入位置を指定: text
現在の文字スタイル: "100" 文字の高さ: 350.00 異尺度対応: いいえ 位置合わせ: 左寄せ
文字列の始点を指定 または [位置合わせオプション(J)/文字スタイル変更(S)]:
文字列の角度を指定 <0.0000>: 280
文字列を入力:
コマンド: %<\AcObjProp.16.2 Object(%<\_ObjId 2195717553120>%).Area \f "%lu2%pr2%ps[, ㎡]%ct8[1e-006]" >% そのようなコマンド "%<\ACOBJPROP.16.2 OBJECT(%<\_OBJID 2195717553120>%).AREA \F "%LU2%PR2%PS[, ㎡]%CT8[1E-006]" >%" はありません。ヘルプを表示するには F1 キーを押してください。
コマンド:
コマンド:
コマンド:
コマンド: _commandline
お手数おかけしますが
ご教授の頂けませんでしょうか！

やっぱり文字スタイルで高さが設定されている文字スタイルをお使いなのですね。
では、「;異尺度対応の文字スタイルを分岐」の下の行を以下のように修正してください。

-----------------------------------------------------------------------------
(if (or (LM:isAnnotative) (textHeight))
-----------------------------------------------------------------------------

そして、Lispの最後に以下を追加してください。
-----------------------------------------------------------------------------
(defun textHeight ( / object txtH )
(and
(setq object (tblobjname "STYLE" (getvar "TEXTSTYLE")))
(setq txtH (cdr (assoc 40 (entget object))))
(/= 0 txtH)
)
)
-----------------------------------------------------------------------------

これでいかがでしょうか。

LUNEさん

出来ました！
すばらしいです！
まさしく求めていたものです。
ありがとうございます！
高さが設定されている文字スタイルが？
だったのですが
沢山の条件でプログラムが変わるのですね
大変勉強になりました。
やわり不便とか困ったときに
思い通りにすぐプログラムが作成できるって
すごいことですね。羨ましいです。
少しずつ私も勉強していきたいとおもいます。
今回は大変ありがとうございました。

このLispでは、最後にcommand関数を使って文字を作成しています。
マクロと同じようにコマンドを並べて実行するのですが、高さが設定されていない文字スタイルと、異尺度対応あるいは高さが設定されている文字スタイルとでは、コマンドラインに違いがあります。そのため、分岐が必要となります。

異尺度については対応していたのですが、私自身高さを設定した文字スタイルを使用していないので、その対応をしていませんでした。

ちゃんと動作したとこのことで、よかったです。

お世話になります上記fsqm.lsp使用させて頂いております。
今まで入力の設定が面倒だった為、フィールド機能をあまり使わなかったのですが作業の効率化にとても役立っております。

入力されるフィールド文字の起点を中央にしてたかったので

(command "text" "J" "MC" pt mt "" fstr);文字の起点を中央(MC)で文字入力

と変更してみましたところうまくいきました。
もう一つ、表示される文字の計測数値と㎡の間の半角スペースを詰めたいのですがどこを変更すればよろしいのでしょうかご教授宜しくお願い致します。

このように変更したいです　　100 ㎡ → 100㎡

上部に掲載の、Lispを修正しました。


修正内容については、以下の通りです。

半角スペースをなくすには、

(setq fstr (strcat
"\%\<\\AcObjProp.16.2 Object(\%\<\\_ObjId "
obid "\>\%).Area \\f \"%lu2"
pr "\%ps["
pref ", "
suff "]%ct8["
c_unt "]\" \>\%"
)

上記部分の

pref ", "

を

pref ","

に変更してください。

LUNEさん

ありがとうございます。
そこに半角スペースが入っていたのですね！
気づきませんでした。

計測表記 100 ㎡ → 100㎡ となりました。
スッキリです。

迅速なご対応ありがとうございました。

LUNEさま

お世話になります。
IJCAD2019を使用しています。
LUNEさんが作られた、この面積の文字記入LispをIJCADに
使用したかったのですが、エラーになってしまいました。
IJCAD版のコード等ご存じでしょうか？
よろしくお願いします。

nao さん

残念ながら、私はIJCADを所持していないので、IJCAD版を作成することができません。
ちょっと調べてみましたが、IJCADのLTグレードではvla系のコードが使えないようです。
そのあたりはいかがでしょうか。

vla系のコードを使わない方法も調べてみましたが、vla系を使用せずにオブジェクトIDを取得する方法がなさそうなので、そこの修正もできません。

また、LispファイルはShift_JISで保存されていますか。
IJCADはUnicodeには対応していないようですので・・・

LUNEさま

お世話になります。
お返事ありがとうございます。

そうでしたか、、
IJCADはSTDでvlaは対応してそうです。
オブジェクトIDも取得できてるみたいなのですが、
いざ、画面に文字位置を決定させると、フィールドの文字が「－」ばかり並んでしまいます。

ちなみに、Shift_JISで保存しています。
IJCADでLispが詳しく書かれてるサイトが全く無く、筋違いとは思ったのですがLUNEさんに聞いてみました。
対応してくださりありがとうございました。

横から失礼します。

フィールド式を入力する手間を省くLISPだと思うのですが、
入力したい式を、ダイアログから手入力してみるとどうなりますか？
それでも表示できないのならLISPの問題ではなく、IJCADのフィールド機能がフィールド式に対応していない事になります。
IJCADはDIESEL式の対応が出来ていないらしいのでフィールド式も同様かもしれません。

手動で操作したときのフィールド式と、Lispで作成したフィールド式を比較してみてはどうでしょう？
AutoCADとIJCADで、フィールド式が異なっているのではないでしょうか。

通りすがりさま

お世話になります。
Lispに疎いので、ちょっと時間が掛かりそうですがやってみます。
確かに、IJCADはDIESEL式に対応してないみたいですね。。
引出線でポリゴンの面積を書き出したいだけなんですが、何度もする作業なのでフィールド機能だと面倒で仕方ないんです。

IJCADのフィールド式は、
%<\AcObjProp Object(%<\_ObjId 657805416>%).Area \f "%lu2%pr2%ps[,m2]%ct8[0.000001]">%

AUTOCADのフィールド式は、
%<\AcObjProp.16.2 Object(%<\_ObjId 657805416>%).Area \f "%lu2%pr2%ps[,m2]%ct8[1e-006]">%

となっており、AcObjProp.16.2の.16.2だけが違うみたいです。
LUNEさんが作成されたAUTOCADのコードを参考にそこだけ修正して使ってましたがエラー表示になりました。

["] を入力するために [\"]と記述していますが、IJCADではそれを認識してくれません。
(chr 34) に置き換えれば良いと思います。

また、

(setq obid (itoa (vla-get-objectid vlobj)))
;図形IDを10進法に変換　itoa必要（rtosだと64bitで不具合）

の部分、IJCADではrtosの方が良いみたいです。

通りすがり２さま

お世話になります。
アドバイスありがとうございます！
やってみますね。
皆さんお優しくて助かります。。

Lispの使い方はご理解いただいていると判断して、以下にコードを記載します。
（※2022/6/1 修正内容も含め、Lispを再掲載しました）
-----------------------------------------------------------------------------
(defun c:fsqm
(/ ename vlobj obid pt mt fstr dsc c_unt pref suff pr_0 pr)
(setq pref "") ;接頭辞を指定
(setq suff "㎡") ;接尾辞を指定
(setq c_unt "1e-006") ;変換単位を指定　ただし、浮動小数点表示
(setq pr_0 "pr2") ;精度を指定　小数点以下の桁数をpr0～pr8で表示 現在の精度の場合は空白
(setq pr (if (= pr_0 "")
""
(strcat "\%" pr_0)
)
) ;精度を示す文字列を作成


(vl-load-com)
(setq ename (car (entsel)))
(setq vlobj (vlax-ename->vla-object ename))
(setq obid (itoa (vla-get-objectid vlobj)))
;図形IDを10進法に変換　itoa必要（rtosだと64bitで不具合）

(setq fstr (strcat
"\%\<\\AcObjProp.16.2 Object(\%\<\\_ObjId "
obid "\>\%).Area \\f \"%lu2"
pr "\%ps["
pref ","
suff "]%ct8["
c_unt "]\" \>\%"
)
) ;フィールド文字列を作成
;(setq tsty (getvar "TEXTSTYLE"));現在の文字スタイルを取得
(setq dsc (getvar "DIMSCALE")) ;DIMSCALEの値を取得
(setq mt (* dsc 2.8)) ;DIMSCALEのを2.8倍を文字高さとする
(setq pt (getpoint "\n文字挿入位置を指定: "))
;異尺度対応の文字スタイル・文字高さを設定した文字スタイルを分岐
(if (or (LM:isAnnotative) (textHeight))
(command "text" pt "" fstr)
(command "text" pt mt "" fstr)
)
(princ)
)

'異尺度対応の文字スタイルかどうかを判定
(defun LM:isAnnotative ( / object annotx )
(and
(setq object (tblobjname "STYLE" (getvar "TEXTSTYLE")))
(setq annotx (cadr (assoc -3 (entget object '("AcadAnnotative")))))
(= 1 (cdr (assoc 1070 (reverse annotx))))
)
)

'文字高さ設定した文字スタイルかどうかを判定
(defun textHeight ( / object txtH )
(and
(setq object (tblobjname "STYLE" (getvar "TEXTSTYLE")))
(setq txtH (cdr (assoc 40 (entget object))))
(/= 0 txtH)
)
)
-----------------------------------------------------------------------------
メモ帳を使用するなら、文字コードはANSIで保存してください。
コマンドはfsqm、上記のLispはフィールドの面積で取得される値を、1e-006（0.000001）倍して、最後に「㎡」を付加したダイナミックテキストにします。
文字スタイルは現在のスタイル、文字のサイズは現在のDIMSCALEの2.8倍となります。

あとは注釈を参考に、お好みの設定にどうぞ。

------------------------------------------------------------------------------

LUNE様

上記のLISPのどこを書き換えると、文字の挿入位置が中央に変更できるのでしょうか？
初めてLISPを使おうとしていまして、すみません。。
Mico様が変更したと書いてあったのですが、どこを変更するのかがわかりません。
よろしくお願いいたします。

(command "text" pt "" fstr)
(command "text" pt mt "" fstr)

ここの2行を

(command "text" "j" "mc" pt "" fstr)
(command "text" "j" "mc" pt mt "" fstr)

にしてみてください。

LUNE様

出来ました！
これをきっかけに勉強したいと思います。
本当にありがとうございます。

横から失礼します。
複数のポリライン区画求積で、fsqm.lsp使用させて頂き、大変助かっております。

AutoCAD2026を使用していますが、先日Updateしたところ、フィールドマスク設定が、
fsqm.lspで反映しなくなってしまいました。
LISPに詳しくなく、以前のようにフィールドマスク表示を、fsqm.lspでも反映するように
修正可能であれば、修正箇所を教えていただきたいです。
よろしくお願いいたします。

フィールドマスク設定とは？
フィールド部分が、灰色の背景で表示されることを差しているのでしょうか？

そうであれば、それはLispの設定ではなく、AutoCAD側の設定です。
システム変数、FIELDDISPLAYを1にしてください。

説明が足りなく申し訳ありません。
AutoCAD側の設定でフィールド背景表示するに、チェックをいれていると
fsqm.lspでもグレーの背景がついていたのですが、それがつかなくなったので
対応できるかと思い、コメントを入れました。

不可能なようなので、お騒がせ致しました。

>AutoCAD側の設定でフィールド背景表示するに、チェックをいれている
2026でもそのチェックはONなのですね？

Lispではなく、手動で作成したフィールドを含む文字列の場合は、背景表示されるのでしょうか？

＞2026でもそのチェックはONなのですね？
はい、チェックは入れていて、入れ直しなども試しました。

＞Lispではなく、手動で作成したフィールドを含む文字列の場合は、背景表示されるのでしょうか？
はい、手動ではフィールドを含む文字列で背景表示されます。

お時間のあるときに、fsqm.lsp実行後を実行後に以下を試してもらえますか？

・Regenコマンド実行
・ファイルを保存
・ファイルを保存して閉じて開きなおす

LUNE様

＞・Regenコマンド実行
＞・ファイルを保存
＞・ファイルを保存して閉じて開きなおす
LISP実行後に上記試しましたが、マスク表示無しのままでした。

念のため、fsqm.lspのテキストファイルのロードし直しも試しましたが変わりませんでした。

背景マスク以外は問題なく使用できているので、このまま使いたいと思います。
この度は、ご対応いただきありがとうございました。

手動で同じように、面積、小数点以下の桁数、変換係数を設定したときに、フィールド式がどのような文字列になるのか、提示してもらうことは可能ですか？

＞手動で同じように、面積、小数点以下の桁数、変換係数を設定したときに、フィールド式がどのような文字列になるのか、提示してもらうことは可能ですか？

%<\AcObjProp.16.2 Object(%<\_ObjId 2578586776592>%).Area \f "%lu2%ps[,㎡]%ct8[1.000000000000000E-006]">%

こちらでよろしいでしょうか？

ありがとうございます。

2026でフィールドのコードがどこか違うのかな？と思ったんですが、そうでもないみたいです。
lispで作成した文字列を編集状態にして、右クリックで「フィールドの更新」をしてみたらどうなりますか？

＞lispで作成した文字列を編集状態にして、右クリックで「フィールドの更新」をしてみたらどうなりますか？
試しましたが変わりませんでした。

もう一度、スタートアップ登録から除去し、再度ロードしてみて、それでも背景表示しないようなら、諦めます。

背景表示無くても、ものすごく助かっていますので、状況の変化や、また何かありましたら、ご相談させてください。

色々ご対応いただきまして、ありがとうございました。

こちらでも何か分かればお知らせします。

ＬＵＮＥ様

フィールド背景表示をする設定にしているにも関わらず、fsqm.lsp実行時に求積値に背景が付かない件、
フォント設定が原因でした。

以前使用していたAutoCAD2024ではTrueTypeフォントでも、背景表示していましたが、AutoCADフォント
のみ背景表示するようになった、具体的な違いがよくわかりませんが、文字スタイルも設定変更で
回避できるので安心しました。

元々別のCADソフトで作成されたものをAutoDesktoolで変換することが多く、求積値は印刷することがないので
見やすいフォントを使用していましたが、フォントは盲点でした・・・

大変お騒がせ致しました。
今後とも、よろしくお願いいたします。

お知らせくださりありがとうございます。

フォントが原因とは、考えが及びませんでした。

関係があるかわかりませんが、2025からグラフィックパフォーマンスの調整にて、フォントにかかわる項目ができたようです。
そしてこの項目により、TrueTypeフォントにいろいろな影響が出ているようです。
https://help.autodesk.com/view/ACD/2026/JPN/?guid=GUID-D13A0F2C-EC15-4FDC-A60A-8D00DB882102

RAMIさんのところで発生している現象と同じものは書かれていませんが、もしかして上記が関係しているのかもしれません。

教えて頂いた内容を試しましたが、直りませんでした。

AutoCAD2026ヘルプにフィードバックを送信したので、対応してもらえるとよいのですが・・・。

気長に待ちたいと思います。

情報ありがとうございました。