---

Hallo!
Ich möchte Koordinaten in eine AcadTabelle überführen. Das bewerkstellige ich nach dem Prinzip

Code:

---

(setq tableVL (vla-addtable
  (vla-get-modelspace
    (vla-get-activedocument (vlax-get-acad-object))
  )
  (vlax-3d-point ptins)
  (+ (length data) 2)
  4
  0.5
  5
)
  )
(vla-setText tableVL 0 0 "Coordinate Export table")
  (mapcar '(lambda (x) (vla-setText tableVL 1 (car x) (cdr x))) '((0 . "No") (1 . "X") (2 . "Y") (3 . "Z")))

---

Lasse ich jetzt der Reihe nach die "Zellen" der Tabelle mit Werten bestücken, funktioniert das zwar, aber ich bewege mich im kritischen Bereich, dass das Programm und noch dazu Acad abstürzen könnte.

1)
Ich hätte gern die Tabelle, weil die sich ohne weiteres auch nach Excel exportieren lässt
2)
Eine Prozessanzeige wäre sinnvoll, nur habe ich da die Erfahrung gemacht, dass bei grossen Datenmengen auch diese abbricht
3)
Was wäre sinnvoll bei Listen in eine Tabelle zu importieren

------------------
Gruss Dirk
http://cadplayerlounge.blogspot.se

[Diese Nachricht wurde von cadplayer am 29. Sep. 2014 editiert.]

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

---

Prinzipiell :

(setq DATA'((-45.8670 -30.9151 0.0) (-48.5741 -31.1933 0.0) (-31.7748 -29.6034 0.0) (-34.6628 -29.6926 0.0) (-36.5924 -31.8609 0.0)
            (-43.7251 -31.8421 0.0) (-37.7805 -31.5161 0.0) (-43.4488 -29.7476 0.0) (-37.374 -30.889 0.0)  (-43.1399 -32.1199 0.0)
            (-46.0042 -30.4013 0.0) (-41.7444 -31.363 0.0)  (-37.6839 -31.687 0.0)  (-34.812 -31.0814 0.0)  (-50.6044 -31.2619 0.0)
            (-46.8771 -31.8761 0.0) (-47.3175 -32.0038 0.0) (-51.1731 -31.2796 0.0) (-45.5781 -29.8948 0.0) (-43.1771 -31.4218 0.0)
            (-47.8098 -31.4368 0.0) (-34.4497 -31.6044 0.0) (-40.0104 -30.6271 0.0) (-31.9569 -30.1384 0.0) (-50.7705 -31.7239 0.0)
            (-35.6447 -30.1691 0.0) (-31.7747 -30.1017 0.0) (-39.4553 -31.7579 0.0) (-37.7546 -29.8305 0.0) (-46.9823 -30.5526 0.0)
            (-31.5694 -31.0738 0.0) (-34.7141 -30.2986 0.0) (-36.6657 -31.0515 0.0) (-37.8892 -31.0617 0.0) (-41.6049 -30.5899 0.0)
            (-35.7779 -29.8111 0.0) (-42.0352 -30.7028 0.0) (-48.2311 -29.7136 0.0) (-46.7566 -32.0948 0.0) (-50.4989 -32.0395 0.0)
            (-33.2976 -30.5331 0.0) (-41.5844 -31.1145 0.0) (-36.4163 -29.9634 0.0) (-36.694 -31.5042 0.0)  (-40.616 -29.6329 0.0)
            (-32.1554 -31.1653 0.0) (-39.0715 -30.5084 0.0) (-31.4799 -30.8453 0.0) (-38.7131 -30.1091 0.0) (-45.9976 -30.1758 0.0)
          )
)
(defun KTABLE(DATA / TABLEVL X Y ZEILE SPALTE)
(if(and(=(type DATA)'LIST)
      (vl-remove-if-not'(lambda(X)(and(=(type X)'LIST)(=(length X)3)(vl-every 'numberp X))) DATA)
      (setq DATA (cons '("X-Wert" "Y-Wert" "Z-Wert") DATA))     
      (not(vl-catch-all-error-p
            (setq TABLEVL(vl-catch-all-apply
                          'vla-addtable
                          (list
                    (vla-get-modelspace(vla-get-activedocument (vlax-get-acad-object)))  
                    (vlax-3d-point '(0 0 0))
                    (+ (length      DATA)  1)
                    (+ (length (car DATA)) 0)
                    0.5
                    30
                          )
                        ) 
    )
          )
      )   
  )
  (progn 
    (setq Y 0) 
    (foreach ZEILE DATA
      (setq X -1)
      (setq Y(1+ Y))
      (foreach VAL ZEILE
        (vl-catch-all-apply 'vla-setText (list TABLEVL Y (setq X(1+ X)) (vl-princ-to-string VAL)))
      ) 
    )
    TABLEVL
  ) 
)
) 
Aufruf mit (KTABLE DATA)

aber wozu die Tabelle, wenn du sie gar nicht auf der Zeichnung brauchst ... entweder direkt nach Excel oder in eine TXT-Datei, ( ";" getrennt ) die du prima in Excle einlesen kannst ...

------------------
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

---

Hi Thomas!
Danke für deine Version!
Wenn du mal deine Liste um Einträge verdoppelst, knebelt man ganz schön den Rechner. 50 Einträge sind schon fast das Limiet.

Ansich möchte ich gern beides erreichen. Die Liste in der dwg dokumentieren, und wenn man will exportieren.

Im Quelltext, sofern ich es kurz mal wiedergebe, wird zuerst eine Tabelle erzeugt, die entspr. Anzahl Zeilen und Spalten hat.
Danach werden die Einträge aus der Liste, der Reihe nach auf die Zellen verteilt.
Egal welche Schleife man verwendet, zum Datenfüllen, hier zeigen sich Grenzen auf.

Beispielsw. erlebe ich es auch, wenn ich Daten (Koordinaten als Block mit Atrrib) einlese. 1000 Punkte sind schon fast das Limit

Ist das einfach nicht zu machen mit LISP, ich meine grössere Datenmengen zu verarbeiten, oder könnte man eine Art Cache anlegen, der Listen in 20er-Einträgen Stück für Stück einliest?

------------------
Gruss Dirk
http://cadplayerlounge.blogspot.se

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

---

guck dir mal die Property RegenerateTableSuppressed an .. hilft vielleicht?!

Ansonsten würd ich bei 1000 Punkten und mehr nicht über ne Tabelle gehen .. wie schon gesagt

------------------
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

---

Zitat:

---

Original erstellt von cadplayer:
... Ist das einfach nicht zu machen mit LISP, ich meine grössere Datenmengen zu verarbeiten, oder könnte man eine Art Cache anlegen, der Listen in 20er-Einträgen Stück für Stück einliest?...

---

Grenzen gibt's da sicher keine. Es darauf an, wie du das Einlesen programmierst. (oder du machst es mit .Net - das ist in solchen Dingen irre schnell)

Grüße!
Holger

------------------
Holger Brischke
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.

defun-tools Das Download-Portal für AutoCAD-Zusatzprogramme!

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

---

Holger!
Zeitliche Grenzen ja

Thomas!
werd ich mir anschauen ...

Nur um nochmal das Problem zu veranschaulichen wie schnell der Interpreter ausflippt.
Bei mir schafft erŽs bis 70%, danach wirds kritisch, ab die Rechenmaschine schafftŽs.

Code:

---

(defun c:foo (/ z)
  (setq z 0)
  (acet-ui-progress-init "Read Modus " 100)
  (while (< z 100)
    (acet-ui-progress-safe (setq z (+ 0.001 z)))
    )
  (acet-ui-progress-done)
  (princ)
  )

---

Holger, was kann man da noch anders programmieren

------------------
Gruss Dirk
http://cadplayerlounge.blogspot.se

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

---

Tabelle.zip

Zitat:

---

Original erstellt von cadplayer:
... Ist das einfach nicht zu machen mit LISP, ich meine grössere Datenmengen zu verarbeiten, ...

---

Hallo Cadplayer,
ich habe mal kurz das Thema in c#.Net umgesetzt und in einer Zeichnung mit rund 15.000 Punkten getestet. nach ca. 1 min war die Tabelle erstellt. (Zeichnung anbei)

Ich würde also meinen: Grenzen gibt's da nicht, bzw. sind doch recht weit weg.

Grüße!
Holger

------------------
Holger Brischke
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.

defun-tools Das Download-Portal für AutoCAD-Zusatzprogramme!

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

---

COD-KoordinatenTable_2011_2015.zip

... und hier die Programmdateien, die mit
Befehl: NETLOAD
geladen werden müssen.

Die Dateien müssen auf der lokalen Platte gespeichert sein .. und die Datei-Eigenschaften müssen den Zugriff auf die Datei zulassen. (Rechte Maustaste auf Datei -> Eigenschaften und dann [zulassen]) Diese Einstellung ist bei aus dem Internet oder per Mail erhaltenen Dateien erforderlich, weil die Windows-Sicherheitseinstellungen diese Dateien immer so blocken.

Grüße!
Holger

------------------
Holger Brischke
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.

defun-tools Das Download-Portal für AutoCAD-Zusatzprogramme!

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

---

Ahh, da haben wir aneinander vorbeigesprochen. Meinte bezügl. LISP gibt es da Grenzen.
NET - Klar, deswegen bin ich ja dabei, mich reinzubringen in die schier unendliche Weite.
Ich kann, ohne dein Programm zu testen, dir abkaufen
Hab aber noch ein ganzes Stück Arbeit vor mir. Das komplette Packet eben, mit MySQL LINQ und weiss der Deifel wos.
Macht Spass - im übrigen war ich der erste Käufer von Tom Nelsons neuen Buch (http://www.amazon.de/gp/product/1849699372/ref=oh_aui_detailpage_o01_s00?ie=UTF8&psc=1)

------------------
Gruss Dirk
http://cadplayerlounge.blogspot.se

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

---

Hallo Dirk,

ich kann dir nur raten, nicht gleich das komplette Paket vorzunehmen. Schau erst einmal, dass du mit AutoCAD zurecht kommst. Linq würde ich da gleich mit einbeziehen, weil das der Performance sehr gut tut.

Warum MySQL? Wenn du da frei bist in der Auswahl der Datenbank, dann nimm irgendetwas auf Microsoftbasis (SQL, SQLexpress, CompactSQL, ...) und schau dir dann das Entity-Framework an. Das ist optimal für die Anbindung an MS-Datenbanken. Du musst allerdings deine Denke weg von Tabellen hin zu Objekten umstellen. Dort modellierst du 'nur noch' das Objektmodell. Die Tabellenstruktur, die dafür notwendig ist, kann dann automatisch erzeugt werden.
Wenn du dann mit dem Entity-Framework durch bist, dann vergiß ganz schnell Windows.Forms und fängst mit WPF an. Dann bist du vollständig objektorientiert dabei und kannst die Daten(Objekte), die du aus dem Entity-Framework hast direkt an die Steuerelemente binden. Dann stimmt die Performance auch bei großen Datenmengen.

Du hast dir wirklich viel vorgenommen! Und wenn ich das richtig in Erinnerung habe, versuchst du das neben dem normalen Job zu lernen - in dem Rahmen würde ich von mehreren Jahren ausgehen, die du brauchst. Das Brett ist verdammt dick, was Du da bohren willst. Ich wünsche Dir auf jeden fall viel Erfolg dabei.

Grüße!
Holger

------------------
Holger Brischke
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.

defun-tools Das Download-Portal für AutoCAD-Zusatzprogramme!

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

---

Danke Holger! Genau, du sprichst mir von den Lippen. Die liebe gute Zeit, die es braucht. Hat ja mit LISP schon einige Jahre gedauert, etwas durchzusteigen. Sicherlich wird alles avancierter und das motiviert auch. In der Fa. werden meine Funktionen gern angenommen. Und ich bin auch immer erstaunt, was man mit LISP alles erreichen kann. Dank diesen Forums, wurde mir der Weg stark geebnet.
Fixe Antworten auf den Punkt, das macht echt Spass. Ich kann nur sagen, weiter so an die Macher

------------------
Gruss Dirk
http://cadplayerlounge.blogspot.se

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