안녕하세요
저는 리습초보 입니다. 검색으로 공부하고 있는데요
너무 답답하고 몰라서 질문 드립니다. ㅠㅠ
도면안에 블록을 복사해서 불러오는 리습을 만들려고합니다.
한 파일의 도면스케일에 따라서 블록의 스케일을 바꿔야하는데
한 도면에 40개정도의 블록을 씁니다. 그렇기 때문에 스케일을 한번 지정하면
작업 끝날 때까지는 계속 그 값을 가지고 작업을 하고 다른 스케일의 도면작업을 할때
다시 스케일 지정을해서 변경된 스케일의 블록을 복사해서 사용하려고합니다.
구상 계획은 한개의 리습(1개의 txt)에 2가지 명령어(t1,t2)를 써서
t1 명령어로는 스케일과 회전 값을 입력 받아서 저장
t2 명령어로는 t1값을 받아서 블록을 복사해오려고합니다.
t1 명령어의 값을 인식을 못하는것같은데 어떻게 해야 해결할수 있을지 문의드립니다.
값만 불러올수있으면 해결이 가능할것 같은데 도와주세요!!
(defun c:t1 ()
(setq sc (getint “스케일 입력 : “)) ;스케일만 일단 테스트 하려고 한줄만 적었습니다.
(princ sc)
(princ)
)
(defun c:t2 (/ pt)
(setq pt (getpoint “n삽입점.”))
(command “-insert” “later40A” “_non” pt “sc” “sc” “90”) ;x 스케일 , y스케일, 회전각도
(princ)
)
아 그렇군요! 감사합니다 제가 초보라서 그 생각을 미처 못했네요 도움이 엄청 됐습니다!! 감사합니다 ㅠㅠ
그렇군요! 충돌 우려를 전혀 생각하지 못했네요;; 변수를 길게 해서 다른 리습과 충돌을 피하도록 하겠습니다. 감사합니다 +_+
감사합니다 많은 도움으로 완성할수있었습니다! (^^)(__)
(defun c:t1 ()
(setq scale_xyint (getint “스케일 입력 : “))
(princ scale_xyint)
(princ)
)
(defun c:r1 ()
(setq rotate_angint (getint “회전각도 : “))
(princ rotate_angint)
(princ)
)
(defun c:t2 (/ pt)
(setq pt (getpoint “n삽입점.”))
(while (= rotate_angint nil) ; rotate_angint값이 nil이면 0
(setq rotate_angint 0)
)
(while (= scale_xyint nil) ; scale_xyint값이 nil이면 1
(setq scale_xyint 1)
)
(command “-insert” “later40A” “_non” pt scale_xyint scale_xyint rotate_angint) ;x 스케일 , y스케일, 회전각도
(princ)
)