|
|
'创建一定角度(弧度)的单行文字
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 = ThisDrawing.ModelSpace.AddText(text, ptinsert, height)
objText.Rotate ptinsert, angle
objText.Update
Set AddTextHA = objText
objText.color = 3
End Function
大家帮我改改，单行文字默认是左下角对齐，在该函数里加左中对齐的命令，我需要单行文字左边中间与点对齐？ |
|
置顶卡
