Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  Inventor VBA
  iPart Steuerung über externe Excel Tabelle sehr langsam

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:  iPart Steuerung über externe Excel Tabelle sehr langsam (980 mal gelesen)
JenPau
Mitglied


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

Beiträge: 5
Registriert: 06.02.2019

erstellt am: 07. Feb. 2019 08:19    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
Ich habe einen Tunnel bestehend aus 133 Blöcken (iAssemblys) modelliert. Blöcke haben gleichen Querschnitt, aber unterschiedlich in der Länge. Diese Blöcke bilden eine 3D Kurve. Die Blöcke bestehen aus 37 Bauteilen (iParts). In diesen iParts sind die 3D Koordinaten hinterlegt (in der iPart Tabelle). Jedes iPart hat seine Koordinaten.
Diese iParts sind im Moment mit eine externe Excel Tabelle (mit den Koordinaten) verknüpft. Das macht das Ganze sehr träge. Jede Koordinaten Aktualisierung dauert sehr lang. Deswegen möchte ich mittels untenstehenden Programm die Änderungen aus der ex.Tabelle zu den iParts Tabellen weiterleiten.
Public Sub TableParameters()
    Dim oPartDoc As Inventor.PartDocument
    ' Obtain the active document, this assumes that
    ' a part document is active in Inventor
    Set oPartDoc = ThisApplication.ActiveDocument
   
    'Obtain the Parameters collection
    Dim oParams As Parameters
    Set oParams = oPartDoc.ComponentDefinition.Parameters
   
    ' Add a parameter table using an existing spreadsheet.
    oParams.ParameterTables.AddExcelTable "C:\Temp\params.xls", "A1", True
   
    ' Accessing a parameters in a linked/embedded file
    Dim oParamTableFiles As ParameterTables
    Set oParamTableFiles = oParams.ParameterTables
   
    ' Traverse through the collection of linked files
    Dim oParamTableFile As ParameterTable
    For Each oParamTableFile In oParamTableFiles
        ' Change the linked file to another file
        If LCase(oParamTableFile.FileName) = "C:\temp\params.xls" Then
            oParamTableFile.FileName = "C:\Temp\newparams.xls"
        End If

        ' Get the Parameters collection from the file
        Dim oTableParams As TableParameters
        Set oTableParams = oParamTableFile.TableParameters
   
        ' Traverse through the table parameters collection and display them
        Dim iNumTableParams As Long
        Debug.Print "TABLE PARAMETER VALUES"
        For iNumTableParams = 1 To oTableParams.Count
            ' Display the name
            Debug.Print " Name: " & oTableParams.Item(iNumTableParams).Name
           
            ' Display the expression
            Debug.Print " Expression: " & oTableParams.Item(iNumTableParams).Expression
       
            ' Display the value.  This will be in database units.
            Debug.Print " Value: " & oTableParams.Item(iNumTableParams).Value
        Next iNumTableParams
    Next
End Sub

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

KraBBy
Mitglied
Maschinenbau-Ingenieur


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

Beiträge: 601
Registriert: 19.09.2007

Inventor Professional 2020
WinX

erstellt am: 07. Feb. 2019 08: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 JenPau 10 Unities + Antwort hilfreich

Leider kann ich aus dem Beitrag keine Frage ableiten. Was ist das Problem?

------------------
Gruß KraBBy

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

JenPau
Mitglied


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

Beiträge: 5
Registriert: 06.02.2019

erstellt am: 07. Feb. 2019 08:47    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

Sorry
Das Programm tut irgendwas. Aber es kommt in der iPart Tabelle nichts an.
Ist da was falsch? Oder gibt es für dieses Problem andere Lösung?

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

JenPau
Mitglied


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

Beiträge: 5
Registriert: 06.02.2019

erstellt am: 07. Feb. 2019 16:27    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

Eigentlich möchte ich die Iparts Tabellen von der Verknüpfung zu externe Excel Tabelle lösen.
Und die Information aus der externen Tabelle über eine VBA Programm in die iPart Tabellen zu bringen.
Entweder mittels VBA Programm die Infos aus externe Tabelle gleichzeitig in alle (in der Fall eingebettet) iPart Tabellen,
oder so zusagen über ein bestimmten iPart die Information an alle andere weitergeben.
Da ich bei der VBA Programmierung noch in Kinderschuhen stecke und die Lösung dringend gebraucht wird, habe nach dem geeigneten Programm gesucht.
Da im ersten Beitrag eingefügtes Programm nicht funktioniert, benötige ich da die Profi Hilfe.
Hat jemand dazu eine Idee?
Grüße

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

KraBBy
Mitglied
Maschinenbau-Ingenieur


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

Beiträge: 601
Registriert: 19.09.2007

Inventor Professional 2020
WinX

erstellt am: 07. Feb. 2019 17: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 JenPau 10 Unities + Antwort hilfreich

Der Code ist 1zu1 das "Table Parameters API Sample" aus der Hilfe.
Dabei geht es um das Verknüpfen von (Modell-)Parametern mit Werten aus einer Excel-Tabelle. "Von Hand" wäre das unter Parameter -> Verknüpfen.
Das hat mit der Tabelle für iParts nichts (oder nicht zwingend) zu tun.

Es sollte sich nach Ausführung des Codes was bei den Parametern getan haben, sprich die Werte aus der ExcelTabelle sollten eingefügt/verknüpft sein. Man könnte jetzt diese Parameter in der iPart-Tabelle unterschiedlich zuweisen, also dem jeweiligen Member einen eigenen Parameter. Hängt vmtl. davon ab, ob man dafür eine vernünftige Methode findet ohne dass es zu aufwändig wird.

Vmtl. hilft es weiter, sich das iPartFactory Object genauer anzusehen. Das hat eine Eigenschaft "ExcelWorkSheet". Das scheint eher in die gewünschte Richtung zu gehen...

Sorry, aber eine fertige Lösung kann ich leider nicht anbieten.

------------------
Gruß KraBBy

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