Toute l’activité

Bonjour, Je confirme, enregistré sous ANSI, UTF..., pas de A ! Une remarque, le LISP ne tient pas compte des UNITES du dessin (variable INSUNITS : 4 = mm / 5 = cm / 6 = m) ! Il donne la valeur BRUTE indiquée dans les PROPRIETES ! J'utilise souvent mes outils de surface avec une version AutoCAD LT et j'utilise la MACRO DIESEL suivante : $m=$(rtos,$(/,$(getvar,area),$(getvar,USERR2)),2,2); La valeur de USERR2 correspond au nombre diviseur suivant les unités du dessin : mm = 1 000 000 / cm = 10 000 / m = 1 Très facile à transposer en LISP... Ce qui donnera toujours un résultat affiché en M² quelque soit l'unité du dessin ! Christian

Je pense qu'il s'agit d'un problème d'encodage. Depuis la version 2021 d'AutoCAD, AutoLISP supporte les caractère UNICODE (j'en avais parlé ici). Il faut donc faire attention quand on copie/colle un LISP de bien l'enregistrer avec le bon encodage ASCII ou UNICODE ou (de convertir l'encodage).

Je vous tiendrais au courant

Salut Olivier, C'était en effet. Je n'ai pas du tout pensé à regarder le titre de la colonne. Merci pour l'information. Je tâcherai de m'en souvenir, la prochaine fois.

Bonjour @Scout Bonnes fêtes à vous aussi, merci. Il serait intéressant de savoir si vous avez trouvé une solution au caractère parasite qui apparait lorsque vous utilisez ce LSP. C'est ok pour vous ? Le problème perdure ? Amicalement

Merci pour vos remarques et bonnes fête a vous tous Scout

Comme toute la production de (gile)

Hello Je soutiens Didier, ce VLisp est BETON ! Bye, lecrabe

Bonjour @Scout Ce LSP est très ancien et n'a jamais posé de soucis, d'ailleurs j'ai refait le test avant de répondre et chez moi le A présenté n'existe pas. Peut-être un souci de police de caractères, laquelle utilisez-vous dans votre style courant ? Amicalement

Bonjour @arnaudalp, Merci pour ton retour. Le lisp est donné plus tôt dans le fil de la discussion. Mais je te le remet ci-dessous avec les variables correspondant au dwg "Modele.dwg". J'ai supprimé le point double et retenté mais rien n'y fait je ne récupères pas cette pièce. J'ai également créé un point transitoire (j'ai scindé mon arc en deux arc), je récupère alors le numéro de la pièce ainsi que la surface mais pas le texte "Cuisine" qui renvoit alors 0. J'ai ensuite enlevé mon arc pour le remplacer par plusieurs sommets, et cela fonctionne je récupère bien tout). Le lisp: ;; ;; Routine par doaiena pour Patrice B. ;; ;; Routine: NUMBER_TYPE_AREA_2_Table by doaiena ;; ;; ---- Re: Lisp to Get Table with Room : Number + Type + Area ---- ;; ;; Here is a quick draft. I didn't have time to test it a lot, ;; so try it and tell me if it's working as expected. ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ATTENTION : DIMZIN = 0 sinon on ne controle pas les Decimales !! ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; (vl-load-com) (defun c:NUMBER_TYPE_AREA_2_Table ( / _dec dec _numLay numLay _typeLay typeLay _areaLay areaLay _polyLay polyLay ss ctr obj coords pts ss2 lay num typ area data tablePt table row col dimzinsauve oldecho ) (setq oldecho (getvar "cmdecho")) (setvar "cmdecho" 0) ;;;;;;;; Sauvegarde de DIMZIN ;;;;;;;; (setq dimzinsauve (getvar "dimzin") ) (setvar "dimzin" 0) (setq _dec "2") (setq _numLay "COPRO_Numero-Lot") (setq _typeLay "COPRO_Texte") (setq _areaLay "COPRO_Surface-Valeur") (setq _polyLay "COPRO_Surface-Contour") (initget "0 1 2 3") (setq dec (cond ((getkword (strcat "How many decimals for the AREA [0/1/2/3] <" _dec ">: "))) (_dec))) (setq numLay (getstring (strcat "Enter layer for text number <" _numLay ">: "))) (if (= numLay "") (setq numLay _numLay)) (setq typeLay (getstring (strcat "Enter layer for text number <" _typeLay ">: "))) (if (= typeLay "") (setq typeLay _typeLay)) (setq areaLay (getstring (strcat "Enter layer for text number <" _areaLay ">: "))) (if (= areaLay "") (setq areaLay _areaLay)) (setq polyLay (getstring (strcat "Enter layer for 2D polygons <" _polyLay ">: "))) (if (= polyLay "") (setq polyLay _polyLay)) (princ "\n \nSVP verifiez AVANT que les Polylignes 2D sont parfaites : \nPas de doublon/triplon , Closes , CONTINUOUS , PLINEGEN=0 , etc ! \n \n") (if (setq ss (ssget (list (cons 0 "LWPOLYLINE") (cons 8 polyLay) (cons 70 1)))) (progn (while (not tablePt) (setq tablePt (getpoint "\nPick top left corner for the table: "))) (command "_view" "_sa" "tmp") (setq ctr 0) (repeat (sslength ss) (setq obj (vlax-ename->vla-object (ssname ss ctr))) (setq coords (vlax-safearray->list (vlax-variant-value (vla-get-coordinates obj)))) (setq pts nil) (while (> (length coords) 0) (setq pts (cons (list (car coords) (cadr coords)) pts)) (setq coords (cdr (cdr coords))) ) (command "_zoom" "_o" (ssname ss ctr) "") (if (setq ss2 (ssget "_WP" pts (list (cons 0 "Text") (cons 8 (strcat numLay "," typeLay "," areaLay))))) (progn (setq ctr2 0 num "0" typ "0" area (rtos 0 2 (atoi dec))) (repeat (sslength ss2) (setq lay (cdr (assoc 8 (entget (ssname ss2 ctr2))))) (cond ((= lay numLay) (setq num (cdr (assoc 1 (entget (ssname ss2 ctr2)))))) ((= lay typeLay) (setq typ (cdr (assoc 1 (entget (ssname ss2 ctr2)))))) ((= lay areaLay) (setq area (rtos (atof (cdr (assoc 1 (entget (ssname ss2 ctr2))))) 2 (atoi dec)))) ) (setq ctr2 (1+ ctr2)) );repeat (setq data (cons (list num typ area) data)) ));if ss2 (setq ctr (1+ ctr)) );repeat (command "_view" "_r" "tmp") (command "_view" "_de" "tmp") (if (> (length data) 0) (progn (setq data (vl-sort data '(lambda (x y) (< (atoi (car x)) (atoi (car y)))))) (setq table (vla-Addtable (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object))) (vlax-3d-point tablePt) (+ (length data) 2) 3 10 30)) (setq row 0) (repeat (length data) (setq col 0) (repeat 3 (vla-settext table (+ row 1) col (nth col (nth row data))) (setq col (1+ col)) ) (setq row (1+ row)) );rows (vla-settext table (+ row 1) 2 (rtos (apply '+ (mapcar 'atof (mapcar 'caddr data))) 2 (atoi dec))) )) ));if ss ;;;;;;;; Restauration de DIMZIN ;;;;;;;; (setvar "dimzin" dimzinsauve) (setvar "cmdecho" oldecho) (princ) );defun

Merci bien pour le Lisp lecrabe Par contre quand je sélectionne tout il me met un A entre le M et le ² provient t'il du champ voir pièce jointe

@Maxime10 bonjour Je n'ai pas regardé le Lisp. Je ne l'ai pas non plus. Ce que tu as dis ( " Mais cela n'est pas systématique" ) me fait penser que le Lisp n'y est pour rien... J'ai juste ouvert ton dessin. Le contour de la cuisine que tu sites à un point double. Supprime le et retente.

Merci pour la rapidité de ton retour. Mmh oui je comprend et ne peux malheuresement pas non plus modifier la-dite routine en conséquence. Je rejoins donc @lecrabe pour un(e) éventuel(lle) bienfaiteur/trice qui passerait par ici ^^. Maxime

Hello @bonuscad @Olivier Eckmann J esperais pouvoir faire une Requete sur le Groupe de dessins AutoCAD MAP en Mode "Modification des Proprietes" en changeant la Propriete CALQUE par l expression Lisp : (rtos(cdr(assoc 38(entget(car(entsel)))))2 0) ou (cdr(assoc 38(entget(car(entsel))))) MAIS ca ne passe pas !! ... Pourquoi ? Pourtant on peut avoir des noms de calque comme : 9.50 , 39.00 , 39.50 , etc Voir mon DWG de Test ... Bye, lecrabe 4LOTIS2_CN_1.7z

Hello Desole mais je suis incapable de modifier la routine Lisp/VLisp ! Elle prend le 1er texte trouve sur chacun des 2 calques avec texte 2 calques séparés pour les 2 types de texte existants : _numLay pour le No d Ordre dans le tableau _typeLay pour le Nom de la piece SVP qq un peut il revoir et ameliorer la routine ? Bye, lecrabe

Bonjour @lecrabe, J'ai un petit soucis avec l'utilisation du LISP NUMBER_TYPE_AREA_2_TABLE que tu m'as généreusement transmis. Le tableau généré ne semble pas prendre en compte les polylignes possédant des arcs ? voir la cuisine 7.03 du dwg joint. J'ai le même système sur des balcons possédant des arcs. Mais cela n'est pas systématique (voir la terresse 7.61 qui se génère malgré deux arcs ? je ne comprend pas). Est-ce que cela peut-être géré en modifiant le code ? Aussi, lorsqu'il y a plusieurs textes dans la polyligne, par exemple: "Chambre" et "Pl.", pouvons-nous envisager d'exporter ces deux textes avec la syntaxe suivante dans la colonne 2 du tableau: "Chambre + Pl." ? Aujourd'hui, seul le premier texte (créé ?) est indiqué dans le tableau (voir la pièce 7.07). Merci pour le temps consacré à ce sujet. Maxime Modele.dwg

Bonjour, Un sujet similaire. Le code proposé dans ce lien peut être facilement adaptable selon tes besoins mais il faut en savoir un peu plus...

Bonjour , suite a ta réponse j'ai exporté MNT projet de Covadis a Navisworks, toujours le problème d'affichage persiste

Bonjour, Est-ce que tu veux apprendre ou avoir une solution Plug & Play ? Dans tous les cas, il y aura des questions : - nom du calque de base - noms des calques de destination (Est-ce que les calques de destination existent ou faudra-t-il les créer ? ) Voici un début de code qui affiche l'élévation d'une polyligne : (cdr (assoc 38 (entget (car (entsel)))))

Est-ce que le titre de a colonne dans l'explorateur est bien "Modifié le" ou bien "Date" Parfois, j'ai certains dossier dans lesquels, le titre de la colonne est Date qui correspond à la date de création du fichier et non sa date de dernière modification. Olivier

Bonjour, Je travaille sur Autocad Map et Covadis et je cherche une solution pour trier automatiquement des polylignes qui ont une elevation differentes pour les changer de calque. Je possede des fichiers en 3D (de courbes de niveaux) avec beaucoup de polylignes qui ont des elevations differentes mais qui sont dans le même calque et je dois separer les courbes maitresses, les courbes secondaires et les intermediaires dans des calques differents. Exemple: courbes maitresses ->elevation finissant 0 ou 5 courbes secondaires ->elevation finissant 1,2,3, ou 4 courbes intermediaires ->elevation finissant 0.2,0.4,0.6,0.8 Je cherche donc une solution, LISP, Script et autre que la commande FILTRE avec laquelle on ne peux selection qu'une seule elevation à la fois ( sauf si j'ai encore rien compris !). Merci d'avance si vous avez des solutions. Etant nouveau sur ce site, j'en profite pour remercier grandement ceux qui prennent du temps pour repondre aux differents forums car le partage du savoir et formidable pour ceux qui sont passionnés de technologies. Malgré un monde qui reste incertain on vit quand même une époque formidable.

Salut à tous, Sur 14 PC, il y a 5 PC dont l'enregistrement des fichiers ne se fait pas. Par exemple, dans le dossier dans lequel est enregistré le dessin, il y a le dessin en dwg et sa sauvegarde en .bak qui datent du 16/12/2024 à 9h36. Nous sommes le 20/12/2024 et j'enregistre les modifications dudit dessin, à 10h35. Je retourne dans le dossier dans lequel est enregistré le dessin, je rafraîchi l'affichage mais l'heure d'enregistrement des fichier dwg et bak, sont toujours les mêmes. Cependant, lorsque je survole lesdits fichier, il y a une bulle qui s'affiche et affiche la nouvelle heure d'enregistrement. Je suppose que c'est plus un soucis de Windows que d'AutoCAD. Est-ce que c'est déjà arrivé à certains d'entre vous ?

Hello SUPER je vais jouer aux Dames !? Bye, lecrabe

et oui je répond et je vous remercie pour les réponses je que j'appel par lots voir la capture ci-jointe et encore merci Scout

@didier entièrement d'accord avec toi