Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  Inventor VBA
  SelectSet (origin)

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 Autodesk Produkte
Autor Thema:  SelectSet (origin) (537 mal gelesen)
SEHER
Mitglied
Systemanalytiker


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

Beiträge: 1203
Registriert: 13.03.2001

erstellt am: 16. Feb. 2006 21:17    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

Hallo Forum,
wie kann ich in einer Baugruppe ermitteln ob der Ursprung oder die Representations sich in meienm SelectSet befinden?

Für jeden Hinweis dankbar

Gruß
Seher

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

PaulSchuepbach
Moderator
Programmierer




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

Beiträge: 1005
Registriert: 01.10.2003

erstellt am: 17. Feb. 2006 09:02    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 SEHER 10 Unities + Antwort hilfreich

Hallo Andreas,

das SelectSet ist eine ObjectCollection. Als erstes kannst Du ja mal SelectSet.Count abfragen. Mit diesem Code bekommst Du - falss selektiert - einen Workpoint zurückgeliefert, selektiere erst eine Repräsentation und als zweites den Ursprungspunkt:


Private Sub getSelectSet()
 
  Dim oApp As Inventor.Application
  Set oApp = ThisApplication
 
  Dim oDoc As AssemblyDocument
  Set oDoc = oApp.ActiveDocument

  Debug.Print oDoc.SelectSet.Count
 
  Dim oObj As Object
  Set oObj = oDoc.SelectSet(2)
 
  If TypeOf oObj Is WorkPoint Then
 
    Dim oWp As WorkPoint
    Set oWp = oDoc.SelectSet(2)

    Debug.Print oWp.Point.X
    Debug.Print oWp.Point.X
    Debug.Print oWp.Point.X
    Debug.Print ""
   
  End If
 
End Sub


Du kannst so zumindest die Koordinaten abfragen und falls 0, 0, 0 könnte es der Ursprungspunkt sein.

Die Repräsentation bekommst Du allerdings nicht über die API.

Grüsse,

Paul

www.morecam.ch
www.thinkcad.de

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

SEHER
Mitglied
Systemanalytiker


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

Beiträge: 1203
Registriert: 13.03.2001

Inventor 2 bis 2022
häufig wechselnder Rechnerverkehr

erstellt am: 17. Feb. 2006 17:48    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

Danke Paul, werde es heute abend mal testen.

Gruß in die Schweiz!

Natürlich 10Us for you!

Seher

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

SEHER
Mitglied
Systemanalytiker


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

Beiträge: 1203
Registriert: 13.03.2001

erstellt am: 17. Feb. 2006 20:54    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

Hallo Paul, hallo@all,

habe nicht den Ursprungspunkt gemeint sondern im Browser den Ursprung (also Punkt,Achsen,Ebenen). Wenn diese markiert sind kackt mein Prog ab und zwar beim selectset(i). Hab einfach einen Fehlerabfang gebastelt und der User muß beim Ursprung oder Representations die Markierung wechmachen! Achso Prog. ist z.B "Alles Fixieren außer was markiert ist"

For i = 1 To oApp.ActiveDocument.SelectSet.Count
On Error Resume Next
Set oObj = oApp.ActiveDocument.SelectSet(i)
If Err Then fehler = True
Next

Vielen Dank Paul und Grüße von Rhein to Rhein

Seher

PS:Vielleicht weiß einer wie ich den Ursprung oder Representations demarkiere.

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

Charly Setter
Ehrenmitglied V.I.P. h.c.




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

Beiträge: 11977
Registriert: 28.05.2002

Trau keiner Diva unter SP2....

erstellt am: 20. Feb. 2006 00:39    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 SEHER 10 Unities + Antwort hilfreich

Zitat:
Original erstellt von SEHER:

PS:Vielleicht weiß einer wie ich den Ursprung oder Representations demarkiere.


Naja.... Vielleicht einfach aus dem SelectSet löschen ? Nur so ein dummer Gedanke 

------------------
Der vernünftige Mensch paßt sich der Welt an;
der unvernünftige besteht auf dem Versuch, die Welt sich anzupassen.

Deshalb hängt aller Fortschritt vom unvernünftigen Menschen ab.
(George Bernard Shaw)

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

SEHER
Mitglied
Systemanalytiker


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

Beiträge: 1203
Registriert: 13.03.2001

erstellt am: 20. Feb. 2006 09:41    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

Zitat:
Naja.... Vielleicht einfach aus dem SelectSet löschen ? Nur so ein dummer Gedanke 

...würde ich ja gerne machen; irgendwie gehört es zum selectset und irgendwie auch nicht. Sobald ich diese Objekte über selectset ansprechen möchte, gibt es eine Fehler. Im count sind sie aber dabei.

Gruß
Seher 

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