캐드 분류
선배님들 리습 새내기 질문 있습니다.
컨텐츠 정보
- 201 조회
- 5 댓글
- 0 추천
- 0 비추천
- 목록
본문
안녕하세요. 선배님들,
다름아니라 제가 설계하는데 있어서 간단한 명령어를 통해 만드려고 하는데
좌즉 점과 우측 점을 통해서 사각형을 구현하는데 까지는 성공하였습니다.
여기에 repeat함수랑 getint함수를 사용해서 입력받은 값 만큼 사각형안에 y축으로 나누어주고 싶은데
질문있어서 조심스레 글 남겨봅니다.
(setq pt1 (getpoint "좌측 하단점을 입력하세요" ))
(princ "우측 상단점을 입력하세요")
(setq pt2 (getpoint pt1))
(setq pt3 (list
(car pt2)
(cadr pt1)
)
)
(setq pt4 (list
(car pt1)
(cadr pt2)
)
)
//(setq mpt1 (list // mpt는 제가 따로 테스트용으로 만든거라 무시하셔도 됩니다!! //
(/ (+(car pt1)(car pt3)) 2)
(cadr pt1)
)
)
(setq mpt2 (list
(car pt3)
(/ (+(cadr pt3)(cadr pt2)) 2)
)
)
(setq mpt3 (list
(/ (+(car pt2)(car pt4)) 2)
(cadr pt2)
)
)
(setq mpt4 (list
(car pt4)
(/ (+(cadr pt1)(cadr pt4)) 2)
)
)
(command "line" pt1 pt3 pt2 pt4 pt1 "")
//(command "line" mpt1 mpt2 mpt3 mpt4 mpt1 "")//
(princ)
)
관련자료
댓글 5