Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  Inventor VBA
  ilogic auf alle Komponenten einer BG anwenden

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:  ilogic auf alle Komponenten einer BG anwenden (478 / mal gelesen)
Schröther
Mitglied
Selbständig Holztechniker


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

Beiträge: 182
Registriert: 13.01.2002

Windows 10
Inventor 2016

erstellt am: 03. Nov. 2016 11:31    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 bin noch ein totaler Anfänger im Programmieren und stöpsel mir das alles so aus google zusammen :-)

Ist es möglich dass ein externes ilogic auch alle Komponenten (BG und BT) betrifft.
Zum Beispiel einen Parameter erstellen.
So weit hab ich es schon aber das geht ja nur im aktiven Dokument

Danke im Voraus
Marcus

--------------------------------------
odoc = ThisDoc.Document
Dim oParams As Parameters
If odoc.documenttype=Inventor.DocumentTypeEnum.kPartDocumentObject  Then
    Dim oPartDoc as PartDocument = odoc
    Dim oPartCompDef As PartComponentDefinition = oPartdoc.ComponentDefinition
    oParams = oPartCompDef.Parameters
ElseIf odoc.documenttype=Inventor.DocumentTypeEnum.kAssemblyDocumentObject Then
    Dim oAssdoc as AssemblyDocument= odoc
    Dim oAssCompDef As AssemblyComponentDefinition = oAssdoc.ComponentDefinition
    oParams = oAssCompDef.Parameters
End If

Dim oUserParams As UserParameters = oParams.UserParameters
 
 

    Try
        t= Parameter("ddu")
    Catch
        oUserParams.AddByExpression("ddu", "8,2", "mm")
    End Try
--------------------------------------

------------------
Marcus 

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