---

Hat schon mal jemand ein Lisp gesehen, mit dem man Höhenlinien, bei denen die Z-Höhe korrekt gesetzt ist, z.B. alle 10m-Höhenlinien farbig markieren lassen kann ?
Mathias

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

---

Gesehen nicht, aber wo liegt das Problem?

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

---

Bei den begrenzten Lisp-Fähigkeiten - habe mir mühsam das hier zusammengeklöppelt:

(defun hlmark( en interval / OBJ typ col zelev)
(setq
OBJ (entget en (list "*"))
typ (cdr (assoc 0 OBJ))
zelev (cdr (assoc 38 OBJ))
)

(if (= typ "LWPOLYLINE")
(progn
(if (= (fix (/ zelev interval)) (/ zelev interval))
(progn
(assoc 62 OBJ)
(setq OBJ (subst(cons 62 1)(assoc 62 OBJ)OBJ))
(entmod OBJ)
);progn
);if
);progn
);if
);defun

;---------------------------------------------------
(defun c:hlf()

(setq interval (getreal "\nSchrittweite : "))
(setq ss (ssget) sl (sslength ss) i -1)

(while (< (setq i (1+ i)) sl)
(hlmark (ssname ss i) interval)
)

(princ)
)

Mathias

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

---

Ich schaue mir die Höhenlinien einfach von der Seite an, da sehe ich die fehlerhaften Höhenlinien oft auf den ersten Blick - und färbe Sie entsprechend ein, danach schalte ich zurück in die Draufsicht und korrigiere die gefundenen Höhenlinien.

------------------
Mit freundlichem Gruß

Udo Hübner
www.CAD-Huebner.de

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

---

Das mache ich auch. Ich möchte aber z.B. die 5m-Höhenlinien farbig hervorheben oder dicker darstellen - das wird von der Seite her schwieriger  
Mathias

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

---

evtl. reicht dir das:

(REPEAT oder WHILE .....
(SETQ hoehe (+ hoehe intervall))
(SETQ farbe (+ farbe 1))
(SSGET aws (ssget (LIST (CONS 0 "LWPOLYLINE") (CONS 38 hoehe))))
(COMMAND "_change" aws "" "_p" "_c" farbe "")
)

Ciao Georg

------------------
http://www.xx-tausend.info

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

---

filter.gif

Hallo Mathias,
oder Du kannst die Funktion "Filter" verwenden, da stellst Du Dir die Filterkriterien ein wie im anliegenden Bild, und schon kannst Du alle PL's mit der Erhöhung 5m auswählen.

------------------
viele Grüße

Jörn

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

---

Nee, es geht ja nicht nur um die mit 5m Erhebung sondern um die mit Höhe 5m, 10m, ... , 195m, 205m und so weiter. Es geht um die Darstellung von Höhenlinien wie z.B. in einer topografischen Karte.
Ansich reicht mri mein Gebastel ja schon. Ich muss halt zuerst den Linien, um die es geht explizit eine Farbe zuweisen, damit ich sie dann ändern kann - nicht schön aber geht !
Das wäre bei gmk's Lösung wohl nicht erforderlich - werde ich mal testen.
Mathias

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

---

eine Variante wäre auch
(if
(= ( / HÖHE 5) 0)
.....
)

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

---

 

Zitat:

---

Original erstellt von cad4fun:
eine Variante wäre auch
(if
(= ( / HÖHE 5) 0)
.....
)

---

.. wird erfüllt von allen Zahlen (abs Höhe) < 5 ....??  Wenn du auf  NAchkommawert testen willst , nimm (equal(rem Hoehe 5)0)

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

---

So, jetzt bin ich zufrieden - Danke an Alle !

Mathias

(defun hlmark( en interval / OBJ typ z z2)
(setq
OBJ (entget en (list "*"))
typ (cdr (assoc 0 OBJ))
)

(if (= typ "LWPOLYLINE")
(progn
(setq z (cdr (assoc 38 OBJ)))
(if (equal(rem z interval)0)
(progn
(assoc 62 OBJ)
(setq OBJ (subst(cons 62 1)(assoc 62 OBJ)OBJ))
(entmod OBJ)
);progn
);if
);progn
);if
(if (= typ "LINE")
(progn
(setq z (cadddr (assoc 10 OBJ)))
(setq z2 (cadddr (assoc 11 OBJ)))
(if (and (equal z z2) (equal(rem z interval)0))
(progn
(assoc 62 OBJ)
(setq OBJ (subst(cons 62 1)(assoc 62 OBJ)OBJ))
(entmod OBJ)
);progn
);if
);progn
);if
);defun

;---------------------------------------------------
(defun c:hlf()

(setq interval (getreal "\nSchrittweite : "))
(setq ss (ssget) sl (sslength ss) i -1)
(COMMAND "_change" ss "" "_p" "_c" 7 "")

(while (< (setq i (1+ i)) sl)
(hlmark (ssname ss i) interval)
)

(princ)
)

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

---

Eigentlich wollte ich auf
Höhe MOD 5 = 0 testen
bin aber nicht gerade firm in LISP

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