안녕하세요.
신입회원입니다.
이전부터 고수님들 리습 올려주신 것을 잘 검색해서 활용하고 있던
초짜 중의 초짜 입니다.
엑셀도 캐드도 VBA 관심도 많고 배우고 싶은데, 아예 기초가 없다보니 독학으로는
쉽지 않은게 사실이네요.
풋 웃음이 나오셔도 이해 부탁드리오며..
3각법으로 도면을 작성하다보면, 동심원을 그릴 일이 많은데요
매번 써클에 센터 찍고 포인트 찍고 하는 일이 너무 노가다라서…
여러분들께서 올려주신 리습을 짜집기 해보았는데, 예상했던 대로 문제점이 좀 있네요
혼자 낑낑대는것 보단 도움 받으면서 하나하나 배우는게 좋을 것 같아 문의 올립니다.
(defun c:CCC ()
(setvar “cmdecho” 0)
(setvar “orthomode” 1)
(command “layer” “s” “0” “”)
(setq cxy (getpoint “n중심점 지정 : “))
(setq cc1 (getpoint “n첫번째 원 지정 : “))
(setq cc2 (getpoint “n두번째 원 지정 : “))
(setq cc3 (getpoint “n세번째 원 지정 : “))
(setq cc4 (getpoint “n네번째 원 지정 : “))
(setq cc5 (getpoint “n다섯번째 원 지정 : “))
(setq cc6 (getpoint “n여섯째 원 지정 : “))
(setq cc7 (getpoint “n일곱째 원 지정 : “))
(setq cc8 (getpoint “n여덟째 원 지정 : “))
(setq cc9 (getpoint “n아홉째 원 지정 : “))
(command “circle” cxy cc1)
(command “circle” cxy cc2)
(command “circle” cxy cc3)
(command “circle” cxy cc4)
(command “circle” cxy cc5)
(command “circle” cxy cc6)
(command “circle” cxy cc7)
(command “circle” cxy cc8)
(command “circle” cxy cc9))
제가 반복구문 같은것도 쓸 줄 모르고, 꼭 9개의 동심원을 그리는 것도 아닌데 할줄 몰라서
일단 되나 보려고 만들어서 실행만 해보았거든요, 다섯개를 그릴 때도 있고 아홉개보다
더 많은 원을 그릴 경우도 있는데,, 이렇게 해놓으면 무조건 9개의 점을 입력해야 하고,,
잉여의 스페이스바를 두드리게 되니까… 어떻게 고치면 좋을까요…
세련되게 탈바꿈할 수 있는 조언 부탁 드립니다.
가능하면,, ^^;;; 제가 왕 초짜니까 알아볼 수 있도록 쉬운걸로 부탁 드려요!!!
공유