使用鍵盤數字輸入數字插入圖塊時能使圖塊分解

老師早請問這語法我使用鍵盤數字輸入128插入圖塊時沒有問題(請問老師能再幫我加入語法使圖塊分解嗎
(DEFUN C:128 () (COMMAND "INSERT" "new128 block.DWG" (GETPOINT) "" "" ""))
(DEFUN C:129 () (COMMAND "INSERT" "new129 block.DWG" (GETPOINT) "" "" ""))
(DEFUN C:1210 () (COMMAND "INSERT" "new1210 block.DWG" (GETPOINT) "" "" ""))
(DEFUN C:1211 () (COMMAND "INSERT" "new1211 block.DWG" (GETPOINT) "" "" ""))
(DEFUN C:158 () (COMMAND "INSERT" "new158 block.DWG" (GETPOINT) "" "" ""))
(DEFUN C:159 () (COMMAND "INSERT" "new159 block.DWG" (GETPOINT) "" "" ""))
(DEFUN C:1510 () (COMMAND "INSERT" "new1510 block.DWG" (GETPOINT) "" "" ""))
(DEFUN C:1511 () (COMMAND "INSERT" "new1511 block.DWG" (GETPOINT) "" "" ""))
(DEFUN C:1512 () (COMMAND "INSERT" "new1512 block.DWG" (GETPOINT) "" "" ""))
(DEFUN C:1513 () (COMMAND "INSERT" "new1513 block.DWG" (GETPOINT) "" "" ""))
(DEFUN C:1514 () (COMMAND "INSERT" "new1514 block.DWG" (GETPOINT) "" "" ""))
謝謝你

shyrchu 寫到:老師早請問這語法我使用鍵盤數字輸入128插入圖塊時沒有問題(請問老師能再幫我加入語法使圖塊分解嗎
(DEFUN C:128 () (COMMAND "INSERT" "new128 block.DWG" (GETPOINT) "" "" ""))
(DEFUN C:129 () (COMMAND "INSERT" "new129 block.DWG" (GETPOINT) "" "" ""))
(DEFUN C:1210 () (COMMAND "INSERT" "new1210 block.DWG" (GETPOINT) "" "" ""))
(DEFUN C:1211 () (COMMAND "INSERT" "new1211 block.DWG" (GETPOINT) "" "" ""))
(DEFUN C:158 () (COMMAND "INSERT" "new158 block.DWG" (GETPOINT) "" "" ""))
(DEFUN C:159 () (COMMAND "INSERT" "new159 block.DWG" (GETPOINT) "" "" ""))
(DEFUN C:1510 () (COMMAND "INSERT" "new1510 block.DWG" (GETPOINT) "" "" ""))
(DEFUN C:1511 () (COMMAND "INSERT" "new1511 block.DWG" (GETPOINT) "" "" ""))
(DEFUN C:1512 () (COMMAND "INSERT" "new1512 block.DWG" (GETPOINT) "" "" ""))
(DEFUN C:1513 () (COMMAND "INSERT" "new1513 block.DWG" (GETPOINT) "" "" ""))
(DEFUN C:1514 () (COMMAND "INSERT" "new1514 block.DWG" (GETPOINT) "" "" ""))
謝謝你

圖塊名稱 前面加入 * 號即可

代碼:

(DEFUN C:指令名 () (COMMAND "INSERT" "*圖塊名稱.DWG" (GETPOINT) "" ""))