[编程申请]：如何让文字直接旋转90度啊?

阿土

请教各位:在输入单行文字的时候,如何能使文字沿插入点直接的旋转90度,谢谢啊.

至：xyp1964
青铜长老帮帮忙吧，比如下面的程序，使文字同时沿插入点旋转90度，应加上什么语句啊？

(defun c:txt()
  (setq pt (getpoint "\nSpecify Start point"))
  
  (while pt
     (setq ttt (getstring "\nEnter text:"))
     (setq pt (mapcar '+ pt '(3 0)))
     (command "text" "ml" pt 3 "" ttt )
     (setq pt (getpoint "\nSpecify Start point:"))
  )
)


为何都没有人帮帮我啊???[/COLOR]

为什么你们一句话都不说啊?哪怕是灌水啊!     2005.1.6[/COLOR]

还是没有人理我?搞不懂?!     2005.1.7[/COLOR]

print1982

(defun c:rr () (command "rotate"pause"""@""90"))

xyp1964

2. [FONT=courier new](defun c:txt ()
   
3.   (while (setq pt (getpoint "\nSpecify Start point: "))
   
4.     (setq ttt (getstring "\nEnter text: "))
   
5.     (command "text" "ml" pt 3 "" ttt)
   
6.     (command "rotate" (entlast) "" pt 90)
   
7.   )
   
8.   (princ)
   
9. )
   
10. [/FONT]

[FONT=courier new](defun c:txt ()<br />   (while (setq pt (getpoint "\nSpecify Start point: "))<br />     (setq ttt (getstring "\nEnter text: "))<br />     (command "text" "ml" pt 3 "" ttt)<br />     (command "rotate" (entlast) "" pt 90)<br />   )<br />   (princ)<br /> )<br /> [/FONT]