[求助]：如何进行框选？

gxynd

在进行autolisp程序编写时，我想用框选，象erase、copy等这样的命令，如何实现呢？望兄台指点一二;
由于我没有想到如何解决这个问题，所以啊我就想到一个办法，那就是建组，可是新问题又出现啦，建组命令执行完后，整个程序便被结束掉了，如何解决这个问题啊？望兄台指点一二，急盼回复！
现将一个例子书写如下：
((defun c:bx()
(command"pickstyle" "1")
(command"-group" "c" "1" "1" pause)
(command"copy" "L" "")
)

lsjjm

下面是LISP程序框选的例子：
1。(ssget "c" (polar p (/ pi 4) 0.01)(polar p (* 1.25 pi) 0.01))
2。(ssget "cp" pl)
其中：P-点；PL-点表

Alan8088

(ssget )-----不帶參數亦可獲得框選范圍內的選集

aeo

(if(setq ss(ssget))(command "copy" ss ""))