AutoCADマクロ屋本舗 掲示板

バージョンはautocad2017です。


横断面図を作成する際に、標高表示マクロの引き出し線なしというものはできますでしょうか？

参考図のようなものを考えています。お手数ですが、お願いできますでしょうか？

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

上記メニューからワード検索してみました。

http://totthi.bbs.fc2.com/?act=reply&tid=16247849

↑これとかどうでしょ？

autocad2017です。

参照アドレスの標高文字のみのマクロを試しました。

でも、文字記入位置選択--設定修正(Rc)--のあたりでうまく作動しないように思います。
*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;hk;基準線の標高を入力^X\;txt;接頭文字記入(無しの場合は半角数値0記入)^X\ucs;ob;\setenv;to;1,ray;nea;X文字記入位置を選択--設定修正(Rc)--^X\$M="""$(if,$(getvar,cmdactive),;setenv;to;2,ucs;p)""",)$(nth,$(getenv,to),,,;to;1;-text;non;@;;;$(if,$(eq,$(getenv,txt),0),,$(getenv,txt))$(rtos,$(+,$(getenv,hk),$(*,$(index,1,$(getvar,lastpoint))),0.001),2,3))^M

このマクロで、あってるのでしょうか?素人なもので、すみません。

どのようにうまくいかないのか
ご説明願います。

●入力できた項目
基準線の標高を入力→0
接頭文字記入(無しの場合は半角数値0記入)→0
UCS→マウス指示

の後にマウスでクリックしましたが、図のようにうまくいきません。
以下、コマンドラインに表示されたものを転記しました。


どこに X文字記入位置を選択--設定修正(Rc)--*削除*
X文字記入位置を選択--設定修正(Rc)--
指定された 点が見つかりません。
点が無効です。
始点を指定:
通過点を指定:
コマンド: setenv
変数名を入力: to
値 <0>: 2
コマンド:
コマンド:
コマンド:
コマンド: setenv
変数名を入力: to
値 <2>: 0
コマンド:
コマンド:
SETENV
変数名を入力: to
値 <0>: 1
コマンド:
コマンド: -text
現在の文字スタイル: "MSゴシック-5mm" 文字の高さ: 500.0000 異尺度対応: いいえ 位置合わせ: 左寄せ
文字列の始点を指定 または [位置合わせオプション(J)/文字スタイル変更(S)]: non
@
文字列の角度を指定 <0>:
文字列を入力:
コマンド: 2177.659
そのようなコマンド "659" はありません。ヘルプを表示するには F1 キーを押してください。
コマンド:
コマンド:
コマンド: setenv
変数名を入力: to
値 <1>: 0
コマンド:
コマンド: ray
始点を指定: nea
どこに X文字記入位置を選択--設定修正(Rc)--*削除*

---------------------------------------------------------
X文字記入位置を選択--設定修正(Rc)--
指定された 点が見つかりません。
点が無効です。
---------------------------------------------------------
↑この選択で、オブジェクト上の任意の点を指定していますか？


上記URLの質問者の方も2017なので
使い方が間違いなければ動くはずです。

＜このマクロで、あってるのでしょうか?＞のマクロがあってないです。(貼付けミス？)
「^X文字記入位置選択」の部分が「X文字記入位置選択」になってるので、その部分でエラー。

だと思います。

お忙しいところ、すみません。
ご指摘されたところなどを含めて修正したところ、うまくいきました。
後半部分の「-text;non;@;;;$(if,$(eq・・・・」のところを
→「-text;nea;@;0;$(if,$(eq・・・・」のように「文字列の角度指定」に<0>を挿入するとうまくいきました。

以下のマクロでうまく作動しました。

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;hk;基準線の標高を入力^X\;txt;接頭文字記入(無しの場合は半角数値0記入)^X\ucs;ob;\setenv;to;1,ray;nea;^X文字記入位置選択--設定修正(Rc)--^X\$M="""$(if,$(getvar,cmdactive),;setenv;to;2,ucs;p)""",)$(nth,$(getenv,to),,,;to;1;-text;nea;@;0;$(if,$(eq,$(getenv,txt),0),,$(getenv,txt))$(rtos,$(+,$(getenv,hk),$(*,$(index,1,$(getvar,lastpoint)),0.001)),2,3))^M

あと重ねて質問ですが、

このマクロの「ray;nea;^X文字記入位置選択--設定修正(Rc)」
の部分のnea=近接点だと思いますが、交点intと端点endの同時設定は可能でしょうか?

ray;nea;^X　⇒ ray;nea+int+endp;^X

とってぃさん、Lonさん、マクロがうまく作動しました。

これで作業がかなりはかどります。大変、ありがとうございました。