> 김마리님 글... > 게시판의 리습강좌를 열심히 공부하는 학생입니다. > 리습을 처음하는 정말 초보인데요... > 3차로 계단그리기를 짜보고 있는데 잘 안되네요... > 변수형이 틀린것 같기도 하고 > 여기 제가 짜본걸 적나라하게 올릴테니 > 틀린 곳을 꼭 집어 주세요. ^^; > 감사합니다. 꾸뻑! > > > (defun gerr(g) > (if (/= g "Function cancelled") > (princ (strcat "\nError: " g)) > ) > ) > > (defun C:stair3d() > (setq bp (getpoint "\n 계단 시작점? ")) > (setq width (getreal "\n 계단 가로폭? ")) > (setq tread (getreal "\n tread 치수? ")) > (setq riser (getreal "\n riser 치수? ")) > (setq n (getint "\n 계단 갯수?" )) > (command "ucs" "w" "") > (command "box" bp (list (+ (car bp) width) (+ (cadr bp) tread)) > "50" "") > (setq box (entlast)) > (command "ucs" "za" bp (list (+ (car bp) width) (cadr bp))) > (setq fp '(0.0 0.0 0.0)) > (repeat (- n 1) > (setq sp (list (- (car fp) (* 0.8 tread)) (+ (cadr fp) riser))) > (command "copy" box "" fp sp) > (setq box (entlast)) > (setq fp sp) > > ) > (command "ucs" "p" "") > ) > > > 아참, 제가 의도했던걸 설명드려야 겠군요. > 일직선형 계단으로 그냥 box가 n번 반복되는 형태이고 > box를 하나그린뒤 ucs를 옆면으로 바꿔서 copy를 > repeat하려고 하는데 기준점을 잘못잡고있는것 같습니다. > 도움 부탁합니다. > > > > - - - - - - - - - - - - - - - - - - - - - 마티.. 김남갑입니다. 제가 위 리습을 수정해 놓았으니.. 수정한 부분을 찾아보세요. 우선.. 윗부분 에러처리 함수는 호출한 부분이 없으므로 있으나마나 한 함수입니다. (if (not olderr)(setq olderr *error* *error* *gerr*)) 같은 방법으로 초기화를 해 주어야겠죠? 그리고.. 만일 호출을 한다고 하더라도 if함수 앞에 괄호가 빠져 있어서 에러가 납니다. 아.. 끝나는 부분에도 괄호가 빠졌네요. 그리고 본문 리습에서 에러가 나는 부분은 fp변수의 초기화가 잘못 되었네요. 원래는 (setq fp '(0,0)) 이라고 되어 있었지요? 리스트 안에서는 컴마로 구분하면 안됩니다. 그냥 한칸식 띄우면 개별적인 리스트로 됩니다. 그리고 제가 정확히 하기 위해서 0을 0.0으로 고쳤습니다. 자.. 이렇게 하고 로딩해서 실행 하면 아마 잘 돌아갈겁니다. 그리고 참고로... (setq width (getreal "\n 계단 가로폭? ")) 이라고 한 부분에선, getreal을 쓰는것 보다는 getdist를 쓰는게 더 좋겠지요? 또하나.. 리습에서는 cmdecho를 가능한 한 0으로 설정하세요. 디버깅 하지 않는 한 말이지요. 그럼 내내 건투를 빕니다. 마티.. 김남갑.