|
Inventor VBA : XYZ-Koordinate und Bezeichnung von einem Punkt in der Zeichnung anzeigen
Thomas Thomas am 24.05.2020 um 20:01 Uhr (1)
Hallo Ralf,das ist genau was ich gesucht habe. Vielen lieben Dank. Ich hätte noch zwei Fragen dazu. 1. ist es möglich das die Werte und der Name akt. wird wenn es Veränderungen gibt?2. wenn man gewählt hat das man einen weiteren Punkt auswählen möchte und dann aber doch keinen Punkt auswählt und ESC drückt kommt ein Laufzeitfehler 91Grüße und einen schönen AbendThomas
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Zeichnung in dxf, pdf und dwfx mit einem Makro ausgeben
Pie2909 am 04.03.2019 um 07:56 Uhr (1)
Guten MorgenMeierjo,vvielen Dank für deinen Code leider hat das nicht so geklappt.Anbei die IDW Datei.Ich möchte eigentlich nur die PDF erzeugen.ERklärung:Geöffnete und abgespeicherte IDW mit mehreren Blätter soll als PDF abgespeichert werden der Name soll aus jedem Blatt seperat heraus genommen werden da ich mit Iparts arbeite habe ich im IProperties jede Variante einen eigenen Namen vergeben PartName (Bauteilnummer)Dieser sollte dann als Dateinamen abgespeichert werden.Ich hoffe ich habe mich besser ausg ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Stückliste in einer Zeichnung neu nummerieren
rkauskh am 19.05.2022 um 13:45 Uhr (1)
HalloAlso die Bauteilliste. Als iLogic für alle Teilelisten des aktiven Blattes:Code:Dim oSheet As Sheet = ThisDrawing.Document.ActiveSheetDim oPartsList As PartsListFor Each oPartsList In oSheet.PartsLists oPartsList.Renumber NextWenn zusätzlich noch durch alle Blätter gewandert werden soll:Code:Dim oCurrSheet As Sheet = ThisDrawing.Document.ActiveSheetDim oSheet As SheetFor Each oSheet In ThisDrawing.Document.Sheets oSheet.Activate Dim oPartsList As PartsList For Each oPartsList In oSheet.PartsLists oP ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Arbeitspunkt und ipt Dateinamen in einer Zeichnung auslesen
Svener84 am 21.05.2015 um 10:55 Uhr (1)
Hallo ,ich wurde hier her verwiesen ^^.ich besitze eine Baugruppe, welche mehrere Bauteile mit jeweils einen Arbeitspunkt beinhaltet .Davon mache ich eine Zeichnungsableitung und blende mir die Arbeitspunkte von jeden Bauteil ein.Ich würde gerne eine "Bohrlochtabelle" erstellen mit den XY Werten der Arbeitspunkte.Zusätzlich zu jeder Zeile soll der Dateiname oder ein iPropertieswert aus der Bauteildatei ausgelesen werden.So kann ich die XY werte einer Position zuweisen!Habt ihr da eine Idee wie man die Ta ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Maßstab der Ansicht in eine Zeichnung übernehmen
Dieter Scholz am 26.03.2004 um 20:25 Uhr (0)
Special Thanks to:Programm zur Ermittlung der Anzeigemaßstäbe(c) Event Engineering Jörgen Pisarz Berlin 2003 www.event-engineering.de ergänzt auf Autodesk Inventor R7(c) Robby Lampe Dresden 2003 www.cadport.de Ergänzung für mehrere Blätter von Paul Schuepbach und Michael MaierDanke für die reichlich kommentierten Programmzeilen. So macht es Bock durch kleine Anpassungen im Quelltext und immer wieder F5 sofort die Auswirkung zu sehen.... der Appetit kommt beim Essen!Danke auch allen anderen die an diesem ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Zusammengehörige Bauteile/Baugruppe zu Zeichnung
rtend12 am 14.07.2006 um 00:18 Uhr (0)
Hallo Sam,wenn du dein Zeichnugen im gleichen Ordner und dem gleichen Namen abgespeichert hast kannst du auch folgendes Makro nehmen. Code: Option Explicit Dim odoc As Document Dim fs As Object Dim odocname As String Dim pfad As String Dim dateiname As String Public Sub OpenIDW() Set odoc = ThisApplication.ActiveDocument odocname = odoc.FullFileName If odocname = "" Then MsgBox "Bitte Modell erst speichern!" Exit Sub End If pfad = Left(odoc.FullFileName, InStrRev(odocname, "")) dateiname = ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Zeichnung in dxf, pdf und dwfx mit einem Makro ausgeben
themass am 01.10.2013 um 12:43 Uhr (1)
Ich hoffe mir kann jemand helfen.Wir haben in der Firma alle Inventorinstallationen auf 2014 umgestellt.Nun wollte ich mein Makro zur Ausgabe der dxf, pdf unf dwfx übertragen.Leider bricht die Ausführung mit Laufzeitfehler 5 in der Zeile......If oapp.ActiveDocumentType kDrawingDocumentObject Then Exit SubEnd IfSet odoc = oapp.ActiveDocumentosource = odoc.FullFileNameodest = Left(osource, Len(osource) - 4)Dim osheet As Inventor.Sheet.....ab.Irgendwie bin ich mit meinem Latein am Ende.Ich hoffe mir kann ...
|
| In das Form Inventor VBA wechseln |
Masstab.txt |
Inventor VBA : Maßstab der Ansicht in eine Zeichnung übernehmen
PaulSchuepbach am 23.11.2003 um 16:03 Uhr (0)
Hallo Michael, Hallo Robby,Robby: besten Dank fuer Die Lorbeeren - hast ja schon fleissig Demo-Pakete bestellt...Michael: hier das Setzen der Font-Groesse: Brauchst nur ne Double-Variable zu nehmen und schoon gehts.Im weiteren habe ich Dir gleich noch die update-Funktion miteingebaut (Attribut setzen an Skizze) - funktioniert aber leider nicht ????Ich muss morgen fuer 2 Tage nach London und am Mittwoch bin ich bei einem Kunden - schau dann nachher nochmals rein.Sorry, sollte eigentlich so gehen...Gruesse,P ...
|
| In das Form Inventor VBA wechseln |
massstab.txt |
Inventor VBA : Maßstab der Ansicht in eine Zeichnung übernehmen
thecrow am 12.07.2011 um 15:03 Uhr (0)
Hallo WBF! Nach 4 Jahren Inventorpraxis bin ich heute doch der Versuchung erlegen mich hier anzumelden, weil ich leider nicht weiter komme.Ich weiß dass ich hier auf einen 6 Jahre alten Beitrag antworte, aber es trifft doch am besten mein Problem und genügend Praxiserfahrungen anderer Benutzer mit dem Script wird hier vielleicht da sein. Und zwar sind wir vor kurzem auf 64bit umgestiegen und demzufolge mussten wir uns auch von der iProperty Collection verabschieden die uns immer den Massstab im Schriftfel ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Zeichnung wirrd nicht gedruckt
rkauskh am 01.05.2010 um 09:41 Uhr (0)
HalloWas genau heißt abgeschnitten? Hört er immer nach z.B. 75cm bedrucktem Papier auf, egal was man druckt? Passiert das auch bei kleineren Seitenformaten? Ist die Menge des Gedruckten abhängig von der gedruckten Datei? Druckt er am Ende irgendwelche Steuerzeichen oder etwas anderes, das da eigentlich nicht sein sollte?Für mich hört es sich im ersten Moment nach einem Pufferüberlauf im Drucker an, wenn er einfach aufhört. Das hat dann direkt mit deinem Prog nichts zu tun.Bietet der Treiber verschiedene Au ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : In Zeichnung: Löschen der Elemente, die der DesignDoctor angemäkelt
st.w am 22.05.2013 um 13:47 Uhr (0)
Hallo VBAler,vielleicht nutze ich mein IV2008 nicht richtig, aber ich muß immer in den Zeichnungen die durch den DesignDoctor angemäkelten Elemente bearbeiten/löschen. Und das einzeln.Die defekten Elemente entstehen durch die Parametrik, die mal Fasen wegnimmt, mal die Bohrunganzahl ändert oder Nuten hinzunimmt.Ich suche ein Makro, dass alle angemäkelten Elemente löscht. Also alle kaputten Bemaßungen/Mittellinien und Koordinatensysteme löscht. (und nicht nur die Meldungen ausschaltet)Google hat mir nicht w ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Schweißnahtzeichen / Schweißnähte (Vorderansicht) in Zeichnung auslesen/ändern
DerBrain87 am 29.09.2026 um 12:50 Uhr (1)
Bei Doppelklick auf die Raupen kann man unter Breite einen Wert angeben. Dieser hat sich, wie oben beschrieben, in den neuen Stilen von 5 auf 4,2 geändert. Skalierungsfaktor hat soweit ich das beurteilen kann nix mit zu tun.Ich hatte bisher nur den Fall, dass es eine Funktion in VB.net nicht gab, sondern nur in VBA. Da hab ich dann damals einfach eine Funktion in die Default.ivb geschrieben die ich dann über meine Tools aufgerufen habe. Hat funktioniert:-)Ich verstehe dein Beitrag so, dass ich nicht zu doo ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Maßstab der Ansicht in eine Zeichnung übernehmen
mimamb am 22.11.2003 um 12:40 Uhr (0)
Hallo zusammen !Bin grad am "Knobeln"...Bis jetzt hab ich es geschafft, das die Schleife für verschiedene Blätter durchlaufen und die Textbox für jedes Blatt erzeugt wird.Das Hauptproblem für mich ist jetzt, dass die Skizze mit der Textbox bei erneutem Speichern gelöscht werden sollte, sonst hat man bei Änderungen natürlich einen ziemlichen Schrott dastehen. Mit DrawingSketch.Name schaff ich es aber nicht die Skizze umzubenennen, so dass ich eventuell gezielt die alten Skizzen löschen könnte. Weiss hier je ...
|
| In das Form Inventor VBA wechseln |
