この掲示板は AutoCADマクロ屋本舗 の掲示板です。

【 注意 】最初に必ず ↓↓ 下記内容 ↓↓ を参照ください。
① マクロが分からない方は、まず 【 マクロ講座 】 を参照ください。
② 質問の前に 【 マクロ使用前の注意事項 】 をお読みください。
③ 質問する時は、新規投稿フォーム下の【 新規投稿時のお願い 】を必ずお読みください。

矢印付き勾配文字作図
いつもお世話になっております。
Den様が作っておられます「矢印付き勾配の作図」を
ACAD2017用に作っていただけませんでしょうか。
線分をクリックすれば矢印付きで勾配を%表示するものです。
マクロ実行時に小数点以下の桁数を指定できれば幸いです。

よろしくお願いいたします。
  • c-tan
  • 2017/09/16 (Sat) 13:32:16
Re: 矢印付き勾配文字作図
元のマクロとマクロの流れを提示しないと、回答は得られないと思います。
  • Den
  • 2017/09/16 (Sat) 15:49:25
Re: 矢印付き勾配文字作図
Den様ご指摘ありがとうございます。
以下にマクロと動作を報告いたします。

*^C^Cucs;ob;^X^X【線分の中心より左側をクリック/Escで終了】^X\id;mid;@;-text;j;bc;non;@0,$M=$(*,$(getvar,dimscale),3,$(getvar,dimgap));$(*,$(getvar,dimscale),$(getvar,dimtxt));0;$(rtos,$(*,$(/,$(index,1,$(getvar,ucsxdir)),$(index,0,$(getvar,ucsxdir)),$(if,$(>=,0,$(index,1,$(getvar,ucsxdir))),-1,1)),100),2,$(getenv,keta))%;leader;non;@$(*,$(getvar,dimscale),$(+,$(getenv,keta),6),$(if,$(>=,0,$(index,1,$(getvar,ucsxdir))),1,-1)),-$(*,$(getvar,dimscale),$(getvar,dimgap));non;@$(*,$(getvar,dimscale),$(+,$(getenv,keta),6),$(if,$(>=,0,$(index,1,$(getvar,ucsxdir))),-2,2)),0;;;n;ucs;p;

このマクロをAcad2017で実行すると

コマンド:
コマンド:
コマンド: ucs

現在の UCS 名: *ワールド*
UCS 原点を指定 または [面(F)/名前の付いた UCS(NA)/オブジェクト(OB)/直前(P)/ビュー(V)/ワールド(W)/X/Y/Z/Z 軸(ZA)] <ワールド>: ob

UCS を位置合わせするオブジェクトを選択: *削除*
*削除*
【線分の中心より左側をクリック/Escで終了】*削除*
【線分の中心より左側をクリック/Escで終了】
コマンド: id
点を指定: mid
どこの @
X = 8343.1411 Y = 0.0000 Z = 0.0000

コマンド: -text

現在の文字スタイル: "Standard" 文字の高さ: 0.1800 異尺度対応: いいえ 位置合わせ: 左寄せ
文字列の始点を指定 または [位置合わせオプション(J)/文字スタイル変更(S)]: j
オプションを入力 [左寄せ(L)/中心(C)/右寄せ(R)/両端揃え(A)/中央(M)/フィット(F)/左上(TL)/上中心(TC)/右上(TR)/左中央(ML)/中央(MC)/右中央(MR)/左下(BL)/下中心(BC)/右下(BR)]: bc

文字列の下中心点を指定: non
@0,0.27

高さを指定 <0.1800>: 0.18

文字列の角度を指定 <0>: 0

文字列を入力: %

コマンド: leader

引出線の始点を指定: non
@
次の点を指定: ,-0.09

無効な入力です。

次の点を指定: non
@
次の点を指定: ,0

無効な入力です。

次の点を指定:

コマンド:
LEADER

引出線の始点を指定: n

無効な入力です。

引出線の始点を指定: ucs

無効な入力です。

引出線の始点を指定: p

無効な入力です。

引出線の始点を指定: *キャンセル*

途中で停止してしまいます。
とても便利なマクロなので何卒よろしくお願いいたします。



  • c-tan
  • 2017/09/18 (Mon) 09:21:23
Re: 矢印付き勾配文字作図
http://www7b.biglobe.ne.jp/~den-eng/Free/ac/ac01.html
■マクロ使用時の全体的な注意点■

上記にある桁数についての項目を一読して下さい。
  • Den
  • 2017/09/18 (Mon) 10:40:30
Re: 矢印付き勾配文字作図
Den様 ■マクロ使用時の全体的な注意点■ 確認しました。
ありがとうございます。マクロ動きました。
これで作業がはかどります。
本当にありがとうございました。
  • c-tan
  • 2017/09/19 (Tue) 21:17:22
Re: 矢印付き勾配文字作図
いつもお世話になります。

標高表示に続き、こちらの矢印付き勾配を使用させていただいたのですが、
うまくいかないので教えてください。


*^C^Cucs;ob;^X^X【線分の中心より左側をクリック/Escで終了】^X\id;mid;@;-text;j;bc;non;@0,$M=$(*,$(getvar,dimscale),3,$(getvar,dimgap));
$(*,$(getvar,dimscale),$(getvar,dimtxt));0;$(rtos,$(*,$(/,$(index,1,$(getvar,ucsxdir)),$(index,0,$(getvar,ucsxdir)),
$(if,$(>=,0,$(index,1,$(getvar,ucsxdir))),-1,1)),100,$(getvar,dimlfac)),2,$(getenv,keta))%;leader;non;@$(*,$(getvar,dimscale),$(+,$(getenv,keta),6),
$(if,$(>=,0,$(index,1,$(getvar,ucsxdir))),1,-1)),-$(*,$(getvar,dimscale),$(getvar,dimgap));non;@$(*,$(getvar,dimscale),$(+,$(getenv,keta),6),
$(if,$(>=,0,$(index,1,$(getvar,ucsxdir))),-2,2)),0;;;n;ucs;p;


実行すると


コマンド: ucs
現在の UCS 名: *ワールド*
UCS 原点を指定 または [面(F)/名前の付いた UCS(NA)/オブジェクト(OB)/直前(P)/ビュー(V)/ワールド(W)/X/Y/Z/Z 軸(ZA)] <ワールド>: ob
UCS を位置合わせするオブジェクトを選択: *削除*
*削除*
【線分の中心より左側をクリック/Escで終了】*削除*
【線分の中心より左側をクリック/Escで終了】
コマンド: id
点を指定: mid
どこの @
X = 5.099 Y = 0.000 Z = 0.000
コマンド: -text
現在の文字スタイル: "MSゴシック" 文字の高さ: 2.500 異尺度対応: はい 位置合わせ: 左寄せ
文字列の始点を指定 または [位置合わせオプション(J)/文字スタイル変更(S)]: j
オプションを入力 [左寄せ(L)/中心(C)/右寄せ(R)/両端揃え(A)/中央(M)/フィット(F)/左上(TL)/上中心(TC)/右上(TR)/左中央(ML)/中央(MC)/右中央(MR)/左下(BL)/下中心(BC)/右下(BR)]: bc
文字列の下中心点を指定: non
@0,0.3
用紙上の文字の高さを指定 <5.000>:
文字列の角度を指定 <0>:
文字列を入力: 3.5
コマンド: 0
そのようなコマンド "0" はありません。ヘルプを表示するには F1 キーを押してください。
コマンド: 2%
そのようなコマンド "2%" はありません。ヘルプを表示するには F1 キーを押してください。
コマンド: leader
引出線の始点を指定: non
@-6,-0.1
次の点を指定: non
@12,0
次の点を指定 または [注釈(A)/形式(F)/元に戻す(U)] <注釈>:
注釈の最初の行を入力 または <オプション>:
注釈オプションを入力 [幾何公差(T)/コピー(C)/ブロック(B)/指定なし(N)/マルチ テキスト(M)] <マルチ テキスト>: n
コマンド: ucs
現在の UCS 名: *名前なし*
UCS 原点を指定 または [面(F)/名前の付いた UCS(NA)/オブジェクト(OB)/直前(P)/ビュー(V)/ワールド(W)/X/Y/Z/Z 軸(ZA)] <ワールド>: p
コマンド:
コマンド:
コマンド: ucs
現在の UCS 名: *ワールド*
UCS 原点を指定 または [面(F)/名前の付いた UCS(NA)/オブジェクト(OB)/直前(P)/ビュー(V)/ワールド(W)/X/Y/Z/Z 軸(ZA)] <ワールド>: ob
UCS を位置合わせするオブジェクトを選択: *削除*
*削除*
【線分の中心より左側をクリック/Escで終了】*削除*
【線分の中心より左側をクリック/Escで終了】*キャンセル*


このようになり、添付画像のようになります。
(実際は縦横比0.1の2%です)

図面はMで、縦0.1の寸法スタイルを使用してます。

希望としては、
・矢印
・小数点以下3桁の数値+%
・縦横の係数がかけられる

これらができると嬉しいです。
 
AutoCAD2018Rを使用しています。

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

  • lalaland
  • 2019/05/13 (Mon) 14:37:58
Re: 矢印付き勾配文字作図
そのマクロですが、
そこに貼り付けられている時点で、マクロ内に改行がされていますが、
CADに登録しているマクロも改行が入っているのではないですか?

例えば、2017/09/18 (Mon) 09:21:23 の書き込みにあるマクロをコピーして、
メモ帳に貼り付けてください。(右端で折り返す。にはチェックを入れない)
すると、改行はなく一行に全て表示されます。

これがマクロの正しい形。

それが、あなたの書き込んだマクロをコピーしてメモ帳に貼り付けると、
改行されてしまう。
この状態で、CADに登録すると誤作動します。

改行を削除して一行にしてから、CADに登録しましょう。
また、マクロの最後の「・・・p;」の「;」の後にスペースや改行が有れば、それも削除です。
  • Lon
  • 2019/05/13 (Mon) 15:18:29
Re: 矢印付き勾配文字作図
Lonさん

ありがとうございます。
改行を削除したら正しく表示されました。

表示できるようになったのですが、メートルの図面の為か小数点以下が表示されません。
小数点以下3桁 2.250% のようにするのは可能でしょうか?

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


  • lalaland
  • 2019/05/13 (Mon) 17:06:42
Re: 矢印付き勾配文字作図
この質問でDenさんが回答されてる内容ではないですか?
  • chibi-tom
  • 2019/05/13 (Mon) 17:22:41
Re: 矢印付き勾配文字作図
chibi-tomさん

お世話になります。

DenさんのHPは拝見していたのですが、理解できていませんでした。
どうにか希望通りになりました。

お手数をかけてしまいすみませんでした。
  • lalaland
  • 2019/05/14 (Tue) 13:24:25

返信フォーム






プレビュー (投稿前に内容を確認)