AutoCADマクロ屋本舗 掲示板

お世話になります。

AutoCad LT2021 です。
円に中心線（十字線）を自動的に書きたいのですが
1.中心線の長さは直径の何倍（マクロ内で数値設定）とする　→取り敢えず1.5倍
2.中心線の線の太さをゼロ含む値で小数点以下二桁設定（マクロ内で数値設定）　→取り敢えず0.05mm
3.中心線の色指定（マクロ内で数値設定）　→取り敢えず赤色
の様な感じです。
変更場所の情報もお願いします。

宜しくお願いします。

AutoCADマクロ屋本舗の153.円中心線自動作図が使えると思います。

https://ameblo.jp/totthi-macro/entry-12378342232.html

1.について
　マクロ内に二か所ある「1.3」を「1.5」に書き換える。
2.3.について
　マクロ終わり付近の「CENTER;C;1」を「CENTER;C;1;LT;0.05;」
　とすると、太さが0.05mmになる。
　また、数字の「1」が赤色を表す。

※削除のパスワードは「9999」です。

とってぃさんのマクロ集の中の物でも、十分なんだと思いますが、
マクロ実行中に設定変更できるものを作ってみました。
とりあえずLT2019で動作確認。2021ではどうだろ。
*^C^C_$M=setenv;to;0;$(nth,$(getenv,to),ray;nea;^X倍率=$(getenv,倍率)_色=$(getenv,色)_太さ=$(getenv,太さ)_設定変更は右クリック^X\$M="""$(if,$(getvar,cmdactive),;dist;nea;@;cen;@;setenv;to;1,setenv;to;3)""",,,)$(nth,$(getenv,to),,UCS;M;cen;@;line;non;$(*,$(getvar,distance),$(getenv,倍率))<0;non;$(*,$(getvar,distance),$(getenv,倍率))<180;;setenv;to;2,,)$(nth,$(getenv,to),,,chprop;l;;c;$(getenv,色);lw;$(getenv,太さ);;rotate;l;;non;0<0;c;90;ucs;p,)$(nth,$(getenv,to),,,,;倍率;\;太さ;\;色;\;to;0)^M

①マクロ実行
②円（円弧）をクリックで中心線記入、　または右クリックで設定変更

以降、②を繰り返し。　終了はESC

右クリックすると中心線の倍率、太さ、色の設定ができます。
倍率＝1.5
太さ＝0.05
色＝1（またはred）

初めて使うときは必ず右クリックして設定をしてください。
一度設定を行うと、その設定はCADに記憶されますので、
CADを再起動しても、他の図面を開いても引き継がれます。

画層や線種の設定は不要なんですよね？

通りすがりの人様
早々のご連絡有難う御座います。
試して見ましたが、うまく動作しません。

LOGになります。
コマンド: setenv
変数名を入力: to
値 <0>: 0
コマンド: offset
現在の設定: 元のオブジェクトを消去=いいえ 画層=元のオブジェクト OFFSETGAPTYPE=0
オフセット距離を指定 または [通過点(T)/消去(E)/画層(L)] <通過点>:
オフセットするオブジェクトを選択 または [終了(E)/元に戻す(U)] <終了>:
通過点を指定 または [終了(E)/一括(M)/元に戻す(U)] <終了>:
コマンド: select
オブジェクトを選択: non
@
認識された数: 1
オブジェクトを選択: non
@
認識された数: 1 (重複している数: 1), 総数 1
オブジェクトを選択:
コマンド: line
1 点目を指定: nea
どこに @
次の点を指定 または [元に戻す(U)]: cen
どこの @
次の点を指定 または [元に戻す(U)]:
コマンド: lengthen
計測するオブジェクトを選択 または [増減(DE)/比率(P)/全体(T)/ダイナミック(DY)] <全体(T)>: l
現在の長さ: 6.6627
計測するオブジェクトを選択 または [増減(DE)/比率(P)/全体(T)/ダイナミック(DY)] <全体(T)>:
全体の長さを入力 または [角度(A)] <1.0000>: erase
距離を数値で入力してください, 2 点を指定 または オプションのキーワードを入力してください。
全体の長さを入力 または [角度(A)] <1.0000>: 2 点目を指定:

途中で終了しました。

Lon様
有難うございます。
動作確認出来ました、有難う御座います。

画層や線種の設定は不要なんですよね？
→画層はいいのですが、線種は一点鎖線が当たり前と思い込んでいました
　線種を一点鎖線でお願いします。

右クリックすると中心線の倍率、太さ、色の設定ができます。
倍率＝1.5
太さ＝0.05
色＝1（またはred）
→右クリック時に「値」表示からそれぞれ「倍率」「太さ」「色」の表示内容に出来ますか？

以上

AutoCADマクロ屋本舗トップページの
「使用前の注意事項」は気付かなかったんですね。

【AutoCAD R/LT 2015以降 の注意点】として
https://ameblo.jp/totthi-macro/entry-12220279344.html
マクロを書き換えると動作するようです。

御自身で出来ない場合はLonさんが作られたマクロを試して下さい。

※削除のパスワードは「9999」です。

通りすがりの人様

マクロについては、全くの素人です。
有難うございました。

>線種を一点鎖線で
⇒一点鎖線=center で良いでしょうか？

>「値」表示からそれぞれ「倍率」「太さ」「色」の表示内容
⇒下記マクロで表示されるかと思いますこの解釈であっているのかは疑問ですけど
ちなみに、コマンドラインを2行以上の表示にすれば「値」の上の段に変数名としてそれぞれ「倍率」「太さ」「色」の文字は表示されていますよ

*^C^C_$M=setenv;to;0;$(nth,$(getenv,to),ray;nea;^X倍率=$(getenv,倍率)_太さ=$(getenv,太さ)_色=$(getenv,色)_設定変更は右クリック^X\$M="""$(if,$(getvar,cmdactive),;dist;nea;@;cen;@;setenv;to;1,setenv;to;3)""",,,)$(nth,$(getenv,to),,UCS;M;cen;@;line;non;$(*,$(getvar,distance),$(getenv,倍率))<0;non;$(*,$(getvar,distance),$(getenv,倍率))<180;;setenv;to;2,,)$(nth,$(getenv,to),,,chprop;l;;c;$(getenv,色);lw;$(getenv,太さ);lt;center;;rotate;l;;non;0<0;c;90;ucs;p,)$(nth,$(getenv,to),,,,;倍率;倍率<$(getenv,倍率)>=^X\;太さ;太さ<$(getenv,太さ)>=^X\;色;色<$(getenv,色)>=^X\;to;0)^M

線種が『center』でなくご自身で登録した線種であれば『lt;center;』の部分を変更すれば線種は変更できます

chibi-tom様

コマンドラインでの表示確認出来ました。


思ってた内容になっています
有難うございました。