[討論]請問LISP如何在插入圖塊時分解圖塊?

巨集的寫法如下:
^C^C-INSERT;*半圓頂料10X8;/;1;;
對巨集來說,圖塊名稱前加*是插入圖塊時順便將這個圖塊分解(變成不是圖塊),用在LISP上一樣加*卻不行,不知LISP的語法如何寫?
LISP如下:
(command "-INSERT" "*半圓頂料10X8" PAUSE "1" "0")
程式裡加了*則在游標上無法顯示圖形,沒加*會顯示圖形,而且會隨游標移動而移動,如何以LISP做到隨游標移動而顯示圖形,並在插入時分解圖塊?
請各位高手解答,謝謝

;再修正
(defun c:test()
(setvar "cmdecho" 0)
(setvar "attreq" 0) ;關閉屬性對話框
(command "-INSERT" "半圓頂料10X8" PAUSE "1" "" "")
(command "explode" "l") ;炸開插入的圖塊
(setvar "cmdecho" 1)
(setvar "attreq" 1) ;打開屬性對話框
(princ)
)

shenhung 寫到:;再修正
(defun c:test()
(setvar "cmdecho" 0)
(setvar "attreq" 0) ;關閉屬性對話框
(command "-INSERT" "半圓頂料10X8" PAUSE "1" "" "")
(command "explode" "l") ;炸開插入的圖塊
(setvar "cmdecho" 1)
(setvar "attreq" 1) ;打開屬性對話框
(princ)
)

謝謝shenhung的指導,我的做法如下:
(defun c:test()
(setvar "cmdecho" 0)
(setvar "attreq" 0) ;關閉屬性對話框
(command "-INSERT" "半圓頂料10X8" PAUSE "1" "" "")
(setq
P1 (getvar "LASTPOINT")
PT1 (list (car P1) (+ (cadr P1) 2))
PTW1 (polar PT1 (/ (* 45 PI) 180) 10)
PTW2 (polar PT1 (/ (* 225 PI) 180) 10)
)
(command "ZOOM" PTW1 PTW2)
(command "EXPLODE" PT1)
(setvar "cmdecho" 1)
(setvar "attreq" 1) ;打開屬性對話框
(princ)

不過我想要的是不要用到炸開EXPLODE的指令,像巨集的做法,直接在-INSERT下參數即可插入圖塊時順便分解圖塊(INSERT指令裡有個分解的勾選選項,-INSERT裡却沒有)
INSERT:視窗輸入
-INSERT:指令行輸入

插入分解的圖塊：在圖塊名稱前加上星號 (*)，將分解圖塊並插入該圖塊的各個部份。圖塊定義不會加入到圖面中。
原圖塊名稱：C1
插入的圖塊名稱：*C1
這樣就不會用到explode的指令。

Atsai 寫到:插入分解的圖塊：在圖塊名稱前加上星號 (*)，將分解圖塊並插入該圖塊的各個部份。圖塊定義不會加入到圖面中。
原圖塊名稱：C1
插入的圖塊名稱：*C1
這樣就不會用到explode的指令。

這個方法在巨集可行,可是在LISP卻不行,還有,我要的效果如下:
(command "-INSERT" "*半圓頂料10X8" PAUSE "1" PAUSE)
紅色的PAUSE是我要在插入圖塊後(可預見圖塊的角度)再輸入旋轉角度(不要事先輸入)