Patrick_35

Si je ne me trompe pas, c'est le plancher bas du dernier niveau pour un bâtiment autre que l'habitation qui doit être à 28m par rapport au niveau du sol le plus haut utilisable. Donc, si je reprends le calcul 28/7 = 4, on gagne déjà 50cm. De plus, on peut considérer le plancher bas de la circulation du dernier niveau à 28m et un décaissé de 40cm par exemple pour les planchers techniques, ce qui "enfonce" le bâtiment de 40 cm dans le sol. ps : Je ne suis pas archi et je vois de loin le code de la construction. @+

Salut Je n'ai rien contre les archis mais on a nous aussi nos contraintes. Quand j'entends un archi me dire qu'il ne veut pas d'éclairage de sécurité (il faut le mettre dans le coin, là-bas). Idem pour les déclencheurs manuels incendie, le truc rouge horrible sur son panneau bois qui suit une trame imaginaire. La sirène qu'il faut planquer dans les faux-plafond (bonjour la maintenance et la portée du son), ou encore le détecteur incendie qu'il faut encastrer (une hérésie) Ben, nous aussi on a autre à faire qu'essayer de défigurer son projet, de mettre l'organisme de contrôle dans la boucle afin de faire accepter nos contraintes réglementaires. De plus, s'il y avait un peu plus de place dans les faux-plafonds. Donnez-nous de la place. On passe notre temps à se battre avec la clim pour faire passer nos réseaux. Maintenant, tout rentre avec un chausse-pied. Le gars de la clim à intérêt de bien calculer ses réseaux lors des synthèses car après (et c'est ce qui se passe généralement, car la synthèse démarre trop top pour la clim et il part avec des estimes) on bataille sur le chantier pour tout faire rentrer. Et le pire, c’est qu’en général, un abaissement de 10cm du faux-plafond règle bien des problèmes. Mais pas touche au projet. Oh que non. Et que dire des faux-plafond indémontable avec des trappes de visites quasi-inexistantes. Je plains les gars qui prennent la suite, car tirer les câbles quand le faux-plafond n’est pas posé est aisé, mais ensuite… Enfin, on a tous nos contraintes, mais de grâce, écoutez les lots techniques qui ne sont pas là pour em….er un archi mais pour avancer dans le bon sens. @+

Salut J'ai continué de chercher un peu, notamment pour dimensionner le tableau ; Pour modifier les bords gauche et droite (vlax-put oo-tbl 'HoriOrient 0) (vlax-put oo-tbl 'RightMargin 2000) (vlax-put oo-tbl 'LeftMargin 2000) ;Pour modifier la largeur de la 1er et 2em colonne (setq oo-sep (vlax-get oo-tbl 'TableColumnSeparators)) (vlax-put (nth 0 oo-sep) 'Position 2000) (vlax-put (nth 1 oo-sep) 'Position 4000) (vlax-put oo-tbl 'TableColumnSeparators oo-sep) @+

Ce que j'ai pu trouver ; Alignement (vlax-put oo-obj 'paraAdjust 0) ; Gauche (vlax-put oo-obj 'paraAdjust 1) ; Droite (vlax-put oo-obj 'paraAdjust 2) ; Paragraphe (vlax-put oo-obj 'paraAdjust 3) ; Millieu (vlax-put oo-obj 'CharPosture 0) ; Ecriture normal (vlax-put oo-obj 'CharPosture 1) ; Ecriture italique (vlax-put oo-obj 'CharUnderline 0) ; Ne pas sousligner (vlax-put oo-obj 'CharUnderline 1) ; Souligner (vlax-put oo-obj 'CharWeight 0) ; Ne plus être en gras (vlax-put oo-obj 'CharWeight 150) ; Gras (de 111 à 200) (vlax-put oo-obj 'CharBackcolor 16000) ; Couleur fond du texte @+

Voilà pour le tableau. J'ai pas les yeux en face des trous ce matin car je m'acharnais sur une erreur. Le tout est de trouver Pour le tableau ; Création du tableau (setq oo-tbl (vlax-invoke oo-doc 'createinstance "com.sun.star.text.TextTable")) (vlax-invoke-method oo-tbl 'initialize 4 4) ; 4 Lignes et 4 Colonnes (vlax-invoke-method oo-txt 'insertTextContent oo-obj oo-tbl :vlax-false) ; Pour écrire TEST A1 dans la 1er cellule (setq oo-cel (vlax-invoke oo-tbl 'getCellByPosition 0 0)) ; Ligne 1, Colonne 1 ou A1 (setq oo-cel-txt (vlax-invoke oo-cel 'getText)) (setq oo-cel-obj (vlax-invoke oo-cel-txt 'createTextCursor)) (vlax-invoke oo-cel-txt 'insertString oo-cel-obj "TEST A1" :vlax-false) Je vais déjeuner et je regarde pour les alignements. Un Lien à regarder. @+

Salut Pour ce qui est du type, de la taille ou de la couleur du texte, cela a été relativement facile de mettre la main dessus. Changer la police de caractères en Arial (vlax-put oo-obj 'CharFontName "Arial") Changer la couleur du texte en rouge (vlax-put oo-obj 'CharColor 16724787) Récupérer la couleur du texte sélectionné (vlax-get oo-obj 'CharColor) Changer la taille du texte en 14 (vlax-put oo-obj 'CharHeight 14) Par contre, pour un tableau, cela semble être plus compliqué. Je continue de chercher. @+

Salut Par exemple (setq js (ssget "x" '((-4 . "<AND") (8 . "~AA*") (8 . "~BB*") (-4 . "AND>")))) @+

Salut A partir du lien que j'avais donné. (setq oo-app (vlax-create-object "com.sun.star.ServiceManager")) (setq oo-des (vlax-invoke oo-app 'createinstance "com.sun.star.frame.Desktop")) (setq oo-doc (vlax-invoke-method oo-des 'loadComponentFromURL "private:factory/swriter" "_blank" 0 (vlax-make-safearray vlax-vbVariant '(0 . 2)))) Objet Texte du document oOo ; Traduction de : Set objText= objDocument.getText (setq oo-txt (vlax-invoke oo-doc 'getText)) Objet Curseur Texte du document oOo ; Traduction de : Set objCursor= objText.createTextCursor (setq oo-obj (vlax-invoke oo-txt 'createTextCursor)) Ecrire la première ligne ; Traduction de : objText.insertString objCursor, "The first line in the newly created text document." & vbLf, false (vlax-invoke-method oo-txt 'insertString oo-obj (strcat "The first line in the newly created text document." (chr 10)) :vlax-false) Ecrire la seconde ligne ; Traduction de : objText.insertString objCursor, "Now we're in the second line", false (vlax-invoke-method oo-txt 'insertString oo-obj "Now we're in the second line" :vlax-false) @+

Salut C'est tout à fait cela. Les ID changent. @+

Salut +1 avec Steven Juste une précision. SYN avec la boite de dialogue -SYN sans la boite de dialogue @+

Salut je suis en déplacement cette semaine. Il me sera donc difficile de t'aider. Tu peux déjà voir cette page qui reste à traduire en lisp. @+

Salut Je pense aussi qu'il serait mieux de lancer un nouveau sujet, mais trouver des fonctions pour Word risque d'être beaucoup plus difficile qu'avec Excel ou son petit frère avec OpenOffice. Je pourrais t'indiquer comment faire et la logique, mais il faut aussi un bon bagage en programmation. @+

Salut La routine de (gile) s'utilise comme ceci (SetAttValue (car (entsel)) "TAG" "Valeur") (car (entsel)) --> Choix d'un bloc "TAG" --> Nom de l'étiquette "Valeur" --> Valeur à écrire @+

Salut @Goldorak44 Si tu utilises vlisp, au vu de ta fonction, tu pourrais utiliser ObjectDbx. @+

Ce n'est pas normal. Comme il n'y a que des fonctions, le chargement du lisp ne peut pas provoquer ce type d'erreur. Au lancement d'une fonction, c'est possible, mais pas au chargement. Zip tronqué au téléchargement ? Je le remet à dispo @+ Api_xls.lsp

Et avec l'exemple donné #9 ? @+

Salut Je pense que tu peux t'inspirer de ce sujet @+

Salut Par exemple (setq Mon_Appli (lancer_ooo)) ; Se connecter à OpenOffice (setq Mon_Classeur (ouvrir_fichier Mon_Appli "C:\\Test\\Test.xlsm")) ; Ouvrir le Fichier (setq Ma_feuille (car (liste_feuilles Mon_Classeur))) ; Choix de la feuille ou (setq Ma_Feuille "Feuil1") si on connait le nom (lire_cellule Mon_Classeur Ma_Feuille "A1") ; Lire la cellule A1 ou (ecrire_cellule Mon_Classeur Ma_Feuille "A1" "Test") ; Ecrire dans la cellule A1 (sauver_fichier Mon_Classeur) ; Sauvegarder le fichier au besoin (fermer_fichier Mon_Classeur) ; Fermer OpenOffice (fermer_appli (list Mon_Appli Mon_Classeur)) ; Nettoyer la mémoire ps : Testé avec LibreOffice @+

Regarde le lisp En tête, tu as toutes les fonctions et ensuite, chaque fonction est décrite avec les arguments et les retours. Un exemple qui lance Excel et s'il ne le trouve pas, OpenOffice. (or (setq Mon_Appli (lancer_excel)) (setq Mon_Appli (lancer_ooo))) Ensuite, les fonctions sont les mêmes pour Excel ou OpenOffice. Un exemple pour ouvrir un fichier. (setq Mon_Classeur (ouvrir_fichier Mon_Appli "c:\\Données\\Test.xls")) J'avais aussi regardé pour travailler avec SQL, mais le temps m'a manqué et je suis passé à autre chose. @+

Salut J'ai fait une bibliothèque de fonctions qui fonctionnent aussi bien avec Excel, qu'avec OpenOffice (et logiquement avec LibreOffice). @+

Salut Une idée en passant. Un lisp qui désactive toutes les vues des fenêtres sauf de l'onglet courant et qui active/désactive les vues en fonction du changement d'onglet. Je ne suis pas certain que cela soit le plus pertinent. @+

Salut Oui Tu ajoutes au début du lisp (command "_.undo" "_group") ou (command "_.undo" "_begin") Et à la fin (command "_.undo" "_end") La même chose en vlisp (vla-startundomark (vla-get-activedocument (vlax-get-acad-object))) et (vla-endundomark (vla-get-activedocument (vlax-get-acad-object))) @+

Salut Pour simplifier tes conditions (mapcar '(lambda(a B)(if (vlax-property-available-p ent a) (vlax-put ent a B))) (list 'thickness 'entitytransparency 'color 'constantwidth 'lineweight 'layer) '(0 "Dubloc" 0 0 -3 "0")) @+

Salut Avec la fonction vlax-property-available-p @+

Je vais essayer d'être plus clair Dès que le AND rencontre une valeur nil dans les conditions, il s'arrête de suite. @+