Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  Inventor VBA
  Nach aktivieren und speichern zurück zum aktiven Dokument.

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:  Nach aktivieren und speichern zurück zum aktiven Dokument. (817 mal gelesen)
Frank_Schalla
Ehrenmitglied
CAD_SYSTEMBETREUER


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

Beiträge: 1731
Registriert: 06.04.2002

DELL M6800
Cad Admin
Methodikentwickler 3D

erstellt am: 19. Okt. 2004 12:11    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

Hier mein Problem.
Ich habe in einer Baugruppe ein BT aktiviert.
Nun öffne ich es schreibe Props und speicher.
Danach wird das BT geschlossen.
Nun ist aber nicht das vorher aktive Bauteil sondern irgendwas aktiv.
Schaut doch einfach mal selbst.
Ziel ist es das nach den Aktionen das aktivierte Bauteil wieder aktiv ist

Public Sub check_inplace_edit_or_created()
Dim oAssemDoc As AssemblyDocument
Set oAssemDoc = ThisApplication.ActiveDocument
If Not oAssemDoc.ComponentDefinition.ActiveOccurrence Is Nothing Then
MsgBox "In-Place edit/create vorgenommen!"

            ' Do something useful
Dim oPtDoc As Inventor.Document
Set oPtDoc = ThisApplication.Documents.Open(oAssemDoc.ComponentDefinition.ActiveOccurrence.DefinitionReference.ReferencedFileDescriptor.FullFileName, True)
'gewicht_Rohmass3_ipt
Call oPtDoc.Save
Call oPtDoc.Close
End If

End Sub

------------------
Es gab mal Zeiten, da haben wir und gefreut im 2D Ansichten gemalt  zu haben.

Lasst uns dies nicht vergessen wenn wir Ansichten erstellt bekommen 

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

waldi
Mitglied
 Softwerker


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

Beiträge: 272
Registriert: 07.08.2001

erstellt am: 19. Okt. 2004 13:32    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 Frank_Schalla 10 Unities + Antwort hilfreich

Dokument vor den ganzen Aktionen merken, danach auf dieses Doc Activate aufrufen.

set myDoc=application.ActiveDocument
...
myDoc.Activate

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

Frank_Schalla
Ehrenmitglied
CAD_SYSTEMBETREUER


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

Beiträge: 1731
Registriert: 06.04.2002

DELL M6800
Cad Admin
Methodikentwickler 3D

erstellt am: 19. Okt. 2004 14:16    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

Habe ich auch gedacht is aber nich.

Folgendes passiert

Im IV-Browser ist nach dem Durchlauf und einmaligen Mauscursor drüberfahren (Ohne Mausklick) nichts meht angewählt, es stehen jedoch nur noch einzelne Funktionen (Menueleiste) aus der Bauteilumgebung zur Verfügung.

------------------
Es gab mal Zeiten, da haben wir und gefreut im 2D Ansichten gemalt  zu haben.

Lasst uns dies nicht vergessen wenn wir Ansichten erstellt bekommen 

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

waldi
Mitglied
 Softwerker


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

Beiträge: 272
Registriert: 07.08.2001

erstellt am: 19. Okt. 2004 15:25    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 Frank_Schalla 10 Unities + Antwort hilfreich

Hmm, ich glaube, das kenn ich. Menüs ausgegraut?? Da hilft folgendes (leider C++ Code, die Umsetzung sollte aber einfach sein):

// check for disabled commands in the Inventor menu and enable them CommandTypesEnum DisabledComds=doc->GetDisabledCommandTypes();
CommandTypesEnum Empty=CommandTypesEnum(0);
if(DisabledComds!=0)
{
  //disable only specific command types
  doc->PutDisabledCommandTypes(Empty);
  //update the part document
  doc->Update();
}

doc ist in diesem Fall das aktive Dokument

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



Projektmanager Technical Sales (m/w/d)

Als Lösungsanbieter für das Krankenhaus und Teil einer familiengeführten Holding ist SIMEON Medical mit etwa 80 Mitarbeitern an 3 Standorten weltweit ein professioneller, sicherer und solider Arbeitgeber mit idealen Wachstumsmöglichkeiten in der Medizintechnik. Sie wollen Teil eines modernen und internationalen Unternehmens sein? Dann sind Sie bei uns genau richtig!
Zur Verstärkung unseres ...

Anzeige ansehenVertriebsingenieur
daywa1k3r
Moderator
Softwareentwickler




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

Beiträge: 3497
Registriert: 01.08.2002

Alienware m17x, Win7, Inventor2012

erstellt am: 19. Okt. 2004 19: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 Frank_Schalla 10 Unities + Antwort hilfreich

Code:

Public Sub check_inplace_edit_or_created()
Dim oAssemDoc As AssemblyDocument
Set oAssemDoc = ThisApplication.ActiveDocument
If Not oAssemDoc.ComponentDefinition.ActiveOccurrence Is Nothing Then
MsgBox "In-Place edit/create vorgenommen!"

            ' Do something useful
           
' Occurrence speichern
Dim oOcc As ComponentOccurrence
Set oOcc = oAssemDoc.ComponentDefinition.ActiveOccurrence

Dim oPtDoc As Inventor.Document
Set oPtDoc = ThisApplication.Documents.Open(oAssemDoc.ComponentDefinition.ActiveOccurrence.DefinitionReference.ReferencedFileDescriptor.FullFileName, True)
'gewicht_Rohmass3_ipt
Call oPtDoc.Save
Call oPtDoc.Close
End If

' Assembly updaten und die Occurrence aktivieren
oAssemDoc.Update
oOcc.Edit


End Sub


So ?

------------------
Grüße daywa1k3r

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