plus de GRREAD

[Tramber]

Je me suis fabriqué ce début de code :

 

  (setq pt_ins (getpoint "\nPoint d'insertion pour le 1er coin ? : "))
 (if pt_ins
   (progn
     (while(and(setq key(grread T 4 0))(/=(car key)3))
(cond
  ((eq(car key) 5)	   (redraw)
   (setq pt1 (cadr key) pt2 (polar (cadr key)(+(/ pi 2)(angle pt_ins(cadr key)))900) pt3 (polar pt_ins(+(/ pi 2)(angle pt_ins(cadr key)))900))
   (grvecs	     (list 3 pt_ins pt1		   1 pt1 pt2		   3 pt2 pt3		   1 pt3 pt_ins))
   (setq lpoints(list pt_ins pt1 pt2 pt3)))))
     (redraw)
......etc

 

Le but est simple, je propose de construire en "live" un rectangle de largeur 900 (largeur max du traceur) pour encadrer des zones à imprimer à l'échelle 1. La longueur et l'orientation venant du 2nd clic de souris.

 

tout nouveau dans la prog des GRREAD, je m'apercois qu'on ne peut ni s'ACCROBJ ni s'ORTHO !

 

Je ne me trompe pas ?

Vais-je devoir revoir le code et repasser par la polyligne rectanlge classique ?

Dois-je mélanger des codes un peu mieux pour obtenir ce que je veux ?

 

[bonuscad]

Hé oui, (grread) est très puissant au niveau de l'interaction avec l'utilisateur, mais ce problème d'accroche-objet est bien là.

 

J'avais rencontré le même problème que toi, j'avais réussi a simulé ce mode (dans certaines limites). Mais alors le code devient nettement plus lourd pour faire pas grand chose :(

 

Si tu veux te remettre le post en mémoire c'est LA

[Tramber]

Super, je me souviens très bien de tes essais en la matière maintenant.

 

Merci.

 

Dommage pour toi, je vais piller ton code **** ! ***

 

[bonuscad]

Dommage pour toi, je vais piller ton code **** ! ***

 

Il est là pour ça ...

 

C'est pas du pillage, mais du libre service. On prends ce qui semble répondre à nos attentes.

 

Mais je suis sur que tu vas m'améliorer tout ça, ou trouver de nouvelles idées et le remettre en ligne ;)

 

A moins que tu trouves LA solution miracle :o

[Tramber]

Je l'ai stocké dans un coin. Honnetement, je ne vois pas ce que je pourrais y apporter !