---

Hallo,
Für die Erstellung eines Deckenbuches für ein Straßenbauvorhaben suche ich eine Möglichkeit, den Abstand zwischen Polylinien in regelmäßigen Intervallen herauszubekommen. Gibt es eine Möglichkeit?
Vielen Dank für eure Hilfe.

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

---

imho musst du dich entlang der polylininestützpunkte entlang hangeln und mit ThisDrawing.Utility.GetDistance bekommst du entsprechend die entfernung.

------------------
MfG Proxy

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

---

Na ja, die Frage ist viel zu ungenau gestellt. Da müsste man wissen, ob die Intervalle gleich sein sollen, z.B. "alle 5 ZE einmal messen", das bricht dann immer bei der kürzeren Polylinie ab, oder ob die Intervalle jeweils einen Prozentanteil der Gesamtlänge betragen sollen, also "alle 10% der jeweiligen Länge messen".

Wie dem auch sei: Wenn man nicht über die Stützpunkte gehen will, ist man mit VBA schnell am Ende, denn die ganzen vlax-curve-...-Funktionen (wie vla-curve-getPointAtDist), mit denen das in Lisp ein Kinderspiel ist, gibt es in VBA nicht. Ist also ein ziemlich aussichtsloses Unterfangen in VBA...

Gruß, Axel Strube-Zettler

PS: Und natürlich wieder der obligatorische Hinweis auf die VLAX-Klasse, mit der man diese Lisp-Funktionen in VBA ausführen könnte (Suchen!).

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

---

Wenn man eine Deckenbuch rechnen will, hat an eine Achse mit Haupt- und Kleinpunkten. Sind diese mit ihrer Orientierung bekannt, kann man
an diesen Punkten eine Pseude Linie mit 100gon Drehung erzeugen.
Der Schnittpunkt kann dann mit der Methode "insecWith" bestimmt werden.
Die Fahrbahnbreite kann aus den Koordinaten berechnet werden.

Dim SPunkt As Variant
Dim msg As String
Dim i As Integer

SPunkt = entity1.IntersectWith(entity2, acExtendThisEntity)
If VarType(SPunkt) <> vbEmpty Then
  msg = "Schnitte bei: " & vbCrLf
  For i = 0 To UBound(SPunkt) Step 3
      msg = msg & Format(SPunkt(i), "0.00") & " / " & Format(SPunkt(i + 1), "0.00") & vbCrLf
  Next i
  MsgBox msg
Else
  MsgBox "Kein Schnitt"
End If

Viel Erfolg

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