AutoCADマクロ屋本舗 掲示板

ver.
　AutoCAD 2017 LT

作りたいマクロ
　下記のようなマクロを作って頂けないでしょうか。

　・DEFPOINTSレイヤをアンロック
　・DEFPOINTSレイヤを現在のレイヤに設定
　・無限線（XLINE）を作成
　・DEFPOINTSレイヤをロック

　何卒宜しくお願い致します。

・無限線（XLINE）を作成

これが面倒ですね。
出来ない訳じゃありませんが、ループマクロを使う事になるのかな。
https://ameblo.jp/totthi-macro/entry-10950262965.html

無限線が垂直、水平線に限定出来るなら簡単に出来るんですけど。


それから、こっちは解決しましたか？
http://totthi.bbs.fc2.com/?act=reply&tid=16297305#23203181

とりあえず、垂直、水平限定版を作ってみました。
右クリックすると垂直、水平が入れ替わります。
*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;ang;$(if,$(eq,$(getenv,ang),H),H,V);setenv;to;1;-layer;n;defpoints;lo;defpoints;,)$(nth,$(getenv,to),,xline;$(getenv,ang);\$M="""$(if,$(getvar,cmdactive),;chprop;l;;la;defpoints;;setenv;to;1,setenv;ang;$(if,$(eq,$(getenv,ang),V),H,V))""")^M

こんな感じかな。

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;to;1;xline,chprop;l;;LA;defpoints;;-layer;LO;defpoints;)^M

構築線を１つ作成したら、エンターで終わらせて下さい。

こんな感じでどうでしょうか？

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),-layer;n;defpoints;lo;defpoints;;setenv;to;1,xline;点指定(終了はR-Click)^X\$M="""$(if,$(getvar,cmdactive),;;@;\;chprop;l;;la;defpoints;;setenv;to;1,setenv;to;0;^Cid;@)""")^M

点を指定した後エンター(右クリック)すると通常のXlineになってしまい
構文どおりに動かないです。注意してください。

点を指定した後エンター(右クリック)しても通常のXlineにならないように改良しました

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),xline;点指定(終了はR-Click)^X\$M="""$(if,$(getvar,cmdactive),通過点を指定(やり直しはR-Click)^X\$M="""""""""""""$(if,$(getvar,cmdactive),;setenv;to;1,setenv;to;0)""""""""""""",setenv;to;0;^Cid;@)""",)$(nth,$(getenv,to),,-layer;n;defpoints;lo;defpoints;;chprop;l;;la;defpoints;;setenv;to;0)^M



動作に少し違和感があったので、さらに修正しました。