---

Hi
versuche krampfhaft das ändern des Laufwerksbuchstaben
von Bildern zu automatisieren.

sollte so aussehen:
C:\bild\hallo.jpg
soll werden:
X:\bild\hallo.jpg

Mein Programm funktioniert auch schon, nur
wenn 2 verschiedene Referenznamen auf ein und das selben Pfadnamen
verweisen (z.B: hallo, hallo_1 usw.) dann wird nur der erste aktualisiert.
Ich weiß nicht wie ich die Referenznamen der Bilder abfragen kann.
Bis jetzt hole ich mir den Refernznamen aus dem Pfadnamen, was eigentlich falsch ist.

Bitte um Hilfe.
Danke

Code:

---

(defun c:fixpfad ( / n aws neu_laufwerk_b laufwerk neu_laufwerk aws obj_na obj_data2 obj_data pfad rest)

(setq neu_laufwerk_b (getstring "Neuer Laufwerksbuchstabe [L:]: "))

(setq aws (ssget "_X" (list(cons 0 "IMAGE"))))

(repeat (sslength aws)

(setq obj_na (ssname aws n) n (+ n 1))
(setq obj_data (entget obj_na))
(setq obj_data2 (entget (cdr (assoc 340 obj_data))))

(setq pfad (cdr (assoc 1 obj_data2)))
(setq laufwerk (substr pfad 1 2))
(setq rest (substr pfad 3))
(setq neu_laufwerk (strcat neu_laufwerk_b rest))

(command "_-image" "_p" (vl-filename-base pfad)  neu_laufwerk)
)
)

---

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

---

via Property IMAGEFILE kommst du an den gespeicherten PFAD
Bsp:

(vlax-dump-object(vlax-ename->vla-object(car(entsel))))

bzw. über NormalLisp und das Dictionary "ACAD_IMAGE_DICT"

------------------
      - 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 andy,
und mit
vla-put-imagefile
setzt du den neuen namen

gruss
marco

------------------
Marco Heuer
www.arc-aachen.de
Airport Office

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

---

Hi

Danke für eure Hilfe
Habs hinbekommen.

Gruß
Andy

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