---

Hallo Forum,

ich habe auch einen Wunsch in Bezug auf Punkthöhen.
Ich habe eine Zeichnung mit Messpunkten (Blöcke) und Linien dazwischen.
Wenn diese Punkte neu gemessen werden entferne ich alle alten Punkte und schiebe die Neuen auf die Endpunkte der vorhandenen Höhe (mit OFang).
Leider übernimmt dann der Punkt als Z den Wert der Linie.
Hat jemand ein Lisp rumliegen der die Höhe vor dem schieben sichert und dann dem Punkt wieder zuweist ?

Mit freundlichen Grüßen
Gerd Ecke

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

---

eine Möglichkeit wäre diese kurze Lisp

als erstes wirst du zur auswahl eines Blockes (Messpunkt wählen) aufgefordert, danach zum zeigen des linienednpunktes
darauf hin wird der gewählte block mit seinem einfügepunkt auf das linenende geschoben, wobei die z-höhe gleich bleibt.

(defun c:movepoint ( / a1 en ed p1 p2)
  (setq en (car (entsel "Messpunkt wählen : ")))
  (setq ed (entget en))
  (cond ((and (= (cdr (assoc 0 ed)) "INSERT")
      (setq p1 (cdr (assoc 10 ed)))
      (setq p2 (getpoint "Linienende wählen :"))
)
(command "._move" en "" p1 ".XY" p2 p1)
)
  )
)

------------------
WWW.FFZELL.AT.TC

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

---

Hallo,

das sollte über die Deffinition eines Blockes mit dem Inhalt der neuen Höhen und dem lagegenauen Einfügen klappen.
Jedanfalls ohne OFANG.
Du musst das über den Basispunkt 0,0,0 einfügen.
Achte dabei auf das BKS.

Ciao

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

---

Bingo FUCHSI !

genau das habe ich gebraucht.

Vielen Dank
GE

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