为什么旋转不了字体

☆一笑而过☆

Public Function AddTextHA(ByVal text As String, ByVal ptinsert As Variant, ByVal height As Double, ByVal angle As Double) As AcadText
    Dim objText As AcadText
    Set objText.fontFile = "c:\windows\fonts\simfang.ttf" '设置字体文件为仿宋体
         objText = ThisDrawing.ModelSpace.AddText(text, ptinsert, height)
    objText.Rotate objText.ptinsert, angle
    objText.Update
    Set AddTextHA = objText
End Function

p1 = ThisDrawing.Utility.GetPoint(, "输入点:") '获取点坐标
Set objText = ThisDrawing.ModelSpace.AddText("abcd", p0, 3500,30)
30改成弧度也旋转不了

☆一笑而过☆

有哪位大侠指导一下

☆一笑而过☆

搞清楚了，直接AddTextHA("abcd", p0, 3500,30)就行了

110436819

................