(defun c:QQ()
(setq otxt (entsel “W*** PICK TEXT :”))
(setq otxt1 (cdr (assoc 1 (entget (car otxt)))))
(setq ntxt (strcat otxt1 “%%d”))
(command “change” otxt “” “” “” “” “” ntxt)
)
각도 넣는 리습인데요 한번 입력으로 클릭만 하면 반복으로 넣을수 있게 만들수 있을까요
이미 qq 입력해서 선택하면 클릭 한번만으로 들어가잖아요?
change 명령어에서 “”가 하나 빠지긴했지만요
여러 문자를 선택해서 자동으로 모든 문자 끝에 각도 표시를 하고 싶다면
(defun c:QQ()
(setq otxt (ssget))
(setq ss_length (sslength otxt) )
(setq cnt 0)
(while (< cnt ss_length)
(setq ent_name (ssname otxt cnt) )
(setq ent_list (entget ent_name) )
(setq otxt1 (cdr (assoc 1 ent_list) ) )
(setq ntxt (strcat otxt1 “%%d”))
(entmod (subst (cons 1 ntxt ) (assoc 1 ent_list) ent_list ) )
) ; END while
)
이렇게 하면 될 것 같구요
애초에 entsel 을 사용한 걸 보니
entsel 은 하나씩 선택해서 하고 싶은가보죠
선택을 무한으로 하고 싶은 건가요?
(setq otxt (entsel “W*** PICK TEXT :”))
)
이러면 될거 같은데요 ㅎㅎㅎ 급하게 해봤어요
감사합니다~ ㅋ