AutoCADマクロ屋本舗 掲示板

お世話になります。
つい最近AutoLISPを学び始めた超初心者です。
範囲選択で文字だけを選択したくLISPを作っているのですが...

(defun c:TXG (/)
(setq Objs (ssget '((0 . "*TEXT"))))
(princ))

上記を実行すると、確かに選択範囲に文字だけを選ぶ事はできているものの、
選択セット（？）に含まれず、移動もコピーも何も出来ない状態になります。
どうすれば選んだ文字を触れるようになるかご教授頂けると助かります...。

また、範囲選択などせずにLISPを実行するだけで、図面上の全ての文字だけが選択されるようにするには
どう修正したらいいかもさっぱり分からず...こちらもご教授頂けると助かります。

よろしくお願い致します。

選択範囲内の文字を選択状態にするには、
(defun c:TXG (/)
(setq Objs (ssget '((0 . "*TEXT"))))
(command-s "pselect" Objs "" )
(princ))

図面上の文字をすべて選択状態にするには
(defun c:ATXG (/)
(command-s "zoom" "a")
(setq Objs (ssget "_X" '((0 . "*TEXT"))))
(command-s "pselect" Objs "" )
(princ))
※最初に図面全体にZOOMしてから、ssgetのXを使います。

AIに聞いてみました。
Lispを貼り付けて、最後にオブジェクトを選択状態にしたい、と聞いたら
(defun c:TXG (/)
(setq Objs (ssget '((0 . "*TEXT"))))
(sssetfirst nil Objs)
(princ))
と返ってきました。

(command-s "pselect" Objs "" )
は
(sssetfirst nil Objs)
と書けるようです。
私も使ったことなかったです・・・

LUNE様ご返信本当にありがとうございます。
選択状態にするにはcommand～が必要だったのですね。
本当に勉強になります...