AutoLISP

STRLEN은 속성이 문자열에서 그 문자 갯수를 정수로 응답합니다

문자 갯수를 파악하여 수정 편집 기능 리습에 활용 됩니다

예제

  (setq txtsu (strlen oldstr)) ; 문자인 oldstr 의 문자갯수 정수를 txtsu 에 저장합니다

CADBOX  AUTOBOX 는 오토캐드에 강력한 기능들을 추가합니다

SUBST 예제

(setq selent(entsel "\n 객체 선택 " ))

; 하나의 객체를 선택합니다

(setq entname (entget selent))

; 선택한 객체의 이름을 저장합니다

(setq entname (subst (cons 8 "2") (assoc 8 entname) entname ))

;  subst 대체데이터 구데이터 교체대상

; subst 함수로 선택했던 entname의 레이어를(뭔지모르지만) "2" 레이어로 교체하여

; 새로운 객체를 생성하고 그 이름은 entname 덮어쓰기 저장합니다

; 교체대상은 엔티티이름이어야 합니다

(entmod entname)

; 내부 정보가 수정된 엔티티이름의 객체를 갱신표현 합니다

SUBST 는 객체의 내부 정보를 교체하여 수정하는 매우 강력한 함수입니다

CADBOX  AUTOBOX 는 오토캐드에 강력한 기능들을 추가합니다

ssadd 는 선택집합을 정의합니다

ssadd 예제

(setq ss (ssadd)) ;  null 인 선택집합 ss 정의. 

(ssadd e1 ss) ; 선택 집합 ss 에 e1 추가

sslength 는 선택된 다수의 객체 집합에서 그 객체의 수량을 응답하여 줍니다

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

(setq ssno (sslength ss))     ; 선택한 ss 의 객체갯수를 ssno 저장

setq 는 새로운 변수를 정의 합니다

변수를 정의함은 사용자 임의 변수명에 특정 조건이나 값을 저장하는 의미이기도 합니다

(setq abcd aaa) ; aaa의 값을 abcd 로 저장

이제 abcd를 호출하면 aaa 값을 줍니다

(setq e (entsel "\n메세지  ")) ; 메세지를 출력하여 하나의 객체를 선택하도록 합니다

사용자가 선택된 객체가 e 로 정의 됩니다

(setq pt1 (getpoint "\n메세지  ")) ; 메세지를 출력하여 한점을 찍도록 합니다

사용자가 찍은 점이 pt1 으로 정의 됩니다

(setq armm (getvar "area") ; 현재의 area 값을 aramm 으로 정의 합니다

(setq armm2 (strcat (rtos armm 2 1) " mm%%178" )) ; armm 의 실수값을 소숫점 한자리의 문자로 변경 mm 제곱 표시문과 합한 하나의 문장으로 만들어 armm2 로 정의 합니다

(setq ss (ssget)) ; 사용자가 다수의 객체를 선택하면 그 객체들을 ss 로 정의합니다

(setq arrayno (getint "\n 메세지  ") ; 사용자가 정수를 입력하도록 메세지를 출력하고 그 입력값을 arrayno 로 저장

(setq rdist (getreal "\n 메세지 ")) ; 사용자가 실수를 입력하도록 메세지를 출력하고 그 입력값을 rdist 로 저장

(setq pl2 (polar pl1 (* 270 angrad) (- ydist rdist2))) ; pl1 점에서 각도와 거리의 점을 pl2 로 정의 합니다

(setq pl6 (list (car pl5) (cadr pl1))) ; pl5 의 x 좌표  pl1  의 y 좌표 해당점을 pl6 으로 정의 합니다

(setq dd12h (/ (- dd2 dd1) 2) ) ; dd2 빼기 dd1 결과 값의 절반을 dd12h 로 정의 합니다

setq문을 연속하여 작성이 가능합니다

(setq

aaa bbb

e (entsel "\n메세지  ")

arrayno (getint "\n 메세지  ")

)

변수 이름은 일반문자 숫자로 명명이 가능합니다

특수문자들은 변수 명명이 불가합니다

pi mil null 등 고유함수는 변수 명명이 불가합니다

CADBOX  AUTOBOX 는 오토캐드에 강력한 기능들을 추가합니다

STRCAT 는 열거되는 문자들을 합쳐 하나의 문장으로 만듭니다

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