| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| Request a special discount on NVIDIA RTX 5000 Ada Generation GPU !, eine Pressemitteilung
|
Autor
|
Thema: Infos per AutoLIPS in Zwischenablage (317 mal gelesen)
|
Baldeagle Mitglied
Beiträge: 4 Registriert: 18.06.2008
|
erstellt am: 18. Jun. 2008 15:08 <-- editieren / zitieren --> Unities abgeben:
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 |
Hunchback Mitglied CAD-Tech
Beiträge: 63 Registriert: 10.10.2007 Win2K AutoCAD 2007
|
erstellt am: 18. Jun. 2008 15:18 <-- editieren / zitieren --> Unities abgeben: Nur für Baldeagle
|
Baldeagle Mitglied
Beiträge: 4 Registriert: 18.06.2008
|
erstellt am: 18. Jun. 2008 15:42 <-- editieren / zitieren --> Unities abgeben:
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 18. Jun. 2008 16:11 <-- editieren / zitieren --> Unities abgeben: Nur für Baldeagle
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 |
Baldeagle Mitglied
Beiträge: 4 Registriert: 18.06.2008
|
erstellt am: 19. Jun. 2008 12:58 <-- editieren / zitieren --> Unities abgeben:
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 |
Hunchback Mitglied CAD-Tech
Beiträge: 63 Registriert: 10.10.2007 Win2K AutoCAD 2007
|
erstellt am: 19. Jun. 2008 14:40 <-- editieren / zitieren --> Unities abgeben: Nur für Baldeagle
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 19. Jun. 2008 14:46 <-- editieren / zitieren --> Unities abgeben: Nur für Baldeagle
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 |
Baldeagle Mitglied
Beiträge: 4 Registriert: 18.06.2008
|
erstellt am: 20. Jun. 2008 13:09 <-- editieren / zitieren --> Unities abgeben:
@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 |