Transfer d\'un peu de lisp

[Tramber]

dupin

 

ceinture blanche

 

Messages: 2

Inscrit(e) le: 29/2/2004

Statut: Déconnecté(e)

 

Posté le 2/3/2004 à 13:27

Re-bonjour (trember)

c'est pour une sélection de plusieurs objet.

Mais comment l'incorporer a mon programe

 

(defun c:voir_couche (/ layer)

(setq layer (tblnext "LAYER" T))

(while layer

(princ (strcat "\nLayer name: " (cdr (assoc 2 layer))))

(setq layer (tblnext "LAYER"))

)

(princ)

)

---------

Re-merci

 

| Signaler ce message

Tramber

 

ceinture marron

 

Messages: 284

Inscrit(e) le: 29/3/2003

Statut: En ligne

 

Posté le 2/3/2004 à 14:18

(setq compt 0)

 

(setq jeus (ssget))

(setq entss (entget (ssname jeus compt)))

(setq PP (cdr (assoc 8 entss)))

 

(setq compt (1+ compt))

 

A mettre dans une boucle de longueur:

(setq aaa (sslength jeus))

 

Je vais pas faire tout le boulot.

Essaie avec (while

ou (repeat

 

Après tu colles tout avant ton (princ) et ca roule.

Reste à afficher correctement les résultats

 

[didier]

coucou

je vous prie de m'excuser, mais il est souhaitable d'avoir un tant soit peu d'explication

au sujet du contenu des messages.

il me paraît important de rappeler la question dans le message de réponse.

et surtout pour les débutants qui nous lisent, d'expliquer les lignes de code.

aussi bien en vba qu'en lisp.

je pense qu'ainsi tout le monde pourra utiliser l'exemple à des fins personnelles.

soyons précis quand on pose une question.

soyons explicatifs lorsqu'on répond.

c'est sans doute çà la netiquette, me trompe-je Patrick ?

amicalement

à très bientôt...

[Tramber]

(defun c:voir_couche (/ layer)

(setq layer (tblnext "LAYER" T))

(while layer

(princ (strcat "\nLayer name: " (cdr (assoc 2 layer))))

(setq layer (tblnext "LAYER"))

)

 

(setq jeus (ssget))(setq aaa (sslength jeus))(setq listeu (list "Les calques sont"))

(setq compt 0)

 

(repeat aaa

(setq entss (entget (ssname jeus compt)))

(setq PP (cdr (assoc 8 entss)))

(setq listeu (append listeu (list PP)))

(setq compt (1+ compt)))

(princ)

)

 

Tapes !listeu dans le ligne de commande Autocad

[Tramber]

Cher Didier,

 

J'ai redirigé ce message:

http://www.cadxp.com/sujetXForum-1873.htm

car il était dans le mauvais forum.

 

...alut

[Tramber]

Cher Didier,

 

J'ai redirigé ce message:

http://www.cadxp.com/sujetXForum-1873.htm

car il était dans le mauvais forum.

 

...alut

[didier]

merci à "TRAMBER" d'avoir pris le temps de répondre,

et mille pardons si quelque fois mes propos dépassent ma pensée.

je m'emporte mais étant très exigeant envers moi même j'ai tendance à l'être en

"général"

au mieux je suis

"deuxième classe"...

amicalement :yltype:

 

[Tramber]

Allons allons, ...

C'était difficlement compréhensible.

 

Je postais en même temps que toi d'ailleurs.

 

Mais mon ami "dupin" (qui va revenir) a posté dans les forum Autocad. J'ai fait beaucoup d'erreurs au début moi-même. Et Dieu merci en fais encore. Pour corriger ici, c'est vrai que j'ai un peu jonglé.