AutoCADマクロ屋本舗 掲示板

こんにちは
ssgetで選択したセレクションセットssを select コマンドで選択してアクティブな状態で終了するlispは可能でしょうか。アクティブな状態で次の動作にコピーまたは、移動、または削除などに移りたいためです。

(defun c:selectActive (/ ss)
(setq ss (ssget)) ; ユーザーにオブジェクトを選択させる

(if ss
(progn
(princ "\n選択したオブジェクトをアクティブな状態で維持します。")
(command "SELECT" ss) ; 選択状態をアクティブ化
)
(princ "\nオブジェクトが選択されていません。")
)

(princ)
)

(command "SELECT" ss) ; 選択状態をアクティブ化
上記を
(command "PSELECT" ss "")
でどうでしょう？

ご確認ありがとうございます。当方のCADがbricsでpselectがフォローされていないようでした。。。

参考（BricsCADのForum）
https://forum.bricsys.com/discussion/comment/42782#Comment_42782

(command "SELECT" ss) ; 選択状態をアクティブ化
を
(sssetfirst nil ss) ; 選択状態をアクティブ化
に変更って事です。

bricsでしたか・・・
それだと、PICKADDの2設定もないようですし、次に使うコマンド内で「p」の直前選択を使用するしかなさそうです。

sssetfirstが使えるんですね。
では、Hamuさんの方法でよさそうです。

hamuさん　ばっちりです。皆さんありがとうございました。