Points à incrémenter

[pierrevigneux]

Bonsoir !

 

Je cherche une routine qui pourrais dessiner des points x,y et leur assigne une valeur incrémenté.

 

Merci à l'avance !

[jeff66]

Bonjour,

Tu as INCREMENT.lsp dans le LISP de Gile.

[pierrevigneux]

Bonjour Jeff66

 

J'utilise souvent increment de gile, mais j'aimerais pouvoir desiner un point en même temps, aux endroit chosis par l'utitlisateur!

 

Amicalement !

[(gile)]

Salut,

 

Avec un bloc contenant un point et un attribut pour la valeur à incrémenter, tu peux utiliser INCATT dans Increment.lsp.

[pierrevigneux]

Merci (gile)

 

Pour ta réponse c'est sur une solution, toutes fois J'airais bien aimé éviter un block-attribut.

 

Salutations !

[jeff66]

Voici une macro qui incrémente à chaque clique,tu dois la lancer par un nouveau bouton.

(à associer avec la commande "POINT" en fonction de tes besoins)

 

*^C^C_.-TEXT;_none;\;;$M=$(getvar,USERI1);modifvar;USERI1;$M=$(+,1,$(getvar,USERI1));

 

Bon job

[pierrevigneux]

Merci jeff66

 

J'ai essayé ta commande Point, mais voilà elle ne le dessine pas le point en question.

 

Elle incrémente à la perfection.

 

Mon problème est que je veux identifier chaque point dessiné,avec sa numérotation en x,y pour pouvoir les éditer ensuite les transférer dans une station totale.

 

Amicalement

[didier]

coucou

 

tu veux les traiter sous forme de fichier texte

pour les envoyer vers une station totale

et en même temps tu aimerais te dispenser d'un point avec attribut.

 

c'est paradoxal, le mieux pour faire des fichiers de ce genre

c'est le bloc avec attribut

de cette façon la valeur de texte dans l'attribut est "mariée" avec le point

 

amicalement

[(gile)]

Un petit LISP vite fait même si je suis complètement d'accord avec Didier.

 

(defun c:IncPt (/ val pt ht)
 (if
   (and
     (setq val (getstring "\nValeur initiale: "))
     (setq val (atoi val))
   )
    (while (setq pt (getpoint "\nPoint d'insertion: "))
      (setq pt (trans pt 1 0)
     ht (getvar 'textsize)
      )
      (entmake
 (list
   '(0 . "POINT")
   (cons 10 pt)
 )
      )
      (entmake
 (list
   '(0 . "TEXT")
   (cons 10 pt)
   (cons 40 ht)
   (cons 1 (itoa val))
 )
      )
      (setq val (1+ val))
    )
 )
 (princ)
)

[pierrevigneux]

Merci (gile)

 

C'est parfait, ça fait parfaitement le travail.

 

Merci à toi didier pour ta réponse, je n'utilise que très rarement les block-attributs.

 

Amicalement !

[didier]

Coucou

 

pour ce que tu demandes de faire

ce serait bien de te pencher sur leur utilisation

c'est la panacée

 

amicalemebt

[VDH-Bruno]

(setq val (getstring "\nValeur initiale: ")) 
(setq val (atoi val)) 

 

(gile) astucieuse l’émulation avec atoi sur le getstring en lieu et place d’un classique getint..

 

Clap, clap, clap tu viens de me faire découvrir le comportement d’atoi sur les caractères non exclusivement numérique et je t’en remercie.

 

A+

(ps: tout à fait le genre d'astuce dont je suis friand..)