Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Inventor
  Zeichnungstexte einfügen in IDW per VBA-Macro

  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Thema geschlossen  Thema geschlossen!
Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

Dieser Beitrag ist erfolgreich in das Forum Inventor VBA verschoben worden.

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:  Zeichnungstexte einfügen in IDW per VBA-Macro (259 mal gelesen)
HelmutBacks
Mitglied
Dipl.-Ing. Maschinenbau


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

Beiträge: 160
Registriert: 07.02.2002

PDSP 2016 u. PDSP 2014
AutoCAD Mech 2016 und Mech 2014
Windows7 (64-Bit) SP1
Nvidia NVS 310, FX 560+580, FX1700+1800, FX3800
OCE TDS800+860,TCS400,TCS300

erstellt am: 21. Jul. 2006 09:23    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 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
Mitglied
Programmierer



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

Beiträge: 1005
Registriert: 01.10.2003

erstellt am: 21. Jul. 2006 09:37    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 HelmutBacks 10 Unities + Antwort hilfreich

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
Moderator





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

Beiträge: 11977
Registriert: 28.05.2002

Der vernünftige Mensch paßt sich der Welt an;
der unvernünftige besteht auf dem Versuch, die Welt sich anzupassen.<P>Deshalb hängt aller Fortschritt vom unvernünftigen Menschen ab.
(George Bernard Shaw)

erstellt am: 21. Jul. 2006 10:47    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 HelmutBacks 10 Unities + Antwort hilfreich

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 

CUSee You

------------------
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

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


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag öffnen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2024 CAD.de | Impressum | Datenschutz