[討論]如何用Autolisp取消選取

目前我編寫的程式裡有用到STRETCH的指令,
部分程式如下:

代碼:

(prompt "\n選擇要STRETCH的圖元..")
(COMMAND "STRETCH" (ssget) "" RG:PPD:oP2 RG:PPD:oP3)

其中RG:PPD:oP2和RG:PPD:oP3是點座標.

目前卡在,
如果在程式執行前就有選取圖元時,
(ssget)會自動抓已經選取的圖元,
而我想在程式執行到(COMMAND "STRETCH" ....)之前先取消掉已經有的選取,
到底要如何做呢?

剛剛才發現如果是用

代碼:

(prompt "\n選擇要STRETCH的圖元..")
(setq ssobj (ssget))
(COMMAND "STRETCH" ssobj "" RG:PPD:oP2 RG:PPD:oP3)

作用其實是和

代碼:

(prompt "\n選擇要STRETCH的圖元..")
(COMMAND "STRETCH" (ssget) "" RG:PPD:oP2 RG:PPD:oP3)

一樣的@@a
之前我沒看清楚還以為是leoneriol兄的回答是

代碼:

(prompt "\n選擇要STRETCH的圖元..")
(setq ssobj (ssget))
(COMMAND "STRETCH" (ssget) "" RG:PPD:oP2 RG:PPD:oP3)

上面這樣的話,的確是可以在原先有選取物件時,取消掉選取,
但也變成了在原先沒有選取物件時,需要選取兩次@@a

[追加]
找到一個替用方案,利用系統變數"PICKFIRST",
初始值： 1
0 關閉 PICKFIRST；先執行再選取
1 打開 PICKFIRST；先選取再執行
其作法是先將PICKFIRST設為0後再執行指令,
這樣不管是否有在執行指令前先選取物件,
程式執行到指令時,一律會變為未選取狀態.

在程式的前後加上原有系統變數的儲存和恢復後的程式如下:

代碼:

;;儲存舊的變數值
(SETQ oPICKFIRST (getvar "PICKFIRST"))
;;指定程式需要的數值
(setvar "PICKFIRST" 0)
(prompt "\n選擇要STRETCH的圖元..")
(COMMAND "STRETCH" (ssget) "" RG:PPD:oP2 RG:PPD:oP3)
;;恢復舊的變數值
(setvar "PICKFIRST" oPICKFIRST)