jireu

Bonjour Merci pour vos retours constructifs. Je joues souvent avec des chose que je ne comprend pas entièrement pour essayer de les comprendre. Je dois reconnaître que c’est une erreur car je les comprends souvent de travers :P J’etais parti de la réflexion que, comme il existait des lisp permettant le calcul de la somme des longueurs des polylignes, c’est qu’on ne pouvait le faire autrement.. Je vais donc explorer le monde merveilleux des champs dynamiques. Didier je suis bloqué sur ton prolégomènes (sur ma tablette, je retombes dessus quelque soit le lien que je choisis) mais sois assuré que je vais lire tes articles dès que j’ai un pc entre les mains Bonne journée

j'ai trouvé un bout de code proposé par Patrick_35 dans un autre post qui me permet de créer un champ perso et d'y envoyer ma valeur. j'ai donc remplacé le groupe "prompt" par ce code: (setq sum (vla-get-summaryinfo (vla-get-activedocument (vlax-get-acad-object)))) (and (vl-catch-all-error-p (vl-catch-all-apply 'vla-addcustominfo (list sum "longueur_poly_alpha" (rtos len)))) (vla-setcustombykey sum "longueur_poly_alpha" (rtos len)) ) ça marche super bien ! Dernier problème, avec ce lisp, si je modifie les polylignes de mon calque je dois le rappeler et faire un regen. Pensez vous qu'il soit possible d'appeler automatiquement ma fonction quand je modifie mes polylignes ou alors est ce que je dois me résigner à appeler manuellement ma fonction et regen. bonne soirée

J'ai avancé sur la partie de calcul . je tape maintenant le nom de la fonction et elle me renvoie directement la somme des longueurs des polylignes. (defun c:long_alpha (/ ent ss i len) ; modifié à partir de la fonction LongCalque de Gile (setq ss (ssget "_X" (list (quote(0 . "LWPOLYLINE")) (quote(410 . "Model")) (quote(8 . "alpha")) ) ) ) (setq len 0) (progn (setq i 0) (while (setq ent (ssname ss i)) (setq len (+ len (vlax-curve-getDistAtParam ent (vlax-curve-getEndParam ent) ) ) i (1+ i) ) (prompt (strcat "\nNombre de polylignes : " (itoa i) "\nLongueur cumulée : " (rtos len) ) ) ) (princ) ) j'imagine que la fonction originale étant faite pour un résultat plus complexe, il n'y a pas forcément besoin de passer par toute les étapes pour mon but.... mais je n'y connais pas encore beaucoup la dedans donc je copie / transforme ! il me reste à trouver comment envoyer le résultat dans la case d'un tableau ou comment appeler cette fonction à partir de la case du tableau pour que le résultat y soit affiché... je cherche :)

Bonjour à tous, fraîchement arrivé dans le monde d'Autocad, je m’intéresse au possibilités des lisp. voici mon cas: j'ai un calque "alpha" contenant seulement des polylignes. je voudrais arriver à calculer la longueur totale de ces polylignes et inscrire cette valeur dans une zone de texte dans une légende. pour ce faire, je suis tombé sur la routine de Gile appelée "LongCalque" qui m'a semblé proche de mon vœux. j'ai essayé de la modifier pour faire ce que je souhaite mais je crois que je l'ai plus torturé qu'autre chose :P . l'idée finale étant celle-ci: avoir une zone de texte préformatée dans mon gabarit qui indiquera toujours la longueur totale des polylignes existante sur le calque qui s’appellera toujours "alpha" en attendant je lis l'introduction à Auto lisp proposé par Gile en espérant glaner de précieuses informations. si vous aviez donc quelques idées ou conseil sur ce sujet, je vous en serai reconnaissant :D merci d'avoir lu mon post et bonne journée à vous.

Bonjour à tous, travaillant dans un service de conception de plan, j'utilise de manière journalière Autocad. je m’intéresse de plus en plus au routine Lisp qui m'ont bien l'air de pouvoir simplifier pas mal de chose. Je rejoins donc la communauté Cadxp afin d'échanger sur ces routines et apprendre. peut être qu'a mon tour je pourrais renseigner des nouveaux venus d'ici quelque temps. une belle journée !