Hot News aus dem CAD.de-Newsletter:

Mit Unterstützung durch:

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

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
Autor Thema:   Inventor VBA (626 mal gelesen)
FabianCAD
Mitglied
Technischer Systemplaner


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

Beiträge: 10
Registriert: 24.10.2017

Inventor Professional 2015
AutoCAD Mechanical 2015/17
NVIDIA Quadro 2000

erstellt am: 24. Okt. 2017 08:52    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


MicrosoftVisualBasicforApplications.pdf

 
Guten Tag,

ich habe gestern damit begonnen, mir beizubringen, wie in in VBA Makros schreiben kann. Ich habe mir dazu das Tutorial von cad.de (http://inventor.cad.de/i_vba/pdf_zip/) geholt und bin bereits auf mein erstes Problem gestoßen.

Hier der Code mit dem Fehler:

Code:

Option Explicit


Public Sub CogTool()
    Dim oDoc As Document
   
    Set oDoc = ThisApplication.ActiveDocument
    If oDoc.DocumentType <> kAssemblyDocumentObject Then
        MsgBox "Eine Baugruppenzeichnung muss aktiv sein!"
        Exit Sub
    End If
   
    frmCog.Show vbModeless
   
    Set oDoc = Nothing
   
End Sub


Die Zeile "frmCog.Show vbModeless" wird mir als "Run-time error'13': Type mismatch" angezeigt.
Ich habe auch schon alles durchgeschaut, bin aber mit meine aktuellen Wissensstand nicht fündig geworden.


Vielen Dank im Voraus!

Gruß
Fabian

[Diese Nachricht wurde von FabianCAD am 26. Okt. 2017 editiert.]

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

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



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

Beiträge: 3591
Registriert: 15.02.2001

DELL Precision 7520 Win10Pro-64
Autodesk Product Design Suite Ultimate 2018
mit Vault-Professional
---------------------
Während man es aufschiebt,
verrinnt das Leben.
Lucius Annaeus Seneca
(ca. 4 v. Chr - 65 n. Chr.)

erstellt am: 24. Okt. 2017 09:13    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 FabianCAD 10 Unities + Antwort hilfreich

Hallo Fabian,

da ist ja auch keine Form definiert. Lösche die Zeile einfach mal.

------------------
mit freundlichem Gruß
aus der Burggemeinde Brüggen
Lothar Boekels

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

FabianCAD
Mitglied
Technischer Systemplaner


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

Beiträge: 10
Registriert: 24.10.2017

Inventor Professional 2015
AutoCAD Mechanical 2015/17
NVIDIA Quadro 2000

erstellt am: 24. Okt. 2017 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

Guten Tag Lothar,

danke erstmal für deine Antwort.

Wenn ich die Zeile raus lösche und das Makro im Inventor rauslösche passiert gar nichts.

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

Tacker
Mitglied
TZ, Tech. MB, Softwareentwickler


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

Beiträge: 175
Registriert: 23.09.2010

IV 2017 Pro
i7-7700K 4x4.2GHz
32GB DDR4-2400
GTX 1060 6GB DDR5

erstellt am: 24. Okt. 2017 11: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 Nur für FabianCAD 10 Unities + Antwort hilfreich

Hallo 

Also, VBA versucht hier eine Userform mit dem Namen frmCog zu initialisieren. Da aller Wahrscheinlichkeit keine von dir erstellt wurde, wird es crashen, normalerweise kommt in diesem Fall eine andere Fehlermeldung. In deinem Dokument habe ich gesehen dass ganz oben "frmCog - 2" steht, hast du das in deinen Code übernommen?

Der Fehler an sich, liegt nicht an der Zeile sondern an der Umgebung, dort ist der Fehler zu suchen.

MFG

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)2019 CAD.de | Impressum | Datenschutz