老師我在畫圖時使用共3個圖層圖層 分為DIM 分為文字圖層 分為標註圖層 但我使用這指令程式後 可以改變只要我要刪除的圖層

(DEFUN C:SS23 ()
(SETQ SS (SSGET (list (cons 0 "DIMENSION"))));;;選取過濾標註，設定SS變數
(COMMAND "ERASE" SS "");;;取出SS變數，刪除選擇集之標註物件
)

shyrchu 寫到:(DEFUN C:SS23 ()
 (SETQ SS (SSGET (list (cons 0 "DIMENSION"))));;;選取過濾標註，設定SS變數
 (COMMAND "ERASE" SS "");;;取出SS變數，刪除選擇集之標註物件
 )

加上 (cons 8 "Layer1")
"Layer1" 改成你想要的 "圖層名稱"

代碼:

(SETQ SS (SSGET (list (cons 0 "DIMENSION") (cons 8 "Layer1"))))

謝謝蘋果爸程式已成功
(DEFUN C:SS23 ()
(SETQ SS (SSGET (list (cons 0 "DIMENSION") (cons 8 "Y15"))))
(COMMAND "ERASE" SS "");;;取出SS變數，刪除選擇集之標註物件
)

在請問能變更如何改寫只刪除TEXT文字圖層的內容

shyrchu 寫到:在請問能變更如何改寫只刪除TEXT文字圖層的內容

(DEFUN C:SS23 ()
 (SETQ SS (SSGET (list (cons 0 "DIMENSION") (cons 8 "Y15")))) // 這個為選取圖層為"Y15"的標註物件
 (COMMAND "ERASE" SS "");;;取出SS變數，刪除選擇集之標註物件
 )

(SETQ SS (SSGET (list (cons 0 "TEXT") (cons 8 "Y15")))) // 這個為選取圖層為"Y15"的文字物件
(SETQ SS (SSGET (list (cons 0 "LINE") (cons 8 "Y15")))) // 這個為選取圖層為"Y15"的線物件

用程式選取可以加入 元體性質 對應的 群碼
選取過濾：文字，內容= "TEXT1"，圖層= "Y15"
(SETQ SS (SSGET (list (cons 0 "TEXT") (cons 1 "TEXT1") (cons 8 "Y15"))))

選取過濾時 元體性質 可加入逗號，即可選取 標註,文字,線
(SETQ SS (SSGET (list (cons 0 "DIMENSION,TEXT,LINE"))))

老師謝謝你(DEFUN C:SD32 ()
(SETQ SS (SSGET (list (cons 0 "TEXT") (cons 8 "Y15"))))//
(COMMAND "ERASE" SS "");;;取出SS變數，刪除選擇集之文字物件
)

老師能否一次性一個指令使用這些程式(DEFUN C:SD66 ()
(SETQ SS (SSGET (list (cons 0 "LINE") (cons 8 "文字"))))
(COMMAND "ERASE" SS "");;;取出SS變數，刪除選擇集之線物件
)
(SETQ SS (SSGET (list (cons 0 "TEXT") (cons 8 "文字"))))
(COMMAND "ERASE" SS "");;;取出SS變數，刪除選擇集之文字物件
)
(SETQ SS (SSGET (list (cons 0 "DIMENSION") (cons 8 "文字"))))
(COMMAND "ERASE" SS "");;;取出SS變數，刪除選擇集之標註物件
)
(SETQ SS (SSGET (list (cons 0 "CIRCLE") (cons 8 "文字"))))
(COMMAND "ERASE" SS "");;;取出SS變數，刪除選擇集之圓物件
)
(SETQ SS (SSGET (list (cons 0 "HATCH") (cons 8 "文字"))))
(COMMAND "ERASE" SS "");;;取出SS變數，刪除選擇集之填充線物件
)

shyrchu 寫到:老師能否一次性一個指令使用這些程式(DEFUN C:SD66 ()
 (SETQ SS (SSGET (list (cons 0 "LINE") (cons 8 "文字"))))
 (COMMAND "ERASE" SS "");;;取出SS變數，刪除選擇集之線物件
 )
 (SETQ SS (SSGET (list (cons 0 "TEXT") (cons 8 "文字"))))
 (COMMAND "ERASE" SS "");;;取出SS變數，刪除選擇集之文字物件
 )
 (SETQ SS (SSGET (list (cons 0 "DIMENSION") (cons 8 "文字"))))
 (COMMAND "ERASE" SS "");;;取出SS變數，刪除選擇集之標註物件
 )
 (SETQ SS (SSGET (list (cons 0 "CIRCLE") (cons 8 "文字"))))
 (COMMAND "ERASE" SS "");;;取出SS變數，刪除選擇集之圓物件
 )
 (SETQ SS (SSGET (list (cons 0 "HATCH") (cons 8 "文字"))))
 (COMMAND "ERASE" SS "");;;取出SS變數，刪除選擇集之填充線物件
 )

可以將 元體性質 組合，加上 , 即可。
(setq ss (ssget (list (cons 0 "LINE,TEXT,DIMENSION,CIRCLE,HATCH") (cons 8 "文字"))))

謝謝你蘋果霸你的指導
(DEFUN C:SDY15 ()
(SETQ SS (SSGET (list (cons 0 "LINE,TEXT,DIMENSION,CIRCLE,HATCH") (cons 8 "Y15"))))
(COMMAND "ERASE" SS "");;;取出SS變數，刪除選擇集之物件
) 謝謝你

shyrchu 寫到:謝謝你蘋果霸你的指導
(DEFUN C:SDY15 ()
 (SETQ SS (SSGET (list (cons 0 "LINE,TEXT,DIMENSION,CIRCLE,HATCH") (cons 8 "Y15"))))
 (COMMAND "ERASE" SS "");;;取出SS變數，刪除選擇集之物件
 ) 謝謝你

謝謝回報以解決
其實這問題我之前有回答過你😁
https://www.autocad-tw.com/t28746-topic#180122