(DEFUN C:TT (/ SSEL MRANG VLEN MRPT tan dtr el MRTXT)
(defun tan (tac /) (/ (sin tac) (cos tac)))
(defun dtr (a)(* pi (/ a 180.0)))
(setvar “cmdecho” 0)
(setq osm (getvar “osmode”))
(setq MRTXT (getvar “mirrtext”))
(setvar “osmode” 0)
(setvar “mirrtext” 1)
(setq SSEL (ssget))
(setq MRANG (angle (getvar “vsmin”) (getvar “vsmax”)))
(setq VLEN (/ (* 0.5 (getvar “viewsize”)) (tan MRANG)))
(setq MRPT (polar (polar (getvar “viewctr”) (dtr 90.0) (* 0.5 (getvar “viewsize”))) (dtr 180.0) VLEN))
(command “mirror” SSEL “” (setq ex (getvar “viewctr”)) (list (car ex) (+ (cadr ex) 100) (caddr ex)) “y”)
(command “_wmfout” “temp.wmf” SSEL “”)
(setq el (entlast))
(command “_wmfin” “temp.wmf” MRPT 2 “” “”)
(command “mirror” (entlast) “” (getvar “viewctr”) (list (car ex) (+ (cadr ex) 100) (caddr ex)) “y”)
(command “_explode” (entlast))
(command “_erase” SSEL “”)
(setvar “osmode” osm)
(setvar “mirrtext” MRTXT)
(setvar “cmdecho” 1)
(command “shell” “del temp.wmf”)
(princ)
)
텍스트깨는 리습인데요.
1. APPLOAD에 적용해서.. 사용을 하다보면..
OSNAP이 자꾸 꺼집니다.. ( 제가 해본결과 원인은 명령어 TT를 눌러서 텍스트객체를 선택하고 클릭하면 깨지는데.. 실수로 명령어 TT를 누루고 나서 객체를 선택하지않고 클릭하면 OSNAP이 꺼지더군요.)
제가 너무 초짜라서… 리습의 어디부분을 보완해야하는지…고수님들
정말 부탁드립니다.
2. 마우스로 선을 찍어서 여러개의 선을 선택하거나.. 텍스트를 깰려고 여러개의 텍스트를 선택하면.. 첫번째 선택된 표시가 사라지고 두번째거만 선택된 표시가 됩니다.
※ 리습을 사용하지 않으면.. 일반 오토캐드상에서는 여러개를 마우스 클릭하면 클릭한것들이 모두 선택이 되는데 그렇게 안된다는 말씀을 드리고싶습니다.
두번째꺼는 옵션을 설정하는건가요??
고수님들… 위에 리습도 고캐드에서 도움을 받아서.. 얻게 된겁니다..
제발 도와주세요…
바쁘신데도 저의 글 읽어주셔서. 너무 감사드리며.. 행복하세요^^