Pfad und Dateinamen einfügen (Autodesk/Lisp)


	Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor	Thema: Pfad und Dateinamen einfügen (1247 mal gelesen)
HansGeorg Mitglied Konstrukteur Beiträge: 187 Registriert: 26.11.2002 SWX 2009 Pro/E WF 3 XP SP3 4 GB RAM NVIDIA Quadro FX 1800	erstellt am: 16. Dez. 2002 15:35 <-- editieren / zitieren --> Unities abgeben: Hallo zusammen, bin gerade dabei mich in Lisp eizuarbeiten (also totaler Anfänger). In MDT kann das Layout mit amviewout ausgelesen werden, um nicht für jeden Dateitypen den Befehl nochmals aufzurufen möchte ich dies zusammenfassen. Meine ersten Schritte: (command"-amviewout""DXF""V""R14""16""c:/dxf14/dateiname""") Der Eintrag dateiname müsste von der geöffneten Zeichnung ausgelesen werden. Wie kann man das machen? Bin zwar auf dwgname gestoßen, aber irgendwie muß es noch andere Befehle geben, denn wenn dwgname eingetragen ist wird die Datei mit dwgname gespeichert. Vielen Dank für Eure Hilfe. HansGeorg Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
T. Bürger Mitglied Technischer Angestellter Beiträge: 201 Registriert: 30.01.2001 AMD Athlon XP2000+ ATI Fire GL 8800 Maxtor 4R060J0(60GB) Windows XP-Pro. SP1 Novell 4.1 1024MB Arbeitsspeicher AutoCAD2004 Expresstools LayerManager-Pro	erstellt am: 16. Dez. 2002 15:52 <-- editieren / zitieren --> Unities abgeben: Nur für HansGeorg Hallo HansGeorg, (setvar "dwgname") = Zeichnungsname.dwg (strlen (getvar "DWGNAME")) = Anzahl Zeichen (DWGNAME) (substr (getvar "DWGNAME") 1 (- (strlen (getvar "DWGNAME")) 4)) = Zeichnungsname (ohne .dwg) vieleicht hilft das Grüße T. Bürger Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
T. Bürger Mitglied Technischer Angestellter Beiträge: 201 Registriert: 30.01.2001 AMD Athlon XP2000+ ATI Fire GL 8800 Maxtor 4R060J0(60GB) Windows XP-Pro. SP1 Novell 4.1 1024MB Arbeitsspeicher AutoCAD2004 Expresstools LayerManager-Pro	erstellt am: 16. Dez. 2002 16:00 <-- editieren / zitieren --> Unities abgeben: Nur für HansGeorg nochmal Hallo HansGeorg, (strcat "c:/dxf14/" (substr (getvar "DWGNAME") 1 (- (strlen (getvar "DWGNAME")) 4)) ".dxf") ergiebt "c:/dxf14/Zeichnungsname.dxf" Fertige Funktion: (command"-amviewout" "DXF" "V" "R14" "16" (strcat "c:/dxf14/" (substr (getvar "DWGNAME") 1 (- (strlen (getvar "DWGNAME")) 4)) ".dxf") "") Grüße T. Bürger Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
HansGeorg Mitglied Konstrukteur Beiträge: 187 Registriert: 26.11.2002 SWX 2009 Pro/E WF 3 XP SP3 4 GB RAM NVIDIA Quadro FX 1800	erstellt am: 16. Dez. 2002 16:26 <-- editieren / zitieren --> Unities abgeben: Hallo T.Bürger, super, vielen Dank - klappt prima. HansGeorg Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)