홈/ 질문/Q 108207
다음
진행 중
Lv.0
등록일: 2017-03-31T11:03:16+09:00 카테고리:

리습질문(초보)

캐드도면에 점을찍을때마다 사각형이그려지는 리습을만들려하는데요..
(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부터 어떻게해야할지 도무지 감이안잡힙니다. 도와주시면 감사하겠습니다.
공유

    관련 있는 질문들

    1 답변

    1. aalan
    2. Lv.21
      일단 사각형을 그리려면 꼭지점이4개가 필요하죠? (정사각형 기준입니다 )
      (defun c:ff()
      (defun dtr(a)(* pi(/ a 180.0)))
       (setq p1(getpoint “n시작점을 입력하세요:”))
       (setq len(getreal “n변의 길이를 입력하세요:”))
       (setq p2(polar p1 (dtr 90)len)) ; p1에서 90도 방향으로 변의길이만큼 이동한 포인트 
       ;(setq p2(list (car p1)(+ (cadr p1) len))) ; 위 구문과 같음 
       (setq p3(polar p2(dtr 0)len)) ; p2에서 0도 방향으로 변의길이만큼 이동한 포인트 
       ;(setq p3(list (+ (car p2) len)(cadr p2))) ; 위 구문과 같음 
       (setq p4(polar p3 (dtr 270)len)) ; p3에서 270도 방향으로 변의길이만큼 이동한 포인트 
       ;(setq p4(list (car p3)(- (cadr p3)len))) ; 위 구문과 같음 
       (command “_.line” p1 p2 p3 p4 p1 “”)
       ;(command “_.line” p1 p2 p3 p4 “c”) ; 또다른 버전 
       (princ)
      ) 
      • 0