| | | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: AutoCAD Zeichnungstexte via edit erfassbar? (986 mal gelesen)
|
Wieser_NX Mitglied Ingenieur
Beiträge: 6 Registriert: 24.11.2005 NX3 ; Teamcenter V9.1.2.10
|
erstellt am: 21. Feb. 2006 19:12 <-- editieren / zitieren --> Unities abgeben:
Hallo, gerade bin ich dabei von MEDUSA (Workstation) Zeichnungen in dxf zu konvertieren. Am Schluss sind jedoch manche Schriften zu groß geraten. Um dies evtl. mit einem Batch zu korregieren sollte ich den Syntax für die dxf verstehen. Z.B. an welcher Postion die Schriftgröße im dxf auftaucht, wie die Schrift definiert ist. Vorab danke für Eure Hilfe. Mit freundlichen Grüßen Thorsten Wieser ------------------ TW Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Ehrenmitglied V.I.P. h.c. Maschinenbaukonstrukteur
Beiträge: 13508 Registriert: 30.11.2003 .
|
erstellt am: 21. Feb. 2006 20:43 <-- editieren / zitieren --> Unities abgeben: Nur für Wieser_NX
|
startrek Mitglied Architekt
Beiträge: 1361 Registriert: 13.02.2003
|
erstellt am: 21. Feb. 2006 23:01 <-- editieren / zitieren --> Unities abgeben: Nur für Wieser_NX
Hi, ich hangel mich auch gerade durch das dxf-Gegurke;-) Am simpelsten erschien mir mitunter, ein jeweiliges Objekt, hier zB einen dtext zu erstellen, mit dem Textstring: 'dtext1;Höhe5' zu versehen/benimen und das mal als dxf rauszuschreiben. In einem Editor kann man dann nach 'text' in allen Formen suchen und sich das Schema angucken. Hab' das mit den pauschalen Höhenänderungen mal für _dtexte angetestet, war aber nur eine Übung, also nicht hauen - wenn zu simpel oder geht nicht, etc. - aber vielleicht nutzt es ja zu etwas. Gruss Nancy --
Code:
'benötigt einen Verweis auf die M$ Scripting Runtime!! Sub test() Dim FSO As New FileSystemObject, re As Object Dim s$, h$ Set re = CreateObject("vbscript.regexp") h = InputBox("neue Höhe für _dtext angeben: ") 'hier LW:\Pfad\alte.dxf s = FSO.GetFile("d:\my_first.dxf").OpenAsTextStream.ReadAll re.Global = 1: re.MultiLine = 1 re.Pattern = "(.*\n0\r\n100\r\nAcDbText\r\n\s10\r\n[.0-9]*\r\n\s20\r\n[.0-9]*\r\n\s30\r\n[.0-9]*\r\n\s40\r\n)[.0-9]*(.*)" 'hier LW:\Pfad\neue.dxf Open "d:\my_second.dxf" For Output As #1 Print #1, re.Replace(s, "$1" & h & "$2") Close #1 Set FSO = Nothing: Set re = Nothing End Sub
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
|