---

Hi zusammen,

ich habe folgedes Problem:

Ein Block mit Attributen (ca.50 Stk/Unsichtbar) wird per Makro eingefügt und soll anschließend ausgefüllt werden.(Für Datenextraktion um ein Datenblatt zu erstellen)

Gibt es die Möglichkeit, eine Abfrage zu erstellen, die JA / Nein zur Auswahl hat zum anklicken?
und wenn ja zum nächsten Attribut springt?

Hat jmd einen Ansatz für mich?

Einen Excelspezialisten hätte ich hier der auch VBA kann.

Gruß

------------------
Aus technischen Gründen befindet sich die Signatur auf der Rückseite dieser Nachricht!

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

---

Wenn dann nur mit VBA bzw. DCL da die Logik speziell für dein Fall nachprogrammiert werden müsste.

------------------
MfG Proxy

Bitte beachten Sie: Die Verwendung der hier bereitgestellten Signatur geschieht auf Ihre eigene Verantwortung. Diese Signatur wird ohne Gewähr auf Richtigkeit, Vollständigkeit und/oder Funktionalität, sowie ohne Anspruch auf Support zur Verfügung gestellt.

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

---

OK, mal ein erster Ansatz....
Mit

Code:

---

(vla-eval (vlax-get-acad-object) "ThisDrawing.SetVariable \"USERI1\", MsgBox(\"Abfrage\", vbQuestion + vbYesNo)")

---

kannst Du in Lisp eine einfache Ja/Nein-Abfrage starten. Das Ergebnis steht dann in "useri1" und Du kannst entsprechend reagieren.

Grüsse, Henning

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

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

---

... und eine kleine weitere Hilfestellung:

Code:

---

(defun c:ausfragen (/ att_val z att)
  (setq att_val '(
                  ("Kannst Du Lisp?" "Fachmann" "Anwender")
                  ("Bist Du müde?" "müde" "wach")
                  ("Hast Du Hunger?" "hungrig" "satt")
                  ("Hast Du Durst?" "durstig" "sitt, schmöll, stulln, gestillt, getränkt, oder wamp")
                  )
        z -1
  )
  (while (setq att (nth (setq z (1+ z)) att_val))
    (if (= (ask-vb-yes-no (car att)) 6)
      (prompt (strcat "Du bist " (cadr att)".\n"));Hier die Sachen bei JA
      (prompt (strcat "Du bist " (caddr att)".\n"));Hier die Sachen bei NEIN
    )
  )
)

;Aufruf der VBA-Dialogbox "MSGBOX"
;Rückgabe 6=Ja, 7=Nein
(defun ask-vb-yes-no (msg / old_useri1 ant)
  (setq old_useri1 (getvar "useri1"))
  (vla-eval (vlax-get-acad-object) (strcat "ThisDrawing.SetVariable \"USERI1\", MsgBox(\"" msg "\", vbQuestion + vbYesNo)"))
  (setq ant (getvar "useri1"))
  (setvar "useri1" old_useri1)
  ant
)

---

Grüsse, Henning

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

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

---

Danke Henning!

werde mich nun damit weiter beschäftigen.

Gruß

------------------
Aus technischen Gründen befindet sich die Signatur auf der Rückseite dieser Nachricht!

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