Patrick_35

Ah oui, j'ai oublié le & qui normalement doit te donner la même chose (ssget (list (cons 0 "*POLYLINE,LWPOLINE") (cons -4 "&!=") (cons 70 112))) @+

Je t'ai inclus un not code 70 au bit 112 ? @+

Salut Bonus Pour simplifier tes filtres ;) (ssget "X" (list (cons 0 "*POLYLINE,LWPOLINE") (cons -4 "!=") (cons 70 112))) @+

Oui,c'était juste pour te taquiner, et je profite de l'occasion pour dire bravo à la nouvelle ceinture noire @+

Bonjour à vous tous, je ne voudrais pas paraître pessimiste, mais une formation sur Autocad, c’est une fois ou deux dans sa vie et comme en plus, la plupart des inscrits sur Cadxp sont anonymes, la liste des formateurs risque d’être des plus restreinte, mais c’est quand même une bonne idée. Cela reste à voir dans le temps @+

C'est délicat @+

Exprime-toi, libère tes chakras ;) Je ne suis pas tout à fait d’accord, ça fait trois ans que j’ai arrêté et toujours par l’envie de reprendre. Parfois des tentations, mais sans plus. Et pour ce résultat, je suis passé par un centre d’aide d ‘arrêt au tabac. L’avantage, c’est qu’on voit un médecin qui prescrit la dose nécessaire de nicotine dans les patchs, le complément si nécessaire avec les gommes ou les cachets et une explication très clair du traitement à suivre. Ensuite, il y a un suivi avec une infirmière durant une période d’environ six mois pour ajuster le traitement au fur à mesure ainsi qu’un suivi psychologique de notre dépendance au tabac L’avantage de cette méthode, c’est que ça se passe en douceur, qu’on prend un traitement adapté (et on évite ainsi un surdosage ou sous-dosage de nicotine quand on le fait par soi-même) et au niveau du prix, que se soit dans un paquet de cigarettes ou dans une consultation, cela revient à peut prêt au même Il y a des informations ouvertes au public pour ce type de traitement, il suffit juste de prendre de temps et de s’informer. @+

Je suis bien d’accord, le respect n’est pas à sens unique. Ca me fait penser que je pourrai me mettre aux cigarettes à l’eucalyptus. Ce n’est vraiment pas bon et ça sent très mauvais, mais pas de nicotine, ni de goudron ;) Oui, et pas besoin de fumer devant les personnes pour ça, l’imprégnation du tabac dans les vêtements se suffit à lui-même. Mais c’est un choix. Quand je vois une personne qui fume dehors, j’estime que c’est son droit, déjà que c’est suffisamment contraignant comme ça (surtout l’hiver) et si je passe à coté et que le vent me rabat la fumée, je ne vais pas faire une crise ; alors que dans un lieu public, dans un espace non-fumeur, c’est tout le contraire (sauf pour les gabarits de 2m et de 150kg :cool: ) Il y a des choses qui se passent de commentaires. C’est tout simplement criminel On peut faire un effort de 9 mois, pour l’enfant, c’est toute sa vie Ce n’est pas certain. Quand je vois les alertes de pollutions, qu’on restreint la circulation, qu’on conseil aux personnes âgées, aux malades, aux femmes enceintes et aux enfants en bas age de limiter leurs efforts, ça me laisse septique. Ce n’est quand même pas neutre. Si on voit un peu partout de plus en plus de problèmes d’asthme, il y a à mon avis, un cause à effet @+

Je suis aussi un ancien fumeur et je rejoins Tramber dans son combat. S’il veut fumer, c’est son problème du moment qu’il ne gène personne. La liberté de penser et d’agir reste encore de mise en France. C’est vrai qu’il y a une discrimination de plus en plus forte envers les fumeurs. On ne fume plus dans les lieux publics, mais pas il n’y a d’espace aménagé ou s’intoxiquer. De même dans les trains où on a supprimé le wagon fumeur. :mad: Il me semble quand même qu’au début du 20em siècle, fumer était un art, de même qu'une pièce de la maison y était dédiée :casstet: Et si pour notre santé, on s’occupait de la pollution atmosphérique comme de la cigarette. Entre les deux, lequel est le plus toxique ? :exclam: @+

Et en version lisp @+

Moi non plus, je ne connais pas cette variable Extrait de l’aide de la 2000 @+

On peut se servir de ce lisp pour faire des nomenclatures, il suffit de regarder s'il convient ou pas. De plus, par ce biais, je voulais amener une réflexion de ce que vouliez faire exactement. C'est une erreur que de ne pas vouloir faire un descriptif. En programmation, on peut faire de tout et n'importe quoi. L'avantage d'un descriptif est de donner un cadre, une vision de ce que l’on souhaite et permet en cas de besoin d’avoir un recours légal Maintenant pour ce qui est du développement, de la régie in situ, je ne suis nullement intéressé. @+

Il ne fonctionne plus..... en français mais il fonctionne en anglais ? @+

Peut-être sur ce lien comme base de départ @+

Pour cbtrm Avec l'editeur visual lisp (_vlide sur la ligne de commande) ou avec le bloc note (notepad) Pour Michel66 Pour incrémenter sur des attributs et en reprenant ce qu'a fait Bonus @+ (defun c:iat(/ Boucle Ent Js inc n_ini nb nb_dec old_error) (defun erriat(msg) (if (/= msg "Function cancelled") (if (= msg "quit / exit abort") (princ) (princ (strcat "\nErreur : " msg)) ) (princ) ) (setq Boucle 0) (while (ssname Js Boucle) (redraw (ssname Js Boucle) 4) (setq Boucle (1+ Boucle)) ) (setq *error* old_error) (vla-endundomark (vla-get-activedocument (vlax-get-acad-object))) (princ) ) (defun inc_txt (Txt / Ascii_Tx Boucle Decalage Val_Txt) (setq Boucle 1 Val_txt "") (while (<= Boucle (strlen Txt)) (setq Ascii_Txt (vl-string-elt Txt (- (strlen Txt) Boucle))) (if (not Decalage) (setq Ascii_Txt (1+ Ascii_Txt)) ) (if (or (= Ascii_Txt 58) (= Ascii_Txt 91) (= Ascii_Txt 123)) (setq Ascii_Txt (cond ((= Ascii_Txt 58) 48) ((= Ascii_Txt 91) 65) ((= Ascii_Txt 123) 97) ) Decalage nil ) (setq Decalage T) ) (setq Val_Txt (strcat (chr Ascii_Txt) Val_Txt)) (setq Boucle (1+ Boucle)) ) (if (not Decalage) (setq Val_Txt (strcat (cond ((< Ascii_Txt 58) "0") ((< Ascii_Txt 91) "A") ((< Ascii_Txt 123) "a")) Val_Txt)) ) Val_Txt ) (defun Trouve(Tbl Ent / Boucle Rech) (setq Boucle 0 Rech nil) (while (ssname Tbl Boucle) (if (eq (ssname Tbl Boucle) Ent) (setq Rech T Boucle (1+ (sslength Tbl))) ) (setq Boucle (1+ Boucle)) ) Rech ) (defun select (Js / Ajout Boucle Ent Texte) (setq Ent "" Ajout T) (while Ent (initget "Ajouter Retirer Supprimer") (if Ajout (setq Texte (strcat "\nSélectionner les attributs (" (itoa (sslength Js)) " sélectionné(s)) : ")) (setq Texte (strcat "\nRetirer les attributs (" (itoa (sslength Js)) " sélectionné(s)) : ")) ) (if (setq Ent (nentsel Texte)) (cond ((= Ent "") (setq Ent nil) ) ((= Ent "Ajouter") (setq Ajout T) ) ((or (= Ent "Retirer")(= Ent "Supprimer")) (setq Ajout nil) ) ((= (cdr (assoc 0 (entget (car ent)))) "ATTRIB") (if Ajout (progn (if (not (Trouve Js (car Ent))) (progn (setq Js (ssadd (car Ent) Js)) (redraw (car Ent) 3) ) ) ) (progn (if (Trouve Js (car Ent)) (progn (setq Js (ssdel (car Ent) Js)) (redraw (car Ent) 4) ) ) ) ) ) ) ) ) Js ) (vl-load-com) (vla-startundomark (vla-get-activedocument (vlax-get-acad-object))) (setq Old_Error *error* *error* erriat) (setq Js (select (ssadd))) (if (setq n_ini (getstring "\nIncrementer en débutant à [chiffre/lettre/alphanumérique] : ")) (progn (setq Boucle 0) (while (ssname Js Boucle) (setq Ent (entget (ssname Js Boucle))) (setq Ent (subst (cons 1 n_ini) (assoc 1 Ent) Ent)) (entmod Ent) (redraw (cdr (assoc -1 Ent)) 4) (entupd (cdr (assoc -1 Ent))) (cond ((eq (type (read n_ini)) 'INT) (setq n_ini (itoa (1+ (atoi n_ini)))) ) ((eq (type (read n_ini)) 'REAL) (setq nb 0) (repeat (strlen n_ini) (if (eq (substr n_ini (setq nb (1+ nb)) 1) ".") (setq nb_dec (1- (strlen (substr n_ini nb)))) ) ) (setq inc 1.0) (repeat nb_dec (setq inc (/ inc 10))) (setq n_ini (rtos (+ inc (atof n_ini)) 2 nb_dec)) ) ((eq (type n_ini) 'STR) (setq n_ini (inc_txt n_ini)) ) ) (setq Boucle (1+ Boucle)) ) ) ) (setq *error* Old_Error) (vla-endundomark (vla-get-activedocument (vlax-get-acad-object))) (princ) ) [Edité le 17/5/2005 par Patrick_35]

Merci Tramber, j'ai vu quelle existait, mais quand j'avais à l'époque, regardé l'aide, avec leur histoire de matrices, j'avoue que j'ai tout simplement laissé tomber. Comme quoi avec le temps... @+

nentsel, voilà une fonction qui me convient parfaitement et dont je ne me suis jamais servi. Merci beaucoup Bonus. Il me reste plus qu’à l’incorporer dans une boucle pour une sélection multiple. (Il va falloir un de ces jours que je regarde de nouveau toutes les fonctions autolisp) @+

Merci à tous pour vos réponses, mais je vois que je me suis mal fait comprendre Mon but est de faire un lisp pour faire un incrément sur des attributs. Le problème est que je ne veux pas rester sur un bloc défini avec un nombre d'attributs défini. Ce que je recherche, c’est de sélectionner un attribut à l’écran comme on peut le faire pour un texte. La sélection peut se faire par exemple du bloc 1 sur son deuxième attribut, puis du bloc 4 sur son cinquième, du bloc 45 sur le premier et sur le troisième, etc, etc... Je suis bien d’accord, mais je ne pense pas que ce soit possible en autolisp C’est le code dxf 66 @+

Salut J'y ai bien pensé, mais je ce que je veux faire, c'est la même sélection qu'avec la commande _-attedit. Que les attributs sans les blocs. Il est aussi possible de les déplacer par les grips, donc il y a sûrement une possibilité de le faire. C'est d'ailleurs pour ça que je suis parti dans une sélection en vlisp @+

Oui, enfin FDISK peut te fais sauter tes partitions de disques durs. C'est à utiliser avec une extrême précaution Mais cette commande existe encore ? Il me semble ne pas l'avoir vu par exemple sur NT @+

Bonjour à tous Comment faire une sélection que pour des attributs (lisp ou vlisp) comme avec la commande _-attedit Ce qui suit fonctionne pour ne sélectionner que des blocs (vl-load-com) (setq sel (vla-get-selectionsets (vla-get-activedocument (vlax-get-acad-object)))) (if new_sel (vla-clear new_sel) (setq new_sel (vla-add sel "Patrick")) ) (setq filter_code (vlax-make-safearray vlax-vbinteger '(0 . 0))) (setq filter_value (vlax-make-safearray vlax-vbvariant '(0 . 0))) (vlax-safearray-fill filter_code '(0)) (vlax-safearray-fill filter_value '("INSERT")) (vla-selectOnScreen new_sel filter_code filter_value) (princ (strcat "\nIl y a " (itoa (vla-get-count new_sel)) " éléments")) (princ) Mais, dès que j'applique le filtre que pour des attributs (vlax-safearray-fill filter_value '("ATTRIB")) Que nenni :mad: Comment faire ? Merci d'avance @+

Bonus a fait un lisp à ce sujet @+

Si, via une macro dans un bouton que tu définis au préalable @+

Autocad 2006 gère aussi bien qu'à son habitude les wipeout que dans les versions antérieures ? (je pense notamment à la sortie traceur :mad: ) ? @+

Je viens de penser à une solution qui est de jouer avec les fonctions (graphscr) et (textscr) @+