---

Ich mal wieder mit einem Problem.
Ich muss rund 600 JPG einlesen wovon jedes auf einen extra Layer iegen muss. Nun meine Frage:
Kann ich irgendwie kombinieren, dass wenn ich den Layer anlege automatisch auch das JPG geöffnet wird? JPG und Layer haben den gleichen Namen. Ich schaffe nur dass sich das Fenster zum JPG auswählen öffnet (_imageattach). Die JPG sind von 001-659 durchnummeriert.
Mein Prog zum Layer anlegen

Zitat:

---

(defun c:l( / )
(setq ebene (getstring "Ebene: "))(terpri)
(setq bildnr (getstring "Bildnr: "))(terpri)
(setq name (strcat "FSG_" ebene "-" bildnr))
(setq aktlay (getvar "CLAYER"))
(command "_layer" "M" name "")
(command "_layer" "FR" aktlay "")
)

---

Hoffe ihr könnt mir helfen
Ps ist meine Lösung des Layer anlegens so okey? Ich meine es funktioniert und damit war ich schon mal stolz auf mich.

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

---

Hallo sterei,

zum Einfügen der Bilder kann man den Befehl -image benutzen. Im folgenden Beispiel habe ich die Bilder File0001.jpg - File0013.jpg aus dem Verzeichnis c:/temp/ auf den Einfügepunkt 0,0 eingefügt. Der Layer heißt dann immer so wie der Bildname, vielleicht kannst Du Dir das ja anpassen. Achja, Vorsicht bei zu vielen Bildern, bei meinen 13 Bildern mußte ACAD dann schon ein bißchen Zeit aufwenden, um diese zu regenerieren.

Code:

---

(defun c ixelb (/ pfad nummer1 nummer2 name_liste n)
  (setq pfad "c:/temp/")
;;;Beispiel Bilder "File0001.jpg - File0013.jpg"
  (setq nummer1 (getint "\nNummer 1.Bild: "))
  (setq nummer2 (getint "\nNummer 2.Bild: "))
  (setq n name1)
  (repeat (+ (- nummer2 nummer1) 1)
    (setq name_liste (cons (strcat "File" (jb_pre (itoa n)) ".jpg")
  name_liste)
  n     (+ n 1)))
  (mapcar '(lambda (a)
    (jb_layer a 7)
    (setvar "CLAYER" a)
    (command "-image" "" (strcat pfad a) "0,0" "" ""))
  name_liste)
  )

(defun jb_pre  (string /)
  (repeat (- 4 (strlen string))
    (setq string (strcat "0" string)))
  string)

(defun jb_layer (layer farbe /)
  (if (not (tblsearch "LAYER" layer))
    (entmake (list '(0 . "LAYER")
  '(100 . "AcDbSymbolTableRecord")
  '(100 . "AcDbLayerTableRecord")
  (cons 2 layer)
  '(70 . 0)
  (cons 62 farbe)
  '(6 . "CONTINUOUS")
  '(290 . 1)))))

---

------------------
viele Grüße

Jörn

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

---

Hallo Jörn

vielen Dank für deine Antwort. Hab leider nicht alles verstanden, aber genug damit ich mein Problem lösen konnte.

Nochmals Danke und ein schönes WE

Gruß Sterei

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