IntelliCAD 11.1 Object Library
Xvector Property
See Also 
UserCoordSystem Object : Xvector Property

Description

Sets or returns the X direction of the given User Coordinate System.

Property type

Read-write property

Syntax

Visual Basic
Public Property Xvector As Vector

Example

Sub Example_GetUCSMatrix()

     ' 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

See Also

© 2022 IntelliCAD Technology Consortium. All Rights Reserved.