심볼 균등배치하는 lisp인데 이상해요

리습 내용을 보니 전등이 불켜는 전등을 말하는 것인가요???

(defun C:jd (/ M S P1 P2 XN YN XL YL XI YI Q Z R )   ;Arrange of the lighting fixture    (SETVAR "CMDECHO" 0)    (prompt "n전등을 자동으로 위치시킴.. edit by.. odh")       (setq xyxy(ssget))       (setq z(entget (ssname xyxy 0)))       (setq z1(assoc 10 z))       (setq pp1(cdr z1))       (setvar "osmode" 32)       (setq P1(getpoint "First point "))(terpri)       (setq P2(getcorner P1 "Second point "))(terpri)       (setvar "osmode" 255)       (setq YN(getint "Divide numbers (VER–) :"))(terpri)       (setq XN(getint "Divide numbers (HOR||) :"))(terpri)       (setq XL(/ (- (car P2) (car P1)) XN))       (setq XI(/ XL 2))       (setq YL(/ (- (cadr P2) (cadr P1)) YN))       (setq YI(/ YL 2))       (setq q (list (+ (car P1) XI) (+ (cadr P1) YI)))      (COMMAND "move" xyxy "" pp1 q "")   (IF (AND (= XN 1) (= YN 1)) (PROMPT "ARRANGE ONLY ONE ")       (IF (AND (/= XN 1) (/= YN 1))       (COMMAND "ARRAY" xyxy "" "R" YN XN YL XL)    (IF (= XN 1)    (COMMAND "ARRAY" xyxy "" "R" YN XN YL)    (COMMAND "ARRAY" xyxy "" "R" YN XN XL)    )

      )

  ) (PRINC "nedit.. odh") (princ) )

; 리습 내용중에서

범위를 벗어나는 경우에는 X Y 값을 재조정 해야 할 것 같습니다.   (setq XI(/ XL 2))    <—- 이 부분의 숫자가 X값인데, 이것을 큰 수로 바꿔보시면 될듯~

;

(setq XI(/ XL 2))    =>(setq XI(/ XL 2.0)) or (setq XI(* 0.5 XL)) 

(setq XL(/ (- (car P2) (car P1)) (float XN))) (setq XI(/ XL 2.0)) (setq YL(/ (- (cadr P2) (cadr P1)) (float YN))) (setq YI(/ YL 2.0))