; ETAPE 0 : PREABLABLES
; ---------------------------------------------------------- 
; Ouvrir AutoCad AVEC plugin Archibus actif.
; Mettre la valeur de FILEDIA à 0 pour empêcher l’ouverture des boites de dialogue dans AutoCad.
FILEDIA 0
; Charger la commande de convertisseur de calque.
(cond ((not (member "laytrans.arx" (arx))) (arxload "laytrans")))
;
OUVRIR \\10.1.16.3\ucl\drawings\SC10_PL_E200_AFM
; ETAPE 1 : Cataloguer et publier
; ---------------------------------------------------------- 
;
-CALQUE A R
AFM_WebCentral


-CALQUE  
_f *A-2--_ElémentPrimaireSuperstructure
_f *A-2--_ElémentPrimaireSuperstructure_V
_f *A-07-_Annotation
_f *A-7--_MobilierFixe
_f *A-9--_Extérieur
_f *A-015_Circulation
_f *A-16-_Fondation
_f *A-16-_Fondation_P
_f *A-16-_Fondation_V
_f *A-023_OuverturePorte
_f *A-23-_Plancher_V
_f *A-24-_CirculationVerticale_V
_f *A-27-_Toiture
_f *A-27-_Toiture_V
_f *A-28-_Ossature
_f *A-28-_Ossature_V
_f *A-29-_Isolation
_f *A-31-_MenuiserieExtérieure
_f *A-31-_MenuiserieExtérieure_V
_f *A-32-_MenuiserieIntérieure
_f *A-32-_MenuiserieIntérieure_V
_f *A-34-_GardeCorps_V
_f *A-35-_Plafond_V
_f *A-37-_ElémentToiture_V
_f *A-41-_FinitionExtérieure
_f *A-41-_FinitionExtérieure_V
_f *A-042_TexteLocalisation
_f *A-42-_FinitionIntérieure
_f *A-42-_FinitionIntérieure_V
_f *A-050_HachureParoi
_f *A-051_HachureDivers
_f *A-55-_Réfrigération
_f *A-73-_MobilierCuisine
_f *A-74-_EquipementSanitaire
_f *A-077_TraitCoupe
_f *A-111_ReliefSol
_f *A-211_MurExtérieurPorteur
_f *A-211_MurExtérieurPorteur_V
_f *A-213_MurExtérieurNonPorteur
_f *A-213_MurExtérieurNonPorteur_V
_f *A-221_ParoiVerticaleIntérieurePorteuse
_f *A-221_ParoiVerticaleIntérieurePorteuse_V
_f *A-223_ParoiVerticaleIntérieureNonPorteuse
_f *A-223_ParoiVerticaleIntérieureNonPorteuse_V
_f *A-226_ParoiVerticaleIntérieureOssaturée
_f *A-226_ParoiVerticaleIntérieureOssaturée_V
_f *A-319_AccessoireMenuiserieExtérieure_V
_f *A-329_AccessoireMenuiserieIntérieure_V
_f *A-904_Voirie
_f *EQ
_f *EQ$
_f *EQ$TXT

ZOOM ET
CLAYER GROS
AFM_CATALOG
TOUT


;
; 1.1. Publier le plan
;
-CALQUE A R
AFM_WebCentral


ZOOM ET
AFM_PUBGRAPHICST

; Règles de publication :
; Publication en cours : Publier les informations de dangers bâtiment propre pour les graphiques d’entreprise.
; Publication en cours : Publier les informations d’échantillons de dangers bâtiment propre pour les graphiques d’e.
; Publication en cours : Publier les informations d’équipement pour les graphiques d’entreprise.
; Publication en cours : Publier les informations de standards de mobilier pour les graphiques d’entreprise.
; Publication en cours : Publier les informations de platines.
; Publication en cours : Publier les informations de mobilier codé pour les graphiques d’entreprise.
; Publication en cours : Publier les informations de groupes pour les graphiques d’entreprise.
; Publication en cours : Publier toutes les couches utilisées dans tous les échantillons de données d’ARCHIBUS.
; Publication en cours : Publier les informations de prises pour les graphiques d’entreprise.
; Publication en cours : Publier les informations de volets.
; Publication en cours : Publier les informations de réglementation pour les graphiques d’entreprise.
; Publication en cours : Publier les informations de réglementation au format SVG.
; Publication en cours : Publier les informations de pièces pour les graphiques d’entreprise.
; Publication en cours : Publier les informations de locaux pour les graphiques d’entreprise.
; Publication en cours : Publier les informations de zones pour les graphiques d’entreprise.
; La publication des graphiques d’entreprise est désormais terminée.
;
;
; 1.2. générer le miniplan, le plan atlas et le DWF
;
OBJET
-CALQUE A R AFM_Objet


; 1.3. Enregistrer (les fichiers DSD se base sur la dernière version AutoCad enregistrée et non le dessin ouvert)
SAUVERAP
; 1.3. Publier
-PUBLIER \\oasis.uclouvain.be\dfs\groups\a\ac-ucl-plans\_Admin\DSD\SC10_PL_E200_MNP.dsd
-PUBLIER \\oasis.uclouvain.be\dfs\groups\a\ac-ucl-plans\_Admin\DSD\SC10_PL_E200_DWF.dsd
-PUBLIER \\oasis.uclouvain.be\dfs\groups\a\ac-ucl-plans\_Admin\DSD\SC10_PL_E200_PAT.dsd
;
;
; 1.4. Retourner à l'état initial du fichier et le sauvegarder
OBJET
-CALQUE A R AFM_WebCentral


; ETAPE 2 : CRÉATION DU TEXTE DE REQUETE POUR LES PIECES
; ---------------------------------------------------------- 
; Le texte de requête se fait par une série de commandes lisp
; Elle définit les informations souhaitées et leur forme.
; Les informations sont : Type, Niveau 3, Niveau hors structure, m², Revêtement de sol.
(AfmQueryTextInit)
(AfmQueryTextSetAssigned "rm")
(AfmQueryTextAddField "rm.rm_type")
(AfmQueryText 1 "A-043_TexteNuméroLocal_A" 20.0 t 0.0 0.0 t "/" nil nil)
(AfmQueryTextSetAssigned "rm")
(AfmQueryTextAddField "rm.dp_id")
(AfmQueryText 1 "A-043_TexteNuméroLocal_A" 20.0 t 0.0 0.0 t ", " nil nil)
(AfmQueryTextSetAssigned "rm")
(AfmQueryTextAddField "rm.ucl_cr_noff")
(AfmQueryText 1 "A-043_TexteNuméroLocal_A" 20.0 t 0.0 0.0 t ", " nil nil)
(AfmQueryTextSetAssigned "rm")
(AfmQueryTextAddField "rm.area")
(AfmQueryText 1 "A-043_TexteNuméroLocal_A" 20.0 t 0.0 0.0 t ", " nil nil)
(AfmQueryTextSetAssigned "rm")
(AfmQueryTextAddField "rm.ucl_flfnsh_id")
(AfmQueryText 1 "A-043_TexteNuméroLocal_A" 20.0 t 0.0 0.0 t ", " nil nil)
(princ)
;
; ETAPE 3 : TRANSFORMATION EN ASB
; ---------------------------------------------------------- 							
; 3.1. SUPPRESSION DES XDATA
AFM_XD_REM
TOUT

;
; 3.2. CONVERTISSEUR (le calque RM$ qui n'a plus de XDATA devient "A-031_Surface")
(acet-laytrans "//oasis.uclouvain.be/dfs/groups/a/ac-ucl-plans/_Admin/SCR/MAD/_Convertisseur.dws" 4)
;
; 3.3 SUPPRESSION DES CALQUES ARCHIBUS RESTANTS
; On ajoute d'abord le calque HL-TMP (pas toujours présent)
-CALQUE N EQ
N EQ$
N EQ$TXT
N GROS
N GROS$
N GROS$TXT
N HL-TMP
N RM
N RM$
N RM$TXT
N RMTC
N RMTC$
N RMTC$TXT

;
; On supprime les calques Archibus
-SUPCALQUE N EQ

O
-SUPCALQUE N EQ$

O
-SUPCALQUE N EQ$TXT

O
-SUPCALQUE N GROS

O
-SUPCALQUE N GROS$

O
-SUPCALQUE N GROS$TXT

O
-SUPCALQUE N HL-TMP

O
-SUPCALQUE N RM

O
-SUPCALQUE N RM$

O
-SUPCALQUE N RM$TXT

O
-SUPCALQUE N SU

O
-SUPCALQUE N SU$

O
-SUPCALQUE N SU$TXT

O
-SUPCALQUE N RMTC

O
-SUPCALQUE N RMTC$

O
-SUPCALQUE N RMTC$TXT

O
;
; 3.4. SUPPRESSION DE PRESENTATION
-PRESENTATION EF PAT
;
; 3.5 SUPPRESSION D'ETATS DE CALQUES INUTILES + RENOMMER AUTRES ETATS DE CALQUES
-CALQUE A
S AFM_Objet_AsBuilt
S AFM_Objet_FMIS
S AFM_PRES_PAT
S AFM_WebCentral
N AFM_Objet
ASB_Objet
N AFM_PRES_BHT
ASB_PRES_BHT
N AFM_PRES_ESA
ASB_PRES_ESA
N AFM_PRES_MNP
ASB_PRES_MNP
N AFM_PRES_TAB
ASB_PRES_TAB
N AFM_PRES_TDE
ASB_PRES_TDE
N AFM_PRES_TEC
ASB_PRES_TEC
N AFM_PRES_XCV
ASB_PRES_XCV
N AFM_PRES_XEL
ASB_PRES_XEL
N AFM_PRES_XPS
ASB_PRES_XPS
N AFM_PRES_XRI
ASB_PRES_XRI


;
; ETAPE 4 : ENREGISTREMENT DE L'AFM EN ASB
; ----------------------------------------------------------
; 4.1. Espace objet, Etat de calque ASB_Objet et zoom étendu.
OBJET
-CALQUE A R ASB_Objet


ZOOM ET
;
; 4.2. Changement de l'attribut "TYPE" du cartouche en AFM
-ATTEDIT N N
Z-CartoucheFichier
TYPE
AFM
AFM
ASB
; 4.3. Sauvegarder sous un autre nom
SAUVENOM LT2018 \\oasis.uclouvain.be\dfs\groups\a\ac-ucl-plans\As-built\1348\SC10\2D\SC10_PL_E200_ASB.dwg
O
AFM_TOGGLESIGNIN
-PUBLIER \\oasis.uclouvain.be\dfs\groups\a\ac-ucl-plans\_Admin\DSD\SC10_PL_E200_TCP.dsd