lecrabe

Hello Pour ta polyligne 2D bizarre : tu la selectionnes Dans la palette des Proprietes, tu cliques sur le chiffre 1 (1er vertex / sommet) Puis tu cliques sur les 2 petits triangles pour avancer / reculer ... Normalement tu ne devrais avoir QUE DEUX sommets / vertex ! LA SANTE, Bye, lecrabe PS: ELEVATION = -170 sur ta Polyligne bizarre !!

Hello BRAVO Mr philsogood ! ... Au fait toujours base au Nord de Lyon ?? >>> Au fait pour être Auto-Entrepreneur, ne faut il pas que le Revenu Fiscal (de l annee A-1 ou A-2) ne soit pas supérieur à XX KEuros ?! Personne a entendu parler de cette limite !? LA SANTE, Bye, lecrabe

Hello Es tu bien en REVIT 2020.2.3 ?? https://knowledge.autodesk.com/fr/support/revit-products/learn-explore/caas/CloudHelp/cloudhelp/2020/FRA/RevitReleaseNotes/files/RevitReleaseNotes-2020updates-html-html.html LA SANTE, Bye, lecrabe

Hello A priori le Script est tres simple ! Commande: -XREF Entrez une option [?/Lier/déTacher/Chemin/TYpechemin/Décharger/Recharger/Superposer/Attacher] : T Entrez le(s) nom(s) de Xref à détacher: ENTCADRE Puis re-enregistrer puis ouvrir le DWG suivant ... LA SANTE, Bye, lecrabe

Hello SI je pense que c possible avec les CTB par exemple !? Tu choisis une couleur ACI (1-255) d arriere plan speciale bien precise ! ( et INUTILISEE partout ailleurs ) ET cette couleur sera imprimee / tracee avec une projection de 05-20% A tester ... SVP toujours travailler sur une copie du AutoCAD.CTB ! LA SANTE, Bye, lecrabe

Hello Au fait pour être Auto-Entrepreneur, ne faut il pas que le Revenu Fiscal (de l annee A-1 ou A-2) ne soit pas supérieur à XX KEuros ?! Et je vois dans ta Signature : Covadis v16.0A ! J espere que tu es v16.0E (pour AutoCAD 2010-2018) voire meme plutot en v17.1B ou v17.1C (pour AutoCAD 2018-2021) !? La Sante, Bye, lecrabe

Hello 1) Je ne peux pas te repondre sur ta question ! 2) Mais SVP j espere que tes REVITs sont A JOUR !? ... Surtout en Mode Collaboration ... REVIT 2021.1.2 REVIT 2020.2.3 REVIT 2019.2.2 REVIT 2018.3.3 REVIT 2017.2.5 LA SANTE, Bonne Annee, Bye, lecrabe

Hello +1 avec Olivier ! Mais franchement il valait mieux faire du MAP R3 sur AutoCAD R14.01 ! LA SANTE, Bye, lecrabe

Hello Gege "Le Bas Savoyard" WAOUH tu as vu : quand Thierry (Coeur Fidele) "cause" , on ecoute et on lit religieusement ! LA SANTE, Bonne Annee, lecrabe "de La Basse Loire"

Hello Tout ce qui commence par ; C du commentaire ! Donc tu peux inclure dans ton copier / coller vers ton futur fichier texte ATT2TXT.lsp Désolé plus de AutoCAD sous la main à cet instant ! SVP tu es avec quelle version 20XX de AutoCAD ?? Si AutoCAD 2021, SVP tu re-essayes avec LISPSYS = 0 (Juste pour voir) LA SANTE, Bye, lecrabe

Hello Pas sur de bien comprendre ton probleme ! J'ai utilise un tres vieux Lisp ATT2TXT pour traiter tes Blocs dynamiques et obtenir en TEXTs les attributs classiques de tes Blocs ! En plus ces TEXTs arrivent sur de multiples calques dependants du Nom du bloc et du Nom d Etiquette des attributs ... Cela t'aidera peut etre !? CONSEIL : SVP AUCUN caractere special ou accentue ou blanc/espace dans le Nom d Etiquette des attributs ! LA SANTE, Bye, lecrabe ;; ;; Programme developpe par Hubert L. pour Patrice B. ;; ;; Routine: Att2Txt par HL - Blocs classiques ONLY ! ;; ;; ;; Micro-modifs par PB le 16/06/2000 + 19/06/2000 ;; Noms de calques generes : "ATT__VAR__*" & "ATT__CON__*" ;; (defun c:Att2Txt ( / CTENT ENT PTYPE GE PNOM PA ATTNAME ATTETIQ ATTVAL ATTHAU ATTROT OTHER_NAME OTHER_LIST EN1 LIST_ATT POINT_ATT ATTX ATTY INSATT ) (command "_UNDO" "_M") (att_bl_list) (princ "\n") (princ CTENT) (command "_layer" "_set" "0" "") ;; **** Eventuellement commentez les lignes suivantes *** (ALERT "Attributs copies en Textes sur calques ' ATT__CON__* / ATT__VAR__* ' \n Textes crees au point d'insertion des attributs \n Retour au calque 0 ") ;; **** Eventuellement commentez la ligne suivante *** (alert (strcat "Nombre de bloc traites = " (itoa ctent))) ) (defun att_bl_list () (ssget) (setvar "cmdecho" 0) (setvar "highlight" 0) (setq ent (ssget "P" (list (cons 0 "INSERT")))) (setq ctent 0) (if ent (progn (while (< ctent (sslength ent)) (setq selent (ssname ent ctent)) (xlist) (setq ctent (1+ ctent)) ) ) (prompt "\nRIEN A LISTER") ) (setvar "highlight" 1) (setvar "cmdecho" 1) (princ) ) (defun xlist () (setq ptype nil) (setq ge (entget selent)) (setq pnom (cdr (assoc 2 ge))) (setq pa selent attname "VERTEX") (bl_def) ;(princ pnom) (if (= 1 (cdr (assoc 66 ge))) ;entite suit (while (/= attname "SEQEND") (setq pa (entnext pa)) (if pa (progn (setq attname (cdr (assoc 0 (entget pa)))) (setq attetiq (cdr (assoc 2 (entget pa)))) ;; ATTPLACE ci-dessous = Point d'insertion de l' ATTRIBUT (setq attplace (cdr (assoc 10 (entget pa)))) (setq attval (cdr (assoc 1 (entget pa)))) (setq atthau (cdr (assoc 40 (entget pa)))) ;; ATTPLACE ci-dessous = Point d'insertion du BLOC ;; (setq attplace (cdr (assoc 10 ge))) ;; Hauteur du texte MICROSCOPIQUE et non pas hauteur de l'attribut ;; (setq atthau 0.001) ;; Fin Modification (setq attrot (cdr (assoc 50 (entget pa)))) (if (= attname "ATTRIB") (progn ;(princ attval)(princ "\n") ;; (command "_layer" "_m" (strcat "ATT__CON__" attetiq) "") (command "_layer" "_m" (strcat "ATT__VAR__" attetiq) "") (command "_text" attplace atthau (/ (* 180 attrot) pi) attval) ) ) ;fin de if attrib ) ;fin de progn pa (= attname "SEQEND") ) ;fin de if pa ) ;fin de while ) ; fin de if "entite suit" ) (defun bl_def() (setq other_name nil) (setq other_list nil) (setq en1 nil) ;(setq list_att xbetiq2) (setq en1 (cdr (assoc '-2 (tblsearch "block" pnom)))) (while (/= nil en1) (if (and (= "ATTDEF" (cdr (assoc '0 (entget en1)))) (or (= 2 (cdr (assoc '70 (entget en1)))) (= 3 (cdr (assoc '70 (entget en1)))) ) ) (progn (setvar "lastpoint" (cdr (assoc '10 ge))) (setq pointatt (cdr (assoc '10 (entget en1)))) (setq attx (car pointatt)) (setq atty (cadr pointatt)) (setq insatt (strcat "@" (rtos attx) "," (rtos atty))) ;; (command "_layer" "_m" (strcat "ATT__CON__" (cdr (assoc '2 (entget en1)))) "") (command "_layer" "_m" (strcat "ATT__CON__" (cdr (assoc '2 (entget en1)))) "") (command "_text" (cdr (assoc '10 ge)) (cdr (assoc '40 (entget en1))) "0" (cdr (assoc '1 (entget en1)))) ) ) (setq en1 (entnext en1)) ) ;fin de while 1 (princ) ) (princ "\nTapez ==> ATT2TXT ") (princ) ;; (princ "\nPour une selection partielle: Utiliser FILTER auparavant ") (princ)

Hello SVP ton DWG dans un lien Download : Free, WETransfert, etc ... LA SANTE, Bonne Annee, Bye, lecrabe

Hello Gege Voici la reponse que j avais fais en 2018 a un Cabinet de Geometre, suite a la reception dun DWG provenant de MicoStation avec des Blocs ayant une direction d'extrusion ANORMALE ! Good Luck, LA SANTE, Bye, lecrabe >> BON j'ai UN PEU etudie votre souci ! ... Et la seule chose que je peux faire, c vous fournir une ligne de Lisp qui permette de selectionner Vos Blocs speciaux (Ceux qui ont la propriete qui perturbe votre Traitement) En principe les Blocs NORMAUX ont cette propriete DXF : (210 0.0 0.0 1.0) Et certains Blocs ANORMAUX (Les Votres) ont cette propriete DXF : (210 0.0 0.0 -1.0) En fait une direction d'extrusion par rapport au SCU "bizarre" Direction d'extrusion par rapport au SCU: X = 0.0000 , Y = 0.0000 , Z = -1.0000 Donc dans votre DWG, vous copiez/collez en Ligne de commande cela: (ssget "_X" (list (cons 0 "INSERT") (cons 210 (list 0.0 0.0 -1.0)))) A ce moment TOUS les Blocs du DWG "avec le probleme" sont selectionnes ! Et ils sont dans le jeu de selection PRECEDENT ... SVP ne faites AUCUNE autre selection ! Sinon !! Donc si vous faites un CHPROP P Par exemple vous pourrez les changer de Calque ou FORCER la couleur ... Ou un EFFACER P ... Ce sera "le grand nettoyage" ...

Hello Perline Dans ton message, tu signales que tu as trouve un Lisp qui separe les entites par couleur ! Je ne sais pas de quelle routine, tu parles !! Donc je te propose la MEME routine E2LBC "de competition" que j'utilise ... MERCI Mr dlanorh ! E2LBC traite TOUTES les couleurs: ACI AutoCAD Color Index (0-256) , RGB/RVB (16 millions de couleurs) , Pantome , RAL , etc ! LA SANTE, Bye, lecrabe ;; ;; Routine: E2LBC__Entities_to_Layer_By_Color__dlanorh by dlanorh for Patrice B. ;; ;; Move selected Entities on separate layers depending on Color ;; ;; --- Interrogation Entite/Objet en Lisp --- ;; (entget (car (entsel)) '("*")) ;; (vl-load-com) (defun LM:True->RGB ( c ) (mapcar '(lambda ( x ) (lsh (lsh (fix c) x) -24)) '(8 16 24))) (defun rh:lst2str ( lst del / str ) (setq str "") (mapcar '(lambda (x) (setq str (strcat str x del))) lst) (vl-string-right-trim del str)) (defun rh:layer_props ( lyr lst / v ) (setq v (mapcar '(lambda (x) (vlax-get-property lyr x)) lst))) (defun rh:strlen3 ( str ) (if (< (strlen str) 3) (while (< (strlen str) 3) (setq str (strcat "0" str))) str) str) ;; Entities to layer by color (defun c:E2LBC ( / c_doc c_lyrs l_props ss cnt ent elst lyr l_vals cstr clst clr nlyr lobj) (setq c_doc (vla-get-activedocument (vlax-get-acad-object)) c_lyrs (vla-get-layers c_doc) l_props (list 'truecolor 'linetype 'lineweight);Layer properties list );end_setq (prompt "\nSelect Entities : ") (setq ss (ssget)) (cond (ss (repeat (setq cnt (sslength ss)) (setq ent (ssname ss (setq cnt (1- cnt))) elst (entget ent) lyr (cdr (assoc 8 elst));Layer l_vals (rh:layer_props (vla-item c_lyrs lyr) l_props);Layer properties cstr "" clst nil );end_setq (foreach x '(62 420 430) (setq clst (cons (cdr (assoc x elst)) clst))) (setq clr (vl-some '(lambda (x) x) clst)) (cond ( (not clr) (setq cstr "256")) ;No Color set (bylayer) ( (and (= (type clr) 'INT) (<= clr 256)) ;ACI (0-256) (setq cstr (rh:strlen3 (itoa clr))) ) ( (= (type clr) 'STR) (setq cstr clr)) ;Color Book (t (setq clr (mapcar 'itoa (LM:True->RGB clr));RGB cstr (rh:lst2str (mapcar 'rh:strlen3 clr) "_") );end_setq ) );end_cond (setq nlyr (strcat lyr "__" cstr)) (cond ( (not (tblsearch "layer" nlyr)) (setq lobj (vla-add c_lyrs nlyr)) (mapcar '(lambda (x y) (vlax-put-property lobj x y)) l_props l_vals))) (vlax-put-property (vlax-ename->vla-object ent) 'layer nlyr) );end_repeat ) (t (alert "NO Entities Selected ! ")) );end_cond (princ) );end_defun

Hello Perline Toujours pour t'aider dans tes problemes de quantitatifs / nomenclature ... Je te rajoute une autre excellente routine "ListBlock" de Gilles ! "ListBlock" : Generation d'un superbe tableau quantitatif des blocs selectionnes ... Avec Nom du Bloc, Nombre, Representation graphique ... ATTENTION: cette routine de Gilles ne traite pas malheureusement les Blocs inclus dans les Reseaux Associatifs (Rectangulaire, Polaire/Circulaire, Trajectoire) Pour que ces Blocs soient traites par la routine ListBlock, il faudra decomposer CES Reseaux associatifs ! OU ALORS SVP si qq'un pouvait ameliorer / modifier cette routine de Gilles !? Sinon on peut aussi utiliser l'excellente routine "COUNT" v1.5 de Lee-Mac !? http://www.lee-mac.com/blockcounter.html LA SANTE, Bye, lecrabe ;; ;; Routine: ListBlock par GC pour Patrice B. ;; ;; Table des Blocs : Nom , Nombre , Graphisme du Bloc ;; ;; ATTENTION: Blocks included into associative arrays are not processed ! ;; ;; To be clearer, you can set the text height bay row type: ;; Only data rows (bit 1) ;; (vla-SetTextHeight table 1 height) ;; Only title row (bit 2) ;; (vla-SetTextHeight table 2 height) ;; Only header row (bit 4) ;; (vla-SetTextHeight table 1 height) ;; You can also combinate this, e.g. for the entire table (+ 1 2 4): ;; (vla-SetTextHeight table 7 height) ;; ;;;;; ;;;;; Hauteur des Textes dans la Table = 5.0 ;;;;; ;;;;; (vla-SetTextHeight table 7 5.0) ;;;;; (defun c:ListBlock (/ ss name block blocks insPt table row) (vl-load-com) (or *acdoc* (setq *acdoc* (vla-get-ActiveDocument (vlax-get-acad-object))) ) (or *blocks* (setq *blocks* (vla-get-Blocks *acdoc*)) ) ;; Select blocks (prompt "\nSelect blocks to list or <All>") (or (setq ss (ssget '((0 . "INSERT")))) (setq ss (ssget "_X" '((0 . "INSERT"))) ) ) (if ss (progn ;; Build a list of dotted pairs (blockName . numberOfReferences) from the selection set (vlax-for x (setq ss (vla-get-ActiveSelectionSet *acdoc*)) (if (not (vlax-property-available-p x 'Path)) (setq name (vla-get-EffectiveName x) blocks (if (setq block (assoc name blocks)) (subst (cons name (1+ (cdr block))) block blocks) (cons (cons name 1) blocks) ) ) ) ) (vla-delete ss) ;; Prompt for insertion point (initget 1) (setq insPt (trans (getpoint "\nInsertion point: ") 1 0)) ;; Create the table (setq table (vla-addtable (vla-get-modelspace *acdoc*) (vlax-3d-point insPt) (+ 2 (length blocks)) ; number of rows (including title and header) 3 ; number of colums 20 ; cell height 80 ; row width ) ) (vla-put-VertCellMargin table 4.0) (vla-put-TitleSuppressed table :vlax-false) (vla-put-HeaderSuppressed table :vlax-false) ;; Fill the titel and the header ; (vla-setText table 0 0 "Blocks") ; (vla-setText table 1 0 "Name") ; (vla-setText table 1 1 "Count") ; (vla-setText table 1 2 "Symbol") ;; Textes version Francaise (vla-setText table 0 0 "Quantitatif des Blocs") (vla-setText table 1 0 "Nom") (vla-setText table 1 1 "Nombre") (vla-setText table 1 2 "Symbole") ;;;;; Hauteur des Textes dans la Table = 5.0 ;;;;; (vla-SetTextHeight table 7 5.0) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; fill the following rows from the list contents (setq row 2) (foreach item blocks (vla-settext table row 0 (car item)) ; block name (vla-settext table row 1 (cdr item)) ; references count (vla-SetBlockTableRecordId ; block symbol table row 2 (vla-get-ObjectId (vla-Item *blocks* (car item))) :vlax-true ) (setq row (1+ row)) ) ) ) (princ) )

Hello Gege Au fait, c moi qui a ajouté qq commentaires sur ces excellentes routines de Gilles... En effet le filtrage de Gilles n est pas parfait ! Mais avoir des 3D Maillage / 3D Mesh dans la sélection, c rarissime !! La Santé, Bye, lecrabe

Hello Ci apres 2 superbes routines VLisp de notre grand Maitre Gilles (gile) que j'utilise souvent pour les metres de longueurs et surfaces ... Ainsi avec des dessins "bien organises" par calque: c Tip-Top ! TLEN_PL_LAY qui affiche sur l'ecran texte (F2) les longueurs / perimetres de Polylignes par calque et TSUR_PL_LAY qui affiche sur l'ecran texte (F2) les aires / surfaces des Polylignes et Cercles par calque En esperant que cela puisse t'aider !? LA SANTE, Bonne Annee, Bye, lecrabe - MERCI Gilles ! ;; ;; Routine: TLEN_PL_LAY par GC pour les *POLYLINE pour Patrice B. ;; ;; v1.01 : Impossible pour les Cercles car vla-get-length NON Disponible ;; ;; Total des longueurs par CALQUE ;; ;; 2 lignes avec (vla-get-length ent ... ;; ;; ATTENTION: la routine PLANTE si on selectionne des Polylignes de type: 3D Maillage / 3D Mesh ;; Car la propriete vla-get-length ou vla-get-area n'existe pas pour ces Entites ... ;; ;; --- Interrogation Entite/Objet en Lisp --- ;; (entget (car (entsel)) '("*")) ;; (vl-load-com) (defun c:TLEN_PL_LAY (/ ent ele lst sel res tot filtre) (setq filtre 'layer) ; Layer pour les calques, Color pour les couleurs, Linetype pour les types de lignes ;; ConstantWidth : Non Fonctionnel (and (ssget (list (cons 0 "*POLYLINE"))) (progn (vlax-for ent (setq sel (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object)))) (if (setq ele (assoc (vlax-get ent filtre) lst)) (setq lst (subst (list (car ele) (cons (vla-get-length ent) (cadr ele))) ele lst)) (setq lst (cons (list (vlax-get ent filtre) (list (vla-get-length ent))) lst)) ) ) (vla-delete sel) (setq tot 0) (mapcar '(lambda(x) (setq tot (+ tot (setq res (apply '+ (cadr x))))) (princ "\nTotal Longueur des Polyligne(s) du calque ") (princ filtre) (princ " --> ") (princ (car x)) (princ (strcat " : " (rtos res))) ) (vl-sort lst '(lambda(a B)(< (car a) (car B)))) ) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; (padLeft (rtos (car item) 2 2) 6) (princ (strcat "\nTotal : " (rtos tot))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ) ) (princ) ) ;; ;; Routine: TSUR_PL_LAY par GC pour les *POLYLINE pour Patrice B. ;; ;; v1.01 : + CIRCLE (Micro-Micro-Modif par Patrice) -- ;; ;; Total des surfaces par CALQUE ;; ;; 2 lignes avec (vla-get-area ent ... ;; ;; ATTENTION: la routine PLANTE si on selectionne des Polylignes de type: 3D Maillage / 3D Mesh ;; Car la propriete vla-get-length ou vla-get-area n'existe pas pour ces Entites ... ;; ;; RAPPEL: vla-get-length NON Disponible pour les Cercles ! ;; ;; --- Interrogation Entite/Objet en Lisp --- ;; (entget (car (entsel)) '("*")) ;; (vl-load-com) (defun c:TSUR_PL_LAY (/ ent ele lst sel res tot filtre) (setq filtre 'layer) ; Layer pour les calques, Color pour les couleurs, Linetype pour les types de lignes ;; ConstantWidth : Non Fonctionnel (and (ssget (list (cons 0 "*POLYLINE,CIRCLE"))) (progn (vlax-for ent (setq sel (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object)))) (if (setq ele (assoc (vlax-get ent filtre) lst)) (setq lst (subst (list (car ele) (cons (vla-get-area ent) (cadr ele))) ele lst)) (setq lst (cons (list (vlax-get ent filtre) (list (vla-get-area ent))) lst)) ) ) (vla-delete sel) (setq tot 0) (mapcar '(lambda(x) (setq tot (+ tot (setq res (apply '+ (cadr x))))) (princ "\nTotal Surface des Polyligne(s) & Cercle(s) du calque ") (princ filtre) (princ " --> ") (princ (car x)) (princ (strcat " : " (rtos res))) ) (vl-sort lst '(lambda(a B)(< (car a) (car B)))) ) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; (padLeft (rtos (car item) 2 2) 6) (princ (strcat "\nTotal : " (rtos tot))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ) ) (princ) )

Hello Sans réfléchir et sans voir ton DOC, SVP la variable System DIMZIN = 0 Et tu relances le Lisp de Bruno / Bonuscad ?! La Santé, Bye, lecrabe

Hello https://knowledge.autodesk.com/search-result/caas/simplecontent/content/autodesk-recap-pro-for-mobile-end-life-frequently-asked-questions.html La Santé, Bye, lecrabe

Hello Vu de loin je crois qu il sera "difficile" de faire du VRD 3D ! ... Donc le Réseau ... De plus à priori aucun outil VRD (même 2D) ?! La Santé, Bye, lecrabe

Hello YES mais FILTER c "uniquement" pour les vieux Schtroumpfs AutoCADiens !? LA SANTE, Bonne Annee, Bye, lecrabe

Hello Par exemple pour avoir TOUS les objets avec le type de ligne CACH* : (ssget "X" '((6 . "CACH*"))) Puis SELECT option P et tu recuperes le jeu de selection ... Donc pour ton probleme, ce sera : (ssget "X" '((6 . "AI-Linetype*"))) LA SANTE, Bonne Annee, Bye, lecrabe

Hello Si j ai bien compris ta demande: Non ! ACAD se base sur l axe central de la polyligne... La Santé, Bonne Année, Bye, lecrabe

Hello YES c possible ! Donc j ai rajoute (VL-LOAD-COM) au debut des 2 routines ! LA SANTE, Bonne Annee, Bye, lecrabe

Hello Tu fais la commande HATCHGENERATEBOUNDARY sur tes 2 mauvaises hachures ... Et tu vas voir l'horreur ... Car cela ne genere pas des Polylignes closes normales de chaque contour de hachures ! Pour moi, il faut "refaire" toutes les hachures !? ... Est ce un DWG d'origine AutoCAD ?? Avec un PE Multiple (Selectionner les Polylignes) Joindre avec un Ecart/Distance = 0.1 , je reconstruis les 3 Polylignes closes ! ... Apres on re-hachure ... LA SANTE, Bonne Annee, Bye, lecrabe