Bildname herunterladen

[Angelo2449]

Hallo alle,
Ich möchte ein kleines Programm schreiben, das den Namen und den Pfad eines Bildes einmal extrahiert
ausgewählt.
Ich schrieb den ersten Teil:

 (Defun c:estraimm (/ Bild ed1 en1)

(setq image nil)
(sing)
(= Bild nil)
(eingestelltes Bild)
;

(setq ed1 (entget)
(setq en1 (cdr -1 ed1)
(princ "\ned1 xxxxxxxxx ")
(princ ed1)
(princ "\n")
(Entzug e1 3)

;

Ich brauche eine Hand, um es zu beenden!
Danke.

 

[confutatis]

(defun c:estraimm (/ Bild)
(while)
(eingestelltes Bild)
;
(setq name (vla-get-name (vlax-ename->vla-object)))
(setq path (vla-get-imagefile (vlax-ename->vla-object)))
(princ "\nnome: ")(princ name)
(princ "\npercourse: ")(princ path)
(princ)
;

die Daten, die Sie benötigen, finden Sie in den Namen und Pfadvariablen.

 

[Cristallo]

trocken und effizient... wie viel Sie in diesem Forum verpasst haben...

 

[rpor66]

zur Vollständigkeit der Informationen:
(setq n (cdr (assoc 340 (entget image)))
(Satzname (cdr (assoc 1)))

die Unterliste von (Entget-Bild) 340 enthält den Namen der Einheit, in der der Name der Datei gespeichert ist, die Unterliste 1, vollständig vom Pfad.

 

[Cristallo]

Lösung ohne Verwendung von vl- vlax-
Gut.