Bred

Salut, Insetion / Objet OLE / ... créér à partir d'un fichier ....

Salut, vu la date de ton message, peut-être est-il obsolètes. j'avoues ne pas comprendre ton problème. Si tu utilises la rotation du SCU, c'est que tu n'utilises pas la rotation 3D (qui est (trés) différente depuis 2007 grâce à une cible spécifiqie) Ne serait-ce pas l'option "référence" de la rotation que tu cherches ?

Salut, tu dois enregistrer dans une version avant 2007... tu pers la perspective, etc.... [Edité le 4/7/2007 par Bred]

'lut ... on m'a dits que Windows ne savais gérer "que" 2Go... serait-ce une bétise ??? :casstet:

Salut, la remarque de Maximilien se tiens... mais elle serait valable alors pour énormément de choses dans Autocad (calque non imprimés, calque de nouvelle fenêtre ...) en effet le grpupes sont bien contraignant vu qu'ils n'ont pas l'air de se garder "en l'état" après fermeture... là, j'avoues, j'ai plutôt une logique de défence d'Autodesk, des particularités et nouveauté "Autocadienne" mais pour moi, là, c'est une boulette !...

merci de l'info. Est-ce que quelqu'un qui aurait AutoCAD Architecture pourrait faire un "entget" sur ce type d'entité pour voir l'astuce ? (c'est peut-être facilement reproduisable sur Autocad) merci

Re, C'était donc bien une question de multi-écran.... Pour info, moi je bosse à Villeuneve-Loubet. Pieroka bosse à Marseille. Si tu as maintenant plusieurs barre d'outils baladeuses, ça commence à faire beaucoup.... Je suis désolé, je ne vois pas trop ce que tu peux faire, à part d'essayer de repartir à partir d'un profil standard ....

Salut, certainement trouveras-tu la solution ici, ou encore là ! Si tu veux résoudre ton problème, prends en compte mes réponses, pas celle de Pieroka (qui me doit toujours mon coup à boire d'ailleur !)

Salut, j'avoues ne pas avoir de commande XL .... (je ne suis plus sur 2004 toute-fois...)

Salut, presque... (+tu ne peux choisir que les Mtexte maintenant) (defun c:rdc (/ I SEL TXT TXT-R) (setq sel (ssget '((0 . "MTEXT")))) (repeat (setq i (sslength sel)) (setq txt (cdr (assoc 1 (entget (ssname sel (setq i (1- i)))))) txt-r [b](strcat "rdc\\P" txt)[/b]) (entmod (subst (cons 1 txt-r) (cons 1 txt) (entget (ssname sel i)))) ) (princ (strcat "\n" (rtos (sslength sel)) " Texte(s) modifié(s).")) (princ) ) Essaye ça : (attention, la valeur selectionné doit être un niveau sans aucun préfixe, sinon la valaur = -0.40) (defun c:alt- (/ ALT ALT-CORR I SEL) (setq sel (ssget '((0 . "MTEXT")))) (repeat (setq i (sslength sel)) (setq alt (cdr (assoc 1 (entget (ssname sel (setq i (1- i)))))) alt-corr (rtos (- (atof alt) 0.40))) (entmod (subst (cons 1 alt-corr) (cons 1 alt) (entget (ssname sel i)))) ) (princ (strcat "\n" (rtos (sslength sel)) " Niveau(x) modifié(s).")) (princ) ) [Edité le 28/6/2007 par Bred]

Salut, essaye ça : (defun c:rdc (/ I SEL TXT TXT-R) (setq sel (ssget '((0 . "*TEXT")))) (repeat (setq i (sslength sel)) (setq txt (cdr (assoc 1 (entget (ssname sel (setq i (1- i)))))) txt-r (strcat "RDC," txt)) (entmod (subst (cons 1 txt-r) (cons 1 txt) (entget (ssname sel i)))) ) (princ (strcat "\n" (rtos (sslength sel)) " Texte(s) modifié(s).")) (princ) ) [Edité le 27/6/2007 par Bred]

Alors, les routines : ; [b]Lancer une liaison avec Excel[/b] - (defun lancer_excel (vis / sel) (setq xl (vlax-get-or-create-object "Excel.Application")) (setq wks (vlax-get xl 'Workbooks)) (vlax-for sel wks (setq liste_fichiers_ouvert (append liste_fichiers_ouvert (list (strcase (vlax-get sel 'fullname))))) ) (if (equal vis 0) (vla-put-visible xl :vlax-False) (vla-put-visible xl :vlax-True) ) ) ;;; [b]Ouverture Excel + Nom de feuille puis 1 = visible, 0 = invisible -> (XL-Ouv-Feuill "chemin fichier" "Nom de feuille") -[/b] (defun XL-Ouv-Feuill (Chem-fich Nom_feuil vis) [b](lancer_excel vis)[/b] (setq xl-fichier (vlax-invoke wks 'open Chem-fich)) (setq xl-classeur (vlax-get xl-fichier 'sheets)) (setq x 1) (repeat (vlax-get-property xl-classeur 'Count) (if (equal (vlax-get (vlax-get-property xl-classeur 'item x) 'name) Nom_feuil) (setq xl-feuille (vlax-get-property xl-classeur 'item x)) (setq x (+ x 1)) ) ) (vlax-invoke-method xl-feuille 'Activate) ) ;;; [b]Choix Cellule dans Excel - Ecriture Texte ->[/b] (XL-Put-Txt-Cell "Texte" "C4") - (defun XL-Put-Txt-Cell (Txt Cell) (vlax-put (vlax-get-property xl-feuille 'range Cell)'value2 Txt) ) ;;; [b]Choix de Cellule dans Excel (liste) - Lire Cellule ->[/b] (XL-Get-Val-Cell '("B1" "C4")) - ;;; -> Retourne liste résultat - (defun XL-Get-Val-Cell (lst-Cell / x) (setq x 0 lst-val nil) (repeat (length lst-Cell) (setq lst-val (append lst-val (list (vlax-get (vlax-get-property xl-feuille 'range (nth x lst-Cell)) 'value2))) x (+ x 1)) ) lst-val ) [b]; Fermer la liaison avec Excel[/b] (defun XL-Close (/ ok sel) (if (not (member (strcase (vlax-get xl-fichier 'fullname)) liste_fichiers_ouvert)) (vlax-invoke-method xl-fichier 'close :vlax-false) ) (if liste_fichiers_ouvert (vla-put-visible xl :vlax-True) ) (foreach sel (list xl wks xl-fichier xl-classeur xl-feuille) (vlax-release-object sel) ) (setq xl nil wks nil xl-fichier nil xl-classeur nil xl-feuille nil) (gc)(gc) ) ) Donc, normalement pour écrire dans une cellule : (je vais ça à la volée, donc à vérifier) (defun c:write-cell () (XL-Ouv-Feuill (findfile "C:\\mon-rep\\mon-fichier.xls") "Onglet" 0) ; ouvrir mon-fichier - choix onglet - 0 = arrière plan (1 pour ouvrir) (XL-Put-Txt-Cell "Texte" "C4") ;écrire "texte dans C4 (XL-Close) ; fermer Excel (princ) ) [Edité le 26/6/2007 par Bred]

Presque on dirait ... Et pour traduire Patrick_35 (je pense) : Je ne comprends pas ta demande... Tu n'aurais pas un exemple ? (image ...)

Salut, en lisp tu as cette manière.

pfffffff... j'ai un peu regerdé le sandwchih dans la main, et comme l'expliques (gile), ça devient trés tordus dès qu'l y a justification (car on rentre dans beaucoups de paramètres différents...) même les express ne s'occupe pas des justifications.... Mais je ne perds pas espoir... il faut peut-être revoir la base de la création du cadre....

Salut, 4- ? longeur de ligne ? par sélection d'un point ? ...

Salut, lance ça (vl-load-com)

J'avoue ne m'être pas du tout soucié de la justification ... faut que je regarde ça (laisse moi le temps).

:casstet: ... je ne vois plus du tout quel est le rapport avec ta première demande... ça commence un peu à être habituel avec toi ingoenius.... Essaye d'être plus rigoureux dans tes messages, et tiens nous au courant si nos propositions te conviennent ! (c'est assez frustrant pour la personne qui réponds de ne pas avoir de retour !....) Est-ce que ma ma dernière réponse convenait en temps que résolution de ton problème ? (Edit : ma réponse au cond est fausse, je n'avais pas vu ta déclaration de variable avant - effacé -) [Edité le 26/6/2007 par Bred]

Salut, j'ai mis un décalage "fixe" que j'ai surligner dans dans le lisp. (il correspond à 20% de la hauteur.) Tu peut donc le modifier directement dans le lisp. Ou, si vraiment tu en as besoin, on peut te créer un décalage à la demande ....

Que je saches, les .bak sont créés si l'option 'créer copie de sauvegarde à chaque enregistrement" est coché (dans option/ouvrir et enregistrer/Sécurité des fichires) ou Variable "ISAVEBAK" sur 1

(setq nome "mac2000") (setq KG '(("mac2000" . 50)("PAR64" . 3.0)("MAC500" . 38.0))) (setq PBlok (cdr (assoc nome KG))) (strcat nome " p " (rtos PBlok) " kg")

Ta valeur est sous quel forme ? texte ?

Salut, Ta liste à un "niveau" en trop, et la virgule n'est pas accepeté comme séparateur : elle fait ici parti de ton nom de variable. Si tu veux mettre en séparateur, met un point : (setq KG '((mac2000 50)(PAR64 3.0)(MAC500 38.0))) ou (setq KG '((mac2000 . 50)(PAR64 . 3.0)(MAC500 . 38.0))) et quand t uutilises assoc, l'élément à ressortir ne peut être une variable, c'est forcément une valeur (donc ici il faut rajouter un "quote" (ou ') devant : (setq P_Blok (assoc [b]'[/b]mac2000 Kg))

Désolé, je suis encore aller trops vite.... Il m'arrive de mettre des arguments à nil, mais il est vrais que je les tests dans mes routines (ce que je n'ai pas fait dans l'exemple) ce que j'aurai du marquer : (defun additionne-ça (arg1 arg2 arg3) (if arg3 (+ arg1 arg2 arg3) (+ arg1 arg2) ) )