如何在 LSIP 使用 explode

菜鳥發問請多包涵

(defun c:TT1()
(setq AP3 (getpoint "\n左上點:"))
(setq AP1 (getpoint AP3 "\n右下點:"))
(command "_explode" "C" AP3 AP1 "") ;<= *無效的選取*
)

(defun c:TT2()
(setq AP3 (getpoint "\n左上點:"))
(setq AP1 (getpoint AP3 "\n右下點:"))
(command "_erase" "C" AP3 AP1 "")
)



想請較為何執行 TT1 會顯示以下錯誤 TT2不會

*無效的選取*
應有一個點或 前次(L)/全部(ALL)/群組(G)
; 錯誤: 函數被取消

可否教我 在 lisp 內使用explode

參考看看

代碼:

(command "_.explode" (ssget "C" (getpoint) (getpoint)) "")

至於兩邊的差別只能請教高手了

感謝你回應
我試過了
這樣做確實可以

這樣作只分解了一個物件
在窗選的區域內有多個物件要作分解
要如何作

好像是分解指令在LISP只能對一個物件使用
用while迴圈來循環全部解決

代碼:

(setq SelObjs (ssget "C" (getpoint) (getpoint)));或不限定選取方式直接用(ssget)
(setq N -1)
(while (setq SelObj (ssname SelObjs (setq N (1+ N))))
    (command "_.explode" SelObj)
    )

在LISP
分解指令 似乎真的只能一次一個

這樣我懂了
謝謝你

WATSON513 寫到:在LISP
分解指令 似乎真的只能一次一個

這樣我懂了
謝謝你

可以加入早期這個 QAFLAGS系統變數，設置為1即可多個分解

代碼:

(defun c:TT1()
 (setq AP3 (getpoint "\n左上點:"))         
 (setq AP1 (getpoint AP3 "\n右下點:"))
  (setvar "QAFLAGS" 1) ;<= *加入此行*
 (command "_explode" "C" AP3 AP1 "") 
)


感謝蘋果爸
提供"QAFLAGS"這個系統變數
剛實測了可以用

QAFLAGS這個系統變數
在2016版本 說明裡似乎沒有資料
我在這裡
https://www.autocad-tw.com/t14991-topic
相關的說明

剛使用發現QAFLAGS不只影響分解指令
也影響插入圖塊指令

WATSON513 寫到:感謝蘋果爸
提供"QAFLAGS"這個系統變數
剛實測了可以用

QAFLAGS這個系統變數
在2016版本 說明裡似乎沒有資料
我在這裡
https://www.autocad-tw.com/t14991-topic
相關的說明

剛使用發現QAFLAGS不只影響分解指令
也影響插入圖塊指令

通常程式中我還會把它QAFLAGS還原為0
其他的指令才不會受影響～

了解了
謝謝你