캐드 분류
문자 회전 리습입니다.
컨텐츠 정보
- 258 조회
- 3 댓글
- 0 추천
- 0 비추천
-
목록
본문
안녕하세요…
고캐드를 통해 여러가지 도움을 받고 있어 먼저 감사드리며, 또 한가지 사항이 있어 이렇게 글 남김니다..
문자 회전하는 리습인데 문자를 선택하면 그 문자가 선택이 되었는지 안되었는지 확인이 안되서요. 예를 들면 다른 리습같은 경우 선택을 하면 선택된 객체(문자)의 색이 흐려지면서 그립이 생기잖아요.
근데 이 리습은 아무 변화가 없어요 그래서 혹시 리습 수정해서 문자 선택 여부를 확인할 수 있을까 해서 문의드립니다.
(defun c:tr( / tex p1 p2 t1 laa ta)
(setq osm (getvar "osmode")) ; 오스냅 저장 지점
(setvar "cmdecho" 0)
(setvar "blipmode" 0)
(setq tex (entsel "n>>문자를 선택하십시요! : "))
(setq p1 (getpoint "n>>첫번째 포인트를 선택하십시요! : "))
(setq p2 (getpoint "n>>두번째 포인트를 선택하십시요! : "))
(setq laa (angle p1 p2))
(setq t1 (entget (car tex))
ta (assoc 50 t1)
)
(if (and (> laa 1.5708) (<= laa 4.71239))
(setq laa (angle p2 p1))
)
(if (and (<= laa 1.5708) (> laa 4.71239))
(setq laa (angle p2 p1))
)
(setq t1 (subst (cons 50 laa) ta t1))
(entmod t1)
(setvar "blipmode" 0)
(setvar "osmode" osm) ; 오스냅 원래대로 (저장했던 지점)
(princ)
)
리습은 이렇습니다.
어디에 명령어? 추가하면 될거 같은데 리습에 대해 잘 몰라서 문의드립니다. 감사합니다.
관련자료
댓글 3
