Description
Property type
Syntax
Visual Basic |
---|
Public Property Xvector As Vector |
Example
' This example creates a new UCS and lists its X, Y, and Z Vectors.
' Define a new UCS and turn on the UCS icon at the origin.
Dim ucsObj As IntelliCAD.UserCoordSystem
Dim origin As Point
Dim xAxisVector As Vector
Dim yAxisVector As Vector
Dim UCSName As String
Set origin = Library.CreatePoint(0, 0, 0)
Set xAxisVector = Library.CreateVector(0, 0, 0, 1, 1, 0)
Set yAxisVector = Library.CreateVector(0, 2, 0, 1, 1, 0)
UCSName = InputBox("Type a name for the user coordinate system:")
Set ucsObj = ThisDocument.UserCoordinateSystems.Add(origin, xAxisVector, yAxisVector, UCSName)
MsgBox "XVector.x = " & ucsObj.Xvector.x & Chr(13) & "XVector.y = " & ucsObj.Xvector.y & Chr(13) & "XVector.z = " & ucsObj.Xvector.z
MsgBox "YVector.x = " & ucsObj.Yvector.x & Chr(13) & "YVector.y = " & ucsObj.Yvector.y & Chr(13) & "XVector.z = " & ucsObj.Yvector.z
MsgBox "ZVector.x = " & ucsObj.Zvector.x & Chr(13) & "ZVector.y = " & ucsObj.Zvector.y & Chr(13) & "ZVector.z = " & ucsObj.Zvector.z
End Sub