---

Servus!

Ich markiere Zellen in Excel und kopiere den Inhalt in die Zwischenablage.
Kann ich den Zelleninhalt mit LISP wieder abfragen (ohne Umweg über csv oder txt)?

Ciao Georg

------------------
http://www.xxx-tausend.info

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

---

CLIPBOARDDEMO.zip

Hab ich schon mal über das Windows - OBJECT "HTMLFILE" gemacht... anbei mal ne Machbarkeitsstudie ...

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - 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,
kopieren wäre nicht notwendig du kannst die augewälten zellen aus Lisp abfragen (meine ich)

------------------
Gruß Wolfgang

Alias: Rabbit007 und Wolli1

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

---

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

---

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

---

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

---

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

---

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