[已解決]請教LISP選集

(defun c:dr();向下陣列
(setq a(getint "\n個數："))
(setq s(getint "\n間距："))
(setq t(entsel))
(command "array" t "" "R" a "" s)
)

請問上面的程式要如何修改成"窗選" 或"框選"等其他選取方式

老水牛 寫到:(defun c:dr();向下陣列
(setq a(getint "\n個數："))
(setq s(getint "\n間距："))
(setq t(entsel))
(command "array" t "" "R" a "" s)
)

請問上面的程式要如何修改成"窗選" 或"框選"等其他選取方式

以下是我的做法，提供參考(其它高手應該會有更好的方法，在lsp我也只是個初學者)
(defun c:dr99()
(SETVAR "CMDECHO" 0)
(setq en (SSGET))
(setq aa (getint "\n 個數："))
(setq ss (getint "\n 間距："))
(setq wa (getreal "\n 輸入兩列間距或指定單位格："))
(setq wa1 (getreal "\n 指定兩行間距："))
(command "-array" en "" "R" aa ss wa wa1)
(princ)
)
或者
(setq point1 (getpoint "\n 第1點"))
(setq point2 (getpoint point1 "\n 第2點"))
(setq pointt (grdraw point1 point2 1 1))
(setq en (ssget "w" point1 point2)) ;;w或c都可以
(setq aa (getint "\n 個數："))
(setq ss (getint "\n 間距："))
(setq wa (getreal "\n 輸入兩列間距或指定單位格："))
(setq wa1 (getreal "\n 指定兩行間距："))
(command "-array" en "" "R" aa ss wa wa1)
(setq pointt redraw)
(command "-color" "bylayer")
(princ)

這一行好像怪怪的，指令應該要先執行過了解一次排序才會準確，不然會少填。
(command "array" t "" "R" a "" s)

提供你參考看看,

(defun c:dr();向下陣列
(setq a(getint "\n個數："))
(setq s(getint "\n間距："))
;;;(setq t(entsel))
(setq objs(ssget)) ;採用選集的方式,即可框選,暫存器不要用t,程式會出問題(t是有意義的,不可以拿來做暫存器使用).
;;;(command "-array" t "" "" "R" a "" s)
(command "-array" objs "" "R" a "" s)
(princ) ;抑制空回應
)

t 為LISP 很重要的函數!! 請勿拿來當作變數使用..

感謝各位大大的指導。
我也曾用ssget 作為選集，應該是不知 t 在 LISP 中有特定的含義，導至程式無法執行。