老師我在畫圖時使用共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

能在選項版寫上巨集 至移動我要移動的圖層嗎？
(DEFUN C:SS1 ()
(SETQ SS (SSGET (list (cons 0 "TEXT") (cons 8 "主筋文字"))))
(COMMAND "MOVE" SS "");;;取出SS變數，移動選擇集之標註物件
)
選項版如果有移動圖層的巨集，我在選項板＇做圖修改就比較方便請問老師可以嗎？

請詳述需求...
你是要 選擇過濾出 某一個 圖層物件，然後要將其 移動 嗎?

老師你好 是的 在選項板 新增巨集來過濾篩選TEXT圖層 指定移動選擇集之TEXT物件的圖層
以方便施工做圖謝謝你

shyrchu 寫到:老師你好  是的 在選項板 新增巨集來過濾篩選圖層  指定移動選擇集圖層之物件
以方便施工做圖謝謝你

(DEFUN C:LL1 ()
  (SETQ SS (SSGET (list (cons 8 "主筋文字"))))
  (COMMAND "MOVE" SS "");;;取出SS變數，移動選擇集之圖層物件
)

在AutoLISP中，(ssget (list (cons 8 "TEXT"))) 的作用是選取位於特定圖層上的所有實體。讓我更詳細地解釋：

ssget：這是一個用於選取實體的函數，它可以根據不同的選取集過濾條件來選取AutoCAD圖形中的實體。

(list (cons 8 "TEXT"))：這是一個選取集過濾條件。在這裡，(cons 8 "TEXT") 創建了一個鍵值對，其中鍵 8 代表圖層，值 "TEXT" 代表圖層的名稱。

老師你好 這樣對嗎^c^c_MOVE;(ssget (list (cons 8 "主筋文字")))

請問老師這請況可以改善嗎 在選項版使用拉伸巨集後發現(線只跟者移動而已)沒有做到拉伸
在選項版使用^C^C_STRETCH;(ssget (list (cons 8 "主筋文字,主筋文字引線")))

shyrchu 寫到:請問老師這請況可以改善嗎 在選項版使用拉伸巨集後發現(線只跟者移動而已)沒有做到拉伸
在選項版使用^C^C_STRETCH;(ssget (list (cons 8 "主筋文字,主筋文字引線")))

拉伸不能這樣用，會變成移動

shyrchu 寫到:老師你好  這樣對嗎^c^c_MOVE;(ssget (list (cons 8 "主筋文字")))

不能這樣用，你直接用上面我寫的程式即可

在工具選項板中的巨集可以這樣寫
^c^cLL1;

老師你好 每次要將圖檔列印出來，這鋼筋(配筋照片標示尺寸黏在一起，使施工人員看不請楚 每次需我做手動拉伸將其文字距離調開  如文字連在一起列印出來就模糊不清，所以要做拉伸 做拉伸就是要過濾圖層進行拉伸動作^C^C_STRETCH;(ssget (list (cons 8 "主筋文字,主筋文字引線")))請問這語法要如何做修正才能過濾圖層進行拉伸動作謝謝你

shyrchu 寫到:老師你好 每次要將圖檔列印出來，這鋼筋(配筋照片標示尺寸黏在一起，使施工人員看不請楚 每次需我做手動拉伸將其文字距離調開  如文字連在一起列印出來就模糊不清，所以要做拉伸 做拉伸就是要過濾圖層進行拉伸動作^C^C_STRETCH;(ssget (list (cons 8 "主筋文字,主筋文字引線")))請問這語法要如何做修正才能過濾圖層進行拉伸動作謝謝你

拉伸不能這樣用，因為你會選到線會變成移動，最後仍然需要手動方式再把線延伸