---

hallo....

habe folgendes problem...bin noch änfanger und entschuldige mich im vorraus für Fehler...

also...ich möchte in vba-code den schnittpunkt zweier linien berechen
ohne das der benutzer was tun muss...

zb...

Code:

---

'(diese punkte werden aus dem modelspace ausgelesen)
'(weitere Atribute möglich)
dim vSPoint1(0 to 2) as Variant
dim vEPoint1(0 to 2) as Variant
dim vSPoint2(0 to 2) as Variant
dim vEPoint2(0 to 2) as Variant

dim vSchnittPoint2(0 to 2) as Variant 'der zu berechene punkt

vSPoint1(0)=-10 :vSPoint2(0)= 60
vSPoint1(1)= 30 :vSPoint2(1)=-30
vSPoint1(2)=  0 :vSPoint2(2)=  0 'immer 0
vSPoint1(0)= 10 :vEPoint2(0)= 40
vSPoint1(1)=  5 :vEPoint2(1)=-25
vSPoint1(2)=  0 :vEPoint2(2)=  0 'immer 0

vSchnittPoint2(0)=?
vSchnittPoint2(1)=?
vSchnittPoint2(2)=?

---

wie kann ich das lösen...bedanke mich im vorraus
Snifer

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

---

Hi und herzlich willkommen auf cad.de !

Schau mal in deiner AutoCAD Developer Documentation unter IntersectWith nach... da gibts dann auch passend einen Beispiel-Code dazu (hoffe es hilft dir weiter...)

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

Thomas

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

---

Die Mathematik dazu findest du z.B. 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 tunnelbauer...

aber so wie das sehen ist die IntersectWith nicht das richtige...denke ich jedenfalls...weil die linien sich ja noch nicht schneiden...es soll sich der schnittpunkt ergeben der eigendlich ja noch nicht da ist der....hmm

_____________________________________________________________________
danke CADmium

also bei dieser Rechnung sehe ich nicht durch...sorry...grins
wie die ganzen variabel herkommen und entstehen...

ich schildere mein problem noch mal ausführlicher...

also der benutzer zeichnet zwei Linien die ich in vba in Vari auslese...demzufolge den start  entpunkt winkel usw habe
diese beiden linen liegen frei im raum (Z wird vernachlässigt) und treffen sich nicht optisch...so ich brauch jetzt den gedachten schnittpunkt der beiden linien...es soll in der zeichnung nichts verändert werden...gibt es dafür eine lösung...??!

snifer

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

---

Hi,

Das funktioniert auch mit der inserctwith-Methode:

intPoints = Object1.IntersectWith(Object2, acExtendboth)

Schau dir den Befehl doch noch einmal in der Hilfe an, besonders die Extend-Option am Ende).

Gruß, Carsten

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

---

ok....hat geklappt...hatte den befehl in der hilfe ausprobiert..hatte ein schreibfehler drin...darauf hin kam ich zu kein ergebnis...naja funktioniert jetzt....bedanke mich ganz doll...super forum hier...

bis zum nächsten problem

danke nochmal Thomas, Thomas und Carsten

gruss snifer

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