Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  NX Programmierung
  VB Makro Selecting an Object by Clicking

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für NX
Autor Thema:  VB Makro Selecting an Object by Clicking (1034 mal gelesen)
Shakespeare
Mitglied


Sehen Sie sich das Profil von Shakespeare an!   Senden Sie eine Private Message an Shakespeare  Schreiben Sie einen Gästebucheintrag für Shakespeare

Beiträge: 5
Registriert: 12.11.2014

erstellt am: 26. Nov. 2014 10:23    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hi!

Das Makro läuft soweit allerdings besteht nun das Problem, dass der Benutzer bestimmte Parts durch KLICKEN auswählen kann und diese ändern kann. Die Änderungen durchführen klappt auch, allerdings nur über ein UI, in dem man den Namen des Objektes eingibt. Im Moment sieht das ganze ca. so aus:


Public Function getGewaehlteVerbindung()
Dim InputObjectType(0)
Dim returnGewaehlteVerbindung As NXObject ' Ut: War daov rMIcrosoft COllection
Dim theUI As UI = UI.GetUI
Dim cursor As Point3d = Nothing
Dim selectionMask_array(1) As Selection.MaskTriple

Dim theSession As Session = Session.GetSession()
Dim workPart As Part = theSession.Parts.Work
Dim displayPart As Part = theSession.Parts.Display
Dim lw As ListingWindow = theSession.ListingWindow
Dim mySelectedObject As NXObject
lw.Open()

Dim selResp As Selection.Response = SelectAnObject("Wählen Sie bitte die zu ändernde Verbindung aus", _ mySelectedObject)
lw.WriteLine("Object Tag: " & mySelectedObject.Tag)
lw.WriteLine("Object Type: " & mySelectedObject.GetType.ToString)
lw.WriteLine("")
lw.Close()
returnGewaehlteVerbindung = mySelectedObject
Return returnGewaehlteVerbindung

End Function
------------------------------------------------
Public Function SelectAnObject(ByVal prompt As String, _
ByRef selObj As NXObject) As Selection.Response
Dim udobject As NXObject
Dim numberSelected As Integer
Dim theUI As UI = UI.GetUI
Dim cursor As Point3d
Dim object1 As NXObject
Dim selectionMask_array() As Selection.MaskTriple

Dim typeArray() As Selection.SelectionType = _
{Selection.SelectionType.All, _
Selection.SelectionType.Faces, _
Selection.SelectionType.Edges, _
Selection.SelectionType.Features
}
Dim resp As Selection.Response = theUI.SelectionManager.SelectObject(prompt, "VerbindungAuswählen", Selection.SelectionScope.WorkPart, False, typeArray, object1, cursor)

End Function

-------------------
Hat jemand eine Idee warum ich nicht per Mausklick das Objekt auswählen kann?

Bin für jede Hilfe dankbar 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP



Konstruktionsingenieur im Bereich industrielle Computertomographie (m/w/x)
Sich etwas Neues trauen, über sich hinauswachsen und dabei die Grenzen des Machbaren neu de?nieren. Genau das ist es, was unsere Mitarbeitenden täglich leben dürfen und sollen. Um mit unseren Innovationen das Tempo vorzugeben und Großartiges zu ermöglichen. Denn hinter jedem erfolgreichen Unternehmen stehen eine ganze Menge faszinierender Menschen.

Die Mitarbeitenden von ZEISS arbeiten in einem offenen und modernen Umfeld mit zahlreichen Entwicklungs- und Weiterbildungsmöglichkeiten....
Anzeige ansehenMaschinenbau
inv
Mitglied
CAx Consultant


Sehen Sie sich das Profil von inv an!   Senden Sie eine Private Message an inv  Schreiben Sie einen Gästebucheintrag für inv

Beiträge: 614
Registriert: 07.02.2006

Windows 10
Unigraphics (v16 - v18)
NX1 - NX12
NX (Continuous Release)
CatiaV5 R22

erstellt am: 04. Dez. 2014 15:26    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Shakespeare 10 Unities + Antwort hilfreich

Hallo,

schau mal in Deine Funktion SelectAnObject. Dort hast Du als Referenz 'selObj' angegeben. In Deinem selection.response allerdings befüllst Du 'object1'. 'object1' wird aber nicht weiter gegeben.

Gruß André

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz