|
NX Programmierung : VB Bezugskoordinatensystem verschieben
little_ug am 05.12.2008 um 13:03 Uhr (0)
Hi, mein Problem mit der doppelten abfrage habe ich hinbekommen, du hattest recht mit dem Integer....Hast du eine Idee wie ich jetzt das Object (den Sketch) vor dem verschieben hervorheben kann?Danke,------------------GrußMichael
|
| In das Form NX Programmierung wechseln |
|
NX Programmierung : VB Bezugskoordinatensystem verschieben
little_ug am 03.12.2008 um 08:17 Uhr (0)
Hallo Zusammen habe folgendes Problem.Möchte ein / alle Bezugskoordinatensysteme auf einen bestimmten Layer schieben.Auszug aus dem Programm:Datum-Ksys Datums auf Layer 60 verschieben For Each obj As DisplayableObject In WP.Datums If Not obj.IsBlanked AndAlso WP.Layers.GetState(obj.Layer) Layer.State.Hidden Then objArray(0) = obj WP.Layers.MoveObjects(60, objArray) End If NextDatum-Ksys Punkte auf Layer 60 verschieben For Each obj As DisplayableObject In WP.Points If ...
|
| In das Form NX Programmierung wechseln |
|
NX Programmierung : VB Bezugskoordinatensystem verschieben
little_ug am 04.12.2008 um 15:30 Uhr (0)
Vielen Dank,hilft leider nicht.------------------GrußMichael
|
| In das Form NX Programmierung wechseln |
|
NX Programmierung : VB Bezugskoordinatensystem verschieben
little_ug am 05.12.2008 um 18:16 Uhr (0)
Hallo habs jetzt hinbekommen, vielen Dank.------------------GrußMichael
|
| In das Form NX Programmierung wechseln |
|
NX Programmierung : VB Bezugskoordinatensystem verschieben
little_ug am 04.12.2008 um 14:52 Uhr (0)
Super, vielen Dank hat funktioniert,jetzt habe ich noch eine kleine... FrageIch verschiebe hier auch die Skizzenkurven diese sollen nicht einfach auf einen Layer sonder der user muss diesen eingeben:Skizzen auf Layer 40 verschieben For Each obj As DisplayableObject In WP.Sketches If Not obj.IsBlanked AndAlso WP.Layers.GetState(obj.Layer) Layer.State.Hidden Then objArray(0) = obj Dim LayNum1 As String LayNum1 = NXInputBox.GetInputString("Enter Layer Number, start with 40", "Enter Layer ...
|
| In das Form NX Programmierung wechseln |
|
NX Programmierung : VB Bezugskoordinatensystem verschieben
little_ug am 05.12.2008 um 10:41 Uhr (0)
Hi Overcast,das Ziehl ist dass er für jeden Sketch den Layer abfrägt ihn highlighted und dann verschiebt. Bei dir verschiebt er ja alle auf einen Layer.------------------GrußMichael
|
| In das Form NX Programmierung wechseln |
|
NX Programmierung : VB Bezugskoordinatensystem verschieben
little_ug am 02.04.2009 um 08:19 Uhr (0)
Hallo Hoschi,ein vorschlag den ich mal auf die Schnelle aus schnipseln zusammenkopiert habe...Also nicht sauber Programmiert aber es geht:-)Los gehts:Option Strict OffImports SystemImports NXOpenImports NXOpen.UFImports NXOpen.UIImports NXOpen.UtilitiesModule NXJournalSub MainDim theSession As Session = Session.GetSession()Dim ufs As UFSession = UFSession.GetUFSession()Dim workPart As Part = theSession.Parts.WorkDim workView As NXOpen.Tag = NXOpen.Tag.NullDim displayPart As Part = theSession.Parts.Display ...
|
| In das Form NX Programmierung wechseln |
