bryce

Vous faites de l'humour au nième degré, ou bien vous n'avez vraiment pas saisi la blague ? :unsure: :(rires forts):

Bonjour, C'est comme ça que ça fonctionne depuis trèèèès longtemps, bien avant AutoCAD 2014 ;)

Bonjour, Ce serait sans doute plus simple de créer un script avec Calc, puis d'exécuter ce script dans AutoCAD. Ci-joint un exemple assez proche de ce que tu veux faire. Le contenu de la colonne G peut être copié et collé directement dans la ligne de commande d'Autocad, ou bien dans un fichier texte avec une extension .scr puis exécuté ensuite dans AutoCAD. plaque_percee.zip

Bonjour, Voici ce que j'ai pu obtenir avec Inventor. Il a accepté de décaler une partie des faces à la fois seulement, j'ai dû décaler les faces restantes lors d'une 2e opération. coffrage.zip

Bonjour, J'ai importé le solide dans Inventor, supprimé les faces sans problème (alors que ça ne fonctionnait pas dans AutoCAD, et exporté en dwg (ci-joint) ;) mur.zip

Bonjour, Pourquoi ne pas utiliser tout simplement la commande DISTANCE pur mesurer la distance entre les deux extrémités ? :unsure: Parce que si tu as une version LT (tu as posté dans le forum LT 2008), pas de Lisp... ;)

Bonjour Christian, Oui, elle existe (dans le même groupe de fonctions que Congé, Chanfrein... mais dans la partie masquée).

Il y a une erreur à la 16e ligne du fichier A2-A4.txt: un : à la place d'un ; C'est cela qui provoque l'erreur et interrompt le traitement.

Bonjour, Pour poster des dwg sur le forum, il suffit de les zipper ;)

Bonjour, En fait il ne faut PAS mettre des \\ dans le fichier qui contient les chemins ! J'ai été trop vite, et je me suis trompé ;) Je viens de prendre le temps de faire un test, ça fonctionne

Bonsoir, Tu peux essayer le lisp ci-dessous (non testé). Il faut modifier les chemins au début du code dans (setq f "...") et (setq d "...") pour pointer vers les bons fichiers. Attention, le fichier listant les chemins de recherche doit être modifié pour remplacer tous les \ par des \\ (defun c:SWAPBLOCKS ( / acdoc ms *error* plist sep f d l flst dlst i ob nb ss vlnb ) ; Chemin du fichier texte contenant les noms des blocs à remplacer et le nom des blocs ; de remplacement (chaque couple sur une ligne, avec un ; entre les 2 noms). (setq f "C:\\chemin vers le fichier texte\\remplacements.txt") ; Chemin du fichier texte contenant les chemins dans lesquels rechercher les blocs ; Les chemins doivent utiliser \\ ! (setq d "C:\\chemin vers le fichier texte\\dossiers de recherche.txt") ; Caractère de séparation entre l'ancien bloc et le nouveau dans le fichier texte: (setq sep ";") ; Liste des propriétés de l'ancien bloc à appliquer au bloc de remplacement ; (l'échelle en X, Y et Z et l'angle de rotation sont récupérés d'office): (setq plist '("Layer" "TrueColor" "Linetype" "LinetypeScale" "LineWeight")) ;--------------------------------------------------------------------------------------------------------------------- ;; Add Support File Search Paths - Lee Mac ;; Adds a list of Support File Search Paths, excluding duplicates and invalid paths. ;; lst - [lst] list of paths to add, e.g. '("C:\\Folder1" "C:\\Folder2" ... ) ;; Returns: [str] "ACAD" Environment String following modification (defun LM:sfsp+ ( lst ) ( (lambda ( str lst ) (if (setq lst (vl-remove-if '(lambda ( x ) (or (vl-string-search (strcase x) (strcase str)) (not (findfile x)) ) ) lst ) ) (setenv "ACAD" (strcat str ";" (apply 'strcat (mapcar '(lambda ( x ) (strcat x ";")) lst)))) ) ) (vl-string-right-trim ";" (getenv "ACAD")) (mapcar '(lambda ( x ) (vl-string-right-trim "\\" (vl-string-translate "/" "\\" x))) lst) ) ) ;; Remove Support File Search Paths - Lee Mac ;; Removes a list of Support File Search Paths if present. ;; lst - [lst] list of paths to remove (case-insensitive), e.g. '("C:\\Folder1" "C:\\Folder2" ... ) ;; Returns: [str] "ACAD" Environment String following modification (defun LM:sfsp- ( lst / del str tmp ) (defun del ( old str / pos ) (if (setq pos (vl-string-search (strcase old) (strcase str))) (strcat (substr str 1 pos) (del old (substr str (+ 1 pos (strlen old))))) str ) ) (setq str (strcat (vl-string-right-trim ";" (getenv "ACAD")) ";") tmp str ) (foreach pth lst (setq str (del (strcat (vl-string-right-trim "\\" (vl-string-translate "/" "\\" pth)) ";") str)) ) (if (/= tmp str) (setenv "ACAD" str)) ) (vl-load-com) (setq acdoc (vla-get-activedocument (vlax-get-acad-object)) ms (vla-get-modelspace acdoc)) (defun *error* (msg) (and msg (or (member (strcase msg) '("FUNCTION CANCELLED" "QUIT / EXIT ABORT" "FONCTION ANNULEE" "QUITTER / SORTIR ABANDON")) (princ (strcat "\nErreur : " msg)) ) ) (if ss (setq ss nil)) (if dlst (LM:sfsp- dlst)) (vla-endundomark acdoc) (princ) ) (vla-startundomark acdoc) (setq flst '() dlst '() ) (if (and f (setq f (open f "r"))) (progn (while (setq l (read-line f)) (setq flst (cons l flst)) ) (close f) (setq flst (reverse flst)) ) (*error* "Fichier de remplacement non trouvé !") ) (if (and d (setq d (open d "r"))) (progn (while (setq l (read-line d)) (setq dlst (cons l dlst)) ) (close d) (LM:sfsp+ (setq dlst (reverse dlst))) ) ) (foreach l flst (setq i (vl-string-search sep l) ob (substr l 1 i) nb (substr l (+ i 2))) (princ (strcat "\n\nRemplacement de " ob " par " nb ":")) (setq ss (ssget "_X" (list (cons 0 "INSERT")(cons 2 ob)(cons 410 "Model") ))) (if ss (if (or (tblsearch "BLOCK" nb) (setq nb (findfile (strcat nb ".dwg")))) (progn (setq i 0) (repeat (sslength ss) (setq ob (vlax-ename->vla-object (ssname ss i))) (setq vlnb (vla-insertblock ms (vla-get-InsertionPoint ob) nb (vla-get-XScaleFactor ob) (vla-get-YScaleFactor ob) (vla-get-ZScaleFactor ob) (vla-get-Rotation ob))) (foreach p plist (eval (read (strcat "(vla-put-" p " vlnb (vla-get-" p " ob))"))) ) (vla-delete ob) (setq i (+ 1 i)) );repeat (setq ss nil) (princ (strcat "\n" (itoa i) " blocs remplacés.")) );progn (princ (strcat "\nBloc " nb " non trouvé, remplacement non effectué.")) );if (princ (strcat "\nAucun bloc " ob " à remplacer.")) );if ss );foreach (*error* nil) )

Bonjour, Pour la question 1, il faut remplacer cette partie (setq flst '() f (getfiled "" "" "txt" 4)) par (setq flst '() f "C:\\chemin vers le fichier texte\\fichier.txt") Attention à bien doubler les \ dans le chemin. Pour la question 2, je pense que le plus simple est d'ajouter les chemins en tant que chemins de supports dans les options d'AutoCAD (onglet Fichiers).

Bonsoir Christian, Chez moi ça fonctionne très bien ! :o Mais je pense que j'ai résolu le mystère... Il faut que le DXF exporté soit en version 2010 minimum. La macro du bouton utilise l'option par défaut de la commande _dxfout, il semblerait que sur ton pc ça corresponde à une version antérieure (ce qui est bizarre, car chez moi totocad se remet toujours en 2013 par défaut, même après avoir fait un export dans une version plus ancienne juste avant... :huh: ).

Bonjour, Je viens de vérifier avec des blocs provenant des palettes d'outils (Véhicule métrique et fenêtre en alu) sur AutoCAD 2017, aucun problème :blink: Envoie-moi un fichier si tu veux que je regarde ;)

Bonjour, Tu peux utiliser DraftSight pour enregistrer des dessins dans une version antérieure. ;)

Bonjour Christian, Le nom des blocs dynamiques est affiché depuis les premières versions, tu es peut-être tombé sur un DWG "spécial"... <_< Tu peux me l'envoyer si tu veux, je jetterai un oeil au cas où il y aurait quand même un souci dans ScanDXF.

Bonjour, Ça ne serait pas plus simple de mettre PSLTSCALE à 0 ?

Bonjour Christian, Oui, normalement c'est le nom de la définition de bloc qui est affiché, pas le "nom anonyme"... C'est peut-être le dessin qui a un souci ? Le nom s'affiche bien dans la palette Propriétés d'AutoCAD ? Tu peux me l'envoyer si tu veux ;)

Bonjour, La Beta 25 permet de choisir les propriétés qui seront extraites et dans quel ordre quand ScanDXF est utilisé en mode auto, grâce à un fichier de configuration (ent_properties.cfg). Par exemple pour extraire le type d'objet, le calque, la longueur et l'aire, le contenu du fichier sera: # Exemple de config d'export TYPE LaYeR # les majuscules/minuscules n'ont pas d'importance #COLOR # la couleur ne sera pas extraite, car cette ligne est en commentaire LENGTH AREA Le fichier inclus dans le zip contient le nom de toutes les propriétés disponibles.

Je vois le souci que ça pose pour ton utilisation... mais ce n'est pas évident de figer la position des colonnes, puisque le nombre et le contenu des colonnes dépend des types d'objets présents. Je vais réfléchir et voir si je trouve une solution ;) Concernant l'aire des objets ouverts, je me suis posé la question, et j'ai choisi de coller à la palette Propriétés d'AutoCAD.

Bonjour, J'ai pas tout compris à la question moi non plus, mais peut-être que ce Lisp pourra te servir: http://cadxp.com/topic/36299-remplacement-blocs-avec-excel/

Pour te faire plaisir sans risquer de froisser quiconque, j'ai ajouté la possibilité de forcer le format souhaité pour l'export auto. Il faut re-télécharger et écraser scandxf.exe, puis ajouter l'argument adéquat à la commande qui se trouve dans le fichier autoscandxf.bat (jette un oeil dans le nouveau fichier, tu verras ;) ).

Bonjour Christian ;) Oui c'est encore une Beta, puisque tu trouves encore des bugs ! :P D'ailleurs la Beta 24 est dispo, qui corrige le bug d'export CSV (que j'avais déjà corrigé pour l'export Excel...). Il me semble que les splines étaient prises en compte dès la première version.

Bonjour, Ce ne serait pas PICKFIRST la variable que tu cherches ?

Bonjour, Je trouve ton avis légèrement partial... :D Les stratégies que tu as développées sur des années sur certains logiciels ne sont pas automatiquement transposables sur un autre logiciel, il faut peut-être en développer d'autres... Ou bien tes stratégies en elles-même sont valides, mais c'est la meilleure façon de les implémenter qui peut différer... Tu pourrais développer un peu ton exemple (capture d'écran, vidéo...)? Connaissant un peu les deux softs (enfin, bien l'un et un peu moins l'autre, pour être honnête :P ), je ne vois pas trop ce que l'un ferait de vraiment mieux que l'autre... :huh: