|
NX Programmierung : VB Bezugskoordinatensystem verschieben
Overcast am 04.12.2008 um 12:40 Uhr (0)
Hm, vermutlich ist es ein "Datum Coordinate System".Die DatumCollection beinhaltet halt nur Datums (Plane, Axis).Die CoordinateSystemCollection beinhaltet CoordinateSystems.Try this:Code:Option Strict OffImports SystemImports NXOpenModule NXJournalSub MainDim theSession As Session = Session.GetSession()Dim WP as Part = theSession.Parts.WorkDim objArray(0) As NXObject Datum-Ksys Datums auf Layer 60 verschieben For Each obj As DisplayableObject In WP.Datums If Not obj.IsBlanked AndAlso WP.Layers.GetS ...
| | In das Form NX Programmierung wechseln |
|
NX Programmierung : VB Bezugskoordinatensystem verschieben
Overcast am 04.12.2008 um 15:16 Uhr (0)
Keine Ahnung, ob es hilft, aber mir sind 2 Sachen aufgefallen: Zitat:Dim LayNum1 As String...WP.Layers.MoveObjects(LayNum1, objArray)1)Die Doku beschreibt den 1. Parameter für MoveObjects() als Integer, nicht als String!Hier hilft die VB Funktion Val():Dim LayNum2 = Val(LayNum1)2)In der NX6 Doku ist die Funktion MoveObjects() bereits obsolete.In der NX5 Doku heisst es ebenfalls bereits "Deprecated in NX5"Würde daher eher MoveDisplayableObjects() verwenden.
| | In das Form NX Programmierung wechseln |
|
NX Programmierung : VB Bezugskoordinatensystem verschieben
Overcast am 04.12.2008 um 15:45 Uhr (0)
Keine Ahnung, was bei Dir passiert oder was das Problem nun genau ist....?!Der folgende Code arbeitet bei mir völlig korrekt:Code:Option Strict OffImports SystemImports NXOpenImports NXOpenUIModule NXJournalSub Main Dim theSession As Session = Session.GetSession() Dim WP as Part = theSession.Parts.Work Dim objArray(0) As DisplayableObject Dim strLayer As String strLayer = NXInputBox.GetInputString("Enter a layer for Sketches:") For Each obj As DisplayableObject In WP.Sketches If Not obj.IsBlanked AndAlso ...
| | In das Form NX Programmierung wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
