---

habe mich im Forum schon schlau gemacht über Schnittpunkte mit VBA!
mit "IntersectWith" bin ich glaube ich fündig geworden!

wollte dieses in einem Makro ausprobieren!

zwei Linie zeichnen und an deren Schnittpunkt einen kreis einsetzen!!
funkt aber nicht! warum?
bitte euch um hilfe!!
wenn ich im Lokalen fenster mitschau passiert beim "IntPT" nichts! folglich auch im "centerPT" ...
warum? *heul*

Sub Vorziehung()
 
  Dim VarPT As Variant
  Dim StarPT(0 To 2) As Double
  Dim endPt(0 To 2) As Double
  Dim centerPt(0 To 2) As Double
  Dim first_LineOBJ As AcadLine
  Dim second_LineOBJ As AcadLine
  Dim circleObj As AcadCircle
  Dim IntPT As Variant
 
  VarPT = ThisDrawing.Utility.GetPoint(, "Bitte ersten Punkt wählen")
    StarPT(0) = VarPT(0)
    StarPT(1) = VarPT(1)
  VarPT = ThisDrawing.Utility.GetPoint(, "Bitte ersten Punkt wählen")
    endPt(0) = VarPT(0)
    endPt(1) = VarPT(1)
  Set first_LineOBJ = ThisDrawing.ModelSpace.AddLine(StarPT, endPt)
 
  VarPT = ThisDrawing.Utility.GetPoint(, "Bitte ersten Punkt wählen")
    StarPT(0) = VarPT(0)
    StarPT(1) = VarPT(1)
  VarPT = ThisDrawing.Utility.GetPoint(, "Bitte ersten Punkt wählen")
    endPt(0) = VarPT(0)
    endPt(1) = VarPT(1)
  Set second_LineOBJ = ThisDrawing.ModelSpace.AddLine(StarPT, endPt)
 
  IntPT = erste_LineOBJ.IntersectWith(zweite_LineOBJ, acExtendNone)
    centerPt(0) = IntPT(0)
    centerPt(1) = IntPT(1)
   
 
  Set circleObj = ThisDrawing.ModelSpace.AddCircle(centerPt, 5)
 
End Sub

------------------
mfG
Gambrinus

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

---

funkt doch!

ABER ...

die gezeichneten linien müssen sich tatsächlich schneiden!
geht es irgendwie auch mit einem gedachten Schnittpunkt!

hoffe ich habe mich verständlich ausgedrückt!!

------------------
mfG
Gambrinus

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

---

noch eine Antwort von mir!

für jeden den es interessiert!

...
IntPT = first_LineOBJ.IntersectWith(second_LineOBJ, acExtendBoth)   
 
  Set circleObj = ThisDrawing.ModelSpace.AddCircle(IntPT, 5)
 
End Sub
 
End Sub

------------------
mfG
Gambrinus

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