AutoCADマクロ屋本舗 掲示板

初めまして。
いつも参考にさせていただいています。
2016R版使用です。

マルチ引出線の設定なのですが、
毎回ファイルごとに設定しなおすのが億劫です。
一度に30～50ファイルほどで作業するので、
マクロでもう少しだけ作業が縮まらないかと思い、
投稿しました。
設定についてですが、
下記URLと全く同じ設定で作業しております。

ご回答宜しく願いたします。

http://cad.main.jp/m-class/hikidas.htm

「角度ドンピシャの引出し線」

http://www7b.biglobe.ne.jp/~den-eng/Free/ac/ac01.html#16

こんなのもあります。

Den様
参考URLありがとうございます。

私の使用しているCADでは
反映されませんでした。

マクロで設定は無理っぽいです。
設定したテンプレートを使用するのが手っ取り早いですね。

テンプレートが使えない環境なのであれば

１．テンプレートもしくは設定されたスタイルで引出線を描き
２．クリップボードへコピー
３．別図面へクリップボードから貼り付け
４．マルチ引出線スタイル管理で使用スタイルを選択

で、その図面への反映は可能です。

お試しください。

マルチ引出し線ではなく、ただの引出し線だと思うのですが、それはともかく。
MDI環境でファイルを開いては設定して閉じるということをvlax系の関数で試したのですが
上手くいかず。

結局、引出し線を設定するlispをスタートアップに登録するというところに落ち着きました。

;ql-set.lsp
(dictremove (namedobjdict) "AcadDim")
(dictadd (namedobjdict)
"AcadDim"
(entmakex '((0 . "XRECORD")
(100 . "AcDbXrecord")
(280 . 1)
(90 . 990106)
(3 . "")
(60 . 0)
(61 . 0)
(62 . 4)
(63 . 4)
(64 . 1)
(65 . 0)
(66 . 0)
(67 . 2)
(68 . 0)
(69 . 1)
(70 . 3)
(71 . 0)
(72 . 0)
(40 . 0.0)
(170 . 1))))

(prompt "\nqleaderの設定をしました。")
(princ)

とってぃ様
ありがとうございます！
試してみました！
毎度設定し直すより、
こちらの方が楽ですね。

zukki-様
ありがとうございます！
lispあまり詳しくないもので...
少し調べてみて、実行してみました。
.lspとしてロードも完了し、
スタートアップ登録も行ったのですが、
いざ使おうとすると
反映されません...

URLは引き出し線の設定なので作りましたが、マルチ引き出し線を使っているようなので
lispは削除してください。