캐드 분류
글자를 클릭하여 다른 글자를 클릭하면 처음 클릭한 글자로 바뀌는 리습
컨텐츠 정보
- 969 조회
- 5 댓글
- 0 추천
- 0 비추천
- 목록
본문
안녕하세요. 고캐드 여러분.
아래와 같은 리습을 찾고 있습니다.
제목과 마찬가지로
'사각형'의 글씨를 클릭하여 '네모'의 글씨를 터치하면 '네모'의 글씨가 '사각형'으로 수정되는
리습을 찾고 있습니다.
올 한 해도 고생 많으셨습니다. 남은 한 해 마무리 잘 하시고
내년에도 이루시는 일 모두 이루어지는 행복한 새해 되시기 바랍니다.
감사합니다.
관련자료
댓글 5
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
