AutoCADマクロ屋本舗 掲示板

図のように中心線を引くマクロを作成していただけないでしょうか。
ＬＴ2018です。

下記の条件も追加していただけないでしょうか。
　中心線の色は赤、線種はDOT
　左右に３０はみ出させる
　「中心線」というレイヤーに作成する

上記の条件をどのように追加、組み合わせると動くのかまだ理解が足りません。
どうぞよろしくお願いいたします。

^C^Cline;mid;\mid;\;lengthen;dy;;;l;;;ucs;e;l;erase;l;;line;non;30<w;non;$M=$(+,$(getvar,perimeter),30)<e;;ucs;p;-layer;n;中心線;;chprop;l;;la;中心線;c;red;lt;DOT;^M

マクロを実行して長方形の中点をクリック、もう片方の中点をクリックです。

ところで、線種はDOTで良いの？　Centerでしたら、マクロ中のDOTをCenterに変更してください。
もし、「中心線」というレイヤーの設定が「色は赤、線種はDOT」で、ByLayerで書く。というのでしたら、
マクロを作り変えなきゃなりません。

Lon様

動作確認できました、ありがとうございます！
線種はCenterでした...変更できたので大丈夫です。

もう一つ教えてください。
画像を指定せず、ByLayerで書く場合はどのようになりますか？

画像⇒画層（レイヤー）の間違いだとして、
最後の、レイヤー・色・線種の指定を削除するだけです。

^C^Cline;mid;\mid;\;lengthen;dy;;;l;;;ucs;e;l;erase;l;;line;non;30<w;non;$M=$(+,$(getvar,perimeter),30)<e;;ucs;p;

ちなみに先の書き込みで私の言いたかったのは、こんな事なんですけど。

^C^Cline;mid;\mid;\;lengthen;dy;;;l;;;ucs;e;l;erase;l;;line;non;30<w;non;$M=$(+,$(getvar,perimeter),30)<e;;ucs;p;-layer;n;中心線;c;red;中心線;lt;Center;中心線;;chprop;l;;la;中心線;^M

あ、ちょっと訂正
画層を指定せず、ByLayerで書く場合はこっちの方が正解。
現在がByLayerじゃない可能性も有りますからね。

^C^Cline;mid;\mid;\;lengthen;dy;;;l;;;ucs;e;l;erase;l;;line;non;30<w;non;$M=$(+,$(getvar,perimeter),30)<e;;ucs;p;chprop;l;;c;ByLayer;lt;ByLayer;^M

もう一つの方も、同じく現在がByLayerじゃない事を考慮して、こうなります。

^C^Cline;mid;\mid;\;lengthen;dy;;;l;;;ucs;e;l;erase;l;;line;non;30<w;non;$M=$(+,$(getvar,perimeter),30)<e;;ucs;p;-layer;n;中心線;c;red;中心線;lt;Center;中心線;;chprop;l;;la;中心線;c;ByLayer;lt;ByLayer;^M

Lon様

このマクロで作業がとても楽になります。
ご説明もありがとうございました。