lecrabe

Hello 1) Je ne te suis pas trop ?! 2) Propriété de la Polyligne: tu essayes de changer en bas "Génération de Type Ligne" pour voir ? 3) Quel AutoCAD ? Quelle version ? Quel Update ? La Sante, Bye, lecrabe

Hello Pourquoi as tu posté dans le forum AutoCAD LT ?? Aucune programmation (Lisp, VBA, Dotnet, ARX, etc) possible avec LT !! Bye, lecrabe

Hello Sans AutoCAD et sans réfléchir , je pense que c COMMANDPREVIEW ?! Bye, lecrabe

Hello @(gile) MERCI c TOP ! Bonne semaine, La Sante, Bye, lecrabe

Hello @(gile) MERCI je teste des que possible ! Bon WE, La Sante, Bye, lecrabe

Hello @(gile) 1) Merci pour la routine ! 2) SVP puis je te (ou un autre Pro du Lisp) demander une version améliorée ?! 21) Question - Nouveau facteur multiplication de l'échelle des hachures ? Défaut = 2.0 - Valeur > 0.0 Ce sera souvent: 2/4/8/etc/0.5/0.25/etc 22) Récupération de l'échelle de chaque hachure sélectionnée... 23) Nouvelle échelle = ancienne échelle * facteur multiplication 24) MAJ hachure - Par ENTMOD sans doute ?! 25) On boucle sur la hachure suivante... Vois tu ce que je veux dire ? Merci, Bye, lecrabe

Hello Sans AutoCAD et sans réfléchir , je pense que c PICKSTYLE ?! Bye, lecrabe

Hello @vincentp010 1) MERCi Vincent cela me semble parfait ! J'ai renomme la routine en "Project_Change_Multi" Alors au debut de la routine, il suffit d'aller selectionner UN SEUL DWG du dossier VOULU Et alors TOUS les DWGs du dossier seront traites automatiquement ! RAPPEL: TOUS les DWGs sont dans UN SEUL System de Proj et on transforme en UN SEUL Systeme de Proj !! 2) Mais j'ai fais qq micro-modifs qui me semblent necessaires ... 21) Au debut j'ai rajoute un Warning derriere le vla-purgeall : ( prompt "\n\nATTENTION: SVP veuillez VERIFIER que le DWG courant est bien en METRE ! " ) ( prompt "\nCommande: _UI pour affecter les Unites au DWG Courant ... \n\n " ) 22) Vers la fin : ; (command "sauvegrd" fichier_export ) (command "_saveas" "" fichier_export ) ;;;;;;; PURGE ALL / Purger Tout ;;;;;;; (command "_-PURGE" "_all" "" "_N" ) ;; PURGE ALL / Purger Tout 23) Et avant la derniere parenthese (Important) : (setvar "CMDDIA" 1) ;; Restore CMDDIA = 1 "Ma" version de Ton Lisp est jointe ... La Sante, Bye, lecrabe Project_Change_Multi___MAP___Vincentp010.zip

Hello @Eric EXCELLENT ! La Sante, Bye, lecrabe

Hello @Luna SYMPA le Support de Cours AutoCAD 2015 Initiation ... MERCI pour le partage ! La Sante, Bye, lecrabe

Hello Toujours travailler avec le verrouillage des Majuscules = OFF Sauf quand tu tapes du Texte en Majuscule et apres OFF La Sante, Bye, lecrabe

Hello Le vieux Plugin AutoCAD MAP 2009 n'existe plus depuis longtemps ! J'ai 2 Lisp "ProjectChange" et " RPV" provenant de cadxp.com qui reprojette des DWGs ... Je ne sais pas si cela correspond a la demande !? ... ET je n'ai pas teste ces 2 Lisps !! SVP vous me direz ... La Sante, Bye, lecrabe ProjectChange___MAP___vincentp010.zip RPV__for_MAP__ReProject_DWG_One_by_One.zip

Hello NON malheureusement AutoCAD MAP/CIVIL ne reprojette pas à la volée les XREFs contrairement à MicroStation ! La Santé, Bye, lecrabe

Hello Le Lyonnais BON j'ai demande a un specialiste VT si il pouvait t'aider : Wait and See ... La Sante, Bye, lecrabe (Le Stephanois)

Hello +1 avec Thierry Si il pouvait lire / écrire le format RCP / RCS, ça serait Top ! La santé, Bye, lecrabe

Hello Mr Carriere As tu Covadis par dessus ton AutoCAD / AutoCAD MAP ? Si OUI, quelle version ? La Santé, Bye, lecrabe

Hello Voici une excellente routine "COPY_XD" du Grand Maitre Gilles (gile) qui copie TOUTES les XDs de UNE entite selectionnee vers N entites selectionnees Mais cela peut s'averer dangeureux ... Encore Merci Gilles La Sante, Bye, lecrabe PS: Routine tiree de mon stock de 3001 routines ... ;; ;; Copier les XDATAs (Donnees Etendues) de UN objet source vers N objets cible ;; ;; Routine par GC vs 1.00 pour Patrice B. ;; ;; Commande au clavier : COPY_XD ;; ;; Routine identique dans le principe a COPY_OD (pour MAP ou CIVIL) ;; ;; Chargement par : APPLOAD ;; (vl-load-com) (defun c:COPY_XD (/ ss source sdata n apps ent elst cdata) (if (and (setq source (car (entsel "\nSelectionnez l Objet Source (avec Donnees Etendues/XDATAs) : "))) (setq sdata (cdr (assoc -3 (entget source '("*"))))) ) (progn (setq n -1 apps (mapcar 'car sdata) ) (princ "\nSelectionnez les N Objets Cible ... ") (if (setq ss (ssget)) (while (setq ent (ssname ss (setq n (1+ n)))) (setq elst (entget ent '("*")) cdata (cdr (assoc -3 elst)) elst (vl-remove (assoc -3 elst) elst) ) (entmod (append elst (list (cons -3 (append (vl-remove-if (function (lambda (x) (member (car x) apps) ) ) cdata ) sdata ) ) ) ) ) ) ) ) (princ "\nL Objet selectionne ne contient pas de Donnees Etendues (XDATA) ! " ) ) (princ) )

Hello Q1) Tu as quelle version exactement de AutoCAD avec quel Update ? Q2) Si MAP, quelle version exactement de MAP avec quel Update ? Q3) Quel Windows ? La Sante, Bye, lecrabe

Hello C la St-Valentin ! La Santé, Bye, lecrabe

Hello @Luna @(gile) Mais Luna ne dort pas comme Gilles ... Tous les deux sont somnambules ... Le 2eme cerveau code en Lisp / VLisp pendant que le 1er se repose puis vice-versa ... La Sante, Bye, lecrabe

Hello Tu fais un DWGCHECK = 0 avant de lancer ton Script et/ou tes Lisps Cette Info est stockee en base de registre donc c "definitif" pour TON Profil ! La Sante, Bye, lecrabe

Hello DWGCHECK = 0 La Sante, Bye, lecrabe

Hello SVP tu vas utiliser cette excellente routine "LayerToDwg_2" de notre Grand Maitre Gilles ! En plus elle te permet de choisir les Calques a traiter ... MERCI Gilles ! La Sante, Bye, lecrabe PS: Routine tiree de mon stock de 3001 routines ... ;; ;; LAYERTODWG par GC (gile) version 2.0 pour Patrice B. ;; ;; Cree un fichier DWG pour chaque calque selectionne ;; ;; Commande au clavier LAYERTODWG_2 ;; ;; ATTENTION: svp verifier votre systeme d'unites ;; (defun c:LayerToDwg_2 (/ acdoc layers prefix name llst ss) (vl-load-com) (setq acdoc (vla-get-ActiveDocument (vlax-get-acad-object)) layers (vla-get-Layers acdoc) prefix (getvar 'dwgprefix) ) (vlax-for l layers (setq name (vla-get-Name l)) (if (not (wcmatch name "*|*")) (setq llst (cons name llst)) ) ) (setq llst (vl-sort llst '<) llst (ListBox "LayerToDwg" "Selectionnez les calques a traiter " (mapcar 'cons llst llst) 2 ) ) (foreach name llst (if (ssget "_X" (list '(410 . "Model") (cons 8 name))) (progn (setq ss (vla-get-ActiveSelectionSet acdoc)) (vla-Wblock acdoc (strcat prefix name ".dwg") ss) (vla-delete ss) ) ) ) (princ) ) ;; 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 ;; keylab : une liste d'association du type ((key1 . label1) (key2 . label2) ...) ;; flag : 0 = liste deroulante ;; 1 = liste choix unique ;; 2 = liste choix multipes ;; ;; Retour : la cle de l'option (flag = 0 ou 1) ou la liste des cles des options (flag = 2) ;; ;; Exemple d'utilisation ;; (listbox "Presentation" "Choisir une presentation" (mapcar 'cons (layoulist) (layoutlist)) 1) (defun ListBox (title msg keylab 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 (mapcar 'cdr keylab)) (end_list) (action_tile "accept" "(or (= (get_tile \"lst\") \"\") (if (= 2 flag) (progn (foreach n (str2lst (get_tile \"lst\") \" \") (setq choice (cons (nth (atoi n) (mapcar 'car keylab)) choice))) (setq choice (reverse choice))) (setq choice (nth (atoi (get_tile \"lst\")) (mapcar 'car keylab))))) (done_dialog)" ) (start_dialog) (unload_dialog dcl_id) (vl-file-delete tmp) choice ) ;; str2lst ;; Transforme un chaine avec separateur en liste de chaines ;; ;; Arguments ;; str : la chaine a transformer en liste ;; sep : le separateur ;; ;; 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 str2lst (str sep / pos) (if (setq pos (vl-string-search sep str)) (cons (substr str 1 pos) (str2lst (substr str (+ (strlen sep) pos 1)) sep) ) (list str) ) )

Hello OUI mais je voulais laisser un peu de travail a GeoTrouvTou ! La Sante, Bye, lecrabe

Hello A priori le Postscript ne sert a rien sauf pour des logiciels comme Photoshop, Illustrator, etc ... La Sante, Bye, lecrabe