| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY wird von NVIDIA zum Händler des Jahres gewählt – zum dritten Mal in Folge, eine Pressemitteilung
|
Autor
|
Thema: Aus Zwischenablage einlesen (1440 / mal gelesen)
|
gmk Mitglied Dipl.-Ing.(FH) Vermessung
Beiträge: 669 Registriert: 23.10.2002 Autocad 2004, WS CadCompass, Normica V2000, WinXP Prof., AMD Athlon 64 X2, 2GB, NVIDIA GeForce 7600GS, HP1055CM
|
erstellt am: 22. Jun. 2016 09:20 <-- editieren / zitieren --> Unities abgeben:
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 22. Jun. 2016 09:38 <-- editieren / zitieren --> Unities abgeben: Nur für gmk
|
Meldin Mitglied
Beiträge: 398 Registriert: 15.07.2011 ACA2020 Windows10
|
erstellt am: 22. Jun. 2016 14:07 <-- editieren / zitieren --> Unities abgeben: Nur für gmk
|
Andreas Kraus Mitglied Elektrotechniker
Beiträge: 1455 Registriert: 11.01.2006 WIN 10 ACAD 2022 BricsCAD V23
|
erstellt am: 23. Jun. 2016 10:51 <-- editieren / zitieren --> Unities abgeben: Nur für gmk
Hallo Georg, ja das geht. Hier mal was für den Anfang. Hab ich mühevoll hier im Forum gesucht, gefragt, geholfen bekommen und jetzt kann ich das mal zurückgeben Zum Initialisieren:
Code: (defun k_excel_init (create) (if create (if (not (setq excel (vlax-get-object "excel.application"))) (progn (setq excel (vlax-get-or-create-object "excel.application")) (vla-put-visible excel 1) (vlax-invoke-method (vlax-get-property excel 'workbooks) 'add ) ) ) (setq excel (vlax-get-object "excel.application")) ) (if excel (progn (setq excelworkbook (if excel (vlax-get-property excel "ActiveWorkbook" ) ) excelsheet (if excelworkbook (vlax-get-property excelworkbook "ACTIVESHEET" ) ) excelcells (if excelsheet (vlax-get-property excelsheet "CELLS" ) ) ) ) (alert "Excel nicht gefunden") ) )
Zum wieder freigeben (ganz am Schluss):
Code: (defun k_excel_release () (vlax-release-object excel) (vlax-release-object excelworkbook) (vlax-release-object excelsheet) (vlax-release-object excelcells) )
Hier etwas für den Verwendeten Bereich:
Code: (defun k_excel-usedrange (excelsheet art / startzeile zeilen startspalte spalten) ;;; Benutzten Bereich von Excel feststellen (setq startzeile (vlax-get-property (vlax-get-property (vlax-get-property excelsheet "UsedRange") "ROWS" ) "Row" ) zeilen (vlax-get-property (vlax-get-property (vlax-get-property excelsheet "UsedRange") "ROWS" ) "COUNT" ) startspalte (vlax-get-property (vlax-get-property (vlax-get-property excelsheet "UsedRange") "Columns" ) "COLUMN" ) spalten (vlax-get-property (vlax-get-property (vlax-get-property excelsheet "UsedRange") "Columns" ) "COUNT" ) ) (if art (strcat (k_dez->excel startspalte) (itoa startzeile) ":" (k_dez->excel (+ startspalte spalten -1)) (itoa (+ startzeile zeilen -1)) ) (list startzeile zeilen startspalte spalten) ) )
Das braucht die Funktion zum Umrechnen:
Code: (defun k_dez->excel (zahl / txt z) ;;; Zahl in alphanumerische Excel-Spaltenbezeichnung konvertieren (setq txt "") (while (> zahl 26) (setq z (rem zahl 26)) (if (= z 0) (setq z 26 zahl (- zahl 26) ) ) (setq zahl (fix (/ zahl 26)) txt (strcat (chr (+ z 64)) txt) ) ) (setq txt (strcat (chr (+ zahl 64)) txt)) )
Damit erzeuge ich für mich eine datenliste. Schau mal ob du das so brauchen kannst.
Code: (defun k_excel_excel->datenliste (/ rngobj excel_variant datenliste n) ;;; Exceldaten in Datenliste schreiben (setq rngobj (vlax-get-property excelsheet 'range (k_excel-usedrange excelsheet t) ) ) (if (setq excel_variant (VLAX-VARIANT-VALUE (vlax-get-property rngobj 'value2) ) ) (setq n 0 datenliste (vl-remove-if '(lambda (data) (null (car data))) (mapcar '(lambda (zeile) (setq n (1+ n)) (if (vl-every 'null (mapcar '(lambda (dummy) (if (and (= (type dummy) 'variant) (= (VLAX-VARIANT-TYPE dummy) 10) ) t nil ) ) zeile ) ) (mapcar 'VLAX-VARIANT-VALUE zeile) (alert (strcat "Fehler in Zeile " (itoa n))) ) ) (VLAX-SAFEARRAY->LIST excel_variant ) ) ) datenliste (mapcar '(lambda (data) (mapcar 'cons (car datenliste) data)) (cdr datenliste) ) ) ) datenliste )
Un hier endlich der Schnipsel mit den markierten Zellen den du brauchst und weiterverarbeiten musst: (da hab ich jetzt nichts fertiges, weil ich mit den markierten Zellen was ganz anderes vorhabe)
Code: (vlax-get-property (vlax-get-property excel "selection") "Address" 0 0 0 0 0 )
Ich hoffe dass ich keine Funktion vergessen habe (hab ich sicher, ich kenn mich ) Ach ja, (vl-load-com) nicht vergessen Wenn du noch was brauchst, ich hab noch mehr. ------------------ Geht nicht, gibts nicht Gruß Andreas http://kraus-cad.de Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Bernd P Ehrenmitglied V.I.P. h.c. cook-general
Beiträge: 3424 Registriert: 07.06.2001 W10-64bit, AMD Ryzen 7 3700X,32GB RAM, Sapphire Pulse Radeon RX 570 8G G5, Canon TX-3000 MFP, Maus Cherry MW4500, Sub:Infrastructure Design Suite, Office 365
|
erstellt am: 23. Jun. 2016 11:29 <-- editieren / zitieren --> Unities abgeben: Nur für gmk
Servus, was sind das den für Inhalte? man kann über VBA die Inhalte auch direkt von Excel nach Autocad senden. Wenn man das geschickt macht kann man jeden beliebigen Bereich senden. kuckst du hier http://ww3.cad.de/foren/ubb/Forum54/HTML/016228.shtml#000003 ------------------ <----- Bitte Systeminfo eintragen, warum siehst du hier. Wünsche: Tabllen (XLS,ODS) FDO nativ einbinden, FDO-WMTS, richtige Ebenen für Layer, Erweiterter Attribut-Editor "auffrischen", dyn. Xrefs, mehrere modell Bereiche, Halo4Texte, verschränkte Attribute, Linientypen überarbeiten (doppellinien) , XREF>VISRETAIN pro XREF Fehler: FDORasterdaten im Layout Richtigen Maßstab verwenden, funktionierende updates u. erweiterungen inkl. installationsroutinen, Fehler zwischen Normal MAP Civil beheben Schöne Grüsse aus der Steiermark Bernd P. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Andreas Kraus Mitglied Elektrotechniker
Beiträge: 1455 Registriert: 11.01.2006 WIN 10 ACAD 2022 BricsCAD V23
|
erstellt am: 23. Jun. 2016 22:11 <-- editieren / zitieren --> Unities abgeben: Nur für gmk
Auch mal interessant. Ich mach das ja immer aus ACAD mit Lisp, aber andersrum aus Excel isses vielleich bequemer weil man nicht erst noch ACAD aktiv machen muss, sondern einfach mal da bleibt wo man schon ist. Wie gesagt ... interessant. Der Basteltrieb meldet sich ------------------ Geht nicht, gibts nicht Gruß Andreas http://kraus-cad.de Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadffm Moderator 良い精神
Beiträge: 22275 Registriert: 03.06.2002 Alles
|
erstellt am: 23. Jun. 2016 23:00 <-- editieren / zitieren --> Unities abgeben: Nur für gmk
Acad-Acad Acad-Excel Excel-Acad Excel-Excel, egal. Ich nutze sogar Excel-Acad-Excel. ( Routine war bereits in Acad vorhanden, warum neu machen. Ich starte die Routine in Excel, die läuft in Acad und steuert dabei Excel ) LoL(für eigene Belange natürlich nur) ------------------ CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadplayer Ehrenmitglied CADniker
Beiträge: 1833 Registriert: 28.04.2009 Windows 10 64bit system Autocad Civil3d 2020 ENGLISH Visual Studio 2019 OpenDCL.Runtime.9<P>
|
erstellt am: 24. Jun. 2016 09:21 <-- editieren / zitieren --> Unities abgeben: Nur für gmk
Hi Georg! Das wäre vielleicht das passende für dich (nicht von mir)
Code: (defun c:xx() (defun _SetClipBoardText (text / htmlfile result) ;; Caller's sole responsibility is to pass a ;; text string. Anything else? Pie in face. ;; ;; Attribution: Reformatted version of ;; post by XShrimp at theswamp.org. ;; ;; See http://tinyurl.com/2ngf4r. ;; ;; Michael P. (http://www.theswamp.org/index.php?topic=21764.msg263322#msg263322) (setq result (vlax-invoke (vlax-get (vlax-get (setq htmlfile (vlax-create-object "htmlfile")) 'ParentWindow ) 'ClipBoardData ) 'SetData "Text" text ) ) (vlax-release-object htmlfile) text ) (defun GetClipText(/ html result) (setq html (vlax-create-object "htmlfile") result (vlax-invoke (vlax-get (vlax-get html 'ParentWindow) 'ClipBoardData) 'GetData "Text") ) (vlax-release-object html) result ) ;;; (princ (strcat "\n set Clipboard values: " (_SetClipBoardText "123"))) (princ (strcat "\n get to Clipboard: " (GetClipText))) (princ) )
------------------ Gruss Dirk Blog | Adolf Spende | Infra-Feed | ÅF AB
[Diese Nachricht wurde von cadplayer am 24. Jun. 2016 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |