블럭삽입리습 수정부탁드립니다.

밑에 리습은 DIMSCALE에 크기의 변동이있는데…
항상 삽입하면 1:1로 삽입되게 하려면 어떻게 변경해야되나여?

===========================================================================
(defun c:MARK nil
    (initget “1 2 3 4”)
    (setq *item*
        (cond
            (
                (getkword
                    (strcat “n1:MARK-1, 2:MARK-2, 3:MARK-3, 4:MARK-4  <“
                        (setq *item*
                            (cond ( *item* ) ( “1” ))
                        )
                    “>: “
                    )
                )
            )
            ( *item* )
        )
    )
    (cond
        ((= *item* “1” ) (vl-cmdf “insert” “MARK-1.dwg” pause (getvar ‘dimscale) “” 0))
        ((= *item* “2” ) (vl-cmdf “insert” “MARK-2.dwg” pause (getvar ‘dimscale) “” 0))
        ((= *item* “3” ) (vl-cmdf “insert” “MARK-3.dwg” pause (getvar ‘dimscale) “” 0))
        ((= *item* “4” ) (vl-cmdf “insert” “MARK-4.dwg” pause (getvar ‘dimscale) “” 0))
        )
===========================================================================