intersection ligne-arc

[Tramber]

Soit un arc et une ligne.

 

Si la ligne coupe l'arc,

 

Comment trouver le point d'intersection sans saisie graphique, mais par le calcul ?

 

Connaitriez-vous des lignes de codes qui pourraient m'aider.

 

Note: j'ai les entités en selecton et je veuxvérifier que la ligne (prolongée virtuellement si besoin) coupe bien l'arc.

 

 

http://perso.wanadoo.fr/abcad/XCP/divers/01.jpg

[Invité Patrick]

Tu as regardé dans les fonctions Vlisp, genre vlax-curve-getClosestPointToProjection ?

[Tramber]

 

Merci beaucoup.

 

Presque ca, pour 2004.

 

Mais je recherche du LISP ancienne génération, c'est pour tourner sous 2000.

 

[Tramber]

J'ai rien dit, la fonction est dans l'aide du 2000.

 

Comment un débutant comme moi dois aborder les fonctions VL ?

 

(Tiens, je vais fouiller un peu ce sous-forum).

[Tramber]

Vais essayer mais:

 

[align=Center]

(vlax-curve-getClosestPointToProjection curve-obj givenPnt normal [extend])

Arguments

curve-obj

The VLA-object to be measured.

givenPnt

A point (in WCS) for which to find the nearest point on the curve.

normal

A normal vector (in WCS) for the plane to project onto.

[/align]

 

Comment spécifier le vecteur normal ?

[didier]

hello Tramber,

avec un M car il y a un imitateur !!!!!!!

je me doute un peu de ta réponse,

mais je te signale quand même

que ton problème est résolu,

mais en VBA

es tu intéressé ?

[Tramber]

Quoi !

Quelqu'un qui s'appelle Tranbert (je viens de le voir) !

 

Qu'il me donne la réponse alors et en vieil Autolisp compatible R12 !

[Tramber]

 

(setq curve-obj (car(nentsel)))
(terpri)
(setq  givenPnt(getpoint))
(setq normal (list 0.8 0.2 0))

(setq ptresultant (vlax-curve-getClosestPointToProjection curve-obj givenPnt normal ) )

 

Ca marche bien

 

Le vecteur normal est donné très simplement, en cas de double intersection, c'est apparemment la première intersection rencontré par le vecteur qui est renvoyé sous forme de point.