;;text문자들을 대문자로 바꾸기…
말그래도 text문자들을 소문자나 대문자로 고쳐주기인뎅
문제는 ssget으로 했을때 순서가 제 멋대로 인데
이를 어떻게 바로 잡을수있을까해서 고민하는데 풀리질않네용
여러고마운분들의 노고에 제가 있기까지 감사드립니다..^^
ssget으로 여러 텍스트들을 고르니깐 다음은 순서가 없이 나가는데 선택하는 순간 그 선택된 텍스트가 하이라이트로 선택되어지면 알아보기가 쉬울건뎅 어떻게 방법이 없나요?^^
고맙습니다..
(defun c:frt (/ a aa index bb bbb bbbb cc new c) ;;frt(find replace text)
(prompt “select object text for find replace textn”)
(Setq a (ssget))
(setq aa (sslength a))
(setq index 0)
(repeat aa
(setq bb (entget (ssname a index)))
(setq bbb (cdr (assoc 1 bb)))
(setq bbbb (assoc 1 bb))
(setq word “nJustification –Bigletter/Smallletter: “)
(initget “Bigletter Smallletter”)
(setq kw (getkword word))
(cond ((= kw “Bigletter”) (setq cc (cons 1 (hf bbb))))
((= kw “Smallletter”) (setq cc (cons 1 (hf1 bbb))))
)
(setq new (subst cc bbbb bb))
(entmod new)
(setq index (1+ index)) ;; 루프로 돌린다.
) ;;repeat end
) ;;defun end
(defun hf (a) ;;인수변수defun을 사용한다.
(setq c (strcase a nil))
)
(defun hf1 (a) ;;인수변수defun을 사용한다.
(setq c (strcase a t))
)