---

Hallo Zusammen,

ich habe mal wieder ein problem mit meinem Makro 

Und zwar möchte ich, wenn er beim Befehl "isave" kein Objekt findet, dass er zum nächsten Befehl springt.
Hier der Ausschnitt um den es geht:

(command "isave")
(command "_.qsave"
        "_.-etransmit"
        "_c"
        (strcat (getvar 'dwgprefix)
                (vl-filename-base (getvar 'dwgname))
                ".zip"
        )
))

Wie bekomme ich das hin?

Kann mir bitte jemand helfen?

Vielen Dank vorab 

------------------
AutoCad 2018

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

---

was ist denn isave?

------------------
Gruß
CADwiesel
Besucht uns im CHAT

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

---

Ahhh sorry,

das kennen viele wahrscheinlich nicht. Der Befehl stammt aus dem Autocad-Aufsatz "Raster Design".

------------------
AutoCad 2018

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

---

Problem ist an dieser Stelle, wenn ich keine Bildreferenz hinterlegt habe,
unterbricht das Makro und es kommt die Abfrage Objekte wählen.
Das möchte ich umgehen.

------------------
AutoCad 2018

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

---

was passiert denn wenn du (command "isave") in der Befehlszeile eingibst?

------------------
Gruß
CADwiesel
Besucht uns im CHAT

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

---

Wenn eine Bild-Datei als Xref hinterlegt ist, speichert er diese. Wenn keine hinterlegt ist, dann möchte er, dass ich Objekte auswähle.

------------------
AutoCad 2018

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

---

also wirst du erstmal prüfen müssen, ob so ein Objekt in der Zeichnung enthalten ist.
Du kannst ja mal eine Zeichnung öffnen, wo ein solches Objekt enthalten ist und den Objekttyp per (entget(car(entsel))) abfragen.
und dann baust du eine if Bedingung ein
Oder was auch eine Möglichkeit wäre...

Code:

---

(command "isave")
(while (/= (getvar "cmdactive") 0) (command))
(command "_qsave")

---

------------------
Gruß
CADwiesel
Besucht uns im CHAT

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

---

Hallo Stefan,

probiere es mal hiermit:

Code:

---

(if (ssget "X" '((0 . "IMAGE"))) (command "isave"))

---

HTH
Gruß
Thomas

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

---

Hallo ihr Beiden,

vielen Dank für eure Hilfe. Der Befehl von spider_dd hat funktioniert.  Ich werde den Anderen bei Gelegenheit auch noch testen.

------------------
AutoCad 2018

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