캐드 분류
리습질문(초보)
컨텐츠 정보
- 277 조회
- 1 댓글
- 0 추천
- 0 비추천
- 목록
본문
캐드도면에 점을찍을때마다 사각형이그려지는 리습을만들려하는데요..
(defun c:box1()
(setq h 10)
(setq x1 5)
(setq y1 4)
(setq p1 (getpoint "점을 입력하세요"))
(setq p2 (getreal "크기를입력하세요"))
(setq y2 (+ y1 h ))
(setq x3 (+ x1 h ))
(setq y3 (+ x1 h ))
(setq x4 (+ x1 h ))
(setq y4 (+ y1 0 ))
(setq p1 (list x1 y1 ))
(setq p2 (list x2 y2 ))
(setq p3 (list x3 y3 ))
(setq p4 (list x4 y4 ))
(command "line" p1 p2 p3 p4 p1 )
); defun end
p2부터 어떻게해야할지 도무지 감이안잡힙니다. 도와주시면 감사하겠습니다.