hallo, once more a Little Problem
i have a drawing with a lot of definied 3d-points. Is it possible to Change
the actual ucs just by using 3 even definied Points?
Sub set_usc_by_points()
Dim MyDok As IntelliCAD.Document
Dim KoordListe As UserCoordSystems
Dim NeuKorSys As UserCoordSystem
Dim origin, x_axis, xy_axis as Point
Set MyDok = Application.ActiveDocument
Set KoordListe = MyDok.UserCoordinateSystems
Set origin = Library.CreatePoint(10, 20, 30)
Set x_axis = Library.CreatePoint(100, 20, 30)
Set xy_axis = Library.CreatePoint(10, 20, 100)
### the following doesnt work for shore
Set NeuKorSys = KoordListe.Add(origin, x_axis, xy_axis, "TEMP")
###
ActiveDocument.ActiveUCS = NeuKorSys
End Sub
if this is not possilbe, is there a easy way to get the vectors by using
the 3 definied Points.
thank you for your help
i have a drawing with a lot of definied 3d-points. Is it possible to Change
the actual ucs just by using 3 even definied Points?
Sub set_usc_by_points()
Dim MyDok As IntelliCAD.Document
Dim KoordListe As UserCoordSystems
Dim NeuKorSys As UserCoordSystem
Dim origin, x_axis, xy_axis as Point
Set MyDok = Application.ActiveDocument
Set KoordListe = MyDok.UserCoordinateSystems
Set origin = Library.CreatePoint(10, 20, 30)
Set x_axis = Library.CreatePoint(100, 20, 30)
Set xy_axis = Library.CreatePoint(10, 20, 100)
### the following doesnt work for shore
Set NeuKorSys = KoordListe.Add(origin, x_axis, xy_axis, "TEMP")
###
ActiveDocument.ActiveUCS = NeuKorSys
End Sub
if this is not possilbe, is there a easy way to get the vectors by using
the 3 definied Points.
thank you for your help