캐드리습문의드립니다.<br>캐드리습문의드립니다.
컨텐츠 정보
- 224 조회
- 1 댓글
- 0 추천
- 0 비추천
-
목록
본문
캐드리습을 사용중인다. 지적도shp파일을 dxf로 변환후 지번을 넣기위해 사용하는 리습인데요.
이 리습에 도형 간격띄우는것을 추가하고 싶습니다. 예를들면 책상배치 하는것처럼말이죠.
부탁드립니다. 어떻게해야하는건지 도무지 알 수 없어 문의드립니다.
(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)
)