Tramber

En relisant l'autre (malheureusement) conversation, J'avais pas bien compris. ^C^CFENETRES;I;tout;; En macro pourrait sufir. Tu cliques à chaque changement d'espace. Et ma suggestion devient pertinante.

LAYOUTREGENCTL va t'aider, en principe. Puisque cette variable est prévue pour ton dessin en cours d'utilisation. Essaie voir...

Non, tu peux mettre ce que tu veux du moment que c'est du lisp ! Il y a une erreur dans le lisp qui rassemble la réaction à onselchanged. Mais franchement, coment veux-tu que je trouve ton erreur ? Y a pas le code dans ton message !

Passe donc SELECTIONPREVIEW à zéro !

Joli boulot les gars. Jamais eu 5 minutes pour y taper (alert "hello") !

Et n'oublies pas notre RDV cet été à la mondiale de la 2CV. Tu vas voir si t'as pas d'amis !

Lis donc le post précédent. Tu vas trouver à force... Mets plutôt un Onselchanged qu'un killfocus (+ adapté aux zones de textes éditables) à moins que ta combo soit éditable. (Setq Module_Name (Odcl_ComboBox_GetTBText essai1_INIT_DEF_Input_Selector)) (setq Module_Name (strcat "(c:" Module_Name")")) Attribué la même variable à deux choses si différentes m'échappe... Entraines-toi bien :cool:

Salut, je n'ai pas le temps aujourd'hui mais on voit bien que ton écriture n'est pas rigoureuse : (setq list_module (Odcl_ComboBox_AddList .... ne sert à rien, cette fonction renvoie T ou nil. (eventuellement interessant pour savoir si le remplissage s'est effectué correctement. (defun c:INIT_DEF_Input_Selector_KillFocus () ? (defun c:INIT_DEF_Input_Selector_ ONKillFocus () non ? Pour tes non-implémentations, c'est à toi de gérer. Si tu coches un évènement dans l'éditeur, il faut implémenter l'évènement dans le lisp. Et inversement. Au fait : (Odcl_ComboBox_AddList est à mettre dans un OnInitialize de ta boite. C'est le B.A.BA car une boite peut être ouverte et fermée par ta propre programmation au sein d'une seule fonction. Ca serait une habitude à prendre. Un message récent dans ce forum le rappelle.

Salut : OUPS je voulais dire Publier !!! (j'ai mis un suivi par courriel pour ce message, je peux vite réagir) Pour l'avatar, il faut aller dans "mon compte", tout simplement.

Au fait, il y a un truc que je n'ai pas dit :P Dans le sujet, je disais que ma routine ne marchait pas. Elle marchait bien, évidemment, mais pour le 1er niveau. J'avais juste mal écrit mon Pattern :calim: C'était juste pour préciser. Connaissant le niveau d'imbrication, je me disais que je l'aurais faite tourner 1 ou 2 fois. Mais le sujet a formidablement dérivé. Hoppla bon dimanche

Pour les boucles et tout le reste, j'ai bien compris. C'est pas un problème. C'est tout simplement (vl-some 'entget (massoc 331 (entget b))) et ce code 331 qui m'échappait totalement, A lire la référence DXF, je croyais qu'on parlait d'attributs dont je pense savoir qu'ils sont juste dérrière le BlockBegin. Je vais me repencher sur ces 330 et 331. C'est vraiment ce 331 que j'interprétais maL En tous cas le résultat est excellent :) J'ai vu le Challenge 30. Je me souviens maintenant... j'avais oublié que je l'avais lu et y avais fait une intervention fort importante sur les moteurs à plat (notre musée déménage, j'ai passé toute la journée d'aujourd'hui à déplacer des épaves de 2CV, c'était marrant je suis impliqué dans mon assoc et fustige ceux qui veulent comparer cette merveille avec des Porshce et des Ferrari). Quand je vois la qualité des interventions, je préfère me servir de vos travaux (et les comprendre, question pas de fierté mais disons d'honneur) que de m'essayer à des solutions bancales. Chapeau pour tout. Et mystère intriguant voire fascinant sur la routine de la réponse n°1 compatible uniquement 2011...

Salut les gars, Je m'étonnais justement. J'ai longtemps négligé de lire régulièrement les posts sur CADxp, ca se compte en années. Je me suis dit que je trouverais bien un peu d'inspiration pour gérer plus tard les blocs imbriqués. En fait je dois dire que je suis surpris car vous semblez me montrer qu'il n'y a jamais eu beaucoup de discussions et de demandes (satisfaites) pour ce sujet de la purge des blocs. Et le coup du vl-position pour traiter "tant qu'elle a encore à traiter" est élégant. Par contre, je n'ai pas tout compris pour le fonctionnement de la dernière routine : La première boucle liste toutes les références ayant un blocksrecords. Ensuite nous rentrons dans une boucle et l'on vérifie qu'il n'y a aucun attribut (331) . C'est ça ? Puis le (vlax-for o blk permet d'effacer tous les enfants du premier niveau. Mais alors, comment la routine "sait-elle" ce qui est purgeable ? La construction de blst m'échappe-t-elle ? Je crois que oui. Hoppla En tous cas, ca a l'air de très bien marcher. ...et puis, quel étonnement pour la 2011... [Edité le 18/2/2011 par Tramber]

Si tu veux progresser et avoir des critiques tu dois : 1. oublier ton code complet si tu as des questions 2. ne pas prendre l'avatar de ton interlocuteur :o

T'inquiètes, je l'avais pas implémentée, ca sera pour dimanche je crois ! Merci pour les renseignements... et les codes :cool:

On apprend, l'air de rien. En somme c'est son DISTOF ! Je ne savais pas pour X/Y Très belle découverte.

Bon, les gars, au début je pensais à mes enfants (!) mais avais déjà la question des parents à résoudre. Mais c'est vachement bien puisque le sujet a dérive sur le sujet des enfants. Je vais essayer cette dernière fonction quand je l'aurais bien comprise (celle du début, c'est ok, je tâcherai de me souvenir de la belle astuce du vl-position.). Pour cela voici ma question à toi, (gile) : C'est quoi ces histoires de pointeurs dans le DXF 330 et 331 ? Je suis curieux pour ce test dont je ne comprends pas la destination à brûle-pour-point.

C'est vrai. Ma reflexion sur la casse est idiote. Alors je ne rêvais pas. Merci d'avoir regardé. Est-ce une routine que tu as créé recemment, sur 2011 ? As-tu déjà publié une autre routine qui pourrait fonctionner ?

(sslength(ssget "_X" '((0 . "INSERT") (210 0.0 0.0 -1.0)))) ou (sslength(ssget "_X" '((0 . "INSERT") (210 0.0 0.0 -1.0000)))) Fonctionnent-ils donc alors ?

Attendez, vous voulez parler du lancement de 'CAL en transparence mon cher Lili ? Moyen GENIAL mais il faut apprendre CAL. C'est puissant et il doit y avoir une solution pour ce problème. Ceci dit, mieux vaut un programme dès lors qu'il y a plusieurs lignes à décaler.

Hello, Le code DXF de l'extrusion est 210. Mais c'est un vecteur. T'es sur que tu ne parles pas de facteur d'échelle d'insertions de blocs ? Sinon, je proposerais : (sslength(ssget "_X" '((0 . "INSERT") (210 0.0 0.0 1.0))))

C'est fait ! Je n'arrive pas bien à comprendre, quand même. Car j'ai aussi fait l'essai sur une imbrication faite à la main, comme un dessinateur. Et là non plus je ne dépasse pas le 1er niveau... J'espère qu'il n'y a rien que je comprenne de travers. PS : on doit faire bien attention à la casse sur les noms. C'est un sujet de discussion, non ? C'est bizarre pour un bloc ou je dis (encore) une ...onnerie ? [Edité le 17/2/2011 par Tramber]

Ok, je vais réfléchir. Ce qui me trouble, c'est la "purgeabilité" de blocs toujours présents (je le constate en lancant PURGER).

Salut et merci. En effet, j'ai aussi cela à gérer. Donc je me suis intéressé à cette routine et vais la regarder de plus près bientôt. Et je m'autorise à penser que l'ordre de fabrication des blocs dans le dessin est important car, a priori, elle ne fonctionne pas dans mon cas, la purge reste au premier niveau. Sauf erreur (j'y reviendrai), ca ne tourne pas mieux que ma routine. Est-ce possible (je le crois, il est trop tard pour la lucidité) que l'ordre dans la collection compte ? En effet, j'ai déclaré les parents avant les enfants dans mon cas. Belle routine en tous cas.

(vlax-for iii *blocks* (if(wcmatch (vla-get-Name iii) "Temp_*") (vl-catch-all-apply(function(lambda()(vla-delete iii)))))) Bonjour, J'ai voulu faire le plus court possible pour purger des blocs. Ici ceux avec nom commenacant par "Temp_". (*blocks* est bien sur la collection de bloc de l'Activedocument) Ca n'a pas l'air de fonctionner. Suis-je trop naÏf ! Sans doute...

(Odcl_ComboBox_AddList essai1_DclForm2_Materiaux list_mat_vo ) Ca, ca ne fonctionne pas ?