[求助]：cad单行文字能旋转吗？？？？？

jarylee

cad单行文字能一次性旋转吗？如：

SLMin

ET工具－文本工具－旋转文本

jarylee

我没有找到此功能，是否能再说详细一点，谢谢！

lt_zzy

才楼的朋友，我按你所说的做，怎么实现不了一楼的朋友所要达到目的。

晓东工具箱里有你所要求的功能。你试试！

陌生人

如果是win字体，换一个前面带@的
如： 宋体 －》@宋体

whr5275

我还是没弄出来啊。

jarylee

5楼朋友日方法我已用过了，可是不行
4楼朋友的方法我试一下吧
谢谢大家的顶立相助

sztk2001

我也不知道怎么旋转，改字体倒是可以试一下。

lsjjm

最初由 SLMin 发布
[B]ET工具－文本工具－旋转文本 [/B]

英文字体不行吧?

jarylee

英文字体也不行的

陌生人

最初由 jarylee 发布
[B]5楼朋友日方法我已用过了，可是不行
4楼朋友的方法我试一下吧
谢谢大家的顶立相助 [/B]

汉字的话还要转个90度。可以转为mtext，调整行宽，两种方法对e文都不行。
要么就将text分解为多个，垂直排列

lsjjm

编个英文的:
[php]
(defun c:test ()
  (setq g 0.02)
  (setq a (car (entsel)))
  (setq el (entget a))
  (setq str (cdr (assoc 1 el)))
  (setq clay (getvar "clayer"))
  (setq csty (getvar "textstyle"))
  (setq pts (acet-geom-txtbox el 0))
  (setq p (inters (car pts)(caddr pts)(cadr pts)(last pts)))
  (setq p (polar p (/ pi 2)(* (+ (cdr (assoc 40 el)) g)(strlen str) 0.5)))
  (setvar "textstyle" (cdr (assoc 7 el)))
  (vl-cmdf "layer" "s" (cdr (assoc 8 el)) "")
  (vl-cmdf "erase" a "")
  (repeat (strlen str)
    (vl-cmdf "text" "j" "m" p (cdr (assoc 40 el)) 0 (substr str 1 1) "")
    (setq p (polar p (* 1.5 pi)(+ (cdr (assoc 40 el)) g)))
    (setq str (substr str 2))
  )
  (setvar "textstyle" csty)
  (setvar "clayer" clay)
)
[/php]

雪山飞狐(lzh)

这个可以处理中英文的，：）
Public Sub Test()
Dim pText As AcadEntity
Dim pnt
ThisDrawing.Utility.GetEntity pText, pnt
Dim str As String
str = pText.TextString
Dim pStr As String
Do While Len(str) <> 0
pStr = pStr & Left(str, 1) & "\P"
str = Right(str, Len(str) - 1)
Loop
ThisDrawing.ModelSpace.AddMText(pText.InsertionPoint, 0, "").TextString = pStr
ThisDrawing.SendCommand "Explode" & vbCr & "l" & vbCr & vbCr

End Sub

陌生人

是\p,不是\\p么？

雪山飞狐(lzh)

VBA的字符格式和VC及Lisp不同
"\\P"在VBA里显示出来就是"\P"
"\P"才是控制字符