매일 이곳에서 도움만 받고 있는 사회 초년생입니다.
다름아니라, 최근에 구하게 된 이 리습이 같은 문자만 선택하게 해줘서 상당히 좋더군요
다만, 같은 문자를 선택했을 때 원이 처지는 것이 아니라, 그 문자의 색상을 원하는 칼라(1~255) 로 바꿔
주는 기능이 있다면, 도면내에서 훨씬 쉽게 찾을 수 있을것 같아서요.
직접 할 수만있다면 이렇게 수고를 끼치지도 않을텐데..
죄송하지만, 이렇게 부탁드립니다. 여기 계신 훌륭하신 분들의 실력을 믿기에.. 도와주세요!
———————————————————————————————————————————
(defun c:qtsc(/ ss ed tex texlist k sslist ss1 j sslist $k $ed $ins os rad1)
;->*error* start
(defun *error* (msg)(princ “error: “)(princ msg)
(setvar “osmode” os)
(princ))
;-<*error* end
(setq os (getvar “osmode”))
(prompt “n동일텍스트에 원그려주기..”)
(if (not rad) (setq rad 100))
(setq rad1 (getreal (strcat “n원의 반지름 입력<” (rtos rad 2) “>:”)))
(if rad1 (setq rad rad1))
(setq k 0 texlist nil sslist nil)
(prompt “n모두 선택할 텍스트를 선택하세여:”)
(setq ss (ssget (list (cons 0 “text”))))
(setq sslist (ssadd))
(setq a (getint “n동일텍스트<1> / 선택텍스트포함<2>:”))
(cond ((= a 1)
(repeat (sslength ss)
(setq ed (entget (ssname ss k))
tex (list (cdr (assoc 1 ed))))
(setq texlist (append texlist tex))
(setq k (1+ k))
);repeat
)
((= a 2)
(repeat (sslength ss)
(setq ed (entget (ssname ss k))
tex (list (strcat “*” (cdr (assoc 1 ed)) “*”)))
(setq texlist (append texlist tex))
(setq k (1+ k))
);repeat
)
);cond
(foreach x texlist
(progn (setq ss1 (ssget “x” (list (cons 1 x)))) (setq j 0)
(repeat (sslength ss1)
(setq sslist (ssadd (ssname ss1 j) sslist))
(setq j (1+ j))
);repeat
);progn
):foreach
(setq $k 0)
(command “undo” “be”)
(setvar “osmode” 0)
(repeat (sslength sslist)
(setq $ed (entget (ssname sslist $k)))
(setq $ins (cdr (assoc 10 $ed)))
(command “circle” $ins rad)
(setq $k (1+ $k))
)
(setvar “osmode” os)
(command “undo” “e”)
(princ)
);defun