CADxp: [RESOLU] Faire Liste de Points Cliqués - CADxp

Aller au contenu

Page 1 sur 1
  • Vous ne pouvez pas commencer un sujet
  • Vous ne pouvez pas répondre à ce sujet

[RESOLU] Faire Liste de Points Cliqués

#1 L'utilisateur est hors-ligne   PHILPHIL 

  • ceinture noire 2em dan
  • Groupe : Membres
  • Messages : 1024
  • Inscrit(e) : 24-janvier 06
  • LocationNANTES

Posté 19 novembre 2019 - 13:29

Bonjour


je cherche a faire une liste de point en cliquant sur les extremitées, intersections ou autres.


tant que je clique, ca fait la liste

je pensais qu'avec ca ca marcherai, mais non

une autre idée ?

(defun c:liste_point ()
(setq listepoint nil)
(command (setq poi (getpoint "\nPOINT DE REFERENCE"))
     	(while (> (getvar "cmdactive") 0) (command pause))
        (cons poi listepoint)
     	)
)



Phil
Autodesk Architecture 2019 sous windows 10 64
24 pouces vertical + 30 pouces horizontal + 27 pouces horizontal
0

#2 L'utilisateur est hors-ligne   Tramber 

  • ceinture rouge et blanche 8em dan
  • Groupe : Moderateurs
  • Messages : 8463
  • Inscrit(e) : 29-mars 03
  • LocationStrasbourg

Posté 19 novembre 2019 - 13:30

(while (setq poi(getpoint))....
tout simplement
Image IPB

Bureau d'études dessin.
Spécialiste Escaliers
Développement - Formation

./__\.
(.°=°.)
0

#3 L'utilisateur est hors-ligne   PHILPHIL 

  • ceinture noire 2em dan
  • Groupe : Membres
  • Messages : 1024
  • Inscrit(e) : 24-janvier 06
  • LocationNANTES

Posté 19 novembre 2019 - 13:46

hello Tramber

mercii

hoo punaisee

(defun c:liste_point ()
(setq listepoint nil)
(while (setq poi (getpoint "\nPOINT DE REFERENCE"))(setq listepoint (cons poi listepoint)) )
  )


phil
Autodesk Architecture 2019 sous windows 10 64
24 pouces vertical + 30 pouces horizontal + 27 pouces horizontal
0

#4 L'utilisateur est hors-ligne   didier 

  • ceinture rouge et blanche 8em dan
  • Groupe : Moderateurs
  • Messages : 8425
  • Inscrit(e) : 18-décembre 02
  • LocationPlanète : Terre

Posté 19 novembre 2019 - 13:47

Coucou

On se demande à quoi (à qui) ça sert de se décarcasser !!!
Extrait de mon site :

Image IPB

Amicalement tout de même !


Éternel débutant ...
Programmer AutoCAD
0

#5 L'utilisateur est hors-ligne   PHILPHIL 

  • ceinture noire 2em dan
  • Groupe : Membres
  • Messages : 1024
  • Inscrit(e) : 24-janvier 06
  • LocationNANTES

Posté 19 novembre 2019 - 14:16

Hello

je vois que Didier est plus réveillé que moi la
tout décarcassé

Phil
Autodesk Architecture 2019 sous windows 10 64
24 pouces vertical + 30 pouces horizontal + 27 pouces horizontal
0

#6 L'utilisateur est hors-ligne   DenisHen 

  • ceinture rouge et blanche 6em dan
  • Groupe : Membres
  • Messages : 3400
  • Inscrit(e) : 17-décembre 05
  • LocationDIERREY SAINT JULIEN (10190)

Posté 19 novembre 2019 - 14:22

Salut.
Tout le monde n'a pas encore le réflexe d'aller voir Da-Code...
Encore merci à Maître didier pour ce site...
Denis...
Windows 10 Pro 64bits / AutoCAD MAP 3D 2019 (22.0.022.4)
Covadis 16 / Microstation V8i

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres...
Davantage d'avantages, avantagent davantage. (Bobby Lapointe)
La connaissance s'accroît quand on la partage.(Socrate)
0

#7 L'utilisateur est hors-ligne   didier 

  • ceinture rouge et blanche 8em dan
  • Groupe : Moderateurs
  • Messages : 8425
  • Inscrit(e) : 18-décembre 02
  • LocationPlanète : Terre

Posté 19 novembre 2019 - 15:53

Coucou

Je t'en prie !
Je n'attends pas spécialement de merci, je préfère que l'état d'esprit des gens évolue
Tellement de gens sont du genre :
Je sais pas je pose la question quelqu'un va répondre ...
C'est pas ça "apprendre", je ne pose une question que quand je n'ai pas trouvé seul
Je n'en pose pas souvent et pourtant je suis loin de tout savoir, je cherche, je farfouille, je décortique, je réfléchis.
Personne n'est visé en particulier par ces propos, c'est générique.

A
micalement

Éternel débutant ...
Programmer AutoCAD
0

#8 L'utilisateur est hors-ligne   DenisHen 

  • ceinture rouge et blanche 6em dan
  • Groupe : Membres
  • Messages : 3400
  • Inscrit(e) : 17-décembre 05
  • LocationDIERREY SAINT JULIEN (10190)

Posté 19 novembre 2019 - 15:56

Il faut savoir recevoir les "mercis" didier...

Depuis que ton site existe, je pose beaucoup moins de questions et augmente mes connaissances...

C'est un fait, un constat et pas de la lèche... ;)

Denis...
Windows 10 Pro 64bits / AutoCAD MAP 3D 2019 (22.0.022.4)
Covadis 16 / Microstation V8i

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres...
Davantage d'avantages, avantagent davantage. (Bobby Lapointe)
La connaissance s'accroît quand on la partage.(Socrate)
0

Partager ce sujet :


Page 1 sur 1
  • Vous ne pouvez pas commencer un sujet
  • Vous ne pouvez pas répondre à ce sujet

1 utilisateur(s) en train de lire ce sujet
0 membre(s), 1 invité(s), 0 utilisateur(s) anonyme(s)