Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  Inventor VBA
  Benutzerdefinierte IProperties mit Excel ausfüllen

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:  Benutzerdefinierte IProperties mit Excel ausfüllen (2101 mal gelesen)
almajusol
Mitglied


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

Beiträge: 8
Registriert: 05.08.2008

WIN XP Pro SP2
Inventor Suite 2009 SP1
Intel Pentium 4 3.06 GHz
3GB RAM

erstellt am: 25. Okt. 2008 13: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,

Ich habe folgendes Problem und hab leider in der Suche nichts gefunden.
Ich habe eine ipt mit einem eingebeteten Excel Blatt.
Jetzt möcht ich auch im Excel direkt Benutzerdefinierte Iproperties vergeben, z.B Massnorm, Zertifikat u.s.w.
Die Benutzerdefinierten IProps müssen nicht erstellt oder gelöscht werden von Excel aus sondern ich möchte in Bestehende bestimmte Werte eintragen.
Die Werte wären alphanumerisch.
Wie kann ich das mit VBA bewerkstelligen.

Weiters möcht ich auch einzelne Teile aus der Baugruppe löschen mithilfe des Excelblattes.
Gibt es hier eine Lösung.

Danke

Markus

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

almajusol
Mitglied


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

Beiträge: 8
Registriert: 05.08.2008

WIN XP Pro SP2
Inventor Suite 2009 SP1
Intel Pentium 4 3.06 GHz
3GB RAM

erstellt am: 30. Okt. 2008 10:12    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,

Hat den keiner ein Ähnliches Problem?

Markus

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

lbcad
Ehrenmitglied V.I.P. h.c.
Dipl.-Ing. Maschinenbau und CAD-Trainer



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

Beiträge: 3794
Registriert: 15.02.2001

erstellt am: 04. Nov. 2008 20:33    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 almajusol 10 Unities + Antwort hilfreich

Hallo Markus,

habe da mal etwas rumgestöbert - und bin auch fündig geworden:

Erst mal zu Deiner ersten Aufgabenstellung, das Ändern der eingebetteten Tabelle mit VBA

Code:

' Obtain the Parameters collection
Dim oParams As Parameters
Set oParams = oPartDoc.ComponentDefinition.Parameters

Dim XL As Object
Dim xlWB As Object
Dim xlWS As Object

'Connect to Excel

On Error Resume Next

Set XL = GetObject("Excel.Application")
If Err Then
    Err.Clear
    Set XL = CreateObject("Excel.Application")
End If

On Error GoTo 0

XL.Visible = True

'Es wird davon ausgegangen, dass die Datei eingebettet ist
Set xlWS = oParams.ParameterTables.Item(1).WorkSheet

dim iZeile as Integer
iZeile = 1

With xlWS
    .Activate
    ' Zeile iZeile beschreiben
    .Cells(iZeile, 1).Value = "Test"
    .Cells(iZeile, 2).Value = "34,5"
    .Cells(iZeile, 3).Value = "m"
End With

'detach from XL
Set xlWS = Nothing
Set XL = Nothing


Ich hoffe, das hilft Dir erst mal über die Startschwierigkeiten hinweg. 

------------------
Gruß Lothar

---------------------------------------------------

Während man es aufschiebt, verrinnt das Leben.
Lucius Annaeus Seneca (ca. 4 v. Chr - 65 n. Chr.)

-----------------------------------------------------
Wir unterstützen die Arbeit der:
- Rettungshundestaffel des DRK Viersen
- Rettungshundestaffel Isar Ost

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

Bjö
Mitglied
Dipl.-Ing. Maschinenbau, Konstruktion


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

Beiträge: 29
Registriert: 03.12.2008

Inventor 2010
WIN XP Professional SP3
Intel Core 2 2,4 GHz
4 GB RAM
NVIDIA Quadro FX 1700
CATIA V5 R17

erstellt am: 28. Jan. 2009 09:18    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 almajusol 10 Unities + Antwort hilfreich

Zitat:
Original erstellt von almajusol:
Hallo,

Jetzt möcht ich auch im Excel direkt Benutzerdefinierte Iproperties vergeben, z.B Massnorm, Zertifikat u.s.w.
Die Benutzerdefinierten IProps müssen nicht erstellt oder gelöscht werden von Excel aus sondern ich möchte in Bestehende bestimmte Werte eintragen.



Hallo Markus,
hast du dieses Problem mittlerweile gelöst? Ich hab grad das selbe Problem und nicht die leiseste Ahnung von VBA. Mein bisheriger plan war, die iprops des .ipt weiter von Hand zu ändern, was sicherlich nicht das gelbe vom Ei ist...
Wäre super, wenn du eine evtl. vorhandene Lösung mal posten könntest.
Viele Grüße,
Björn

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

almajusol
Mitglied


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

Beiträge: 8
Registriert: 05.08.2008

WIN XP Pro SP2
Inventor Suite 2009 SP1
Intel Pentium 4 3.06 GHz
3GB RAM

erstellt am: 28. Jan. 2009 12: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 Björn,

Noch habe ich keine Lösung aber bei uns wird das jetzt ein Profi in die Hand nehmen da ich auch keine Ahnung von VBA habe und keine Zeit mich da hineinzulesen.

Markus

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