---

schreibname.txt

Hallo,
wie kann ich die Schreibname.lsp so ändern, daß sie mir den Namen von Rasterdaten (gemeint sind hier Bilddateien) ausgibt?

Vielen Dank
Anne

[Diese Nachricht wurde von 3105orcas am 19. Jan. 2005 editiert.]

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

---

Schreibname.lsp.txt

Ichh haaaaabe garkein "schreibname.lsp" 

Übersetzung: Dies ist nicht Bestandteil eines AutoDESK-Produktes,
demzufolge habe ich es nicht. Wenn man es nicht hat, kann man es nicht
ansehen, demzufolge auch nicht wissen was zu ändern ist  

[Diese Nachricht wurde von cadffm am 19. Jan. 2005 editiert.]

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

---

(defun c:schreibname( / wasdenn Text)
  (vl-load-com)
  (If(and(setq wasdenn (entsel "Objekt der Begierde wählen:"))
        (cond       
          ((=(cdr(assoc 0(entget (car wasdenn))))"IMAGE")
            (setq TEXT(vla-get-imagefile(vlax-ename->vla-object (car WASDENN))))
          )
          ((setq TEXT(cdr(assoc 2(entget (car wasdenn))))) TEXT)       
        )
    )                 
    (command "_text" pause "" "" TEXT)
  )
)

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

---

Vielen Dank, das warŽs!!!

Bis dann
Anne

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