1)  (if (= nil (tblsearch "layer" "DIM")) ::이게 dim이라는 레이어를 검색해보고 없으면 2)번과 같이 만들어 줍니다

-------------------------------

(defun c:asd()
 (setq aa (tblsearch "layer" "DIM"))
 (if (= aa nil) (COMMAND "layer" "m" "DIM" "c" "3" "" "L" "continuous" "" ""))

..........................

 (setq aa (tblsearch "layer" "DIM"))
 (if (/= 3 (cdr (assoc 62 aa))) (command "layer" "c" 3 "DIM" ""))
)

--------------------------------

 

(tblsearch "layer" "DIM") 이렇게 하면 아래와 같이 응답이 됩니다.
((0 . "LAYER") (2 . "DIM") (70 . 0) (62 . 2) (6 . "Continuous"))