ASTERIXII

Bonjour, Sur le forum il me semble être tombé un jour sur un sujet sur la gestion des Erreurs, je ne le retrouve plus. Pour info j'ai un problème avec l'Editeur Visual Lisp et OpenDCL, c'est pour cette raison que je cherche l'autre solution

Ok, j'avais effectivement une erreur J'ai alors repris ton explication, et j'ai corrigé ssname Voila pour le moment: avec un nouveau bloc du nom NGF2 et 2 attributs NGFZ2 et NIVEAU Je vais aussi regarder ton code, mais pour revenir à l'Etideur Visual Lisp, je n'arrive pas lancer mon lisp depuis la console Je sais que tu a fait un tutorial, je vais allé voir [surligneur] C'est nickel pour ton code, et aussi ton tuto sur l'Etideur Visual Lisp[/surligneur] Encore un grand merci [Edité le 24/8/2011 par ASTERIXII]

Merci pour ta réponse Gile, mais pourquoi cette ligne ? Si j'ai compris le début : Ici ent = blk (setq ent (ssget "x" (list (cons 0 "INSERT") (cons 2 "NGFX2") ) )) Ensuite ton autre code:

Bonjour, Merci didier pour ton nouveau code. J'avais 2 questions, mais tu as deja repondu sur une avec le test sur le bloc unique. L'autre question : si j'ai 2 attributs dans mon bloc cela va t'il changer le raisonnement ? Amicalement

Pour info voila le début de la page de l'onglet CADXP 5Þ .Þ ..6Þarea1block.html7Þarea2block.html8Þarea3block.html9Þarea4block.html:Þ article.htmlÿÿÿ;Þcenterblock.htmlj®<Þ centerblock.html.bakÿÿÿ=Þ credits.txt>Þleftblock.htmlÿ?Þ mainmenu.htmlÿÿ@Þmainmenu.html.bak˜®AÞrightblock.htmlBÞ summary.htmlÿÿÿCÞ theme.cfg¦€DÞ theme.html€EÞtheme.html.bakÿFÞ theme.php¦€GÞ Thumbs.db¦€²Þimagesÿ¸Þ,styleÿÿ5Þ .Þ ..6Þarea1block.html7Þarea2block.html8Þarea3block.html9Þarea4block.html:Þ article.htmlÿÿÿ;Þcenterblock.htmlj®<Þ centerblock.html.bakÿÿÿ=Þ

Sur le site Acadlab il n'y a pas d"adresse mail pour le contacter, ou alors il faut s'inscrire Sinon voila le lien : http:// http://dl.free.fr/bd48ioROO Contient Un fichier dwg avec le bloc le code lisp un fichier texte [Edité le 23/8/2011 par ASTERIXII]

Désolé Didier, mais je n'ai pas ton adresse mail. Ou voir les message perso ? ou tu parle de ton site ? [Edité le 23/8/2011 par ASTERIXII]

Je tiens vraiment à vous remerciez. J'ai enfin la solution, même si je ne la comprends pas ! j'ai regardé l’aide D’autocad sur le sujet, mais après ssget, je n’ai pas trouvé le sujet sur les filtres. J’ai bien trouvé les codes de groupe pour SSGET X mais dans une doc de 1989 !, et j’ai pas d’explication sur (Cons 66 1 ). Je trouvais l’ancienne doc d’autocad plus pratique ! Alors suivant la dernière idée de Gile j’ai (encore) recopié une partie du code du début, ou j’ai retrouvé ssget et ssname. Je savais que la gestion des blocs était compliqué, mais pas à ce point la ! J’ai aussi trouvé mon erreur dans la gestion de la variable lst. Bon merci encore pour votre aide. Amicalement (Defun C:NGF () (setq BN "NGFX") ; nom du bloc (Setq SS (SsGet "_X" (List (Cons 0 "INSERT") (Cons 2 bn) (Cons 66 1) ) ) N (If SS (SsLength SS) 0) ) ;*********************** (setq n 0) (repeat (sslength ss) (setq na (ssname ss n) lst (acet-insert-attrib-get (list na 1)) );setq ) ;********************** (setq NGFref (nth 0 lst)) (setq NGFref (car (cdr NGFref))) (setq NGFref (atof NGFref)) ); fin defun

Effectivement , bonne question il n'y à qu'un bloc dans le dessin. Je vais plus loin dans l'explication de mon but. Je recherche une methode pour memoriser une valeur (NGF) dans mon dessin, pour qu'à la prochaine ouverture du plan, je la retrouve automatiquement, et sans passer par un fichier en ecriture. C'est pour cette raison que j'ai pensé au bloc, mais il y à peut-être une autre solution ?

Merci pour cette réponse construtive, effectivement, en jouant avec la fonction (setq valatt2 (cdr(assoc 2 (entget ent2)))) ou ent2 provient de tblsearch "BLOCK" je viens de voir que je n'ai que des infos sur le bloc et l'attribut, mais pas sa valeur. Bref, ou je veux en venir, en faisant simple: J'ai un bloc dans mon plan avec un attribut Nom du bloc NGFX nom de l'attribut NGFZ je veux récuperer la valeur de l'attribut pour l'utiliser dans mon programme. Mais la " [surligneur] sélection[/surligneur]" de l'attribut ne doit pas se faire avec la souris, mais par le programme, puisqu'il connait le nom

Re, Question quel est la difference entre : (setq ent (car (entsel))) ;selection souris qui donne comme valeur [surligneur] [/surligneur]et (setq ent2 (cdr (assoc -2 (tblsearch "BLOCK" BN)))) ; selection par code qui donne comme valeur [surligneur] [/surligneur] Pourquoi des valeurs differentes ? Suivant le début de code de didier

Vraiment un grand merci, vous êtes d’un grand secours. Je pensais être dans la section débutant, mais il doit y avoir encore plus bas. J’ai cherché avant de poser la question, pas comme d’autre, (la preuve une partie du code), mais à chaque fois c’était pour modifier l’attribut ou l’exporter. Enfin bref ce n’est pas ici ou aujourd’hui que je vais trouver la réponse Bonne soirée aux anciens combattants !

je voulais dire pas avec la souris C'est une chaine de C ou une liste ? [Edité le 22/8/2011 par ASTERIXII]

Oui mais du type liste je crois

Bonjour, Pour la methode, c'est que j'ai le niveau débutant et que la gestion des blocs et compliqué. Ensuite, je ne veux pas selectionner le bloc ni modifier l'attribut mais seulement lire la valeur. Dans mon code [surligneur] lst (acet-insert-attrib-get (list na 1)) ;<---- la valeur de lst est la valeur que je cherche[/surligneur] mais je n'arrive pas à la passer à une variable [Edité le 22/8/2011 par ASTERIXII]

Bonjour, Je recherche la façon en lisp de [surligneur] lire la valeur [/surligneur]d'un Attribut pour l'exploiter dans le reste de mon programme. Je n'arrive pas à récuperer la valeur de 191.00 de lst (une liste ?) Ensuite comment modifier le lisp si j'ai 2 attributs ? NGFZ et NIVEAU Nom du bloc : NGFX Nom de l'attribut : NGFZ La routine est de la "récup" de plusieurs lisp Routine : (Defun C:NGF () (setq BN "NGFX") (setq EN (cdr (assoc -2 (tblsearch "BLOCK" BN)))) (while EN (setq EL (entget EN)) (if (= (cdr (assoc 0 EL)) "ATTDEF") (setq TAGL (cons (cdr (assoc 2 EL)) TAGL))) (setq EN (entnext EN)) ) ;******************************************* (if TAGL (progn (setq TAGS (car TAGL) TAGT (cdr TAGL) ) (foreach TAG TAGT (setq TAGS (strcat TAGS " " TAG)) ) ) ); fin if TAGL ;******************************************* (initget TAGS) (setq Esel "NGFZ") (setq ESel (xstrcase ESel)) (if (member ESel TAGL) (setq Pass 'T TG ESel ) (prompt "\nInvalid attribute name.") ); fin if ;******************************************* (Setq SS1 (SsGet "_X" (List (Cons 0 "INSERT") (Cons 2 bn) (Cons 66 1) ) ) N (If SS1 (SsLength SS1) 0) ) ;******************************************* (setq ss ss1) (setq n 0) (repeat (sslength ss) (setq na (ssname ss n) e1 (entget na) lst (acet-insert-attrib-get (list na 1)) ;<---- la valeur de lst est ((NGFZ 191.00)) blk (cdr (assoc 2 e1)) hnd (cdr (assoc 5 e1)) lst3 (append lst3 (list (list hnd blk lst))) );setq ;******************************************* ) ; fin defun[Edité le 22/8/2011 par ASTERIXII]

Effectivement, pas la dernière version, (SSD 2.3 du 14/07/08) Sa marche avec la dernière version :) En fait dans ton fichier ZIP la total, ce n’est pas la dernière version. Merci

Bonjour Gile, J’ai un problème avec ton lisp Spécial sélection : SSD Je voudrais l’utiliser sur des blocs dynamique (+paramétrique) pour filtrer et modifier un paramètre identique à plusieurs blocs. Je suis sur Autocad 2011. Je lance le lisp, sélectionne un bloc, et la fenêtre de filtre s’ouvre avec mon nom de bloc et tous les paramètres de mon bloc. (Il n’y a pas de valeur dans les cases, c’est normal ?) Sinon dans une des cases, je rentre une valeur de filtre, fait OK, mais aucune sélection sur l’écran ? Fausse manipe ?

Voila la réponse donnée par Grandss Cela fonctionne bien, de plus cela permet d'aplanir des plans avec des z<>0 Merci

Bien vu :) Un grand merci !

Non, c'est des "objets" Autocad MEP pas de simple ligne, image un bloc

Bonjour, J’ai un plan en 3D d’un bâtiment réalisé avec Autocad MEP. Il faut que je sorte des plans dwg en 2D. Pour une vue en plan je n’ai pas de problème, avec la fonction de section d’autocad. Mais je ne sais pas si il est possible « d’aplanir une vue iso » en conservant un format dwg (pas d’image). Attention le plan n’est pas fait d’objet Solide, donc aucune fonction pour les solide ne fonctionne.

Bonjour, J’ai un plan en 3D d’un bâtiment réalisé avec Autocad MEP. Il faut que je sorte des plans dwg en 2D. Pour une vue en plan je n’ai pas de problème, avec la fonction de section d’autocad. Mais je ne sais pas si il est possible « d’aplanir une vue iso » en conservant un format dwg (pas d’image). Attention le plan n’est pas fait d’objet Solide, donc aucune fonction pour les solide ne fonctionne.

Merci de poursuivre vos discussions dans un autre « salon », bientôt il faudra parcourir 10 pages avant de voir la fin du sujet.

Oui, un autre Strasbourg ??