ilovehuizi 发表于 2004-11-3 21:23:00

斑竹和大虾门 帮帮偶吧

怎样使插入的文字，以插入点为中心 排列？ 默认的插入文字是在插入点左侧排列的。
我使用了text1.aligment 属性 但是不知到怎么设置？
斑竹 帮帮偶吧 偶急需！！ 小弟先谢了啊

雪山飞狐_lzh 发表于 2004-11-3 21:38:00

Sub ts()
Dim pnt(2) As Double
Dim obj As AcadText
Set obj = ThisDrawing.ModelSpace.AddText("Test", pnt, 5)
obj.Alignment = acAlignmentMiddle
obj.TextAlignmentPoint = ThisDrawing.Utility.GetPoint
End Sub

tjdxtm 发表于 2004-11-4 08:24:00

又学到一点。
lzh741206斑竹，你好强阿，能介绍一下怎么学的吗？
我觉得用熟很难阿

ilovehuizi 发表于 2004-11-4 10:04:00

太感谢lzh741206斑竹了，小弟会永远支持你的～～
小弟再次表示感谢
页: [1]
查看完整版本: 斑竹和大虾门 帮帮偶吧