이 리습에 도형 간격띄우는것을 추가하고 싶습니다. 예를들면 책상배치 하는것처럼말이죠.
부탁드립니다. 어떻게해야하는건지 도무지 알 수 없어 문의드립니다.
(defun c:go()
 (setq pt1 (getpoint “n표의 좌측하단 시작점?”)
       row_n (getint “n행의 갯수?”)
       clm_n (getint “n열의 갯수?”)
       row_d (getdist pt1 “n셀의 높이?”)
       clm_d (getdist pt1 “n셀의 너비?”)
       row_g (getreal “n줄개수?”)
       clm_gn(getreal “n칸간격?”)
       row_t_len (* row_n row_d) 
       clm_t_len (* clm_n clm_d)    
 )
 (setq x (car pt1)
       y (cadr pt1)
 )
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   (setq n 0)
     (while (<= n row_n) 
               (setq pt1 (list x (+ y (* row_d n)))  
                     pt2 (list (+ x clm_t_len) (+ y (* row_d n)))  
                     n (+ n 1)  
               )
            (command “line” pt1 pt2 “”)
     )
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   (setq m 0)
     (while (<= m clm_n)
               (setq pt3 (list (+ x (* clm_d m)) y)
                     pt4 (list (+ x (* clm_d m)) (+ y row_t_len))
                     m (+ m 1)  
               )
            (command “line” pt3 pt4 “”)
     )
  (setq x1 x1)
  (setq y1 (+ y1 g))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   (redraw)
)