;;一个简单的文字竖排，仅对中文   eachy [www.xdcad.net] 2005.11.7
(defun c:tt (/ e el obj str p p1)
  (while
    (and (if (not e)
	   (setq e (car (entsel)))
	   e
	 )
	 (setq el (entget e))
	 (setq obj (vlax-ename->vla-object e)
	       str (vla-get-textstring obj)
	 )
	 (if (> (strlen str) 2)
	   (progn
	     (entmod (subst (cons 1 (substr str 1 2)) (assoc 1 el) el))
	     (setq p  (polar (cdr (assoc 10 el))
			     (- (/ pi 2.))
			     (* 1.3 (cdr (assoc 40 el)))
		      )
		   el (subst (cons 10 p) (assoc 10 el) el)
	     )
	     (entmake (subst (cons 1 (substr str 3)) (assoc 1 el) el))
	     (if (setq p1 (getpoint "\npoint: "))
	       (progn
		 (setq p1 (list (car p) (cadr p1) 0.))
		 (vla-put-insertionpoint
		   (vlax-ename->vla-object (entlast))
		   (vlax-3d-point p1)
		 )
		 t
	       )
	     )
	     (setq e (entlast))
	   )
	 )
    )
  )
  (princ)
)