---

Hallo,

da ich hier schon oft Hilfe gefunden habe, hoffe ich auch dieses Mal...

Ich habe mehrere Punkte (ca. 1000) mit unterschiedlichen Z-Werten, die ich um X Zentimeter nach oben bzw. unten versetzen will/muss.

Damit man sich das besser vorstellen kann: Es handelt sich um einen Plan/Modell einer Strasse das als Grundlage zur Steuerung einer GPS gesteuerten Raupe dient, die entsprechend dem Modell die Höhe des Schildes einstellt. Die Höhen des vorliegenden Plans sind NN-Höhen und sollen entsprechend angepasst werden.

Die Höhe manuell anzupassen ist bei der großen Anzahl von Punkten  SEHR zeitraubend. Gibt es vielleicht eine Möglichkeit über ein entsprechendes Lisp diese Aufgabe zu bewältigen ?

Ich stelle mir das so vor:

- Punkte markieren, deren Höhe um z.B. 0,5 m nach unten versetzt werden sollen
- Abfrage wieviel höher oder niedriger die Punkte gesetzt werden sollen
- Lisp berechnet aus der vorhandenen NN-Höhe die neue Höhe und setzt die Punkte entsprechend

Hat jemand von Euch sowas in der Schublade rumliegen ?

Gibts vielleicht eine Möglichkeit mit den Boardmitteln von ACAD sowas zu bewerkstelligen ?

Danke für Eure Hilfe im Voraus !

Gruß

Olli
-

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

---

Hallo,

hab zwar kein Lisp für dich, aber um den Teil deiner Frage zu beantworten:

Lisp berechnet aus der vorhandenen NN-Höhe die neue Höhe und setzt die Punkte entsprechend

Verwende für diesen Teil deines Problems doch die relative Koordinateneingabe.

Vorgehensweise:
- markiere deine Linie (nun hast du die Grips - blaue Punkte)
- die zum verschiebenden Punkte markiere mit gehaltener Umschalt-Taste (alle gewählten Punkte werden rot; sind heiss)
- nun selektiere einen dieser Punkte und gib in der Befehlszeile @0,0,.5 (.5 als Beispiel für Verschiebung um 0.50m nach oben) ein

Alle gewählten Punkte sind nun um einen halben Meter verschoben; andere Variante wäre vielleicht, wenn du dir deine Punkte (alle Stützpunkte deiner Linie) via Lisp in ein Textfile schreiben lässt, dieses im Excel öffnest und dort deine Additionen/Subtraktionen durchführst, die neuen Koordinaten dann wieder in eine Komma-getrenntes Files schreiben lässt und dieses via Script in AC einliest.

------------------
Grüsse

Thomas

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

---

Einen wunderschönen zusammen ;-)

... hab's mal vorsichtig probiert, ist aber kein Lisp.

Code:

---

Sub z_point_charlie()
Dim sset As AcadSelectionSet, Ent As AcadEntity
Dim s$, oldP, newP#(0 To 2)
s = ThisDrawing.Utility.GetString(0, "Z-Verschiebung angeben: ")
If Not IsNumeric(s) Or s = "" Then Exit Sub
If InStr(1, s, ".") Then s = Replace(s, ".", ",")
Set sset = ThisDrawing.SelectionSets.Add("set1")
sset.SelectOnScreen
For Each Ent In sset
  If TypeOf Ent Is IAcadPoint Then
      oldP = Ent.Coordinates
      newP(0) = oldP(0)
      newP(1) = oldP(1)
      newP(2) = oldP(2) + CDbl(s)
      Ent.Move oldP, newP
  End If
Next
sset.Delete
End Sub

---

lg Nancy

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

---

@Startrek:

Vielen Dank für Deine Mühe, funktioniert wunderbar !

10 U's dafür !

@tunnelbauer:
Auch Dir vielen Dank! Ich werde wahrscheinlich jedoch das VBA bevorzugen 

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

---

- Punkte markieren, deren Höhe um z.B. 0,5 m nach unten
  versetzt werden sollen
- Abfrage wieviel höher oder niedriger die Punkte gesetzt
  werden sollen
- Lisp berechnet aus der vorhandenen NN-Höhe die neue Höhe
  und setzt die Punkte entsprechend

Braucht man da denn Lisp? Für sowas nehme ich den Befehl SCHIEBEN...

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

---

SCHIEBEN ist gut ...,
ich schieb mich dann mal ab in die Ecke, *schäm* ;-)

lg Nancy
--
If you don't have a good system, make sure you get good users.

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

---

Ich komm mit in die Ecke... zum schämen....

trotzdem danke für das script 
Ich find das ja besser und komfortabler als das schieben 

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

---

"SCHÖNER SCHIEBEN" - jeden Samstag frisch an ihrem Kiosk! ;-)

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