(defun c:MTT (/ #a #b #c #index)
(vl-load-com)
(setq #a(vla-get-textstring(setq #c(vlax-ename->vla-object
(car(entsel “n≫≫≫Sorce text:”))))))
(vla-highlight #c 1)
(prompt “n≫≫≫Target texts↓”)
(setq #b(ssget ‘((0 . “text,mtext”))))
(vla-highlight #c 0)
(setq #index 0)
(repeat (sslength #b)
(vla-put-textstring(vlax-ename->vla-object(ssname #b
#index))#a)
(setq #index(1+ #index))
);;repeat
);;defun
;;========================위에것을 사용하던지 아님 밑에것을 사용
(defun 객체테두리표시 (#aa #bb / #a #b)
(vla-getboundingbox #aa ‘#a ‘#b)
(setq #a(vlax-safearray->list #a))
(setq #b(vlax-safearray->list #b))
(grvecs (list
#bb (list (car #a)(cadr #a))(list (car #b)(cadr #a))
#bb (list (car #b)(cadr #a))(list (car #b)(cadr #b))
#bb (list (car #b)(cadr #b))(list (car #a)(cadr #b))
#bb (list (car #a)(cadr #b))(list (car #a)(cadr #a))
);;list
);;grvecs
);;defun
(defun c:MTT (/ #a #b #c #index)
(vl-load-com)
(setq #a(vla-get-textstring(setq #c(vlax-ename->vla-object
(car(entsel “n≫≫≫Sorce text:”))))))
(객체테두리표시 #c -4)
(prompt “n≫≫≫Target texts↓”)
(setq #b(ssget ‘((0 . “text,mtext”))))
(setq #index 0)
(repeat (sslength #b)
(vla-put-textstring(setq #d(vlax-ename->vla-object(ssname #b
#index)))#a)
(객체테두리표시 #d -2)
(setq #index(1+ #index))
);;repeat
);;defun