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

 

 

+ Recent posts