---

Hallo Kollegen/innen,

erstelle nachfolgende Variable:
  (setq DATNAME (getvar "DWGNAME"))

Das Ergebnis lautet XXX.dwg

Wie kann ich DATNAME so abkürzen, dass nur der Dateiname (ohne ".dwg") angezeigt wird. XXX

Grüße
Waldemar

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Siehe dir hierzu dieses Beispiel an:
http://ww3.cad.de/foren/ubb/Forum145/HTML/000050.shtml#000002 

------------------
Grüsse

Thomas

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

es gibt auch die Funktionen
(cadr(fnsplitl(getvar "DWGNAME")))
oder
(vl-filename-base (getvar "DWGNAME"))

das mit dem
(- (strlen (getvar "DWGNAME")) 4))
funktioniert zwar auch, aber die anderen Funcs sind besser für die anderen Eventualitäten gerüstet
------------------
      - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Thomas,

es funktioniert !!!

Danke...

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Thomas,

"fnsplitl" kenne ich nicht.
Wo ist diese Funktion?

Gruß
Theodor

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

fnsplitl ist eine undokumentierte Funktion .. die Suche in der Lisphilfe bringt da auch bloß einen eher nicht beabsichtigten Treffer.

Als Beschreibung mal:
fnsplitl .. Zerlegt Dateinamen in Verzeichnis, Dateiname und Extension.
Parameter ist ein String, Rückgabe eine Liste mit 3 Strings.

------------------
  - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke Thomas,

ich habe es gleich auch bei ICAD getestet, da geht es leider nicht.

Guß
Theodor

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

super funktioniert bei mir ....

aber  

meine Zeichnungsnamen sind folgende zB.:

HZ2060230-FA-etwasText.dwg

nur das fettgeschriebene will ich als Text haben ???
also:

2060230 etwasText

geht das überhaupt ???

[Diese Nachricht wurde von Angeltoni am 04. Okt. 2006 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

ja mit den Funktionen vl-string-search , substr und strcat kommst du weiter. -> F1 !
Aber ohne zu wissen, wie deine Dateinamen im Allgemeinen aufgebaut sind, enden hier auch schon die Hilfsmöglichkeiten.

------------------
  - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

mit den Beispielen wie: "STR_DIV" und "STR_TOK"
von Axel, funktioniere die folgenden Beispiele sehr gut.

;; Den ersten Teilsting ausgeben
(setq ERST_STR (car (STR_DIV STRING "\\")))

;; Den letzten Teilsting ausgeben
;; Dateiname aus Dateiname mit Pfad
(setq DATNAM (last (STR_TOK FILENAME "\\")))

Wenn, wie bei ICAD, keine VL-Befehle möglich.

Gruß
Theodor Schönwald

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

oh danke ... werde gleich mal herum experimentieren

wegfallen sollen folgende positionen im Dateinamen:
1, 2, 10, 11, 12 und am ende .dwg

ersten beiden z.B.
HZ = Hauptzeichnung
SF = Stanzform
AA = Aufbauanleitung  usw..

10, 11, 12 = Namenskürzel

sind also immer an gleicher Stelle

für 1:1 Transparent Ausdrucke brauch ich halt am Rand nur
die Nummer und den Text also Namenskürzel und die beiden Zeichnungsbuchstaben entfallen.

Dateiname kann sein:

HZ3060113-FA-Bodendisplay Tesa.dwg
und soll werden:
3060113-Bodensteller Tesa

oder

AA2040465-UH-Schaufensterplakat Euzerin.dwg
und soll werden:
2040465-Schaufensterplakat Euzerin

thx
Angeltoni

[Diese Nachricht wurde von Angeltoni am 05. Okt. 2006 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

habe jetzt rumgespielt und den Code erstellt:

Code:

---

(defun C:name ()
  (SETQ P0 (GETPOINT "Einfügepunkt: "))
  (SETQ TH (GETREAL "Texthöhe: "))
  (SETQ TW (GETREAL "Textwinkel: "))
  (SETQ dwgname (vl-filename-base (getvar "DWGNAME")))
  (setq dwgname (vl-string-right-trim ".dwg" dwgname))
  (setq dwgname
(strcat
  (substr dwgname
  3
  (- (vl-string-position (ascii "-") dwgname) 2)
  )
  (substr dwgname
  (+ 1 (vl-string-position (ascii "-") dwgname nil T))
  )
)
  )
  (command "dtexted" "1")
  (setq TX (strcat dwgname))
  (command "LAYER" "SE" schrift "")
  (command "text" P0 TH TW TX)
)

---

klappt auch soweit aber die Zeichen in der Mitte bleiben erhalten.

kommt : nil

mfg

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Angeltoni,

teste doch mal Deine einzelnen Codezeile (auch abschnittsweise) im Lisp-Editor / VL-Konsole. Da siehst Du was die einzelnen substr Anweisungen liefern.
Das erhaltenbleiben der mittleren Zeichen: Kann es sein, dass Dein aktueller Dateiname das zweite "-" Zeichen nicht hat? Das wird nämlich gesucht.
Wenn Deinen Dateinamenstruktur immer so "starr" ist wie angegeben brauchst Du auch nur die gewünschten Abschnitte rausgreifen.

Code:

---

(setq dwgname (vl-string-right-trim ".dwg" dwgname))
(setq TX (strcat (substr dwgname 3 7) (substr dwgname 13)))

---

Wie Thomas (Cadmium) schon sagte, mal die Hilfe zu strcat und substr lesen.

Noch was, (command "Text" ...) kann Probleme bereiten, wenn Stil mit fest vorgegebener Texthöhe verwendet wird, dann ist diese nämlich nicht mit anzugeben.

HTH
LG
Thomas

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Mein Dateiname heisst:

HZ3060224-FA tesa Bodensteller.dwg

es sollte dann beim Einfügepunkt erscheinen:

3060224 tesa Bodensteller

es steht aber:

3060224-FA tesa Bodensteller

und copy der Befehlszeile:

Code:

---

Befehl: name2
Einfügepunkt: Texthöhe: 20
Textwinkel: 0
dtexted
Neuen Wert für DTEXTED eingeben <1>: 1
Befehl: text
Aktueller Textstil:  "Standard"  Texthöhe:  90.00
Startpunkt des Texts angeben oder [Position/Stil]:
Höhe angeben <90.00>: 20.00000000000000
Drehwinkel des Texts angeben <0>: 0.000000000000000
Text eingeben: 3060224-FA tesa Bodensteller
Befehl: nil

---

[Diese Nachricht wurde von Angeltoni am 05. Okt. 2006 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

@spider ... stimmt das 2te - ist nicht da ^^

ich teste mal weiter

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

hat geklappt ... dankeschön

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP