(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)
)
각도 넣는 리습인데요 한번 입력으로 클릭만 하면 반복으로 넣을수 있게 만들수 있을까요
감사합니다~ ㅋ
여러 문자를 선택해서 자동으로 모든 문자 끝에 각도 표시를 하고 싶다면
(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 :”))
)
이러면 될거 같은데요 ㅎㅎㅎ 급하게 해봤어요
이미 qq 입력해서 선택하면 클릭 한번만으로 들어가잖아요?
change 명령어에서 “”가 하나 빠지긴했지만요