글자를 클릭하여 다른 글자를 클릭하면 처음 클릭한 글자로 바뀌는 리습
컨텐츠 정보
- 221 조회
- 5 댓글
- 0 추천
- 0 비추천
- 목록
본문
안녕하세요. 고캐드 여러분.
관련자료
nnxx님의 댓글
가지고 있는 리습중에 이게 아닌가 싶네요 ;;============================== ;; 텍스트 문자열 바꾸기 ;;============================== (defun c:tcH (/ entt1 entt2 hgt pt1 pt2 colr lay) (setvar "blipmode" 0) (setq s1 (getvar "OSMODE")) (setvar "osmode" 0) (PROMPT "n**** 바꾸기 ****") (setq entt1 (entsel "nPick ENTT1 String…")) (setq entt2 (entsel "nPick ENTT2 String…")) (setq colr (cdr (assoc 62 (entget (car entt1))))) (setq lay (cdr (assoc 8 (entget (car entt1))))) (setq hgt (cdr (assoc 40 (entget (car entt1))))) (setq pt1 (cdr (assoc 10 (entget (car entt1))))) (setq pt2 (cdr (assoc 10 (entget (car entt2))))) (command "change" entt2 "" "p" "c" colr "la" lay "") (command "MOVE" entt2 "" pt2 pt1) (command "MOVE" entt1 "" pt1 pt2) (setvar "osmode" s1) ) ;;defun end