☆一笑而过☆ 发表于 2012-4-10 16:41:31

为什么旋转不了字体

本帖最后由 ☆一笑而过☆ 于 2012-4-10 16:44 编辑

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改成弧度也旋转不了

☆一笑而过☆ 发表于 2012-4-10 17:14:27

有哪位大侠指导一下

☆一笑而过☆ 发表于 2012-4-12 09:03:34

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

110436819 发表于 2012-4-17 15:19:46

................
页: [1]
查看完整版本: 为什么旋转不了字体