XVector, YVector, and ZVector property
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
|
Bricscad™ is commercialized by Bricsys NV. Bricsys NV and Vondle NV
are fully owned subsidiaries of Menhirs NV. © 2001- Menhirs NV - All rights reserved. |