---

Hallo,

Ich möchte über ein Lisp verschiedene Blöcke auf einen anderen Layer legen.

Das funktioniert mit AMLGMOVE auch wie gewünscht:
AutoCAD Mechanical 2008; 1 Block heisst Blockname_1; Alles auf AM_* Layer

(defun C:Tblock(/ A)
  (if(and(setq A (ssget "_x" '((0 . "INSERT")(2 .  "Blockname_1"))))
        (>(sslength A)0)
    )
    (progn
      (sssetfirst nil nil)
      (command "AMLGMOVE" A "" "test")
    )
  ) 
)

Das Problem ist nur dass das Lisp immer wieder durch ein Dialogfenster unterbrochen wird:
Blockreferenz Blockname_1 in der Auswahl gefunden. Möchten Sie auch die Blockdefinition auf die gewünschte Layergruppe legen?
Schaltflächen: Ja; Ja alle; Nein; Nein alle; Abbrechen; Hilfe

Da über der Befehlszeile keinerlei Interaktion möglich ist, kann ich die Option nicht über das Lisp eingeben.
Keiner der Befehle CMDDIA, FILEDIA, ATTDIA und EXPERT führte zum Erfolg (nacheinander, nicht im Lisp versucht).

Was mache ich falsch?

Gruss Josef

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

---

amlgmove ist als Dialog-Routine programmiert .. dafür gibt es keine Kommandozeilenversion. Wenn du es ohne Dialog haben willst, mußt du die Funktionalität nachprogrammieren.

------------------
  - 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 Josef!
Hallo Thomas1

Geht das nicht??

Wenn ein Dialogfeld ja oder nein im laufenden lisp anfordert dann gleich nach dem Befehl diese Zeile eigeben.

(while (/= (getvar "cmdactive") 0)
  (command "j")
) ; while

lg. Martin

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

---

Zitat:

---

Original erstellt von MARTINLE:

Hallo Josef!
Hallo Thomas1

Geht das nicht??

Wenn ein Dialogfeld ja oder nein im laufenden lisp anfordert dann gleich nach dem Befehl diese Zeile eigeben.

(while (/= (getvar "cmdactive") 0)
  (command "j")
) ; while

lg. Martin 

---

.. hängt immer von ab, wie der Dialog programmiert wurde ...

ruf mal den Plotdialog auf und probiere was in die Befehlszzeile zu schreiben 

..normalerweise wird der Dialog aufgerufen und ist dann Modal, d.h. er nimmt alles was mit Maus und Tastatur eingegeben wird als seins an ...

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

---

wo diese schönen Zeilen her sind.. aber sicher nichtum ein Dialogfeld zu bedienen,
denn wenn ein Dialogfeld offen ist hat man keinen Zugriff auf die Befehlszeile..

------------------
CAD.de System-Angaben  -  CAD on demand  -  User:FAQ(Acad)

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

---

Hallo Thomas!

Wieder was gelernt!

lg Martin 

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

---

Hallo cadffm!

...aus meiner persönlichen..... fehlerhaften.. Hilfe!

Hmmmmmmmmmmmmmmm  

lg. Martin

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

---

Zitat:

---

Original erstellt von CADmium:
amlgmove ist als Dialog-Routine programmiert .. dafür gibt es keine Kommandozeilenversion. Wenn du es ohne Dialog haben willst, mußt du die Funktionalität nachprogrammieren.

---

Schade!

Dann bringt mich vermutlich auch das VBA nicht weiter.

Es würde mich schon interessieren wie ich die Funktionalität nachprogrammieren könnte. Leider habe ich keinen blassen Schimmer wie ich die Funktionen zusammenkriege.

Gruss Josef

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