Bug Autolisp ActiveX sous 2000.

[bonuscad]

Suite à ce POST , j'ai cherché et pense avoir découvert un bug sous la version 2000 (peut être 2000i, à tester)

 

Exemple dessinez une polyligne avec quelque sommets.

Si vous aplliquez le code suivant, et qu'au message "Donnez un point" vous vous accrochez à l'extrémité (ou intersection) d'un sommet, la distance retournée est fausse.

Si vous utilisez "proche" ou "milieu", là le résultat est correct. :casstet:

 

((lambda ( / )
(vl-load-com)
(vlax-curve-getDistAtPoint (vlax-ename->vla-object (car (entsel "\nChoix d'une polyligne: "))) (getpoint "\nDonnez un point: "))
))

 

Si quelqu'un pouvait tester sous une 2000 ou 2000i pour confirmer ce qui pourrait être un bug lisp

 

C'est le 2 ème que je découvre depuis que j'utilise le lisp, le 1er concernait les matrices retourné par (nentsel), une inversion dans la matrice avait été faite entre la 12 et 14 sur les valeur sin et cos de la rotation)