Chris24

Bonjour bonuscad, Merci pour ta solution, c'est Nickel. Cdt. Chris24 @+

Bonjour La Lozère, Oui en effet. Mais Mon soucis est que j'ai récupéré un plan Archi sur lequel je souhaite changer le style et la police de tout les MTEXT sans les décomposer.Comme je l'ai dit, On peut changer d'un coup le style de texte de plusieurs MTEXT en même temps, mais pas la police. Il faut entrer un par un dans le format de texte pour changer la police. Cdt. @+

Bonjour COME, Merci pour ton aide, Mais Ce n'est pas que le style de texte que je veux changer , mais aussi la Police. On peut changer d'un coup le style de texte de plusieurs MTEXT en même temps, mais pas la police. Il faut entrer un par un dans le format de texte pour changer la police. Cdt @+

Salut Les CADxpiens et CADxpiennes, Je souhaiterais changer la police de plusieurs MTEXT sélectionnés en même temps.Par exemple: Style: "STANDARD" - Police "ARIAL". Merci de votre aide. Cdt. Chris24 @+

Merci encore pour ton aide Cela me convient parfaitement, c'est un bon début pour ma routine, je vais rajouter autre chose. @+, Merci, Chris 24

Encore merci bonuscad, Désolé de te solliciter encore une fois, mais ne serait il pas possible que lorsque autoCAD me demande de Sélectionné des objets: de lui dire "tout" et de valider et faire un tant qu'il y'a des blocs de continuer. Merci Chris24

Bonjour Bonuscad, Peut-on les utiliser comme des commandes native d'autocad, je m'explique:J'ai créer une routine style comme celle-ci : (defun c:chp () (command "CHANGER" "TOUT" "" "P" "CO" "DUCALQUE" "E" "0" "EC" "1" "EP" "0" "H" "0" "") (command "-CALQUE" "CO" "8" "*" "EP" "0" "*" "") (princ) ) Je souhaiterai inclure la commande BURST avant (command "changer" ... n'étant pas expert en lisp, j’essaie simplement de faire des routines de ce style. Merci, @+ Chris24

Merci bonuscad pour ta réactivité, Je vais essayer, d'aprés les explications que tu ma donné. Encore Merci Cdt. Chris24

Bonjours, Les CADxpiens, Un petit besoin d'aide, Je ne comprend pas pourquoi, quand je rentre mes commandes BURST ou RTEXT pour ne cité que ces deux commandes, sur ma ligne de commande elles fonctionnent, et quand j’essaie de créer une routine, avec (command "BURST"), ou (command "RTEXT"), ca me met : Commande inconnue "BURST". Appuyez sur F1 pour obtenir de l'aide. Merci par avance. Cdt. Chris24 PS: Je travail sur AutoCAD version 2018.

Merci, pour ton code,J'ai pu résoudre mon problème, j'ai poster y a pas si longtemps pour trouver une routine comme la tienne.Encore Merci. Chris24@+

Bonjour et merci pour ta réponse Bonuscad, En fait, je souhaiterais sélectionner un type de ligne présent sur tout mon dessin, ducalque, forcé, même sur des bloc, et ensuite les remplacer par un autre type de ligne. Imagine que sur des plan archi que je nettoie, il y a plusieurs type de ligne qui représente la même chose, mon but est de mettre un seule type de ligne. L'algorithme defun c:chtl choix de l'utilisateur "\nNom du type de ligne à remplacer: " nombres trouvés choix de l'utilisateur "\nRemplacer le nombre trouver par: " (princ) Et si on veux pousser un peu, avoir la possibilité de choisir plusieurs types de lignes et les remplacer par une seul L'algorithme defun c:chtl choix de l'utilisateur "\nNom des types de ligne à remplacer: " nombres trouvés choix de l'utilisateur "\nRemplacer le nombre trouver par: " (princ) Chris24 @+

Bonjour à toutes et à tous, Je cherche une petite routine lisp qui me permettrai de changer un type de ligne par une autre,comme cette petite routine (defun c:chtl (/ ss) (if (setq ss (ssget "_I" '((6 . "nom_du_type_de_ligne")))) (sssetfirst nil ss) (sssetfirst nil (ssget "_X" (list (cons 6 "nom_du_type_de_ligne") (cons 410 (getvar "ctab"))))) ) (princ) ) mais, me permettre de taper le nom du type de ligne avec getstring je penseVoilà. Merci pour votre aide. Chris24 @+

Bonjour PHILPHIL, En faite mon bloc au départ à été réaliser sur une version AutoCAD 2010 où il est possible d'utiliser les gestionnaires de paramètres dans l’Éditeur de Bloc, qui n'est pas le cas sur une version 2009. A l’insertion du bloc sur la version 2009 les attributs on ce type de caractères "######" pas de prise en charge des formules. Les deux solutions données par (Gile) et Bruno fonctionne trés bien. cdt @+ chris24 Les deux solutions données par (Gile) et Bruno fonctionne trés bien.

Re Bruno, Merci pour ton aide cela fonctionne nickel, Pourrais-tu me donner la marche a suivre pour créer se genre de bloc toujours sur une version 2009. Encore Merci. Cordialement. @+ Chris24

Re Gile, Un grand Merci Gile pour ton programme lisp et du temps que tu à passé pour mon cas ici et ailleurs. Cela fonctionne parfaitement. Cordialement. Chris24

Salut, Je te joint un lien pour récupérer le dwg. https://we.tl/EzkWwcsEbm Je rappel que le bloc marche sur les versions depuis 2010 mais pas sur 2009. cdt.

Bonjour Bruno, Merci de ta réponse, mais quel est la manip pour insérer une référence de bloc. Chris24

Bonjour Gile, Effectivement, ce sujet à bien été posté par moi même. Je n'arrive pas à joindre le fichier "Erreur Le serveur a retourné une erreur durant l'envoi." Cordialement.

Bonjour, Je cherche une routine lisp ou autre, qui permet de me calculer un débit suivant la formule suivante. PUISSANCE*0.86/DELTA. sur laquelle je sélectionne Le Premier attribut texte (PUISSANCE) qui celui-ci est multiplier par 0.86, ensuite je sélectionne le deuxième attribut texte (DELTA) qui me donne en positionnant le résultat de la formule ci-dessus. Cordialement. J'ai une routine lisp ci-dessous de ce style, mais elle donne que la somme. [/size] ;; Routine pour le calcul des débits Hydraulique des Radiateurs MINUTE_RAD.LSP ;; en Fonction de la puissance et du Delta. ;; Fonctionne en principe sur les TEXT & MTEXT de type numérique. (defun c:minute_RAD (/ doc sel tot pt nor) (vl-load-com) (setq tot 0 doc (vla-get-activedocument (vlax-get-acad-object)) ) (princ "\nSélectionnez les textes") (if (ssget (list (cons 0 "TEXT,MTEXT"))) (progn (vlax-map-collection (setq sel (vla-get-activeselectionset doc)) '(lambda (x) (setq tot (+ (atof (vla-get-textstring x)) tot)) ) ) (setq ref (vla-item sel 0)) (vla-delete sel) (if (setq pt (getpoint "\nPositionnez le résultat: ")) (progn (setq res (vla-addText (vla-get-ModelSpace doc) (strcat (rtos tot) " l/h") (vlax-3d-point pt) (vla-get-Height ref) ) ) (vla-put-Rotation res (vla-get-Rotation ref)) (vla-put-StyleName res (vla-get-StyleName ref)) ) ) ) ) (princ) )

Bonjour, Je n'arrive pas à joindre un fichier, j'ai cette erreur ci-dessous quand je clic sur "Joindre ce fichier" Erreur Le serveur a retourné une erreur durant l'envoi.

Merci pour ce Lisp, C'est tout à fait de ce dont javais besoin. Je te Remercie encore. @+

Salut à Tous. Je m'explique : imaginons un bloc ou WBloc réalisé avec plusieurs calque, avec des couleurs différente et qu'il est des types de ligne Différent. Je cherche une commande qui met ces blocs ou WBlocs sur le calque 0, que toute les entités soit à la couleur du calque, et qui garde les même types de ligne lors de sa création, sans les décomposer. Merci pour votre Aide

Bonjour à toutes et à tous Merçi MaDXP pour les explications données pour sechanbask, je ne pense pas que j'aurais été plus clair sans connaitre les routines AutoLISP. Prend ton temps sechanbask, je ne suis pas pressé. Merçi encore @+

Bonjour à toutes et à tous. Salut sechanbask. Il semble que tu soit une personne trés occupé, je vais dons essayer d'être bref et réctif et de ne pas tros te faire perdre ton temps. Ma version d'AutoCAD est la 2004, la marche à suivre que je souhaité conserne ton code, je n'arrive pas à le faire fonctionner. J'ai plusieurs messages d'erreurs: Erreur de compilation: Sub ou Function non défini. Ces erreurs concernent "calque_units"; "Insertion_coude90_montant" et "ArcCos", je les aient donc définie avec Dim... As ..., ensuite quand j'ai sur ma ligne de Commande d'AutoCAD Commande: sngDiametre du pvc en mm : Commande: point de départ : Commande: Extrémité : J'ai se message d'erreur: Erreur d'execution '-2145386476 (80200014)': clé introuvable. j'ai donc cliqué sur débogage, je tombe sur: .Layer = actlayer & "-A". Je ne suis pas du tous doué en VBA. Consernant ma commande pour le calorifuge, je souhaite que l'utilisateur est 3 options: mettre un 1er point sur la gaine, mettre un 2ème point sur la gaine et le choix de saisir l'épaisseur du calorifuge. Je voudrait qu'il est Commande:1er Point: Commande: 2ème point: Commande: Epaisseur du Calorifuge: Comme illustré sur les captures d'écran que j'ai posté. Si tu connait le Logiciel Autogaine, il existe une commade de se type. En espérant avoir été clair. et merçi de ta disponibilité. Cordialement. PS: Concernant le nettoyeur, j'ai fait quelques essais, je trouve se code intéressant. Par contre le dernier lien "http://cjoint/?bmxWsT3U38" ne fonctionne pas.

Bonjour à toutes et à tous. Salut sechanbask. Excuse moi de te répondre en retard, j'aimerais que tu me donne la marche à suivre pour ce code, Merçi encore Cordialement @+