|
INVENTOR VBA : Erste Schritte mit VBA u. Inventor
daywa1k3r am 17.07.2003 um 11:23 Uhr (0)
Hallo, ja das geht, aber es ergibt keinen Sinn. Wenn du jetzt auf dein Icon in der Werkzeugleiste klickst, soll der prüfen ob das passende Dokument offen ist, und wenn nicht soll er sich verstecken ? Wie auch immer so kannst du prüfen ob ein Dokument offen ist, und von welchen Typ es ist. Code: If ThisApplication.Documents.Count = 0 Then MsgBox No Document If ThisApplication.ActiveDocumentType = kAssemblyDocumentObject Then MsgBox Assembly Document If ThisApplication.ActiveDocumentType = kPartDocum ...
|
| In das Form INVENTOR VBA wechseln |
|
Inventor VBA : VBA-Controls im Inventor 2014
3D-User am 17.06.2013 um 21:18 Uhr (0)
Hallo UdoDanke für deine Hilfe.Leider kann ich die .ocx-Datei, auch nach mehrmaligen verund-color: #FFFF99'>suchen nicht downloaden.Wäre das eine „spezielle“ MSCOMCTL.OCX Version, oder die Standard 64Bit von Microsoft?Denn dass meine installierte Datei funktioniert sehe ich ja an meiner 2013er Installation.Zitat:Aber es gibt auch genügend VB Sourcecode für einen brauchbaren Progressbar im NetzDas würde mich sehr interessieren!Hättest du da ein Beispiel eines solchen Sourcecodes?Oder vielleicht könntest du mir einen Tipp geben ...
|
| In das Form Inventor VBA wechseln |
|
INVENTOR VBA : Wert aus Eigenschaftsfeld
daywa1k3r am 08.10.2003 um 09:17 Uhr (0)
Hallo Akrist, ich habe doch hier mal was gepostet: Code: Public Sub test_idw_eig() Dim oDraw As DrawingDocument Dim oProp As Property Dim oPropSet As PropertySet Dim oPropSets As PropertySets Dim i As Integer On Error Resume Next Set oDraw = ThisApplication.ActiveDocument If Err.Number 0 Then MsgBox Irgendwas stimmt nicht. Hab aber jetzt keine Zeit danach zu und-color: #FFFF99'>suchen. Sorry! , vbCritical, daywa1k3r End End If Set oPropSets = oDraw.PropertySets i = 1 For Each oPropSet In oPro ...
|
| In das Form INVENTOR VBA wechseln |
|
Inventor VBA : Defer update via macro
Eman1 am 05.12.2008 um 19:14 Uhr (0)
Hallo RK,Das hat riesig geholfen. Danke viel mals. Ich moechte auch etwas beitragen und habe hier ein macro das die Material definition aufMild, Steel aendert. Man kann natuerlich Mild, Steel mit jedem anderen Material typ der vordefiniert ist ersetzen. Ich moechte ja nicht unhoeflich sein, aber womoeglich hat jemand einen macro code der all vorselektierten componenten & assemblies unterdrueckt.Vielen dank fuer die hilfe.E.Public Sub NewChangeMaterial() Dim doc As PartDocument Dim partdefinition As PartC ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Schnittpunkte zweier (ebener) Kurven bestimmen
DerBrain87 am 07.02.2017 um 13:51 Uhr (1)
Hallo nochmal,kaum hat man das eine Problem gelöst, taucht ein anderes auf...Ich habe eine Ansammlung an Kurven (Kreisbögen, Linien und Splines) auf einer (2D) Skizze. Ich suche nun alle Schnittpunkte. Leider scheint die IntersectWithCurve-Methode nur für Line2d verfügbar zu sein. Gibt es eine einfache Methode die Schnitte zu bestimmen oder muss ich den umständlichen Weg gehen und numerisch nach Schnitten und-color: #FFFF99'>suchen? Grundsätzlich können bei der Ansammlung Spline vorkommen, die sich selbst schneiden. Weiter kö ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Plottdatum
Wolli am 19.06.2007 um 15:07 Uhr (0)
Hallo Zusammen,mit dem Beitrag http://ww3.cad.de/foren/ubb/Forum258/HTML/000133.shtml#000003 von freece bin ich schon ganz gut weitergekommen jetzt noch eine Frage dazu:Im VBA könne man doch das Event "AutoSave()" durch ein Event BeginPlot oder so ähnlich ersetzen und hat dann automatisch beim Plotten das Plotdatum aktualisiert.Leider habe ich in der VBA-Hilfe von Inventor nichts dazu gefunden.Ehrlich gesagt finde ich in der Hilfe nie was ich suche.z.B. finde ich wenn ich nach "autosave" suche keinen einz ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Automatisches Drucken
CADWOMEN911 am 14.02.2008 um 10:53 Uhr (0)
Hallo Zusammen,nach langem und-color: #FFFF99'>Suchen im Forum, habe ich leider keine richtige Lösung für mein Problem gefunden.Deshalb meine Anfrage:Ich muss immer wieder Zeichnungssätze ausdrucken (Zusammenbauzeichnung mit allen zugehörigen Unterzeichnungen).Dies ist in Inventor ziemlich zeitauswendig.Ich würde gerne die Zusammenbauzeichnung aufrufen und dann anschließend alle Zeichnungen (Unterzeichnungen) mit einem Befehl ausdrucken.Es gibt ja schon verschiedene Druckprogramme, aber noch keins wo ich auch alle Unterzeichn ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : iProperties bei geöffneten idw die iProp von ipd auslesen
rkauskh am 04.07.2012 um 11:55 Uhr (0)
HiDie Infos kann man sich auch selber aus der API und-color: #FFFF99'>suchen. Setz im VBA-Editor einen Haltepunkt auf die Zeile "MsgBox "Bauteilnummer: " & oPropValue". Markiere z.B. die Variable oDoc als wenn du den Text kopieren willst, rechte Maustaste und "Überwachung hinzufügen". Eventuell muß noch das Überwachungsfenster über das Menü "Ansicht" eingeblendet werden. Script laufen lassen, es hält am Haltepunkt an und du kannst in der Überwachung den Zweig unter oDoc aufklappen und dir den aktuellen Inhalt anschauen. Mit F ...
|
| In das Form Inventor VBA wechseln |
|
INVENTOR VBA : Migration INV 7 - INV 9 Makros auslesen
habkon am 11.08.2005 um 07:37 Uhr (0)
Hallo zusammen,jetzt geht hier aber die Post ab !!!!!!Das mit dem Selbstmordanschlagmakro (starkes Wort) ist schon sehr weit in Richtung VBA.Uns würde es schon helfen wenn man herrausbekommen könnte in welchenBG oder BT überhaupt Makros vorhanden sind ???Das Löschen könnte man dann manuell ausführen (wenn es nicht zu vieleDateien sind).Eine Liste (Excel oder eine Textdatei) würde schon reichen, so ähnlich wie und-color: #FFFF99'>suchen , finden , ausdrucken in eine Liste.Man sind das schon wieder Wünsche, na ja bis Weinachten ...
|
| In das Form INVENTOR VBA wechseln |
|
Inventor VBA : Zeichnungsmaß Modellparameter (wieder) anfügen
EIBe 3D am 03.11.2020 um 17:20 Uhr (1)
Leider bin ich bisher nicht weiter gekommen,nach einigen erfolglosen manuellen Verund-color: #FFFF99'>suchen den formattedText zu beschreiben war mein bisher letzter Versuch alle xml-relevanten Sonderzeichen durch:Code:....If InStr(1, sSufFix, ") Then sSufFix = Replace(sSufFix, ", ")End IfIf InStr(1, sSufFix, ") Then sSufFix = Replace(sSufFix, ", ")End IfIf InStr(1, sSufFix, ") Then sSufFix = Replace(sSufFix, ", ")End IfIf InStr(1, sPraeFix, ") Then sPraeFix = Replace(sPraeFix, ", ")End IfIf InStr(1, sPraeFix, "") Then s ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : speichern unter und Benutzer iProbs löschen
KraBBy am 20.11.2020 um 11:48 Uhr (1)
Zitat:Original erstellt von Enric:" Wenn ich eine Baugruppe aufhabe, und nur ein Teil aus dieser Baugruppe benötige, tauscht der mir das Teil auch in der Baugruppe aus!"Die Baugruppe müsste ich schließen, erst dann könnte ich die Prozedur starten. Wie kann den das abgefangen werden? ohne es getestet zu haben:In der Function CopyRefedDoc(...)bei den beiden .SaveAs Call oPartDoc.SaveAs(sNewName, False) Call oAssDoc.SaveAs(sNewName, False)jeweils das False durch True ersetzen Call oPartDoc.SaveAs(sNewName, ...
|
| In das Form Inventor VBA wechseln |
|
INVENTOR VBA : Zeichnungsverwaltung mit Access
daywa1k3r am 04.09.2003 um 09:23 Uhr (0)
Hiermit: Code: Public Sub test_idw_eig() Dim oDraw As DrawingDocument Dim oProp As Property Dim oPropSet As PropertySet Dim oPropSets As PropertySets Dim i As Integer On Error Resume Next Set oDraw = ThisApplication.ActiveDocument If Err.Number 0 Then MsgBox Irgendwas stimmt nicht. Hab aber jetzt keine Zeit danach zu und-color: #FFFF99'>suchen. Sorry! , vbCritical, daywa1k3r End End If Set oPropSets = oDraw.PropertySets i = 1 For Each oPropSet In oPropSets For Each oPr ...
|
| In das Form INVENTOR VBA wechseln |
|
Inventor VBA : Makro erstellen
wernerohnew am 18.02.2009 um 07:39 Uhr (0)
Hallo Reinhard,danke für Deine schnelle Antwort. Es geht um folgendes: Da ich keine Dokumentenverwaltung habe organisiere ich meine Inventor-Dateien über eine Excel-Tabelle. Ich erstelle mir zuerst Listen der vorhandenen Inventor-Dateien und importiere sie anschließend in eine Excelliste. Diese Textdateien in Excel zu holen und dort weiter zu verwalten ist kein Problem.Die Listen muss ich jedoch "von Hand" erstellen, was, so denke ich über ein Makro gesteuert werden könnte.Die Listen erstelle ich über die ...
|
| In das Form Inventor VBA wechseln |
