Einsatz von 3D-Stadtmodellen für Partizipationsverfahren - cpe ...

Arbeitsschritte
Arbeitsschritt Befehl
Zur Definition der Funktion, die "umwandeln" heißen soll, müssen zunächst alle
Argumente und lokalen Variablen festgelegt werden. Da die Funktion im Rahmen
einer geöffneten AutoCAD-Datei ausgeführt wird, bedarf es keiner Argumente.
Somit werden nur die Variablen definiert
Zum Auslesen der relevanten Punkte in der CAD-Datei wird im ersten Schritt die
Variable "punktFilter" bestückt, die die Attribute der relevanten Punkte enthält.
Dies sind die Eigenschaft "POINT" zu sein sowie auf der Ebene "__Punkte 1" zu
liegen.
Der Filter wird mit Hilfe der Funktion "ssget" auf die Zeichnungsdatenbank
angewendet, um alle Punkte mit den oben definierten Eigenschaften in die
Variable "punktliste" zu laden. "ssget" liefert jedoch einen Auswahlsatz zurück,
der einen eigenen Datentyp darstellt und nicht mit den normalen Listenbefehlen
angesprochen werden kann.
AA1 soll als Schleifenbegrenzung dienen und wird daher mit der Anzahl der
Punkte gleichgesetzt.
Das Pendent zum Punktfilter ist der Filter für die Objekte, die Textfelder sind und
auf der gleichen Ebene liegen.
Praktische Implementation
(defun umwandeln (/ punktFilter punktliste i
punktname textFilter textliste j textname
groupcodetext neuehoehe AA1 AA2 AA3
AA4 AA5)
(setq punktFilter(list (cons 0 "POINT")(cons 8
"__Punkte 1")) ) ;
(setq punktliste(ssget "X" punktFilter) )
(setq AA1(sslength punktliste))
(setq textFilter(list (cons 0 "TEXT")(cons 8
"__Punkte 1")) ) ;
Nun werden die entsprechenden Textfelder in eine eigene Variable eingelesen. (setq textliste(ssget "X" textFilter) )
AA3 ist die Variable, die die Anzahl der Textfelder enthält. (setq AA3(sslength textliste))
Die Laufvariable i wird auf 0 gesetzt. (setq i 0)
Die äußere Schleife wird über alle Punkte laufen. (while (< i AA1);
Auswahlsätze enthalten nicht das eigentliche Objekt, sondern nur eine Art Namen
des Objektes. Daher wird im ersten Schritt der Name des i-ten Elements der (setq punktname(ssname punktliste i) )
Punktliste ausgelesen.
Der Variable "groupcodepunkt" wird nun das tatsächliche Objekt zum zuvor
ausgewählten Namen zugewiesen.
(setq groupcodepunkt(entget punktname) )
Interessant ist nun die räumliche Position des Punktes, also die (X,Y,Z)-Koordinate.
Diese ist im Gruppencode 10 enthalten, dessen Element in die Variable AA2 (setq AA2(assoc 10 groupcodepunkt))
eingelesen wird. Diese Variable wird die Grundlage zum Vergleich mit den
Textfeldern bilden
Für die Textfeld-Schleife soll die Laufvariable j genutzt werden, die hier auf 0 (setq j 0)
gesetzt wird.
Hier beginnt die innere Schleife über alle Textfelder. (while (< j AA3)
Es wird zunächst der Name des j-ten Textfelds ausgelesen. (setq textname(ssname textliste j) )
Damit wird das j-te Textfeld in die Variable "groupcodetext" gelesen. (setq groupcodetext(entget textname) )
Interessant ist ersten Schritt die Position des Textfeldes. (setq AA4(assoc 10 groupcodetext))
Sind die Position des i-ten Punktes und des j-ten Textfeldes identisch, so ist das
gesuchte Paar gefunden und die Schleife kann ihren eigentliche Aufgabe (if (equal AA2 AA4)
vornehmen:
Dieser Befehl ist nötig, da in if-Klauseln normalerweise nur ein einzelner Befehl
ausgeführt werden darf.
(progn
Aus dem Textobjekt wird nun der eigentliche Textinhalt ausgelesen. Dieser hat
den Gruppencode 1. Da die Gruppencode-Nummer, also die Zahl 1 nicht
interessant ist, wird sie mit "cdr" abgeschnitten und nur der eigentliche Text in die
Variable "neuehöhe" eingelesen.
Naheliegenderweise enthalten Textfelder Inhalte in einem Datentyp für Texte,
somit muss die Höhe noch in einen Datentyp für Zahlen umgewandelt werden,
bevor sie weiterverwendet werden kann.
Die Variable AA5 wird nun aus den bereits vorliegenden Höheninformationen des
Punktes sowie der Information über die Höhe aus dem Textfeld
zusammengeschnitten. AA5 besteht also aus den vier Elementen Gruppencode-
Nummer (sprich 10), der X-Koordinate, der Y-Koordinate und der neuen Z-
Koordinate.
Die alte Höheninformation wird schließlich durch die in AA5 zusammengestellte
neue Höhenfunktion überschrieben. Der zweidimensionale Punkte wird damit in
die Ebene "emporgehoben".
Der Befehl "entmod" stellt sicher, dass diese Veränderung nicht nur auf lokaler
AutoLISP-Ebene passiert, sondern die Veränderung auch in der AutoCAD-
Zeichendatenbank übernommen wird.
Um weitere unnötige Schleifendurchläufe zu vermeiden und Rechenleistung zu
(setq neuehoehe(cdr(assoc 1
groupcodetext)))
(setq neuehoehe(atof neuehoehe))
(setq AA5 (list (nth 0 AA2) (nth 1 AA2) (nth 2
AA2) neuehoehe))
(setq groupcodepunkt(subst AA5 (assoc 10
groupcodepunkt) groupcodepunkt) )
(entmod groupcodepunkt)
153