||||간단하게...
아래 처럼 하셔도될꺼 같습니다..
뼈대만 만들어놨습니다.^^;;


(defun c:asd(/ os ss k en ed tex @1 @2)
  (setq os (getvar "osmode"))
  (setq ss (ssget (list (cons 0 "text,mtext"))))
  (setq k 0)
  (setvar "osmode" 0)
  (repeat (sslength ss)
    (setq en (ssname ss k)
          ed (entget en))
    (setq tex (atof (cdr (assoc 1 ed))))
    (setq @1 (list 0 0 0) @2 (list 0 0 tex))
    (command "move" en "" @1 @2)
    (setq k (1+ k))
  );repeat
(setvar "osmode" os)
(princ)
)
이 게시물을...