[Résolu] Création d'une fenêtre dans l'EP

[DenisHen]

Bonjour à tous...

 

Voilà, je tente ce soir de créer une fenêtre dans l'EP. J'ai des coordonnées qui... tiennent la route :

_$ pt1_ep

(0.1 0.1 0.0)

_$ pt3_ep

(0.1 376.361 0.0)

_$

Mais après avoir lancer la commande "-fenetres" en EP, AutoCAD me dit :

Largeur et hauteur doivent être positives.

Voici donc le bout de mon code :

  ;;Calcul des quatres points de le nouvelles fenêtre*************
 (setq pt1_ep (list 0.1 0.1))
 (setq pt2_ep (list 0.1 (+ (/ (* (distance pt1 pt2) (atof echelle)) 100) (cadr pt1_ep))))
 (setq pt3_ep (list (car pt2_ep) (+ (/ (* (distance pt2 pt3) (atof echelle)) 100) 0.1)))
 (setq pt4_ep (list (car pt1_ep) (cadr pt3_ep)))
 (princ "\nDrapeau 01")
 (command "-fenetres" Pt1_ep Pt3_ep)
 (princ "\nDrapeau 02")
 ;;
 (vla-EndUndoMark (vla-get-ActiveDocument (vlax-get-acad-object)))

Alors que mes deux points sont bien "positifs"... Mais voici ce que me répond AutoCAD :

Définition des points de l'espace papier

Drapeau 01Largeur et hauteur doivent être positives.

Drapeau 02nil

 

Alors que mes deux points sont "bons"... J'ai aussi testé en 2D, rien n'y fait...

 

Si quelqu'un a une solution, un conseil... Je suis preneur...

[(gile)]

Salut,

 

Quand tu poses une question sur le forum, il faut que tu fasses comme quand tu codes.

L'interpréteur LISP, comme ceux qui vont te lire ne peuvent pas deviner ce que tu ne leur dit pas explicitement.

D'où sortent pt1 pt2 pt3 ?

À quoi servent pt2_ep et pt4_ep ?

 

Par ailleurs, n'avait-on pas parlé très récemment de l'inutilité du tiret (-) devant les noms de commande ?

[didier]

Coucou

 

Allez on va te répondre...

 

Tu dis que tu as testé, on va te croire

Mais qu'est ce que tu as testé ? les valeurs des points ? il n'y a pas de nil dans la console, c'est déjà ça...mais la géométrie ?

Tu connais la géométrie ? (hihi) alors :

Puisque les deux points que tu utilises pour tracer ton rectangle sont sur une verticale (ils ont la même valeur de X)

Le rectangle ne peut se dessiner, le message veut te faire comprendre qu'une largeur de 0 (zéro) est impossible

C'est comme si tu dessinais un arc sur trois points alignés.

 

Relis-toi comme si ce n'était pas toi qui avait écrit, trace des lignes entre les points obtenus et l'erreur va sauter aux yeux

 

Amicalement

 

PS : tiens compte des remarques...

[DenisHen]

Bonjour à tous, et merci pour vos réponses.

 

Effectivement, j'aurais du faire plus de testes, comme tracer une ligne, je n'y avais pas pensé... Je me suis concentré sur le contenant et ai oublié le contenu...

 

Tellement fière d'avoir créé une liste "propre", je n'ai pas prêté attention à ses valeurs...

 

Voici le code du pt2_ep qu'il fallait que j'écrive :

(setq pt2_ep (list (+ (/ (* (distance pt1 pt2) (atof echelle)) 100) (cadr pt1_ep)) 0.1))

J'avais inversé l'X et l'Y... Maintenant la fenêtre se créée comme il faut...

 

Encore merci à vous...