- UID
- 170899
- 积分
- 90
- 精华
- 贡献
-
- 威望
-
- 活跃度
-
- D豆
-
- 在线时间
- 小时
- 注册时间
- 2004-9-1
- 最后登录
- 1970-1-1
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?立即注册
×
为什么文字不能设置居中?
Sub labelpnt()
Dim Ent As AcadBlockReference
Dim Height As Double
Dim pickedp1 As Variant
Dim pickedp2 As Variant
Dim OffsetValue As Double
Dim MidPos(0 To 2) As Double
Dim FromPnt, Topnt As Variant
Dim ppt As Variant
Dim NoObj As AcadText
Dim ElevObj As AcadText
Dim line1 As AcadLine
Dim line2 As AcadLine
Dim Group1 As AcadGroup
Dim objgroup(0 To 3) As AcadEntity
Dim sPnt As Variant
Dim ePnt As Variant
Const pi = 3.1415926
On Error Resume Next
RETRY:
Call ThisDrawing.Utility.GetEntity(Ent, pnt, vbCrLf & "选符号...")
If Err Then
Err.Clear
End
End If
LblLen = 5
Height = 1
OffsetValue = 0.5
FromPnt = Ent.InsertionPoint
Topnt = ThisDrawing.Utility.GetPoint(FromPnt, "指定标注位置...")
If Err <> 0 Then
Err.Clear
Exit Sub
End If
Set line1 = ThisDrawing.ModelSpace.AddLine(FromPnt, Topnt)
If pd(FromPnt, Topnt) = True Then
ppt = ThisDrawing.Utility.PolarPoint(Topnt, pi, LblLen)
Else
ppt = ThisDrawing.Utility.PolarPoint(Topnt, 0, LblLen)
End If
Set line2 = ThisDrawing.ModelSpace.AddLine(Topnt, ppt)
sPnt = line2.StartPoint
ePnt = line2.EndPoint
'''Ï中点坐标
MidPos(0) = (sPnt(0) + ePnt(0)) / 2
MidPos(1) = (sPnt(1) + ePnt(1)) / 2
MidPos(2) = 0
'''文字注记位置
pickedp1 = ThisDrawing.Utility.PolarPoint(MidPos, pi / 2, OffsetValue)
pickedp2 = ThisDrawing.Utility.PolarPoint(MidPos, 0 - pi / 2, Height + OffsetValue)
'''标注文字
Set NoObj = ThisDrawing.ModelSpace.AddText("JS121", pickedp1, Height)
'''以下这句总不对
NoObj.Alignment = acAlignmentCenter
'''文字
Set ElevObj = ThisDrawing.ModelSpace.AddText("2.12", pickedp2, Height)
NoObj.Alignment = acAlignmentCenter
'''¶ÔÏó±à×é
Set objgroup(0) = line1
Set objgroup(1) = line2
Set objgroup(2) = NoObj
Set objgroup(3) = ElevObj
Set Group1 = ThisDrawing.Groups.Add("*")
Group1.AppendItems objgroup
GoTo RETRY
End Sub
Function pd(p1 As Variant, p2 As Variant) As Boolean
If p1(0) > p2(0) Then
pd = True
Else
pd = False
End If
End Function
以上语句不知为何不能设置居中,加入居中语句后文字会跑到老远的地方,这是为什么?请指教red[/COLOR] |
|