---

Hallo,

ich habe eine Zeichnung mit Blöcken. Aus diesen Blöken möchte ich einige Daten ermitteln und diese in die Zwischenablage speichern, um die Infos per Strg+v in andere Programme einzufügen.
Den LISP-Teil zum ermitteln der Daten habe ich, allerdings kriege ich die Infos nicht in die Zwischenablage.

Hoffentlich kann mir bitte jemand helfen!

Danke im voraus

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

---

hier
http://ww3.cad.de/foren/ubb/Forum145/HTML/000803.shtml#000000

war sowas schon mal Thema.

evtl. auch mal bei theswamp.org reinschauen, ich glaub dort hab ich auch  schon mal was drüber gesehen

grü

Martin

------------------
You seem (in my (humble) opinion (which doesn't mean much)) to be (or possibly could be) more of a Lisp programmer (but I could be (and probably am) wrong).

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

---

Danke für die schnelle Hilfe.
Aber vielleicht hat ja noch jemand eine Idee ohne DLL?
Da ich das Tool auf mehreren Rechnern einsetzen muss...

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

---

da der IE eigentlich fast standardmäßig auf jedem WIN-Rechner vorhanden ist, könnte man zum Textinhalte kopieren auch sowas nehmen :

(vl-load-com)

(defun copyToclipboard ( str / ieobj)
  (setq ieobj (vlax-get-or-create-object
                      "InternetExplorer.Application"
                      )
            )
(vlax-invoke ieobj 'navigate2 "about:blank")
(vlax-invoke
(setq cbrd (vlax-get (vlax-get (vlax-get ieobj 'document) 'parentwindow)
'clipboarddata
))
'setdata
"text"
str
)
(vlax-release-object ieobj) 
)

(defun Clearclipboard (  / ieobj)
  (setq ieobj (vlax-get-or-create-object
                      "InternetExplorer.Application"
                      )
            )
(vlax-invoke ieobj 'navigate2 "about:blank")
(vlax-invoke
(vlax-get (vlax-get (vlax-get ieobj 'document) 'parentwindow)
'clipboarddata
)
'clearData
"text"
)
(vlax-release-object ieobj) 
)

(defun Getclipboard ( / ieobj str)
  (setq ieobj (vlax-get-or-create-object
                      "InternetExplorer.Application"
                      )
            )
(vlax-invoke ieobj 'navigate2 "about:blank")
(setq str(vlax-invoke
(vlax-get (vlax-get (vlax-get ieobj 'document) 'parentwindow)
'clipboarddata
)
'getData
"text"
))
(vlax-release-object ieobj)
  str
)

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

danke für die Hilfe.
Nur leider komme ich damit nicht so ganz zu recht.
Ich habe Deinen Text in mein LISP-Tool kopiert und den Befehl eingebaut.
Der "eigene" Teil von mir sieht so aus:

(defun c:zwab ( / )

  (setq block (car (entsel "\nBitte auszulesenden Block wählen:")))
  (setq handle (cdr (assoc 5 (entget block))))
  (setq kriterium (cdr (assoc 2 (entget block))))
  (while (/= kriterium "ARTIKEL-ID")
    (setq block (entnext block))
    (setq kriterium (cdr (assoc 2 (entget block))))
    (if (= kriterium "ARTIKEL-ID")
        (setq artikelid (cdr (assoc 1 (entget block))))
    )
  )
  (setq str (strcat (getvar "dwgname") ";" handle ";" artikelid))

(princ "\ntext:")(princ str)
(copyToclipboard)

(princ)
) ; Ende vom defun zwab

Leider hängt sich AutoCAD 2006 komplett auf und ich muss es mit dem Task-Manager beenden.
Das Tool kommt bis zum (vlax-invoke ieobj 'navigate2 "about:blank"), danach hängt AutoCAD sich auf.

Gruß&Dank
Marc

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

---

DOSLIB wär auch noch eine Möglichkeit.

Schau mal hier:
http://www.de.emea.mcneel.com/

------------------
You  seem (in my (humble) opinion (which doesn't mean much)) to be (or possibly could be) more of a Lisp programmer (but I could be (and probably am) wrong).

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

---

Zitat:

---

Original erstellt von Baldeagle:
Hallo Thomas,

danke für die Hilfe.
Nur leider komme ich damit nicht so ganz zu recht.
Ich habe Deinen Text in mein LISP-Tool kopiert und den Befehl eingebaut.
Der "eigene" Teil von mir sieht so aus:

(defun c:zwab ( / )

  (setq block (car (entsel "\nBitte auszulesenden Block wählen:")))
  (setq handle (cdr (assoc 5 (entget block))))
  (setq kriterium (cdr (assoc 2 (entget block))))
  (while (/= kriterium "ARTIKEL-ID")
    (setq block (entnext block))
    (setq kriterium (cdr (assoc 2 (entget block))))
    (if (= kriterium "ARTIKEL-ID")
        (setq artikelid (cdr (assoc 1 (entget block))))
    )
  )
  (setq str (strcat (getvar "dwgname") ";" handle ";" artikelid))

(princ "\ntext:")(princ str)
(copyToclipboard)

(princ)
) ; Ende vom defun zwab

Leider hängt sich AutoCAD 2006 komplett auf und ich muss es mit dem Task-Manager beenden.
Das Tool kommt bis zum (vlax-invoke ieobj 'navigate2 "about:blank"), danach hängt AutoCAD sich auf.

Gruß&Dank
Marc

---

ja ,da kommt dann - wenn nicht abgeschaltet- eine Sicherheitsabfrage, ab man den Zugriff des IE auf die Zwischenablage gestatten will .. irgendwo muß der Dialog rumgeistern ... also ist die Lösung auch nicht das Wahre ..

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

---

@Hunchback: Danke für die Hilfe. Aber wenn ich das richtig sehe, hätte ich dann wieder das Problem mit den verschiedenen Rechnern, auf denen es laufen muss.

@Thomas: Stimmt, da versteckt sich ein Dialog "hinter" AutoCAD. Wenn ich den "Desktop anzeige" und dann wieder auf AutoCAD wechsle, sehe ich die Abfrage. Bestätige ich diese, habe ich, wie gewünscht, den Text in der Zwischenablage.
Jetzt habe ich im IE die entsprechende Einstellung gemacht und es klappt!
VIELEN DANK!!!!!

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