원의 Center Line 그리는 Lisp입니다. 수정 부탁드립니다.

     (defun c:cd (/ po pl ce q w)     
                    (setvar “cmdecho” 0)     
                    (setq po (getpoint “Select Circle : “))     
                     (command “dist” po “cen” po)     
                    (setq pl (getvar “distance”))     
                    (setvar “dimcen” (+ pl (* pl 0.1)))     
                    (command “dim1” “center” po)     
                    (command “id” “cen” po)     
                    (setq ce (getvar “lastpoint”))     
                    (setq q (list (- (car ce) 1) (- (cadr ce) 1))     
                          w (list (+ (car ce) 1) (+ (cadr ce) 1)))     
                    (command “chprop” “1” q w “” “la” “1” “1” “bylayer” “”))     
     
현제 도면 레이어에 Center Line은 1번으로 설정 되어있습니다. 원의 센터 라인중 세로 선이 0번 레이이로 됩니다. 가로선은 1번 레이어로 잘 설정되어 나오는데요. 뭐가 잘못된걸까요? 고수분들!!!알려주세요!!!