---

Hallo zusammen,

ich möchte eine Exceltabelle mit 271 Zeilen (oder mehr) und 55 Spalten (oder mehr) in AutoCAD per OLE einfügen. Aber er zeigt mir nur ca. 30 Zeilen an. Wie kann man das einstellen, das die komplette Exceltabelle in ACAD eingefügt wird???

------------------

cu
Heiko

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

---

only bad news are good news    

IN AC2002 GAR NICHT !!!

Siehe autodesk-Knowledgebase:
http://usa.autodesk.com/adsk/servlet/ps/item?siteID=123112&id=2895807&linkID=2475323 
------------------
Grüsse

Thomas

[Diese Nachricht wurde von tunnelbauer am 13. Mai. 2004 editiert.]

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

---

du kannst die Excel-Tabelle als CSV speichern und als D-Text-Objekte einfügen... Beispielcodierung ... musst höhstwahrschenlich für deine Bedürfnisse anpassen.

Code:

---

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(setq
      x_distance  10
      y_distance  2
      text_height 1
      text_style  "??????????"
      text_align  "ml"
)

(defun c:tabelle (/ txt txt_lst x y)
  (setvar "cmdecho" 0)
  (setvar "blipmode" 0)
  (command "_style" "txt_style" text_style text_height "1.0" "" "" "" ;|""| ; )
  ;;; ACAD BUG ? ;;;
  (setq data_file (getfiled "Dateiauswahl:" "" "CSV" 0))
  (setq start_pt (getpoint
  "\nBestimmen sie die linke obere Ecke der Tabelle."
)
  )
  (setq y (cadr start_pt))
  (setq fp (open data_file "r"))
  ;; read data
  (while (setq txt (read-line fp))
    (setq txt_lst (parse txt))
    (setq x (car start_pt))
    (print_lst txt_lst)
    (setq y (- y y_distance))
  )
  (close fp)
)

(defun parse (txt / n count word lst in_quart)
  (setq n (strlen txt)
count 1
word ""
in_quart nil
lst nil
  )

  (while (<= count n)
    (setq char (substr txt count 1))

    (if (= char "\"")
      (if in_quart
(setq in_quart nil)
(setq in_quart T)
      )
    )
;;;Trennzeichen
    (if (and (= char ",") (= in_quart nil))
      (progn
(setq lst (append lst (list word)))
(setq word "")
      )
      (progn
(if (/= char "\"")
  (setq word (strcat word char))
)
(if (= count n)
  (setq lst (append lst (list word)))
)
      )
    )
    (setq count (1+ count))
  )
  (setq lst lst)
)

(defun print_lst (lst / txt txt_pt)
  (foreach txt lst
    (setq txt_pt (list x y))
    (command "_.text" "_s" "txt_style" "_j" text_align txt_pt "0" txt)
    (setq x (+ x x_distance))
  )
  (princ)
)
(princ)

---

------------------
"Lisp?!?! Why the Hell did you pick the most arcane, obscure, and hopelessly-rooted-in-the-computer-science-department language in the world for an AutoCAD programming language?"  Read the whole story: The Autodesk File ca. 890 Seiten | 7500 KB PDF

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