---

Hallo Leute
Ich bin gerade beim ausprobieren von den Funktionen von AutoCad 2005 und hab festgestellt das es Tabellen, Schriftfelder usw. gibt.!!
Nun meine Frage:
Ich habe eine Zeichnung mit einem Block das 1 Attribut enthält (Bezeichnungsnummer)
Dieser Block kommt natürlich mehrmals vor. Nun möchte ich mir eine Tabelle erstellen in der ich den Name und natürlich die X- und Y Koordinate eintragen kann.
Mit den Schriftfeldern funktioniert das ja ganz gut nur muß ich jedesmal wenn ich die X- und Y-Koordinate von den jeweiligen Blöcken übertragen will einzeln anklicken und das ist recht mühsam!!!
Ich hab auch schon versucht die Blöcke-Attribute (Nummer+X-Y-Koordinaten) zu exportieren in eine Excel-Liste nur wie kann ich dann gewisse Daten/Zellen in eine AutoCad Tabelle übertragen!
Ich möchte mir eigentlich die Excel-Tabelle ersparen denn so könnte ich wenn sich der Block verschiebt mit den Koordinaten einfach auf aktuallisieren gehen und alles passt wieder.
Gibt es nicht irgend eine Funktion mit der ich definieren kann das er mir wenn ich den Block einmal anklicke mir jeweils den Name, die X- und die Y Koordinate in ein Feld-Tabelle schreibt!??!

Ich hoffe ich hab mich halbwegs verständlich ausgedrückt

LG Petra

------------------
LG Petra

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

---

Hallo,

da ich auch kein Profi bin - eher der Versuch zu helfen. Du kannst doch eine Exceltabelle als OLE Objekt ins ACAD einfügen die würde sich dann auch aktualisieren!

CU seb

------------------
sebklei

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

---

Du könntest z.B. in die neue Tabellenfunktionen "Feldfunktionen" einfügen

z.B. %<\AcObjProp Object(%<\_ObjId 2130310008>%).TextString \f "%tc1">%

die z.B. die Attributwerte dir entsprechend anzeigen, nur ob das auch in der Praxis händich gerechtfertigt ist, siehe ich sehr kritisch (ggf. willst du ja auch eine automatische Sortierung haben). Ob sich da eine Zusatztprogrammierung nicht direkt lohnen würde die entsprechend alle Blöcke mit allen Attributwerten dir entsprechend in eine Tabelle reinschreibt besser wäre will ich mal so in den Raum hier reinstellen. Vielleicht hat einer mehr Erfahrung mit diesen tollen Tabellen denn leider hat _.tableedit Befehlszeilenoptionen und in VBA ist das Ding IMHO eigentlich auch einfacher realisierbar.

------------------
MfG Proxy

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

---

  so heftig wie in VBA ist es in ActiveX ist es ja auch nicht 

Code:

---

(vl-load-com)
;; Spaltenüberschrift
(setq tabelle_ueberschrift (list "Spaltenüberschrift 1"
"Spaltenüberschrift 2"
"Spaltenüberschrift 3"
"Spaltenüberschrift 4"
  )
)
;; Liste der Einträge unterhalb der Spaltenüberschrift
(setq tabellen_liste
      (list (list "1.1" "2.1" "3.1" "4.1")
    (list "1.2" "2.2" "3.2" "4.2")
    (list "1.3" "2.3" "3.4" "4.3")
    (list "1.4" "2.4" "3.5" "4.4")
      )
)

;; Tabellenobjekt erstellen
(setq vlaxchen_tabelle
      (vla-addtable
      ;; Tabellenobjekt im Modelbereich erstellen
      (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object)))
      ;; Tabelleneinfügepunkt = 0,0,0
      (vlax-3d-point (list 0 0 0))
      ;; Spaltenanzahl - Inkl. beider Überschriften
      (+ (length tabellen_liste) 2)
      ;; Zeilenanzahl
      (length tabelle_ueberschrift)
      ;; Zellenhöhe
      5.0
      ;; Spaltenbreite
      40.0
      )
)
;; Tabellenüberschrift einsetzten
(vla-settext
vlaxchen_tabelle
0
0
"Gesamttabellenüberschrift"
)
;; Zellentextausrichtung
(vla-setcellalignment vlaxchen_tabelle 0 0 acmiddlecenter)
;; Zellentexthöhenfestlegung
(vla-setcelltextheight vlaxchen_tabelle 0 0 5)
;; Weil die Null immer nach dem Urknall kommt
(setq spalte 0)
;; Erzeugung aller Überschriften
(foreach item tabelle_ueberschrift
;; header
(vla-settext vlaxchen_tabelle 1 spalte item)
;; Ausrichtung
(vla-setcellalignment vlaxchen_tabelle 1 spalte acmiddlecenter)
;; Texthöhe
(vla-setcelltextheight vlaxchen_tabelle 1 spalte 1.65)
;; Nächste Spalte
(setq spalte (1+ spalte))
)
;; Start ab zweiter Zeile
(setq zeile 2)
;; Erste Spalte
(setq spalte 0)
;; Erzeugung aller Zeilen
(foreach zeilen tabellen_liste
;; Fütterung aller Zeilen mit Werten
(foreach item zeilen
  ;; Zellenwert
  (vla-settext vlaxchen_tabelle zeile spalte item)
  ;; Textausrichtung
  (vla-setcellalignment vlaxchen_tabelle zeile spalte acmiddlecenter)
  ;; Texthöhe
  (vla-setcelltextheight vlaxchen_tabelle zeile spalte 1.65)
  ;; Nächste Spalte
  (setq spalte (1+ spalte))
)
;; Nächste Zeilen
(setq zeile (1+ zeile))
;; Nächste Spalte
(setq spalte 0)
)
(princ)

---

------------------
MfG Proxy

[Diese Nachricht wurde von Proxy am 08. Mai. 2005 editiert.]

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