AutoLISP

assoc 는 객체의 세부 정보를 응답하여 줍니다

assoc 문장 형식

(assoc 정보종류 객체)

정보종류는 DXF 코드로 정해져 있습니다

DXF 코드

Splines in the DXF

This is what I found regarding 70 bit code

1 = Closed spline
2 = Periodic spline
4 = Rational spline
8 = Planar
16 = Linear (planar bit is also set)

32.... 256 - knot param.

32 = chord
64 = sqrt. chord
128 = uniform
256 = custom

512 =  CV frame visibility
1024 = if present, the spline is defined by fit points. Otherwise, by control vertices.

예문 1

(srtq blkname (cdr (assoc 2 myblock)))

myblock 객체는 블록이며 블록에대한 dxf 2 는 블록이름 입니다

assoc에 대한 응답값은 쌍으로 된 list 이며 두번째 값이 블록이름 이므로 cdr 함수를 적용합니다

예문 2

먼저 문자하나를 textent 로 정의 

(setq p0 (cdr (assoc 10 textent)) ang (cdr (assoc 50 textent)))

 TEXT에 대한  assoc 10 은 문자의 위치점

assoc 50 은 문자의 회전각도

따라서 p0 는 문자의 시작 위치점이며 ang 는 문자의 회전각도 입니다

atoi 는 내용이 실수인 문자를 정수로 변환하여 줍니다

(atoi "1234.56")  ; 문자 1234.56 를 정수 1234 로 변환

ALERT 함수는 은 알람(경고)창을 띄워 줍니다   

그 알람창을 활용하여 리습의 결과를 알려주는 기능하기도 사용합니다

이 예제문은 아래 사진처럼 캐드 화면에 보여줍니다  

 (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)

setq 는 변수 선언 함수 입니다

mesg 는 리습작성자가 임의로 지은 변수 이름입니다

(setq mesg (값 )) ;; 괄호내의 값을 mesg로 한다. 이후 mesg의 결과는 괄호값이 됩니다

strcat 는 나열되는 text 단어들을 하나의 문장으로 만들어 줍니다

rtos 는 실수인 변수 dl 을 2=십진법  2=소숫점두자리 tetx 문자로 변환한 값을 줍니다

alret 는 숫자값이 아닌 문자값을 창으로 표현하므로 그 대상을 " "  로 문자화 해야 합니다