AutoLISP

repeat 은 다음의 정수만큼 그다음의 문장들을 반복 실행합니다

(repeat 반복수 실행문)

예제 <청색 문장들이 반복됨>

(setq ss (ssget)) ; 객체 다수를 선택

필터로 희망하는 객체의 종류를 필터하는 과정<예제에서는 생략>

(setq ssno (sslength ss))     ; 선택한 ss 의 객체갯수를 ssno 저장
(setq no 0) ; 반복진행의 원점수 설정
(repeat ssno ; 객체수 ssno 만큼 반복선언

        (setq entname (ssname ss no))  ; 객체중 no번째 객체 호출 0은 첫번째 객체

        entname 객체를 다루는 문장들

         여러분둘 목적에 맞게 작성

        (setq no (1+ no)) ; 객체 다음순번 지정, ssno 반복시 객체 전체를 다루는 결과

) ;; end repeat

객체의 수량만큼 반복하므로 선택한 모든 객체를 빠짐없이 다루는 결과를 얻습니다

사용자 임의 변수 ss  ssno  no  entname

다음 예제는 lineno 정의가 nil 이 될때까지 계속 반복 실행합니다

사전 정의변수 객체집합 line 점 p1 p2 

     (setq no 0) 
     (repeat lineno (setq linename (ssname line no))  (command "break" linename p1 p2)  (setq no (1+ no))  ) ;; end repeat

반복마다 객체이름이 1 씩 증가하는 청색문장 응답이 nil이아니면 계속 반복 합니다

RTOS 는 실수를 문자로 변환하여 줍니다

메세지 출력용 문자로 활용 됩니다

(rtos 실수  표기법  소숫점이하자릿수)

(rtos dl 2 2) ; 실수인 dl 을 2=십진법  2= 소숫점이허두자릿수 인 문자로 응답합니다

활용 예제

계산된 실수값들을 하나의 문장으로 만들고 그 결과를 출력합니다

 (setq mesg (strcat " Pulley1= Ø" (rtos dl 2 2) "   Pulley2= Ø" (rtos ds 2 2) "   Distance of Center= " (rtos cen 2 2) "  Belt length= " (rtos Len 2 2) "  " )) 
     (alert mesg)

표기법(모드) 

 Mode 1 = scientific    1.7500E+01 

Mode 2 = decimal      17.50

Mode 3 = engineering  1'-5.50" 

Mode 4 = architectural  1'-5 1/2" 

Mode 5 = fractional    17 1/2