VDH-Bruno

Bonjour Lili Historiquement ce logiciel était orienté charpente métal (c'est anciennement Xsteel), puis il c'est tourné vers la préfa béton et dernièrement le logiciel se développe vers le béton coulé sur site (notamment les formes courbes). Pour les ouvrages d'art il me semble qu'il y a qq références pour des barrages, et je sais qu'actuellement il y a la modélisation d'une centrale nucléaire sur ce soft. Sinon je travaille plus sur les structures industrielles, les ouvrages d'arts ne font pas partie de mon cœur de métier. Je pense tous de même que c'est un logiciel qui à une stratégie de développement à surveiller du coin de l'œil , pour ceux qui rechercheraient une solution autre que celle proposé par Autodesk... Après on peut en reparler dans quelques mois pour une discussion plus argumenté, cela sera fonction du temps que j'arriverais à consacrer au logiciel, en plus de mon travail ;) A+ Bruno

Bonjour, Pour un point de vue moins auto(cad) centré, perso je m'oriente vers le logiciel Teckla structure pour le BIM, difficile pour moi de donner un avis argumenté car je commence tout juste à le prendre en main, mais si j'arrive à le maitriser sur un plan professionnel, j'essayerai de vous faire un retour objectif si ça intéresse. A+ Bruno

Mais ça marche, bien joué :)

Bonjour, Sujet intéressant. Bien que je ne sois plus vraiment utilisateur d’AutoCAD, je voulais préciser que ces opérateurs et fonctions sont également supportés dans les formules de tableau. Personnellement c’est en tâtonnant avec l’apparition des premiers tableaux dans AutoCAD que j’avais découvert certaine de ces fonctions. Pour mémoire, je pense que l’on peut étoffer cette liste des fonctions exclusivement applicable aux entités tableaux Compte Count() =Count(B2:B5) => 18 Moyenne Average() =Average(B2:B5) => 8 Somme Sum() =Sum(B2:B5) => 7.5 A+ Bruno (Rappel: Dans les cellules de tableau, on peut directement écrire l'expression sans passer par l'insertion d'un champ formule )

Re, A tout hasard, par le passé quant j'avais ce type de besoin à savoir "récupérer en AutoLisp la valeur d'un texte par sélection", j'avais tendence à préférer nentsel à entsel cela étend la portée de la fonction aux entités textes contenue dans des entités complexes (tel que les attributs de blocs ou les cellules des entités tableaux),après il suffit seulement de modifier le "pattern" de la fonction wcmatch (wcmatch (cdr (assoc 0 (entget Txt_Prof))) "*TEXT,ATTRIB") A+

Bonjour, ou éventuellement avec wcmatch: (wcmatch (cdr (assoc 0 (entget Txt_Prof))) "*TEXT") A+

Bonjour, Si l'inverse pour toi consiste à supprimer tous les arrondis, un raccord de 0 devrait suffire? A+ Bruno

Bonjour Steven Je t'ai envoyé un MP Salutations Bruno

Mes initiales :)

Sinon pour le retour l'adaptation du code que tu as fait, est juste. Je te laisse le soin de le rependre sur le modèle de la correction ci-dessus

Bonjour, Arf oui très drôle ça ;) Ci-dessous une version modifié qui devrait corrigé ce petit désagrément... (defun c:courbe (/ coefa coefb x1 x2 p) (setq coefa (getreal "\nSpécifiez le coefficient a: ") coefb (getreal "\nSpécifiez le coefficient b: ") x1 (getreal "\nSpécifiez la borne inférieure de l'intervalle x1: ") x2 (getreal "\nSpécifiez la borne supérieure de l'intervalle x2: " ) p (getreal "\nSpécifiez le pas p: ") ) (command "_pline") (foreach pt (setq lpt (bv:coord x1 x2 '(lambda (x) (+ x p)) '(lambda (x) (+ (* coefa x x) coefb)) ) ) (command "_none" pt) ) (command "") (princ) ) Pour la petite histoire le bug vient d'un problème de portée des variables a b, du fait que je quote mes fonctions anonymes, pas la temps de réécrire de code donc j'ai modifié le nom des variables A+

Bonjour, Pour le principe une adaptation rapide avec les routines données en lien... (defun c:courbe (/ coefa coefb x1 x2 p) (setq coefa (getreal "\nSpécifiez le coefficient a: ") coefb (getreal "\nSpécifiez le coefficient b: ") x1 (getreal "\nSpécifiez la borne inférieure de l'intervalle x1: ") x2 (getreal "\nSpécifiez la borne supérieure de l'intervalle x2: " ) p (getreal "\nSpécifiez le pas p: ") ) (command "_pline") (foreach pt (setq lpt (bv:coord x1 x2 (lambda (x) (+ x p)) (lambda (x) (+ (* coefa x x) coefb)) ) ) (command "_none" pt) ) (command "") (princ) ) Ne pas oublier de charger précédemment la fonction bv:coord ;; VDH-Bruno ;; Génère la liste de points d'une courbe représentative f(x) ;; définie sur un intervalle [a ; b] ;; Arguments: ;; a -> Limite inférieur de l'intervalle (un nombre) ;; b -> Limite supérieur de l'intervalle (un nombre) ;; e -> Ecart ou pas entre abscisses définie par une fonction ;; f -> Fonction du type y=f(x) ;; Valeur de retour: ;; Une liste de coordonnées 2D -> ((x1 y1)(x2 y2)(x3 y3)...) ;; Exemples: ;; (bv:coord 2 5 '1+ 'sqrt) ;; retourne ((2 1.41421) (3 1.73205) (4 2.0) (5 2.23607)) (defun bv:coord (a b e f) (if (>= a B) (cons (list b ((eval f) B)) nil) (cons (list a ((eval f) a)) (bv:coord ((eval e) a) b e f)))) A ta charge de sécuriser les saisies (cf: initget pour les saisie null), x1<x2 avec p>0 Edit: code corrigé suivant cette discussion --> http://cadxp.com/topic/44977-trace-dune-courbe-avec-vlisp/page__view__findpost__p__259559 A+

Bonjour, Oui Didier, The Swamp est un bon site, par contre dans ce lien il est question de résolution d'équation ce qui n'est pas tout à fait la demande de SLV qui parle de traçage... A+

Bonjour, Un lien sur mes essaies en la matière --> http://cadxp.com/topic/34899-courbe-representative-d%e2%80%99une-fonction/page__view__findpost__p__189234 Je m'étais essayé à écrire quelque chose de généraliste à titre d'exercice pour approfondir ma connaissance du langage, en espérant que tu puisses y trouver de l'inspiration.. Salutations Bruno

Oui oui c'était juste pour mener au bout l'idée suggéré par le travail avec l'épaisseur. Sinon pour la remarque suivante.. Je trouve également meilleur la première solution proposé par zebulon. A+

Bonjour, Peut être avec une impression DXB ou un export WMF... A+ Bruno

Comme lili2006,je pense a problème de copier-coller et de parenthèses.. A+

Bonjour, Très certainement ton collègue a du essayé la macro dans un nouveau dessin n'ayant pas de sélection précédente.. En retour sur la ligne de commande il a certainement du avoir un message du type: Indiquant qu'il n'a pas de jeu de sélection A+

Bonjour, Je n'ai pas accès à un AutoCAD avec une version lisp pour tester.. Dans le code identifie la séquence suivante: ;; Numérotation de la présentation de l'objet (defun bv:GetTaborder (pref obj) (or *acaddoc* (setq *acaddoc* (vla-get-ActiveDocument (vlax-get-acad-object)))) (if (= (type obj) 'ENAME) (setq obj (vlax-ename->vla-object obj)) ) (strcat pref (itoa (vla-get-taborder (vla-get-layout (vla-objectidtoobject *acaddoc* (vla-get-ownerid obj))))) "/" (itoa (1- (vla-get-count (vla-get-layouts *acaddoc*)))) ) ) Puis remplace ces qqe lignes: (strcat pref (itoa (vla-get-taborder (vla-get-layout (vla-objectidtoobject *acaddoc* (vla-get-ownerid obj))))) "/" (itoa (1- (vla-get-count (vla-get-layouts *acaddoc*)))) ) Par les suivantes: (strcat pref (itoa (vla-get-taborder (vla-get-layout (vla-objectidtoobject *acaddoc* (vla-get-ownerid obj))))) ) Recharge le code cela devrait fonctionner... A+ Bruno

Bonjour, Vérifie que la variable de dessin EXTNAMES n'est pas paramétré sur 0, car j'aperçois des tirets dans le nom de l'Xref A+

Bonjour, Une solution parmi d'autres est de jouer avec le code de groupe dxf 62, définie dans la table des calques, si le code 62 (Numéro de couleur du calque) est positif, le calque est actif sinon il est désactivé. Pour l'exemple: (defun C:K (/ e dxf) (and (setq e (tblobjname "LAYER" "moncalque")) (setq dxf (entget e)) (entmod (append dxf (list (cons 62 (- (cdr (assoc 62 dxf)))))) ) ) (princ) ) A+

Bonjour, Oui fonctionne très bien Pour le retour je n'ai pas réussi à reproduire ce que vous décrivez, première fois comme seconde fois ect.. Ca semble fonctionner pour moi, (testé sous ZWCAD+ 2015Pro) Cdt VDH-Bruno

Bonjour --> DenisHen: Ajoute cette ligne au-dessus du princ et tu n'auras que les contours ;) (command "_erase" ss "") A+

Oui merci, ça dépanne bien en l'état, même si on pourrait ajouter 2 à 3 petites fonctionnalités au truc pour gagner en souplesse et ergonomie...

Bonjour, http://cadxp.com/topic/38099-pagination-automatique/page__view__findpost__p__210208 A voir si cela peut répondre à ton besoin.. A+ Bruno