AutoCADマクロ屋本舗 掲示板

いつも参考にさせて頂いています。
Brics cadでロックされた画層を解除して基点コピー→終わったら画層状態を戻すというlispを作ったのですが、うまく動作しません。

・最初に画層状態を"temp"に保存
・画層ロックを全解除
・基点コピー
・画層状態を"temp"に復旧ですが、
基点コピーしようとすると、"temp"状態にもどってしまいます。
ご協力いただきたくよろしくおねがいします。


(defun c:SaveLayerState ()
(vl-catch-all-apply
'(lambda ()
(layerstate-save "temp" 4 nil)
(princ "\n画層状態が'temp'という名前で保存されました。")
(command "-layer" "u" "*" "")
(command "_copybase" 'pause)
(layerstate-restore "temp" nil)
(princ))
nil))

基点コピーするオブジェクトを選択していないから？

Brics cadで動くかどうか分かりませんが、AutoCADなら以下で動作しました。
(command "_copybase" 'pause)ではなく、先に基点とオブジェクトを指定しています。
また、最後に作成した画層状態tempを削除しています。
これは、このコマンドを再度使用する場合に、tempという画層状態があると、layerstate-saveでは上書きできないからです。

(defun c:SaveLayerState (/ bpt ss)

(layerstate-save "temp" 4 nil)
(princ "\n画層状態が'temp'という名前で保存されました。")
(command "-layer" "u" "*" "")
(setq bpt (getpoint "\n基点を指定")
ss (ssget))
(command "_copybase" bpt ss "")
(layerstate-restore "temp" nil)
(layerstate-delete "temp")
(command "regen")
(princ)

)

LUNE様

ばっちり動作しました。ありがとうございます。