블럭 삽입 리습인데 cad에서 사용가능한데 cadian에서는…

제가 CAD에서 적용하던 리습인데 케드안에서는 적용이 되지않아서요…
왜 적용이 안되는 건지 고수님들의 말씀 부탁드립니다.

(defun c:블럭명 nil
    (initget “A1 A2 A3 A4 A5”)
    (setq *item*
        (cond
            (
                (getkword
                    (strcat “nA1, A2, A3, A4, A5  <“
                        (setq *item*
                            (cond ( *item* ) ( “A1” ))
                        )
                    “>: “
                    )
                )
            )
            ( *item* )
        )
    )
    (cond 
        ((= *item* “A1” ) (vl-cmdf “insert” “c:/A1.dwg” pause “1” “1” “0”))
        ((= *item* “A2” ) (vl-cmdf “insert” “c:/A2.dwg” pause “1” “1” “0”))
        ((= *item* “A3” ) (vl-cmdf “insert” “c:/A3.dwg” pause “1” “1” “0”))
        ((= *item* “A4” ) (vl-cmdf “insert” “c:/A4.dwg” pause “1” “1” “0”))
        ((= *item* “A5” ) (vl-cmdf “insert” “c:/A5.dwg” pause “1” “1” “0”))
        )
(command “EXPLODE” “L”)
)