캐드 분류
연속해서 리습사용하는법
컨텐츠 정보
- 236 조회
- 2 댓글
- 0 추천
- 0 비추천
- 목록
본문
(defun c:REXX()
(setq osm (getvar "osmode")) ; OS; 저장
(command "ortho" "off")
(setq p1 (getpoint "n 대각 한쪽 끝선 :"))
(setq p2 (getcorner p1 "n 대각 반대편 끝선 :"))
(setq p12 (list (car p1) (cadr p2)))
(setq p21 (list (car p2) (cadr p1)))
(command "osnap" "")
(command "line" p1 p2 "" "line" p12 p21 "")
(setvar "osmode" osm) ; OS 불러오기
(princ)
)
사용하고 멈추지말고 다으믕로 연속해서 사용할수없나요
마지막에 찍은 p2가 다음명령어의 P1이 되게끔 하려면 어떻게해야할까요