Goldorak44

Salut, pour une meilleur lisibilté, met ton code entre les balise "code" : Que souhaite tu faire dans cette partie : (defun pos (foreach p l (cond((equal (car l) p) "1") ((+1 (pos (cdr l) p))) ) ) ) Tu veux incrémenter le nom tes présentations ?

Si c'est lié à ton fichier, peut tu le joindre pour que l'on puisse regarder ? :)

C'est vrai :P :blink: :blink: Ah ouais quand même !!!!! :(rires forts): :(rires forts):

+1 Et pour vérifier si ton élément est bien un groupe fais un crtl+H comme indique VDH-Bruno plus haut.

Ca peut également être un bloc non décomposable (option a cocher lors de la cration du bloc). Dans ton fichier zip, le dwg ne contient pas de blocs ni de groupe ! :P

:(rires forts): :(rires forts): Non non !! j'utilise Visual Studio 2010. ;)

J'avais déjà lu ton tutoriel qui est vraiment super bien fait mais j'avais sauté la partie sur l'éditeur Visual Lisp !! Je suis formé depuis quelques mois par le responsable développement de ma société et comme il ne l'utilise pas, je n'ai pas eu ce réflexe. Actuellement, je suis de nouveau en formation mais c# !! Là y a du boulot ! :D

Euh non dsl. :unsure: J'ai toujours utilisé Notepad++ et je teste mes lignes manuellement dans autocad. Mon formateur m'a appris comme ça !! ;) Sinon pour "azop", est-ce le manque du (vl-load-com) ?

Pourquoi met tu "_$" devant ta ligne de départ ? C'est en expression diesel qu'il faut mettre des $, pas en lisp/vlisp. Exact pour mes lignes, j'ai été trop vite ! :unsure: (vla-GetBoundingBox (vlax-ename->vla-object (car (entsel))) 'mx 'mi) (setq pntBG (vlax-Safearray->list mx)) (setq pntHD (vlax-Safearray->list mi)) (command "rectang" pntBG pntHD)

Salut, le problème c'est le mx à la fin. si tu écris : (vla-GetBoundingBox (vlax-ename->vla-object (car (entsel))) 'mx 'mi) Cela fonctionne. Pour vérifier, tu peux écrire cela : (setq pntBG (vlax-Safearray->list mx)) (setq pntHD (vlax-Safearray->list mi)) (command "rectang" mx mi) Cela te permettra de vérifier tes points "mx" et "mi". @+

Tout a fait d'accord cependant j'aurai mis ce sujet dans la partie Commercial\Service comme les autres routines payantes. :P

Regarde ce lien : Mon lien

De rien. :P

Il me semble que c'est parce que la longueur de "Distance1" peut contenir plusieurs objets d'après le "pas" (distance réseau) choisis. Je sais pas si c'est clair donc voici un exmple en dwg. exemple vis.zip

Salut, es-tu sous windows XP ? si oui, as-tu eu une mise à jour windows hier ?

euh... :blink: Comment veut tu dessiner un objet sans savoir tracer un trait ? Je ne suis pas d'accord non plus sur le raisonnement. Personnelement j'ai une formation mécanique et je "maitrise" (débrouille bien) sur autocad. J'ai travaillé dans le VRD, le batiment et le CVC. J'ai toujours appris le métier sur le tas mais mes connaissances en Autocad m'ont permis de sortir un plan rapidement (même si je ne comprenanait pas tout - c'est venu par la suite). Il recherche un dessinateur pas un projeteur. Un dessinateur doit savoir dessiner un projeteur doit savoir dessiner et connaitre le métier.

Sur Autocad 2011, je n'ai pas le problème. Dsl.

Salut, pour la partie (strcat (getenv "ACAD")), cela correspond au chemin de tes fichiers support. Cette ligne de code insère le chemin de tes fichiers support dans le fichier Hatch00. Fichier que je ne connais pas. cette ligne doit permettre de redéfinir tes fichiers supports en cas de réinstallation.

@ alala et Patrick_35 : Merci, ça fonctionne parfaitement. @Gile : Merci pour le rappel ! j'avais oublié ce post qui pourtant est super intéressant. Tes fonctions résolvent bien des problèmes. Merci beaucoup ;) .

Bonjour j'écris actuellement un lisp suite à une demande de mes collègues et je bute sur un point ! Je cherche à compter certains blocs présents dans mon plan. Dans ma boucle (vlax-for Element ...) j'ai écrit ceci : (setq blkName (vla-get-name Element)) (setq dxfblk (cons 2 blkName)) (setq Ensa (ssget "_X" (cons '(0 . "INSERT") (list dxfblk)))) (if (/= Ensa nil) (progn (setq IntNbrElement (sslength Ensa)) ) (setq IntNbrElement 0) ) Le problème c'est qu'il ne compte que les blocs insérés directement et pas les blocs imbriqués dans d'autres blocs. Je sais qu'il faut utiliser une fonction récursive mais je n'y arrive pas... Si quelqu'un pouvait m'aider ! :) Merci d'avance

Tu créer ton bloc avec les attributs mais sans leur mettre de champ. Une fois le bloc créer, dans l'espace objet, tu clique sur le bloc et dans la case "VALEUR", tu fais "INSERER UN CHAMP". Dans le menu déroulant tu choisi "OBJET" et avec l'outil de sélection, tu sélectionne ton bloc. Tu verra apparaître dans les variable proposées, tous tes attributs. ;)

Salut, comme ceci ? TEST.zip

Super ton lisp FUNDREAM. ;)

Salut, effectivement la pagination des présentations est un problème. Personnelement, je nomme mes présentation 1,2,3,... (c'est pas terrible !) et je récupère la valeur CTAB avec les champs. Pour le nombre de pages, je créer une variable dans fichier/propriété du dessin/personnalisé. Cette vraiable est ensuite récupérée via un champ. Tu as oublié le dwg !

Salut, sélectionne ton texte, va dans les propriétés et sélectionne "MILIEU CENTRE" pour la case "JUSTIFIER". Cela résout il ton problème ?