Fraid

Merci, Le crabe de rappeler MEASUREMENT Si je n'ai plus jamais de soucis avec l'insertion des blocs ou des xrefs, il y toujours les hachures qui résistent. Mais cela pose un problème que si on veut les éditer, car bizarrement elle conserve leur aspect tant que l'on y touche pas... Peut être qu'une solution existe en lisp pour vérifier les hachures et leur appliquer un facteur d’échelle si elle n'on pas été dessinée avec le bon MEASUREMENT? Je n'ai pas réussi a le faire et je n'ai pas chercher longtemps non plus..... car mes clients n'on pas penser a vérifier cette variable...

Bonjour, C'est insupportable... En plus ce n'est que la partie visible... Ce sont des milliers de tonnes de déchets en tout genre qui flottent plus ou moins dans tout le Pacific bientôt habité par des monstre marins plastivores irradiés...

Bonjour, Je travail très souvent avec des chartes graphiques contraignantes. La seule solution que j'ai trouvé, pour que mes collaborateurs restent dans la chartes, est de lancer un lisp au démarrage de chaque dessin imposant les règles, puis un lisp de contrôle appliqué a la fin du dessin. Cela impose une phase de développement avec chaque nouvelle charte, mais l'investissement est rentable.

bonjour, en tapant REPERE puis G

Merci ...je n'avais pas vu que l'ensemble etait dans le zip... désolé du dérangement, y a des fois je n'ai pas les yeux en face des trous...

il n'y a plus d'autres version à télécharger pour 2011. la 18 n'est plus disponible. Bizarre....

c'est pourtant écrit DOSLIB 9.0 for Autocad 2007-2013 lors du téléchargement ??????????????????

Bonjour, Tout est dans le titre. Il y a une nouvelle version du DOSLIB voir http://www.mcneel.com pour ceux qui ne connaissent pas mais je n'arrive pas à le charger alors que la 18 marche très bien vous me direz que ce n'est pas dramatique, mais la nouvelle fonction dos_htmldialog a l'air vraiment intéressante. yaty quelqu'un qui a réussi a le charger dans 2011?

voila un exemple de traitement des objets contenus dans des blocs ici pour effacer les hachures (defun c:DeleteSolidHathInBlocks (/ AcDoc) (vl-load-com) (setq AcDoc (vla-get-ActiveDocument (vlax-get-acad-object)) listBlocs (ssget (list (cons 0 "INSERT"))) vlalistbloc (vlax-ename->vla-object listBlocs) ) (vla-StartUndoMark AcDoc) (vlax-for b vlalistbloc (vlax-for e b (if (and (= "AcDbHatch" (vla-get-ObjectName e));;;ici les objets que tu doit traiter (= "SOLID" (vla-get-PatternName e)) ) (vla-delete e);;;ici le traitement ) ) ) (vla-EndUndoMark AcDoc) (vla-regen AcDoc acActiveViewport) (princ) ) a toi d'adapter merci au experts lispiens du forum pour ce code

Pourrai tu nous dire ce que contiennent tes blocs?

mais il n'a pas l'air de toucher aux entités des blocs je ne pouvait pas deviner que tu voulait intervenir a l’intérieur des blocs la c'est une autre histoire... je vais regarder si j'ai cela dans ma collection...

Bonjour, Difficile de te répondre sans avoir les fichier sous la main normalement ton SCU doit être Général dans chaque dessin...

Merci a tous pour vos réponse grace a vous,j'ai de quoi m'occuper ce week end Entre temps j'ai trouvé aussi une autre voie a explorer celle de la ligne de commande avec 7zip par exemple a bientot

Bonjour, Comme vous avez pu remarquer, Autocad sait produire des ZIP avec la commande Etransmit. Comment fait il? Utilise t'il le zippeur intégré à Windows ou a t'il sont propre exécutif? Et surtout Comment y accéder en Autolisp? J'ai déjà vu un post à ce sujet, mais je ne sais plus où, et désolé pour l’éventuelle redondance, car impossible de rechercher avec ZIP... Merci

Bonjour, un standard (defun C:z=0 nil (command "_.move" "_all" "" '(0 0 1e99) "" "_.move" "_p" "" '(0 0 -1e99) "") (princ) )

Merci beaucoup je vais potasser la fonction COND...et (vl-member-if 'vl-consp lst) qui me laisse songeur... depuis que je sais me servir de MAPCAR je l'utilise bêtement systématiquement. alors qu'il y a tant de façon de faire autrement. Sinon un STRING est une variable contenant une chaîne de caractères. et pour rester dans le vocabulaire Lispien, Tree veut il bien dire liste de listes ?

Bonjour, Voulant simplement savoir si un string est present dans une liste quel que soit sa forme (a B ), ((a B )( c d ))... je pensait naïvement y arrivé avec cela (defun SuperMember ( str Liste / ) (setq Flag nil) (if (member str liste) (setq Flag T) (mapcar '(lambda (x) (if(SuperMember str x)(setq Flag T)) liste)) ) ) dés que j'essais avec une liste tordue genre (defun c:rocco nil (SuperMember '"g" '(("a" "b") (3 R ("g" "k"))))) erreur: nombre d'arguments insuffisants Why? Merci en relisant je m'apperçois qu'il y a des elements qui ne sont plus des listes au fur et a mesure du traitement...

Merci a tous J'ai encore appris beaucoup de choses grâce à vous a pluche

Merci patrick ...je n'arrive pas à utiliser ma liste comme des paires pointées... c'est tout a fait le cas, Mais je devais subir la fatigue de fin de semaine car (defun c:test ( / lste ) (setq Lste '( ("fdffg" "FDFFG" "1234" "4569" "22" ) ("fdifg" "FDIFG" "1224" "4569" "22" ) ("mdffg" "MDFFG" "1434" "4569" "22" ) ("adffg" "ADFFG" "1234" "4169" "22" ) )) ( CheckList (strcase (getstring T "\nTapper le string : ") nil) 3 2 Lste) ) (defun CheckList ( Rech PosA PosB Liste / lst) (setq PosA (- PosA 1) PosB (- PosB 1)) (mapcar '(lambda (x) (if (= (nth PosA x) Rech) (setq lst (cons (list (nth PosA x) (nth PosB x)) lst)))) liste ) ) fonctionne ! il me reste plus qu'a nettoyer ma liste retournée mais je veux bien un exemple avec ASSOC, car je n'ai pas reussi grand chose avec

je pense vraiment que c'est avec mapcar ou apply que je peux explorer correctement ma liste de listes.. jtourne en rond... je vais aller boire un ptit rhum a la rhumerie du coin, sa va ptetre m'inspirer...

je suis en train de tester ASSOC... j'ai un peu peur des récursions non maîtrisées..

C'est vrais que je suis aller un peu vite en fait je cherche a faire une fonction (nomfonction a b liste) a et b la place occupée dans la liste et qu'elle me retourne la valeur b par rapport à a (les valeurs sont des strings meme si ce sont des nombres, car parfois une lettre vient s'inserer et cela me simplifie l'exploitation du retour. si il y a plusieurs solutions j'utilise la fonction dos_listbox pour en choisir une c'est une liste que je crée avec un .csv que l'on ma fournis, il y a plus de 30000 lignes a explorer, j'ai donc besoin d'un outil configurable à souhait pour l'exploiter dans tout les sens. Le contenu n'est pas important pour le sujet du post et ne ferais que embrouiller les choses. merci

Bonjour, J'ai un petit soucis avec la lecture d'une liste qui se présente ainsi (setq Liste '( ("fdffg" "FDFFG" "1234" "4569" "22" ) ("fdifg" "FDIFG" "1224" "4569" "22" ) ("mdffg" "MDFFG" "1434" "4569" "22" ) ("adffg" "ADFFG" "1234" "4169" "22" ) .... )) une entrée (setq Rech (strcase (getstring T "\nTapper le string : ") nil)) exemple: mdffg une recherche (mapcar '(lambda (x) (if (= (nth 1 x) Rech) (setq lst (cons (list (nth 1 x) (nth 2 x)) lst)))) liste ) me retourne ("MDFFG" "1434") la, tout est OK Par contre si je fait (mapcar '(lambda (x) (if (= (nth 2 x) Rech) (setq lst (cons (list (nth 2 x) (nth 1 x)) lst)))) liste ) il me retourne NIL alors qu'il devrait me retourner une liste de listes... Bah pourquoi? Merci pour vos conseils lumineux

Un batiment sous Inventor ? Je suis curieux de voir cela ! Pourrait tu nous en partager un p'tit bout, pour voir comment c'est organisé?

Bonjour, Peut être que c'est dans le style de cote que trouvera la soluce, je ne pense pas que cela ai quelque chose a voir avec l'orientation ou la direction.