---

Hallo!
Habe mir ein Tool gebastelt, dass ähnlich dem AutoCAD Befehl messen funktioniert, nur mit dem feinen Unterschied, dass ich eine Liste mit variierenden Abständen einlesen kann und danach die Punkte auf der Polylinie gezeichnet werden. Ach ja Startpunkt und Endpunkt der Messung lege auch ich fest.
Soweit so gut jetzt, möchte ich anstatt der Punkte Blöcke einfügen, welche sich natürlich mit der Polyline mitdrehen sollen. Genau wie der AutoCAD Messenbefehl (Soll der Block mit dem Objekt ausgerichtet werden? [Ja/Nein] <J>:).
Bei Bögen hab ich den Einfügewinkel mit vlax-curve-getParamAtDist ganz gut hin bekommen, sobald es aber eine Polyline mit Geraden und Bögen ist bzw. der Bogen eine Polylinie ist steh ich an.
Deshalb meine Frage an Euch, ob Ihr schon mal so ein Problem hattet bzw. ob Ihr mir weiterhelfen könnt. In der Forumsuche bin ich leider nicht fündig geworden.

------------------
mfg
FeR
"gefundene Rechtschreibfehler dürfen behalten werden."

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

---

..Die Funktion vlax-curve-getFirstDeriv sollte bei der Ermittlung des Blockeinfügewinkels weiterhelfen...  Siehe auch hier

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

---

Danke für den Tipp, aber irgendwie mach ich trotzdem was falsch bzw. versteh es nicht richtig, hier mal meine Umsetzung:
Intressant wird´s am Ende!

Code:

---

;Block mit dem Namen W muss in der Zeichnung sein! Bei mir ein senkrechter Strich, Einfügepunkt=Mittelpunkt
(Defun c:xx (/)
  (setq select (entsel "\nObjekt wählen, das gemessen werden soll: "))
  (setq objname (car select))
  (Setq vla_objname (vlax-ename->;vla-object objname))
  (setq calpoint
(trans (getpoint "\nStartpunkt der Messung zeigen: ") 1 0)
  )
  (while (not
  (setq diflength (vlax-curve-getDistAtPoint vla_objname calpoint))
)
    (setq
      calpoint (trans (getpoint "\nStartpunkt der Messung zeigen: ")
      1
      0
      )
    )
    (setq diflength (vlax-curve-getDistAtPoint vla_objname calpoint))
  )
  (setq calendpoint
(getpoint
  "\nEndpunkt der Messung zeigen: <;Endpunkt des gewählten Objekts>;"
)
  )
  (if (not calendpoint)
    (setq calendpoint (vlax-curve-getEndPoint vla_objname))
    (setq calendpoint (trans calendpoint 1 0))
  )
  (while (not
  (setq
    endlength (vlax-curve-getDistAtPoint vla_objname calendpoint)
  )
)
    (setq calendpoint
  (getpoint
    "\nEndpunkt der Messung zeigen: <;Endpunkt des gewählten Objekts>;"
  )
    )
    (if (not calendpoint)
      (setq calendpoint (vlax-curve-getEndPoint vla_objname))
      (setq calendpoint (trans calendpoint 1 0))
    )
    (setq endlength (vlax-curve-getDistAtPoint vla_objname calendpoint))
  )
  (setq endlength (vlax-curve-getDistAtPoint vla_objname calendpoint))
  (if (<; (- endlength diflength) 0)
    (Alert
      "Startpunkt nach Endpunkt\nOrientierung des Objekts ändern!\nbei Polylinien mit <;UP>;"
    )
    (Setq interval (getreal "\nSegmentlänge angeben: "))
  )
  (setq newdistance (+ interval diflength))
  (while (<; newdistance endlength)

   
; VARIANTE mit getFirstDeriv   
    (setq newpoint (vlax-curve-getPointAtDist vla_objname newdistance))
    (setq
      nextpoint (vlax-curve-getFirstDeriv
  vla_objname
  (vlax-curve-getParamAtDist vla_objname newdistance)
)
    )
    (Setq ipointangel
  (* (/ (+ (angle newpoint nextpoint) (/ pi 2)) pi) 180)
    )

;  ALTE VARIANTE MIT ParamAtDist   
;    (Setq ipointangel (vlax-curve-getParamAtDist vla_objname newdistance))
;    (Setq ipointangel (*(/ (+ ipointangel (/ pi 2)) pi)180))
;    (command "_.point" (trans newpoint 0 1) )
    (command "_insert"
    "w"
    (trans newpoint 0 1)
    "1"
    "1"
    (rtos ipointangel 2 16)
    )
    (setq newdistance (+ interval newdistance))
  )
  (princ)
)

---

------------------
mfg
FeR
"gefundene Rechtschreibfehler dürfen behalten werden."

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