BIM G CO Posté(e) le 25 juillet Partager Posté(e) le 25 juillet Bonjour. Je viens de finaliser un petit LISP qui permet dans GstarCAD de nettoyer les fichiers DWG exportés depuis Revit : (defun JMG:Fix-DWG-export-RVT ( Calque-Fenetre / Documents answer ) (defun change-viewport-layer (doc viewportlayername / vp) (vlax-for vp (vla-get-paperspace doc) (if (equal (vla-get-objectname vp) "AcDbViewport") (vla-put-layer vp viewportlayername) ) ) ) (setq Document (vla-get-activedocument (vlax-get-acad-object)) Calque-Fenetre "Defpoints") (if (= (getvar "TILEMODE") 0) (progn ;; Dans une Fenêtre : Sortir (if (not (eq (getvar "CVPORT") 1)) (command "_.pspace")) ;; dans une présentation vide de fenêtre : créer une fenêtre de la taille du papier (if (not (ssget "X" '((0 . "VIEWPORT")))) (command "_.mview" "_fit")) (command "_move" "_all" "" (getvar "EXTMIN") (list 0.1 0.1) "_ZOOM" "TO" "-CALQUE" "E" Calque-Fenetre "CO" "7" Calque-Fenetre "") ) ) (change-viewport-layer Document Calque-Fenetre) (setvar "TILEMODE" 1) (command "_ZOOM" "TO") (setq answer (strcat "Le fichier utilisé est \n\"" (getvar "DWGNAME") "\"\n" (JMG:Clean-DWG))) (setvar "TILEMODE" 0) (setvar "ATTDIA" 0) (setvar "FILEDIA" 0) (command "_-PSETUPIN" "ExportRevit" "*") (setvar "ATTDIA" 1) (setvar "FILEDIA" 1) (C:CHANGE_PAGE_SETUPS) answer ) Où "ExportRevit" est un fichier DWG ou DWT. Je vous les ai joint. Merci @(gile) qui a fait une réponse dans ce forum Forum Merci feu @Patrick_35 pour l'idée sur cette page Merci à @x_all et @famaice pour le lien avec le lisp (C:CHANGE_PAGE_SETUPS). Pour l'exécution facile penser à mettre aussi : (defun JMG:Clean-DWG ( / message) (setq message "pour rien") ) A vos claviers pour l'améliorer ! ExportRevit.dwt ExportRevit.dwg Dessinateur AutoCAD, Modeleur BIM, consultant informatique logiciels métier Lenovo ThinkStation P330 i9 9900K 32Gb RAM 512 SSD + 1To GstarCAD, Fisa-CAD, Revit, FisaBIM CVC, Microsoft Office PlaquetteDeplianteMars2024.pdf Lien vers le commentaire Partager sur d’autres sites More sharing options...
Fraid Posté(e) le 26 juillet Partager Posté(e) le 26 juillet Bonjour, Sans la fonction JMG:Clean-DWG on ne peux pas tester. Cordialement. Désolé, je ne l'avais pas vu plus loin ... https://github.com/Fraiddd Lien vers le commentaire Partager sur d’autres sites More sharing options...
Messages recommandés
Créer un compte ou se connecter pour commenter
Vous devez être membre afin de pouvoir déposer un commentaire
Créer un compte
Créez un compte sur notre communauté. C’est facile !
Créer un nouveau compteSe connecter
Vous avez déjà un compte ? Connectez-vous ici.
Connectez-vous maintenant