Lisp pour "nettoyer" les exports Revit

[BIM G CO]

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

[Fraid]

Bonjour,

Sans la fonction JMG:Clean-DWG on ne peux pas tester.

Cordialement.

Désolé, je ne l'avais pas vu plus loin ...