Zeichnungstexte einfügen in IDW per VBA-Macro (Autodesk/Inventor VBA)


	Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor	Thema: Zeichnungstexte einfügen in IDW per VBA-Macro (2018 mal gelesen)
HelmutBacks Mitglied Dipl.-Ing. Maschinenbau Beiträge: 160 Registriert: 07.02.2002	erstellt am: 21. Jul. 2006 09:23 <-- editieren / zitieren --> Unities abgeben: Hallo Forumsmitglieder! Ich möchte gerne folgendes machen: Sogenannte Zeichnungstexte existieren bei uns als TXT-Dateien mit einer Identnummer als Namen, z.B "12345678.txt". Diese enthalten Zeile für Zeile den Text, z.B. 1. Zeile: Identnummer, z.B. 12345678 2. Zeile: Textzeile 1 3. Zeile: Textzeile 2 4. Zeile: ... Diese Texte möchte ich auf einer IDW folgendermaßen einfügen können: Dialogbox, in der ich die Identnummer angebe, damit die TXT-Datei gefunden wird. Diese soll dann automatisch Zeile für Zeile ausgelesen werden und als mehrzeiliger Text auf der IDW abgesetzt werden möglichst am Cursor hängend positioniert werden können. Hat jemand ein Inventor-VBA-Macro-Beispiel für mich, wo etwas ähnliches, sprich wenigstens das Lesen von Zeilen aus TXT-Dateien durchgeführt wird??? Bitte helft einem VBA-Macro-Anfänger!!! ------------------ Helmut Backs Polysius AG Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
PaulSchuepbach Moderator Programmierer Beiträge: 1005 Registriert: 01.10.2003	erstellt am: 21. Jul. 2006 09:37 <-- editieren / zitieren --> Unities abgeben: Nur für HelmutBacks Hallo Helmut, txt-Datei auslesen: Dim actLine As String Open "Pfad&Dateiname\meineTXTdatei.txt" For Input As #1 Do While Not EOF(1) ' Zeilenweise auslesen, bis Dateiende erreicht ist Line Input #1, actLine ' Testausgabe Debug.Print actLine Loop Close #1 Text in Zeichnung einfügen: s. in der API-Hilfe unter 'Samples': Add a general note to a drawing sheet BTW: bitte solche Beiträge in's IV-VB(A)-Forum stellen... Grüsse, Paul www.morecam.ch www.thinkcad.de [Diese Nachricht wurde von PaulSchuepbach am 21. Jul. 2006 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Charly Setter Ehrenmitglied V.I.P. h.c. Beiträge: 11977 Registriert: 28.05.2002 Trau keiner Diva unter SP2....	erstellt am: 21. Jul. 2006 10:47 <-- editieren / zitieren --> Unities abgeben: Nur für HelmutBacks Ich würde die nicht direkt in die Zeichnung schreiben sondern in die passenden Properties dews Modells. Dann die Modellproperties in der Zeichnung anziehen. So, dann mal ab ins VBA-Forum CU ------------------ Der vernünftige Mensch paßt sich der Welt an; der unvernünftige besteht auf dem Versuch, die Welt sich anzupassen. Deshalb hängt aller Fortschritt vom unvernünftigen Menschen ab. (George Bernard Shaw) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
HelmutBacks Mitglied Dipl.-Ing. Maschinenbau Beiträge: 160 Registriert: 07.02.2002	erstellt am: 21. Jul. 2006 11:49 <-- editieren / zitieren --> Unities abgeben: Kurze Frage: Wo finde ich die API-Hilfe? Muß die ev. gesondert installiert werden? Danke! ------------------ Helmut Backs Polysius AG Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
SEHER Mitglied Systemanalytiker Beiträge: 1203 Registriert: 13.03.2001 Inventor 2 bis 2022 häufig wechselnder Rechnerverkehr	erstellt am: 22. Jul. 2006 12:03 <-- editieren / zitieren --> Unities abgeben: Nur für HelmutBacks Im Inventor unter PopMenü Hilfe und dann glaub ich Programmierhilfe ------------------ Gruß SEHER www.inventor-tools.de Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)