---

Hi Leute,
folgende Situation stellt sich bei mir da:
Ich habe in ACad 2002 Höhenpunkt mit x,y,z Werten durch ein Script erzeugt. Sind so ca 900 Punkte. Jetzt versuche ich aus diesen Punkten ein Geländemodell zu erstellen. Habe schon alle mir bekanten automatisch ablufenden Sript-Funktionen wie 3dfläche, 3DNetz, 3DPoly usw. ausgeführt, aber die bekannten Punkte sind nicht in der richten Reihenfolge in meiner Sriptdatei. Also verbindet ACad von Punkt 1 zu 2 usw. Der nachfolgende Punkt ist aber nicht immer der nächste im Geländemodell. Daher meine Vermutung: Es müsste sowas wie ein "Tuch" über die vorh. Punkte gelegt werden, das sich ein Gelände abzeichnet.  Geht sowas mit der reinen ACad-Oberfläche oder brauch man dazu ein extra Tool???

Mir wurde geraten mich hier zumelden... ein Lisp-Tool wäre wohl etwas passendes dafür!?!

Wie immer... Hilfe wird gerne angenommen!!

Gruß.. Marc

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

---

Hallo,
versuchs mal mit
download unter:
xarch.tu-graz.ac.at/autocad/code/mecsolpr/triangulate.lsp
mit dem ist sowas möglich.
Die Punkte müssen als 3D-Objekte oder 3D-Punkte in AutoCAD vorhanden sein, kann aber nicht sagen, ob insgesamt 900 Punkte bearbeitet werden können.

------------------
Gruß Reinhold

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

---

Servus FJ2908

Sieht recht net aus das Ergebnis, nur "zeichnet" er bei mir nichtŽs.
Die Linien werden zwar angezeigt, nach dem Zoomen sind sie aber wieder weg.

Weiss wer wieso?

------------------
schöne Grüsse aus der Steiermark  Bernd P. Warum Einfach es geht auch kompliziert

Bitte Supportangaben eintragen, warum siehst du hier

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

---

Schau dir diese Funktion im Code an:

Code:

---

(defun DRAWTRIANGLE (triangle)
; (entmake (list (cons 0 "LINE")(cons 10 (car triangle))(cons 11 (cadr triangle))))
; (entmake (list (cons 0 "LINE")(cons 10 (cadr triangle))(cons 11 (caddr triangle))))
; (entmake (list (cons 0 "LINE")(cons 10 (caddr triangle))(cons 11 (car triangle))))
(grdraw (car triangle)(cadr triangle) 1)
(grdraw (cadr triangle)(caddr triangle) 1)
(grdraw (caddr triangle)(car triangle) 1)
)

---

Kommentier die drei unteren Zeilen raus und nimm dafür die drei entmake-Zeilen rein. Dann sollte richtig gezeichnet werden.

Gruß, Axel Strube-Zettler

------------------
(defun - Lisp over night - AutoLisp-Programmierung für AutoCad - Da weiß man, wann man's hat
Meine AutoLisp-Seiten Mein Angriff auf dein Zwerchfell Mein Lexikon der Fotografie Mein gereimtes Gesülze

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

---

Hallo,

im Unterprogramm DRAWTRAINAGLE werden mit "grdraw" nur Linien auf den Bildschirm gezeichnet, die Zeilen für Linienzeichnen sind mit Semikola gestrichen. Diese Semilola löschen und es werden Linein gezeichnet oder:

(defun DRAWTRIANGLE (triangle)
; (entmake (list (cons 0 "LINE")(cons 10 (car triangle))(cons 11 (cadr triangle))))
; (entmake (list (cons 0 "LINE")(cons 10 (cadr triangle))(cons 11 (caddr triangle))))
; (entmake (list (cons 0 "LINE")(cons 10 (caddr triangle))(cons 11 (car triangle))))
(grdraw (car triangle)(cadr triangle) 1)
(grdraw (cadr triangle)(caddr triangle) 1)
(grdraw (caddr triangle)(car triangle) 1)
(command "LAYER" "MACH" "3DFLAECHE" "")
(entmake (list (cons 0 "3DFACE") (cons 8 "3DFLAECHE")
                (cons 10 (car triangle))(cons 11 (cadr triangle))
                (cons 12 (caddr triangle)) (cons 13 (car triangle))))
)

dann werden 3d-Flächen auf dem Layer "3DFLAECHE" erzeugt.

------------------
Gruß Reinhold

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

---

Das wäre eine schöne Sache, wenn man damit ein Netz bekäme.
Aber leider werden nur Linien gezeichnet.

Gruß FP

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

---

Was für ein Netz?

------------------
(defun - Lisp over night - AutoLisp-Programmierung für AutoCad - Da weiß man, wann man's hat
Meine AutoLisp-Seiten Mein Angriff auf dein Zwerchfell Mein Lexikon der Fotografie Mein gereimtes Gesülze

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

---

Na ein richtig schönes 3D-Netz !
Gruß FP

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

---

3DNetz? Wirklich? Das setzt regulierte Anzahl von Stützpunkten in U- und V-Richtung voraus. Oder doch lieber ein PNETZ? Das wäre frei in der Dimensionierung. Hier geht's doch um Triangulierung, da bringen Netze aus Vierecken eigentlich wenig.

Meine Frage zielte eigentlich sowieso mehr in die Richtung, ob es da nicht noch irgendwelche ADT-Specials gibt... Arbeitet ADT überhaupt mit dem Flächenmodell?

Gruß, Axel Strube-Zettler

------------------
(defun - Lisp over night - AutoLisp-Programmierung für AutoCad - Da weiß man, wann man's hat
Meine AutoLisp-Seiten Mein Angriff auf dein Zwerchfell Mein Lexikon der Fotografie Mein gereimtes Gesülze

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

---

Diese Triangel-Netze sind eigentlich unästhetisch. Und es ist schließlich auch nur eine Annäherung. Ich halte es für sinnvoller Höhepunkte als Quadratnetz aufzubereiten. Bei größeren Bewegungen muß die Dichte eben höher sein.
Da sind die Werkzeuge bei AutoCAD und ADT nicht gerade komfortabel. Wenn man aber mal so ein Netz gemacht hat, kann man bei ADT daraus ganz schnell ein Massenelement erzeugen.

Gruß FP

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

---

flaschenpost schrieb:

> Diese Triangel-Netze sind eigentlich unästhetisch

Interessante Theorie;-) Das Programm von Piazza erzeugt aber nun mal triangulierte Daten. Das Problem bei den viereckigen Dingern ist, dass die Flächen nicht planar sind - ausser wenn das ganze Mesh völlig flach ist wie ein Teich bei Windstille. Und dann braucht man es ja eigentlich gar nicht, oder?

Das, was Acad als 3dNetz anbietet, ist nur als Drahtmodell tauglich. Rendern lässt sich's nicht.

Was ist ein Massenelement im ADT?

Gruß, Axel Strube-Zettler

------------------
(defun - Lisp over night - AutoLisp-Programmierung für AutoCad - Da weiß man, wann man's hat
Meine AutoLisp-Seiten Mein Angriff auf dein Zwerchfell Mein Lexikon der Fotografie Mein gereimtes Gesülze

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