lecrabe

Hello YES les Multi-Lignes sont "RIGIDES" ! Mais parfois cela peut rendre BIEN des services !! SURTOUT si on n'a pas a TROP les "tripatouiller" ulterieurement !! Sauf que AutoCAD n'a pas prevu de CHANGER le Style d'une Multi-Ligne !!! C VITAL quand on utilise les MLs - MERCI a notre grand maitre Gilles ... LA SANTE, Bye, le crabe "triste" Automne 2020, la retraite ... ;; ;; Version 2.00 - Modif/Patch for versions 2015/2016/etc ;; ;; Par GC - Changer le style de Multi-Lignes ... Change MultiLines Style ... ;; ;; CAR MALHEUREUSEMENT AutoCAD ne permet pas de changer ;; le Style d'une Multi-Ligne existante (deja dessinee) ! ;; ;; Routine/Command : CMLS ;; Selection possible de N Multi-Lignes ... ;; ;; Commandes FRENCH sur les Multi-Lignes : MLIGNE / MLSTYLE ;; (defun c:CMLS (/ *error* echo osnp slst ss styl ent) (vl-load-com) (defun *error* (msg) (or (not msg) (= msg "Fonction annulée") (princ (strcat "Erreur: " msg)) ) (setvar 'cmdecho echo) (setvar 'osmode osnp) (vla-EndUndoMark (vla-get-ActiveDocument (vlax-get-acad-object))) (princ) ) (setq echo (getvar 'cmdecho) osnp (getvar 'osmode) slst (gc:GetDictEntries (dictsearch (namedobjdict) "ACAD_MLINESTYLE")) ) (if (and (setq n -1 ss (ssget '((0 . "MLINE"))) ) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; (setq styl (gc:ListBox "Styles de multiligne" "Choisissez un style" (mapcar 'car slst) 0)) (setq styl (gc:ListBox "MultiLines Styles" "Select a Style" (mapcar 'car slst) 0)) ) (progn (vla-StartUndoMark (vla-get-ActiveDocument (vlax-get-acad-object))) (setvar 'cmdecho 0) (setvar 'osmode 0) (while (setq ent (ssname ss (setq n (1+ n)))) (setq elst (entget ent)) (vl-cmdf "_.mline" "_style" styl) (foreach p (mapcar '(lambda (x) (trans x 0 1)) (massoc 11 elst)) (vl-cmdf p) ) (vl-cmdf (if (= 2 (logand 2 (cdr (assoc 71 elst)))) "_close" "" ) ) (if (setq xd (assoc -3 (entget ent '("*")))) (entmod (append (entget (entlast)) (list xd))) ) (entdel ent) ) ) ) (*error* nil) ) ;; ;; gc:ListBox par GC ;; Boite de dialogue permettant un ou plusieurs choix dans une liste ;; ;; Arguments ;; title : le titre de la boite de dialogue (chaîne) ;; msg ; message (chaîne), "" ou nil pour aucun ;; lbls : une liste de chaînes (sans doublons) ;; flag : 0 = liste déroulante ;; 1 = liste choix unique ;; 2 = liste choix multipes ;; ;; Retour : l'option (flag = 0 ou 1) ou la liste des options (flag = 2) ;; ;; Exemple d'utilisation ;; (listbox "Présentation" "Choisir une présentation" (layoutlist) 1) ;; (defun gc:ListBox (title msg lbls flag / tmp file dcl_id choice) (setq tmp (vl-filename-mktemp "tmp.dcl") file (open tmp "w") ) (write-line (strcat "ListBox:dialog{label=\"" title "\";") file ) (if (and msg (/= msg "")) (write-line (strcat ":text{label=\"" msg "\";}") file) ) (write-line (cond ((= 0 flag) "spacer;:popup_list{key=\"lst\";") ((= 1 flag) "spacer;:list_box{key=\"lst\";") (T "spacer;:list_box{key=\"lst\";multiple_select=true;") ) file ) (write-line "}spacer;ok_cancel;}" file) (close file) (setq dcl_id (load_dialog tmp)) (if (not (new_dialog "ListBox" dcl_id)) (exit) ) (start_list "lst") (mapcar 'add_list lbls) (end_list) (action_tile "accept" "(or (= (get_tile \"lst\") \"\") (if (= 2 flag) (progn (foreach n (gc:str2lst (get_tile \"lst\") \" \") (setq choice (cons (nth (atoi n) lbls) choice))) (setq choice (reverse choice))) (setq choice (nth (atoi (get_tile \"lst\")) lbls)))) (done_dialog)" ) (start_dialog) (unload_dialog dcl_id) (vl-file-delete tmp) choice ) ;; ;; gc:str2lst ;; Transforme un chaine avec séparateur en liste de chaines ;; ;; Arguments ;; str : la chaine à transformer en liste ;; sep : le séparateur ;; ;; Exemples ;; (str2lst "a b c" " ") -> ("a" "b" "c") ;; (str2lst "1,2,3" ",") -> ("1" "2" "3") ;; (mapcar 'read (str2lst "1,2,3" ",")) -> (1 2 3) ;; (defun gc:str2lst (str sep / pos) (if (setq pos (vl-string-search sep str)) (cons (substr str 1 pos) (gc:str2lst (substr str (+ (strlen sep) pos 1)) sep) ) (list str) ) ) ;; gc:GetDictEntries ;; Retourne la liste des entrées du dictionnaire ;; sous forme de paires pointées (Nom . ENAME) ;; ;; Argument : dict le dictionnaire (ENAME ou liste DXF) (defun gc:GetDictEntries (dict / result) (and (= (type dict) 'ENAME) (setq dict (entget dict))) (while (setq dict (vl-member-if (function (lambda (x) (= (car x) 3))) (cdr dict))) (setq result (cons (cons (cdar dict) (cdadr dict)) result)) ) (reverse result) ) ;; massoc ;; Retourne la liste de toutes les valeurs pour le code spécifié ;; dans une liste d'association ;; ;; Arguments ;; code : le code de groupe pour les entrées ;; alst : la liste d'association (defun massoc (code alst / pair) (if (setq alst (member (assoc code alst) alst)) (cons (cdar alst) (massoc code (cdr alst))) ) )

Hello La Dispo de MAP 2021 dans la console de gestion Autodesk est tres variable ! Cela a commence pour certains le Jeudi 26 Mars 2020 ! Et pour d'autres, il faut attendre !! De toute facon, vu les prodigieuses nouveautes AutoCAD 2021, il n'y a pas urgence ! Voir ce sujet : https://cadxp.com/topic/48841-acadltmapelecmech3dsmax-french-2021-dispo/ Et surtout la belle presentation AutoCAD 2021 de notre indispensable Eric ... https://www.caderix.com/journal/spip.php?article524 En ce qui est de Covadis, il faudra attendre la version 17.1 pour etre compatible avec les versions 2021 ... La version actuelle de Covadis v17.OF est compatible 2020-2013 ... Mais vous pouvez parfaitement avoir la 2021 installee A COTE SANS Covadis ! LA SANTE, Bye, lecrabe "triste" Automne 2020, la retraite ...

Hello La Dispo de MAP 2021 dans la console de gestion Autodesk est tres variable ! Cela a commence pour certains le Jeudi 26 Mars 2020 ! Et pour d'autres, il faut attendre !! De toute facon, vu les prodigieuses nouveautes AutoCAD 2021, il n'y a pas urgence ! Voir ce sujet : https://cadxp.com/topic/48841-acadltmapelecmech3dsmax-french-2021-dispo/ Et surtout la belle presentation AutoCAD 2021 de notre indispensable Eric ... https://www.caderix.com/journal/spip.php?article524 En ce qui est de Covadis, il faudra attendre la version 17.1 pour etre compatible avec les versions 2021 ... La version actuelle de Covadis v17.OF est compatible 2020-2013 ... Mais vous pouvez parfaitement avoir la 2021 installee A COTE SANS Covadis ! LA SANTE, Bye, lecrabe "triste" Automne 2020, la retraite ...

Hello 1) Donc AutoCAD MAP 2021 French est DISPO depuis hier approximativement ... 2) ATTENTION: le Telechargement (depuis votre Compte Autodesk) SVP en Mode Navigateur "Telecharger / Download" est de DEUX Fichiers : 2.0 Go + 31 Mo ! Ainsi vous aurez un Master correct de AutoCAD MAP 2021 French ... 3) Windows Seven n'est plus supporte ! Mais cela on le savait car deja la 2020 a failli ne pas supporter Windows Seven !? Donc la 2021 supporte : - Windows 8.1 + Update KB2919355 - Windows 10 1909 or higher 4) Les Evolutions de AutoCAD 2021 sont mineures Et c'etait deja le cas pour la 2020 par rapport a la 2019 ! 5) Les Micro-Evolutions de MAP 2021 sont : - Edit ArcGIS Features (A priori IDEM InfraWorks !?), - FDO WMTS Support, - FDO SQLite 3.27.2 Support, - FDO Oracle 19c (19.3) Support, - Diverses micro-micro-corrections. 6) PERSO: MAP 2019 me suffit largement ! 7) Le Nom de Code de la 2021 : ROGUE https://georezo.net/forum/viewtopic.php?id=77588 LA SANTE, Bye, lecrabe "triste" Automne 2020, la retraite ...

Hello Ne jamais utiliser la couleur 255,255,255 car il y a des probl aléatoires: conversion en Noir ! Toujours utiliser 254,254,254 !! LA SANTE, Bye, lecrabe "triste" Automne 2020, la retraite

Hello DE plus est sorti HIER avec la 2021 une nouvelle version du Licensing Service (Systeme de protection) C la version v10.1.1.66 du 24 Mars 2020 ... LA SANTE, Bye, lecrabe "triste" Automne 2020, la retraite ...

Hello Eric MERCI et BRAVO : tu as bien bosse ( comme d'habitude ) ! LA SANTE, Bye, lecrabe "triste" Automne 2020, la retraite ...

Hello Sans reflechir : il faudrait un raccourci de lancement qui lance un Script (Option /B je crois !?) dans lequel on arrive dans la bonne Presentation / Layout donc on connait parfaitement le NOM !? https://knowledge.autodesk.com/fr/support/autocad/learn-explore/caas/CloudHelp/cloudhelp/2018/FRA/AutoCAD-Core/files/GUID-8E54B6EC-5B52-4F62-B7FC-0D4E1EDF093A-htm.html LA SANTE, Bye, lecrabe "triste" Automne 2020, la retraite ...

Hello 1) Voir Titre ... https://autocadresources.autodesk.com/wistia-uberflip-videos/autocad-2021-product-overview-video 2) Les Nouveautes 2021 (Format DWG2018) sont mineures (un peu comme la 2020) ... ---- Les Nouveautes 2021 ---- US/English : https://help.autodesk.com/view/ACD/2021/ENU/?guid=GUID-A343CF22-706E-4F58-9CE4-B48CBCA3589B Francais : https://help.autodesk.com/view/ACD/2021/FRA/?guid=GUID-A343CF22-706E-4F58-9CE4-B48CBCA3589B 3) La 2019 me suffit bien ! 4) Autodesk n'a meme pas juge UTIL de faire un DOC sur les nouveautes 2021 (en phase Beta) contrairement a TOUTES les versions precedentes ... C DIRE ! 5) Au fait le Nom de Code (CodeName) de la 2021 : ROGUE ! https://georezo.net/forum/viewtopic.php?id=77588 PS: Eric a realise un sujet Tip-Top comme d'habitude sur la 2021 ! https://www.caderix.com/journal/spip.php?article524 LA SANTE, Bye, lecrabe "triste" Automne 2020, la retraite ...

Hello Donc il y a du REVIT mais encore quoi d'autre ?? 3DSMax / Infraworks / etc ?? LA SANTE, Bye, lecrabe "triste" Automne 2020, la retraite ...

Hello SVP quand tu auras TOUT corrige et que ca fonctionne bien !? tu nous posteras la bonne version pour AutoCAD French ... LA SANTE, Bye, lecrabe "triste" Automne 2020, la retraite ...

Hello +1 avec Fraid ! DEJA il faut modifier le Lisp "un peu partout" pour lui faire passer des commandes et options US/English PREFIXE par un "_" (underscore) pour avoir une chance de fonctionner sur un AutoCAD French ! LA SANTE, Bye, lecrabe "triste" Automne 2020, la retraite ...

Hello Quand le Dieu Gilles cause ... On ecoute "religieusement" et on remercie ! LA SANTE, Bye, lecrabe "triste" Automne 2020, la retraite ...

Hello Steven & Fraid & Jalloul OOPS SORRY , en effet le Decapode s'incline bien bas et vous presente ses miserables excuses ! J'essaye de faire plusieurs choses a la fois mais a 63 ans , c PAS CONSEILLE ! LA SANTE, Bye, lecrabe "triste" Automne 2020, la retraite...

Hello Est ce que je parle FRANCAIS ??? Commande: _DBCONNECT LA SANTE, Bye, lecrabe "triste" Automne 2020, la retraite...

Hello Et si vous installiez l'excellent outil gratuit MESHLAB : http://www.meshlab.net/#download Il ouvre de nombreux format 3D et il permet de re-enregistrer dans de nombreux formats 3D ... LA SANTE, Bye, lecrabe "triste" Automne 2020, la retraite ...

Hello Commande : _DBCONNECT ... LA SANTE, Bye, lecrabe "triste" Automne 2020, la retraite...

Hello Avez vous deja importer (avec succes !?) des GROS FBX (Minimum 100-200 Mo) dans AutoCAD 2018-2017-2016 ? Rappel : l Import / Export FBX a ete supprime par Autodesk avec la version 2019 !! DONC SVP gardez vos 2018/2017 !! LA SANTE, Bye, lecrabe "triste" Automne 2020, la retraite ...

Hello 1) As tu le fichier .JP2 ? Quelle taille ? Tu as combien de Go de memoire ? 2) Est il insere par MAPIINSERT ? OU par le driver FDO Raster de MAP/CIVIL ? 3) Peux tu le partager (Download Free ou WETransfert ou ...) ?? Au fait tu peux aussi l'inserer par MAPIINSERT !! LA SANTE, Bye, lecrabe "triste" Automne 2020, la retraite ...

Hello SVP un DWG avec qq exemples des Blocs sources et le Resultat VOULU !? Le TOUT dans un lien Download Free / WETransfert / etc ... LA SANTE, Bye, lecrabe "triste" Automne 2020, la retraite ...

Hello YES MERCI ! Commande: FCALQUE (ou _VPLAYER) Entrez une option [?/Couleur/TLigne/Epaisseurl/TRansparence/Geler/Libérer/Rétablir/Nouvgel/Visfendéf]: _F Entrez le nom des calques relatifs à geler ou : ALPHA Spécifiez les fenêtres [Tous/CHoisir/Courant/eXcepté courant] : Entrez une option [?/Couleur/TLigne/Epaisseurl/TRansparence/Geler/Libérer/Rétablir/Nouvgel/Visfendéf]: Commande: ---- Ainsi on gele Localement le calque "ALPHA" ... En Script / Lisp : (command "FCALQUE" "_F" "ALPHA" "" "") En US/English : (command "_VPLAYER" "_F" "ALPHA" "" "") LA SANTE, Bye, le crabe "triste" - Pret pour le Confinement Automne 2020, la retraite ...

Hello On peut faire cela : (command "_layer" "_CO" "ALPHA" "BRAVO" "") Et idem pour INactiver / Geler des Calques ... Changer le Type de Ligne , L'Epaisseur , etc ... MAIS etant "plonge" dans une Fenetre / FMULT dans les Presentations / Layouts ... SVP Comment peut on en Script / Lisp GELER Localement des calques ?? Car je vois seulement CES Options : Entrez une option [?/Etablir/CHoisir/Nouv/Renommer/ACtif/INactif/COuleur/TLigne/EPaisseurl/TRANsparence/MAtériau/Tracé/Geler/Libérer/Verrouiller/Déverrouiller/étAt/deScription/RApprocher]: LA SANTE, Bye, le crabe "triste" - Pret pour le Confinement Automne 2020, la retraite ...

Hello ---- Brassens : Chanson detournee ---- ---- Simon_and_Garfunkel__Chanson_Detournee ---- LA SANTE, Bye, le crabe "triste" - Pret pour le Confinement Automne 2020, la retraite ...

Hello YES une copie des Objets concernes (LWPolylines 2D non courbees / non splinees ET MPOLYGONs) AVANT d'executer la commande MAPCREATECENTROIDS ... LA SANTE, Bye, le crabe "triste" - Pret pour le Confinement Automne 2020, la retraite ...

Hello SVP qq autres avis !? LA SANTE, Bye, le crabe "triste" - Pret pour le Confinement Automne 2020, la retraite ...