contrôler le SCU en Lisp

[krunch]

Salut

Comment contrôler le SCcourant en Lisp ?

La seule solution que j'ai trouvé est de passer par le VBA mais c'est tt de suite très compliqué (voir ActiveUCS/Example dans l'aide), car la méthode ActiveUCS plante si le SCcourant n'est pas un SCU nommé.

Le but est de pouvoir le modifier, or en Lisp je ne trouve rien qui permette de faire ça, et on ne peut pas passer par les variables systeme.. Il y a bien (Command "_ucs"... mais c'est pas terrible

 

Qq'un sait comment faire ?

[Bred]

Salut,

je m'y suis déjà tenté, et je n'arrive à rien : en vlisp, équivalent au vba, tu ne peux que vraiment piloter un SCU si il est nommé...

Je passe donc par les (command ...

(ça marche bien, il faut juste faire une gestion d'erreur en béton...)

[(gile)]

Comme dit Bred, il faut passer par un SCU nommé (qu'on ne peut supprimer que s'il n'est pas courant)

 

Un exemple dans Addvtx nouvelle version. ;)

[(gile)]

Certaines petites imprécisions générées par les rotations de SCU en 3D ne semblent pas être tolérées par les fonctions (vla-put-Xvector ...) et (vla-put-Yvector ...) qui retourne parfois un message disant que les axes X et Y ne sont pas parallèles.

J'ai fait quelques test et le produit scalaire des deux vecteurs ne donne pas exactement 0 (ce qui devrait être le cas pour des vecteurs perpendiculaires), l'imprécision est de l'ordre du millionième (1e-6).

 

J'en suis donc revenu à la gestion à l'aide de 2 systèmes de coordonnées (SCU courant et SCO) et là, ça semble fonctionner.

 

Le LISP est corrigé , les liens mis à jour, bonsoir...

 

[Edité le 10/5/2007 par (gile)]

[krunch]

Pour tes erreurs 3D (Gile) j'ai eu le mêm pb : je doit aussi réorienter le SCU avec un appel (command), d'où ma question sur les SCU..

Pour les pb d'approximation j'utilise ça :

(or (wcmatch temp "*e-*")(wcmatch temp "*E-*")(zerop(distof temp)))

Tu testes la différence avec cette ligne : si ça renvoit T c'est que les valeurs sont à peu près égales..