캐드 분류
레이어 맞교환
컨텐츠 정보
- 1,025 조회
- 2 댓글
- 0 추천
- 0 비추천
-
목록
본문
TSW 처럼 문자열 1:1 맞대응 교환처럼
레이어 맞교환 했으면 해서 이렇게 글올립니다.
(defun c:TSW (/ ss obj1 obj2 str1 str2) ; 명령어 본인이 원하는 단어로 바꾸어서 사용할수 도 있어요
(prompt " ………문자열 1:1 맞교환하기… A <-> B 선택문자가 2개인 경우만 1:1 맞교환됨 ")
(if (and
(setq ss (ssget '((0 . "TEXT")))) ;문자를 선택해라
(= (sslength ss) 2) ;선택한 문자가 두개일경우만 실행시켜라
(setq obj1 (vlax-ename->vla-object (ssname ss 0)))
(setq obj2 (vlax-ename->vla-object (ssname ss 1)))
(setq str1 (vla-get-textstring obj1))
(setq str2 (vla-get-textstring obj2))
)
(progn
(vla-put-textstring obj1 str2)
(vla-put-textstring obj2 str1)
)
)
)
관련자료
댓글 2
/ 1 페이지
