| | |  | PNY startet Upgrade Programm mit einer kostenlosen Garantieverlängerung für NVIDIA RTX PRO Blackwell Grafikkarten, eine Pressemitteilung
|
|
Autor
|
Thema: Getiled Dateinamen ohne Erweiterung in Variable (1209 mal gelesen)
|
Bernd P Ehrenmitglied V.I.P. h.c. cook-general

 Beiträge: 3488 Registriert: 07.06.2001 W10-64bit, AMD Ryzen 7 3700X,32GB RAM, Sapphire Pulse Radeon RX 570 8G G5, Canon TX-3000 MFP, Maus Cherry MW4500, Sub:Infrastructure Design Suite, Office 365
|
erstellt am: 12. Mai. 2015 13:42 <-- editieren / zitieren --> Unities abgeben:         
Servus, Mit u.A. Code 1 füge ich ein Xref auf 0,0 Skalierung 1, Drehung 0 ein, jetzt will ich das Xref noch umbenennen mit einem Suffix Code 2. Die Frage kann man aus getfiled den Dateinamen ohne Erweiterung auslesen? Oder gibt es da sowieso was einfacheres? Code: (progn (setq file (getfiled "Datei auswählen" "" "dwg" 8)) (command "_-xref" "ü" file "0,0" "1" "1" "0"))
Code: (command "rename" "b" oldname newname)
Hintergrund: Es sollen Fremdleitungen.dwg geladen werden und anhand des Xrefsnamens und der Layerauswahl "*GAS*|*" die Einstellungen getroffen werden. ------------------ <----- Bitte Systeminfo eintragen, warum siehst du hier. "Ist bestimmt nicht das schönste Projekt auf Erden, aber läuft vielleicht.". Schöne Grüsse aus der Steiermark Bernd P. Sport ist Mord Rekorde: Scalelist>11727, Fehler>34365, Layerfilter>XXXX Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadffm Moderator 良い精神
       

 Beiträge: 22849 Registriert: 03.06.2002 Alles
|
erstellt am: 12. Mai. 2015 13:49 <-- editieren / zitieren --> Unities abgeben:          Nur für Bernd P
|
CADmium Moderator Maschinenbaukonstrukteur
       

 Beiträge: 13533 Registriert: 30.11.2003 .
|
erstellt am: 12. Mai. 2015 13:52 <-- editieren / zitieren --> Unities abgeben:          Nur für Bernd P
|
Bernd P Ehrenmitglied V.I.P. h.c. cook-general

 Beiträge: 3488 Registriert: 07.06.2001 W10-64bit, AMD Ryzen 7 3700X,32GB RAM, Sapphire Pulse Radeon RX 570 8G G5, Canon TX-3000 MFP, Maus Cherry MW4500, Sub:Infrastructure Design Suite, Office 365
|
erstellt am: 12. Mai. 2015 16:06 <-- editieren / zitieren --> Unities abgeben:         
|
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
 |