>>NicoM

C'est original de faire sa présentation 10 ans après son inscription ! :(rires forts): Il est temps de faire grimper le compteur de message car avec autant d'expérience, je suis sur que tu as beaucoup à apprendre à la communauté. :)

Quand on analyse un peu la chose, le nombre de nouveau inscrit depuis le 25 Juillet est d'environ 660 membres ! Ca fait plus de 100 membres par jour ! J'imagine que la moyenne de nouveau inscrit tourne plus autour de 4 ou 5 par jour habituellement :huh: ... En gros on a énormément de fake qui ne sont la que pour nous balancer je ne sais quel lien à la *** ! Il n'est pas possible de faire un gros ménage dans ce bazar ? PS: je sais que je suis nouveau, mais si les modérateurs ont besoin d'aide pour nettoyer, je me propose !

Déjà je suis content d'avoir pu aider :D Pour supprimer une entité, il faut utiliser la fonction (entdel).

Ah oui ç'est un peu long à mettre en place ! C'est pour ça que j'utilise un gabarit qui intègre tout ça à chaque ouverture de nouveau document. Tous les anciens fichiers qui n'utilisaient pas ce gabarit se modifient encore à la main... trop long de tout reprendre ! Pour la solution LISP je suis incapable de te proposer quelque chose... :(

En lisp je ne sais pas faire, je suis pas encore assez caler sur le sujet pour pouvoir te répondre. Par contre j'ai une solution alternative, qui fonctionne assez bien et qui permet une grande liberté sur le sommaire utilisé: Il faut commencer par aller dans les propriétés du document comme ci-dessous (ou avec la commande _DWGPROPS) Ensuite tu ajoute une propriété, page 01, page 02, etc... Et enfin dans ton sommaire tu fais des champs (avec CTRL+H) qui vont chercher la propriété du document que tu viens de créer. Tu n'as plus qu'a faire de même avec le titre qui figure sur chacune de tes pages. Une fois les propriétés modifiées, un petit Regen et le tour est joué ! :D J'espère que cela te conviendra ;)

Remplace le tout par ça : (setq ent-liste (entget (entlast))) Plus besoin de la variable "ent" du coup. C'est le "car" qui récupère le premier élément de la liste et qui supprime tous les autres éléments qui fait que tu n'as plus que l'identifiant. Pour faire simple tu as juste besoin de ça : (setq ent-liste (entget (entlast))) ; récupération de la liste du dernier cercle crée (setq XY (cdr (assoc 10 ent-liste))); récupération des coordonnées dans la variable XY (setq R (cdr (assoc 40 ent-liste))) ; récupération du rayon dans la variable R

Si tu utilise un "entlast" plutôt qu'un "entsel", la vérification du type d'entité ne sert plus a rien. Tu peux supprimer tout ce qui s'y rapporte. Garde quand même les deux lignes après le "progn".

Je pense que la programmation de ce que tu décrit est une vrai usine à gaz :blink:

Je débute tout juste en lisp mais j'ai tenté de t'écrire un petit quelque chose: (setq ent (car (entsel))) ; sélection du cercle (setq ent-liste (entget ent)) ; création de la liste (if (= (cdr (assoc 0 ent-liste)) "CIRCLE") ; vérification du type d'entité (progn (setq XY (cdr (assoc 10 ent-liste))); récupération des coordonnées dans la variable XY (setq R (cdr (assoc 40 ent-liste))) ; récupération du rayon dans la variable R ) (alert "Ce n'est pas un cercle") ) ; fin du IF (princ) C'est probablement pas très bien écrit mais ça fonctionne chez moi.

Je n'arrive pas à double cliquer la valeur par défaut de ton attribut, je comprend pas pourquoi. Pour ma part j'utilise plutôt des tables de propriété associé à un paramètre de visibilité pour ce genre de chose. Tu trouveras un exemple ci-dessous : https://we.tl/t-VhWDT76Shl

Vérifie bien que tes hachures sont associatives et que ta polyligne qui sert de délimitation est bien fermé. Attention également à bien prendre les bons objets dans ta commande d'étirement dynamique (les hachures en l'occurrence...) Si tu fais un clic droit sur le petit symbole tu peux "éditer le jeu de sélection" Ce point est récurent quand on a des paramétres un peu dans tous les sens, il faut toujours y être très vigilant. Allez courage on y est presque !! (en vacance :P )

Pour la question de base : J'ai exactement le même souci et je n'ai jamais réussi à comprendre pourquoi. Je crois que les unité du bloc peuvent avoir leur importance car ce problème ce présente essentiellement lors d'un copier-coller d'un fichier à un autre. Rien de sur en tout cas. Pour la question subsidiaire: Oui c'est très facile (si j'ai bien compris la question). Il faut modifier le paramétre ci-dessus et bien appliquer la commande étirer sur chacune des deux extrémités. S'agissant du même paramètre, quelque soit la flèche d'étirement choisi, les deux s'étireront. J'espère que la réponse est aussi clair que la question :P

Je suis pas un spécialiste mais la commande "-ECHELLEOBJET" me semble être la bonne piste... A confirmer par les pro...

Essais la commande "-DWGUNITS". Tu passera en revu tous les paramètres associés à l'échelle du fichier. Il y en probablement un qui fait que le dessin change d'échelle. Demande à l'usine de faire la même chose parce qu'il y a de grande chance que le souci viennent de chez eux. Espérant répondre à ta demande.

C'est parfait ! Je vais pouvoir envoyer du Entmake ! Moi qui ai toujours trouvé que l'aide d'autocad n'était pas très pratique... En l'occurrence, pourvoir retrouver les codes de chaque type d'entité m'enlève une belle épine du pied ! :D

Bonjour, J'essais de me familiariser avec la commande "Entmake" mais il y a des zones d'ombre que je ne parviens pas à éclaircir... J'ai trouvé les listes de codes DXF suivantes : "Liste générale" "Liste spécifique aux polylignes" Dans l'exercice du yingyang4 du superbe site de didier, il utilise les codes 90 et 43 que je parviens pas à associer à un paramètre ! :( Pourriez-vous m'éclairer sur leurs signification ?

La lecture de ce sujet est effectivement un peu inquiétante... Ca fait déjà longtemps que vous êtes actifs sur ce forum et vous avez partagé une source de connaissance énorme ! Même si je ne suis pas là depuis longtemps je tiens malgré tout à vous remercier pour l'aide que vous apportez à toute la communauté, même celle qui reste silencieuse et qui ne passe sur le forum que pour trouver des réponses sans jamais participer. (j'ai fait longtemps parti de ceux-la... :unsure:) J'espère réussir à maitriser les bases du langage LISP avant votre départ, mais la route reste longue... J'ai néanmoins bon espoir sur la prise de relève par les nombreux autres membres actifs. Je n'ai pas encore la prétention de pouvoir aider grand monde, mais avec le temps et vos nombreux conseil, j'espère réussir à participer à la continuité de ce forum autant que possible ! Pour ma part, j'ai 32ans, et la retraite, c'est pour 2051 ! :blink:

C'est comme tout, ça dépend de notre niveau d'implication et du temps qu'on consacre à améliorer nos méthodes. En tout cas du haut de mes 2 mois sur CADxp, je te souhaite la bienvenue parmi nous :) PS: Ce lien ne fonctionne pas.

Merci c'est bon ça répond à ma question. J'en suis pas encore au chapitre visual-lisp dans mon apprentissage, mais ça a l'air puissant ! :D

Ce sujet m'amène à une question : Est-ce qu'il possible de trier des valeurs numérique dans un ordre croissant (ou décroisssant) ? Je sais que c'est faisable dans un ordre alphabétique avec la fonction "strlsort" mais il n'existe rien d'équivalent pour des entier ou des réels ?

Je te remercie d'avoir poster ce sujet juste avant le miens ! Dans ton lisp j'ai trouvé la réponse à ma question :D Sinon ce Lisp semble très bien écrit mais venant d'un débutant comme moi, ce n'est pas forcément très crédible !

Je remercie Ksow d'avoir répondu à ma question en postant un autre sujet sur le calepinage de banche où dans son LISP on trouve cette phrase : (command "-INSERER" name Pt 1 1 0 "") (cond ((= Vue "Face") (setpropertyvalue (entlast) (strcat "AcDbDynBlockProperty" "Visibilité1") Vis)) ((= Vue "Dessus") (setpropertyvalue (entlast) (strcat "AcDbDynBlockProperty" "Visibilité1") Vue)) ) En le bidouillant un peu j'arrive à ça : (command "-INSERER" "FER - Acier coupé" p12 1 "" "" "") (setpropertyvalue (entlast) (strcat "AcDbDynBlockProperty" "Section") "HA 16") Et miracle ça fonctionne ! :D PS : Je me fais des sujets tout seul xD

Bonjour, Au fil du temps, je me suis constitué une belle collection de blocs dynamiques qui possèdent un grand nombre de propriété personnalisé. J'ai bien tenté de voir si je pouvais récupérer le code DXF d'un de ces paramètre avec la ligne de code suivante : (setq ent (entget (car (entsel "\nChoix de l'entité\n")))) Le résultat est le suivant : ((-1 . <Nom d'entité: 20020dbc8f0>) (0 . "INSERT") (330 . <Nom d'entité: 2000f09d9f0>) (5 . "7BDB7") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "GO - ARMATURES") (100 . "AcDbBlockReference") (2 . "FER - Acier coupé") (10 339.844 1822.49 0.0) (41 . 100.0) (42 . 100.0) (43 . 100.0) (50 . 0.0) (70 . 0) (71 . 0) (44 . 0.0) (45 . 0.0) (210 0.0 0.0 1.0)) Il n'y a rien qui s'apparente à un paramètre personnalisé ! :( Donc ma question est simple... Est-ce qu'il est possible d'avoir la main sur ces propriétés personnalisés avec les routine LISP ??

Par contre je vais essayer d'utiliser d'ores et déjà la commande qui est plus programmatiquement correct, ENTMAKE, pour créer les entités. J'ai chercher un peu sur ton site mais je n'ai pas réussi à trouver la liste des codes DXF permettant de cibler les paramètres à modifier.

Merci beaucoup ! C'est très clair oui, j'ai analysé le code et j'ai bien compris le fonctionnement. Ca m'a permis de me rendre compte que je n'avais pas besoin de stocker les coordonnées de ces points intermédiaires, il suffit que j'applique toutes les commandes (le "point" dans ton exemple) dont j'ai besoin à l'intérieur de la fonction repeat. Concrètement je cherche à insérer des blocs dynamiques à chacun de ces point, et si possible leur attribuer une valeur aux paramètres personnalisés. Pour ce dernier point il est peut être préférable que je fasse un nouveau sujet. On s'éloigne un peu de l'idée de départ.