tyrese69_

Bonjour à tous, Pour conclure : Dans l'exemple : (((102 . "{ADSK_LYR_COLOR_OVERRIDE") (335 2128140952 2095807911) (420 . -1023409976) (102 . "}") (102 . "{ADSK_LYR_COLOR_OVERRIDE") (335 2128146920 2095797975) (420 . -1023409974) (102 . "}")) ((290 . 1))) (335 2128140952 2095807911) ^ ^ 7ed8da98 7ceb7da7 Ce sont les nom des entités VIEWPORT et COUCHE concernées ! et pour la couleur : ; (last (LM:TRUE->RGB -1023409976 )) ---> 200 -1023409974 = 202 (defun LM:True->RGB ( c ) (list (lsh (lsh (fix c) 8) -24) (lsh (lsh (fix c) 16) -24) (lsh (lsh (fix c) 24) -24) ) ) Daniel OLIVES

Re bonjour, Un autre lien : http://www.cadtutor.net/forum/archive/index.php/t-53353.html Daniel OLIVES

Bonjour à tous, Je progresse dans mes recherches : http://www.theswamp.org/index.php?topic=35274.0 Daniel OLIVES

Bonsoir à tous, Dans une couche d'un dessin certain paramètres sont spécifiques, si la PVIEWPORT est dans l'espace model (objet) 1°) Par exemple, les couches gelées sont gérées par des Xdatas (1003), pour ce point pas de problèmes pour lire ces données. Mais pour le point suivant: Comment recopier les données d'une fenêtre afin de les coller à une autre ? 2°) De plus comment modifie t'on tous les autres paramètres par programmation et comment bien les différencier ? Qui me semble t'il sont : - la couleur - le type de ligne - épaisseur de la ligne - style de tracé daniel OLIVES

Re bonjour, Voici ce que cela donne en mix LISP et VBA via le VLAX : Dim repCTB As String Dim vl As New VLAX Set vl = Nothing repCTB = vl.EvalLispExpression("(setq sPathCTB sPathCTB)") '********************************************************************************* ' Si PSTYLEPOLICY = 1 (CTB) alors DEFLPLSTYLE = "PARCOULEUR" ' Si PSTYLEPOLICY = 0 (STB) alors DEFLPLSTYLE = "NORMAL" ' Set objElem = ThisDrawing.Layers ' nombre de calques Cpt1 = objElem.Count ThisDrawing.SendCommand ("Lstyles") & vbCrLf Dim Val1Style As Variant Val1Style = vl.GetLispList("(setq LSTYLplot (mapcar 'car (gc:GetDictEntries (cdr (assoc ""ACAD_PLOTSTYLENAME"" (gc:GetDictEntries (namedobjdict)))))))") Dans la variable Val1Style se trouvent les valeurs des "PlotStyle" daniel OLIVES

Bonjour Gile, Je venais de lire ton post sur ce forum et aussi le sujet sur EDICT, trés bien commenté et trés explicite ! Trés bon travail ! Il faut que je m'y mettes au dot net !! Encore merci. Bonne fin de journée ! Daniel OLIVES

Bonjour à tous, Avec le LISP il est possible de lire les PLOTSTYLES d'un fichier avec STB ! ' (setq root (entget (namedobjdict))) ' (setq ed (entget (cdr (cadr (member '(3 . "ACAD_PLOTSTYLENAME") root))))) ' ' ' ((-1 . <Nom d'entité: 7ed2ec30>) (0 . "ACDBDICTIONARYWDFLT") (5 . "6") (102 . "{ACAD_REACTORS") ' (330 . <Nom d'entité: 7ed2ec38>) (102 . "}") ' (330 . <Nom d 'entité: 7ed2ec38>) (100 . "AcDbDictionary") (280 . 0) (281 . 1) ' (3 . "Gris") (350 . <Nom d'entité: 7ed29e88>) ' (3 . "Normal") (350 . <Nom d'entité: 7ed2ec28>) ' (3 . "Style_1") (350 . <Nom d'entité: 7ed36a40>) ' (3 . "Style_2") (350 . <Nom d'entité: 7ed34cd0>) ' (100 . "AcDbDictionaryWithDefault") (340 . <Nom d'entité: 7ed2ec28>)) 1 ere question comment extraire de cette liste les valeurs assoc 3 des styles ? (en lisp) 2 nde question En VBA comment lire ces même valeurs ? Daniel OLIVES

Bonjour à tous, J'essaye de visualiser un fichier DWF dans une page HTML, pas de problème avec un navigateur ! Est ce que c'est possible avec OpenDCL ? Car l'Activex ne semble pas fonctionne pour les DWF et pour l'HTML et DWF cela bug aussi ! Je suis partis de l'exemple HTML.odcl et HTML.lsp Daniel OLIVES

Re, Aprés quelques essais: (dcl_AxControl_Invoke pdf_formpdf_PDF1 "setView" "Fit") Ce n'est qu'un problème de syntaxe ! Attention aux minuscules et majuscules ! Daniel OLIVES

Bonsoir à tous, La fonction suivante fonctionne bien. (dcl_AxControl_Invoke pdf_formpdf_PDF1 "setZoom" 200.0) Mais est il possible d'accèder à : "setView" viewmode: Fit Daniel OLIVES (defun c:pdf () ; Teste si Adobe PdF Reader est installé (if (acrobat_is_installed) (progn (command "opendcl") (dcl_project_load "pdf") (dcl_form_show pdf_formpdf) (dcl_AxControl_Put pdf_formpdf_PDF1 "src" "C:\\TPS\\Acad\\Routines\\Aide\\Ensemble_pour_prog.pdf") (dcl_AxControl_Invoke pdf_formpdf_PDF1 "setZoom" 200.0) ) ) (princ) ); pdf (defun acrobat_is_installed (/ strCLSID strFile) (and (vl-registry-descendents "HKEY_CLASSES_ROOT\\AcroPDF.PDF") (setq strCLSID (vl-registry-read "HKEY_CLASSES_ROOT\\AcroPDF.PDF\\CLSID")) (setq strFile (vl-registry-read (strcat "HKEY_CLASSES_ROOT\\CLSID\\" strCLSID "\\InprocServer32"))) (findfile strFile)) ); acrobat_is_installed

Bonjour Gile, Je commence à mieux cerner l'utilisation des OpenDCL ! Merci pour ta réponse ! J'ai aussi commencer à regarder du côté des diffusions complètes Runtime et vlx + odcl Je cherche un exemple et test sur notre réseau dés que possible ! Daniel OLIVES

Bonjour à tous, J'ai découvert il y peut ce que OpenDCl était capable de faire. Mais une question primordiale avant tout développement sur le sujet ! Sans installation de : "OpenDCL.Studio.FRA.6.0.2.5.msi" est il possible de diffuser des routines lisp acompagnées de leur fichier odcl ? Si oui comment procède t'on ? Merci d'avance ! Daniel OLIVES

Bonjour, Les fichiers sités sont ils encore accessible ? DTUEPV3.lsp et son fichier odcl Daniel OLIVES

Bonjour, Voir la classe : ' VLAX.CLS v1.4 (Last updated 8/27/2001) ' Copyright 1999-2001 by Frank Oquendo Bonne journée OLIVES Daniel

Bonjour, Il existe une classe VBA faite par : ' VLAX.CLS v1.4 (Last updated 8/27/2001) ' Copyright 1999-2001 by Frank Oquendo Chercher sur internet VLAX.cls Bonne journée OLIVES Daniel

Bonjour, ARES Lyon dispense une formation Dot.net que j'ai suivis ! Bonne journée OLIVES Daniel

Bonjour, Je suis en partie projeteur Electricien et programmeur pour AutoCAD, voici mon courriel perso: d.olives@live.fr pour tout renseignements et aide pratique pour conseil sur auto formation, ce qui est mon cas ! Bonne journée ! A+ OLIVES Daniel

Bonsoir, merci pour la réponse,. Voici la syntaxe pour les mline : NbreSommets = (UBound(oMLine.Coordinates) + 1) / 3 Daniel OLIVES

Bonjour, Comment récupérer le nombre de sommet d'une mline en VBA équivalent du code dxf 72 me semble t'il. Daniel OLIVES

Bonjour à tous, La nuit porte conseil. En regardant la liste des coordonnées de la multiligne j'ai remarqué bien sur que c'était une ligne eet non pas un contour ! Il faut donc convertir en fonction du style, la ligne en contour région ou polyligne et dans ce cas la fonction de hachurage sera possible. Mon problème vient du fait que en lisp de base on peut hachurer l'entité précédente via une commande "hachure" ("_-hatch") alors que ne visual (vla) ou vba (valx) les chose sont diffréntes. IL aurait fallu que je vérifie via un dump les entités utilisés pour ne pas perdre trop de temps de programmation, mais cela a été trés formateur. Je cherche donc maintenant à réaliser ma routine de conversion d'une MLIN en contour viable. A+ Daniel OLIVES

Bonsoir à tous, Aprés diverses tentatives en lisp, je me suis tourner vers le VBA ! Cette fois j'ai bien une hachure mais elle ne correspond pas a ma MLINE Il doit falloir réorganiser les points différement ! (ps: juste pour info, le temps de développemnt et debbugage, a été divisé par 4) Daniel OLIVES Sub HatchMLine() ' * * * * * * * * * * * * * * * * * * * * * * * * * * * 10 ' Traitement de par sélection de la couche à traiter '--------------------------------------------------------- Dim ent1 As AcadEntity Dim ent2 As AcadEntity Dim entXref As AcadExternalReference Dim entBlock As AcadBlock Dim entNestedBlock As AcadBlockReference Dim objBlock As AcadBlockReference Dim ssSet As AcadSelectionSet Dim FilterType(1) As Integer Dim FilterData(1) As Variant Dim obj As AcadEntity Dim strOName As String Dim tmps As String Dim Cpt1, MaxCpt1, m As Integer ' compteurs Set objDict = ThisDrawing.Dictionaries.Add("Dict1") Set ssSet = vbdPowerSet("BlockCount") ' Code DXF 0 = objets insérés FilterType(0) = 0 FilterData(0) = "MLINE" ' Code DXF 67 = Espace papier (1) ou objet (0) FilterType(1) = 67 FilterData(1) = 0 ssSet.SelectOnScreen FilterType, FilterData m = ssSet.Count If ssSet.Count <> 0 Then Dim CoucheSel As String CoucheSel = ssSet.item(0).Layer End If ' * * * * * * * * * * * * * * * * * * * * * * * * * * * 11 ' Traitement des données des MultiLignes ' et stockage dans tableau "TblMLine" '------------------------------------- Dim ssMLines As AcadSelectionSet ' (1) pour deux valeurs Dim DxfCode(1) As Integer Dim DxfData(1) As Variant Dim oMLine As AcadMLine Dim XMLine As AcadMLine Dim NbMLine As Integer Dim TblCoordMLine As Variant Dim loBound As Long Dim upBound As Long Dim LongMLine As Double Dim CoordXMLine As Double Dim CoordYMLine As Double Dim StMLineCdc100 As Boolean Dim n As Integer Dim Cumul As Double StMLineCdc100 = MlineStyleExists("Cdc100") For Each ssMLines In ThisDrawing.SelectionSets If ssMLines.name = "ssMLines" Then ssMLines.Delete Exit For End If Next ssMLines Set ssMLines = ThisDrawing.SelectionSets.Add("ssMLines") DxfCode(0) = 0 DxfData(0) = "MLINE" '"LINE,LWPOLYLINE,POLYLINE,MLINE" DxfCode(1) = 8 DxfData(1) = CoucheSel ssMLines.Select acSelectionSetAll, , , DxfCode, DxfData NbMLine = ssMLines.Count If NbMLine = 0 Then MsgBox "Il n'y a pas de MultiLignes dans ce dessin !": GoTo SuiteFin For Each oMLine In ssMLines ' Tableau d'entité qui sera passé à la méthode AppendOuterLoop ' de l'objet hachures Dim ObjetFrontiere(0 To 0) As AcadEntity ' Polyligne qui va servir de frontière aux hachures Dim ObjetPolyligne As Object ' Objet hachures Dim ObjetHachures As AcadHatch Dim outerLoop() As Double outerLoop = oMLine.Coordinates Set ObjetPolyligne = ThisDrawing.ModelSpace.AddPolyline(outerLoop) ' On la ferme ObjetPolyligne.Closed = True ' On crée la hachure Set ObjetHachures = ThisDrawing.ModelSpace.AddHatch(acHatchPatternTypePreDefined, "ANSI31", True) ' On place la polyligne dans le tableau d'entités AutoCAD Set ObjetFrontiere(0) = ObjetPolyligne ' On défini la frontière de l'objet hachures ObjetHachures.AppendOuterLoop (ObjetFrontiere) ' On change l'échelle d'hachurage ObjetHachures.PatternScale = 0.01 ' On demande à AutoCAD de calculer les intersections des hachures ' et de la frontière ObjetHachures.Evaluate Next SuiteFin: End Sub

Bonsoir, Merci à lili2006, mais le PB est avec les mutilignes ! Voici un deuxième jet, mais les hachures n'apparaissent pas ??? ce n'est pas évident de maitriser les vlax ou les vla et de plus nje n'arrive pas a passser en paramètre le nom de ma couche dans: (vlax-safearray-fill filter_value1 '("MLINE" " EL_CFo")) ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - (defun c:selecr ( / ssets acadDocument newsset ctr item filter_code filter_value) ;load the visual lisp extensions (vl-load-com) (setq VarOsmode (getvar "OSMODE")) (setq Ccourante (getvar "CLAYER")) (setvar "OSMODE" 167) (setvar "cmdecho" 0) ; sauvegarde de la précision initiale (setq VarLuprec (getvar "LUPREC")) ; précision 0.000 000 00 (setvar "LUPREC" 8) (command "_-hatch" "p" "ANSI31" "0.04" "0" "") ; Créer des hachures Associatives? [Oui/Non] Non puis Cr Cr ; Créer des hachures séparées? [Oui/Non] Non puis Cr Cr (command "_-bhatch" "A" "H" "o" "" "") ; Origine soit: O, "utilise par Défaut l'étendue des contour" soit: D , ; "Centre" soit: C, stocker en tant qu'origine par défaut ? O/N soit: N puis Cr (command "_-hatch" "o" "d" "c" "o" "") ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ; EFFACE les selections précédement utilisées ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;retrieve a reference to the documents object (setq acadObject (vlax-get-Acad-Object)) (setq acadDocument (vla-get-activedocument acadObject)) ;retrieve a reference to the selection sets object (setq ssets (vla-get-selectionsets acadDocument)) (setq flag nil) (setq flag1 nil) (setq flag2 nil) (setq flag3 nil) (vlax-for item ssets (if (= (vla-get-name item) "newsset") (setq flag T) );if (if (= (vla-get-name item) "newsset1") (setq flag1 T) );if (if (= (vla-get-name item) "SS1") (setq flag2 T) );if (if (= (vla-get-name item) "SS2") (setq flag3 T) );if ); (if flag (vla-delete (vla-item ssets "newsset")) );if (if flag1 (vla-delete (vla-item ssets "newsset1")) );if (if flag2 (vla-delete (vla-item ssets "SS1")) );if (if flag3 (vla-delete (vla-item ssets "SS2")) );if ;add a new selection set (setq newsset (vla-add ssets "SS1")) (setq newsset1 (vla-add ssets "SS2")) ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ; DEFINIE LES variables pour les filtres ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;create a single element array for the DXF Code (setq filter_code (vlax-make-safearray vlax-vbinteger '(0 . 0))) ;create a single element array for the value (setq filter_value (vlax-make-safearray vlax-vbvariant '(0 . 0))) ;DXF Code for layers (vlax-safearray-fill filter_code '(0)) ;the filter value (vlax-safearray-fill filter_value '("MLINE")) ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ; texte de la ligne de commande (prompt "\nSélectionner une ou des multilignes ! ") (vla-selectOnScreen newsset filter_code filter_value) (setq ctr 0) (repeat (vla-get-count newsset) ;retrieve each object (setq item (vla-item newsset ctr)) ;check if the entity has a color property ;and it can be updated (setq check (vlax-property-available-p item "Color" T)) (if check ; Récupère it's color (setq ColorObj (vlax-get-property item 'Color)) );if ; Récupère Layer name (setq CoucheObj (vla-get-Layer item)) (setq ctr (1+ ctr)) ); repeat (setq CalqueHatch (strcat CoucheObj "-Hach")) ; changement de calque ou création (command "_-layer" "e" CalqueHatch "") ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;create a single element array for the DXF Code (setq filter_code1 (vlax-make-safearray vlax-vbinteger '(0 . 1))) ;create a single element array for the value (setq filter_value1 (vlax-make-safearray vlax-vbvariant '(0 . 1))) ;DXF Code for layers (vlax-safearray-fill filter_code1 '(0 8)) ;the filter value (vlax-safearray-fill filter_value1 '("MLINE" "EL_CFo")) (vla-select newsset1 acSelectionSetAll nil nil filter_code1 filter_value1) (setq ctr 0) ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - (setq scl (getvar "hpscale")) (setq ang (getvar "hpang")) (setq pname (getvar "hpname")) (setq hpassoc (if (= (getvar "hpassoc") 1) :vlax-true :vlax-false)) (setq space (if (= (getvar "cvport") 1) (vla-get-paperspace acadDocument) (vla-get-modelspace acadDocument) )) (setq acsp (vla-get-modelspace acadDocument)) (setq pnm "ANSI31") (setq ptyp 0) (setq bas :vlax-true) (setq htch (vla-addhatch acsp 0 pnm bas)) (setq olp newsset1) ;(car (entsel "\n\t***\tselect contour \t*** \n")))) (vla-highlight olp :vlax-true) ;(setq hatch (vlax-invoke space 'addhatch acHatchObject pname hpassoc)) (setq hobj (vlax-make-safearray vlax-vbobject '(0 . 0))) (vlax-for ent (vla-get-activeselectionset acadDocument) (setq oname (strcase (vla-get-objectname ent))) (if (= oname "ACDBMLINE" ) (progn ;(setq hatch (vlax-invoke space 'addhatch acHatchObject pname hpassoc)) ;(vlax-invoke hatch 'appendouterloop (list ent)) ;(vlax-put hatch 'patternangle ang) ;(vlax-put hatch 'patternscale scl) (setq hatch (vla-addhatch space 0 pnm bas)) (vla-put-patternscale hatch 250.) ;scale (vla-put-patternangle hatch (* pi 0.125)) ;angle (vla-highlight olp :vlax-false) ;(vla-evaluate hatch) (vla-update hatch) (vla-clear (vla-get-activeselectionset acadDocument)) (vla-delete (vla-get-activeselectionset acadDocument)) (mapcar (function (lambda (x) (if (not (vlax-object-released-p x)) (vlax-release-object x)))) (list olp (vla-get-activeselectionset acadDocument) hatch)) (vla-regen acadDocument acactiveviewport) ) ) ) );defun ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ; Restitue la couche courantre (command "_-layer" "e" Ccourante "") (setvar "OSMODE" VarOsmode) (setvar "cmdecho" 1) (princ "Fin routine Hachures CDC") );defun

Bonjour à tous, Voici une tentative de mise au point d'une petite routine ! Mais mes connaissances en lisp et vlisp me font défaut ! La routine ci aprés ne fonctionne pas elle est "en l'état". Ce que je souhaite faire: Par un jeu de sélection récuperer les multilignes d'une m^me couche par sélection sur un objets, en fonction du nom de la couche, ajouter à celui-ci "-Hath" et mettre un type de hachure à toutes ces multilignes, d'une couleur en accord avec celle de la couche d'origine ! Ceci me servirait pour des chemins de câbles dessinés en multilignes et comme cela simplement les hauchres associées seraient créées. Bonne journée A+ (defun c:selecr ( / ssets acadDocument newsset ctr item filter_code filter_value) ;load the visual lisp extensions (vl-load-com) (setq VarOsmode (getvar "OSMODE")) (setq Ccourante (getvar "CLAYER")) (setvar "OSMODE" 167) (setvar "cmdecho" 0) ; sauvegarde de la précision initiale (setq VarLuprec (getvar "LUPREC")) ; précision 0.000 000 00 (setvar "LUPREC" 8) (command "_-hatch" "p" "ANSI31" "0.04" "0" "") ; Créer des hachures Associatives? [Oui/Non] Non puis Cr Cr ; Créer des hachures séparées? [Oui/Non] Non puis Cr Cr (command "_-bhatch" "A" "H" "o" "" "") ; Origine soit: O, "utilise par Défaut l'étendue des contour" soit: D , ; "Centre" soit: C, stocker en tant qu'origine par défaut ? O/N soit: N puis Cr (command "_-hatch" "o" "d" "c" "o" "") ;retrieve a reference to the documents object (setq acadDocument (vla-get-activedocument (vlax-get-acad-object))) ;retrieve a reference to the selection sets object (setq ssets (vla-get-selectionsets acadDocument)) ;add a new selection set ;(vla-delete (vla-item ssets "SS1")) (setq newsset (vla-add ssets "SS1")) ;create a single element array for the DXF Code (setq filter_code (vlax-make-safearray vlax-vbinteger '(0 . 0))) ;create a single element array for the value (setq filter_value (vlax-make-safearray vlax-vbvariant '(0 . 0))) ;DXF Code for layers (vlax-safearray-fill filter_code '(0)) ;the filter value (vlax-safearray-fill filter_value '("MLINE")) ; texte de la ligne de commande (prompt "\nSélectionner une ou des multilignes ! ") ;Use Select on Screen to select objects on Layer 7 (vla-selectOnScreen newsset filter_code filter_value) ;set the counter to zero (setq ctr 0) ;count the number of objects and loop (repeat (vla-get-count newsset) ;retrieve each object (setq item (vla-item newsset ctr)) ;check if the entity has a color property ;and it can be updated (setq check (vlax-property-available-p item "Color" T)) ;if it can (if check ; Récupère it's color (setq ColorObj (vlax-get-property item 'Color)) );if ;(setq check (vlax-property-available-p item "layer" T)) ;if it can ; Récupère Layer name (setq CoucheObj (vla-get-Layer (vla-item newsset 0))) (setq CoulEnt (cdr (assoc 62 (tblsearch "layer" CoucheObj)))) (alert "toto1") (command "_-hatch" "a" "a" "n" "" "_s" (ssadd (entlast) ssets) "" "") ;increment the counter (setq ctr (1+ ctr)) );repeat (setq CalqueHatch (strcat CoucheObj "-Hach")) ; changement de calque ou création (command "_-layer" "e" CalqueHatch "") ; mise à la couleur 31 du calque (command "_-layer" "co" CoulEnt CalqueHatch "") ;(if ssets ; (command "_-hatch" "a" "a" "n" "" "_s" (ssadd (entlast) ssets) "" "") ;) ;delete the selection set (vla-delete (vla-item ssets "SS1")) ; Restitue la couche courantre (command "_-layer" "e" Ccourante "") (setvar "OSMODE" VarOsmode) (setvar "cmdecho" 1) (princ) );defun

Bonjour à tous, Je reviens sur ce sujet. Parfois, la fonction vla-open donne cette erreur : Erreur LISP: Erreur Automation Problème lors du chargement de l'application Quelle peut bien en être la raison ? (version Autocad 2009) Daniel OLIVES

Bonjour Gile, Merci pour ton aide (je suis plus a l'aise en VBA), maintenant je peux réorienter simplement les textes des attributs qui sont mal positionnés par rapport au "scu" courant ! Ce qui est pratique car plusieures personnes sont intervenues sur les fichiers et tous ne maitrises pas les SCU et sur le projet sité il y a 32 SCU différents ! Par contre une autre chose pratique, lorsque les scu sont nommés, je les importent si nécessaire via le lisp "scui" (voir autres forum ici!) et j'ai créé via un lisp auto chargé pour cette affaire qui comporte les commandes de type: (defun c:scuA () (command "_.ucs" "_r" "scuA" \r) (command "repere" "_c") (command "_zoom" "et") ) (defun c:scusA () (command "_.ucs" "_s" "scuA" \r) ;(command "_zoom" "et") ) Ce qui pernet d'appeler le scu avec le nom du batiment ou de la zone concernée ! Merci, bonne journée ! Daniel OLIVES