AutoLISP

도면번호 형식 또는 패턴의 문자를 검색하는 예제문 입니다

(setq ss_ent (ssget '( (0 . "text") (1 . "*-*-* ")  ) ) )

; * 는 모든문자를 의미

; *-*-* 는 aaa-bbb-000 등의 도면번호 패턴의 문자에 해당합니다

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 는 오토캐드에 강력한 기능들을 추가합니다