又有问题了！UCS与WCS的夹角
因为我想让我的文字在UCS下也能够对齐到我需要的直线，我只能在ＷＣＳ做到这一点，但是如果能够知道目前UCS和WCS的X轴的夹角，那么也可以做到，可是都不知道怎么求这个角度，之前用了当前UCS的Origin，XVector，YVector属性，可是用这三个点画出来的三角形好怪异，这个三角形的三个边没有一个是与UCS的坐标轴垂直或者平行的，那它这个x向量，y向量到底是指的什么呢？？或者，有什么更好，更便捷的方法，让UCS中文字和一条直线对齐呢？
请大家指教！！！！
很明显你对XVector和YVector的概念理解错了，如果你用XVector，YVector和(0,0,0)画三角形就对了。要求UCS与WCS的夹角应用AngleFromXAxis方法，参数取(0,0,0)和XVector两点
感谢版主老大！
以后可能还有好多问题，就要麻烦你了！！
Function rotateXYangle(ByVal sPoint As Variant, ePoint As Variant, txtEnt As String) As Double
Dim ll As AcadEntity, Alfa As Double, lll As AcadLine, Rot3D As AcadEntity
Dim pp(0 To 2) As Double, ppp(0 To 2) As Double
''
pp(0) = 0: pp(1) = 0: pp(2) = 0
Set Rot3D = ThisDrawing.ObjectIdToObject(txtEnt)
''
Dim x As Double, x1 As Double, y As Double, y1 As Double, z As Double, z1 As Double
Dim deltaX As Double, deltaY As Double, deltaZ As Double
''
x1 = sPoint(0): x = ePoint(0)
y1 = sPoint(1): y = ePoint(1)
z1 = sPoint(2): z = ePoint(2)
''
deltaX = x - x1: deltaY = y - y1: deltaZ = z - z1
Debug.Print deltaX, deltaY
If deltaX > 0 And deltaY > 0 Then
rotateXYangle = Atn(deltaY / deltaX)
ElseIf deltaX0 Then
Debug.Print Atn(deltaY / deltaX)
rotateXYangle = Pi + Atn(deltaY / deltaX)
ElseIf deltaY0 And deltaY0 Then
rotateXYangle = 0
ElseIf deltaY = 0 And deltaX0 And deltaX = 0 Then
rotateXYangle = Pi / 2
End If
''''
Alfa = rotateXYangle + Alfa + Pi / 2
''
ppp(0) = sPoint(0) + 4 * Cos(Alfa): ppp(1) = sPoint(1) + 4 * Sin(Alfa): ppp(2) = sPoint(2)
Set lll = ThisDrawing.ModelSpace.AddLine(sPoint, ppp)
''
Rot3D.Move pp, sPoint
Rot3D.Rotate3D ppp, sPoint, -Pi / 2
Rot3D.Rotate3D sPoint, ePoint, -Pi / 2
''
End Function
页:
[1]