안녕하세요. 고캐드 여러분.
아래와 같은 리습을 찾고 있습니다.
제목과 마찬가지로
‘사각형’의 글씨를 클릭하여 ‘네모’의 글씨를 터치하면 ‘네모’의 글씨가 ‘사각형’으로 수정되는
리습을 찾고 있습니다.
올 한 해도 고생 많으셨습니다. 남은 한 해 마무리 잘 하시고
내년에도 이루시는 일 모두 이루어지는 행복한 새해 되시기 바랍니다.
감사합니다.
공유
비밀번호를 잊으셨나요? 비밀번호를 재설정하려면 이메일 주소를 입력해주세요.
해당 질문을 신고하는 이유를 간단히 입력해주세요.
해당 답변을 신고하는 이유를 간단히 입력해주세요.
해당 유저를 신고하는 이유를 간단히 입력해주세요.
구글에 검색하면 바로 나와요. 검색부터…
감사합니다.
무조건 영어로 검색해야 나옵니다.
가지고 있는 리습중에 이게 아닌가 싶네요
;;==============================
;; 텍스트 문자열 바꾸기
;;==============================
(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
그렇군요. 늦었지만 감사합니다.~