Bred

là, j'avoue qu'en lisp je ne vois pas comment faire.... désolé.... ... je suis sur une piste... mais super compliqué pour moi.... :casstet:

... c'est ma faute : je pensais que tu maîtrisais les macro boutons comme un dieu.... ;) Désolé de t'avoir cité si tu en es incapable !!! :P

J'ai un peu toucher au VB.net et c'est vrais que c'est puissant, est trés agréable à utiliser, surtout avec un bon logiciel (j'ai Microsoft Visual Basic 2005 Express Edition).

là, j'avoue qu'en lisp je ne vois pas comment faire.... désolé....

Salut, une possibilité : (vl-string-subst "" "}" (vl-string-subst "" "{\\fArial Occidental|b0|i0|c0|p34;H.S.P. " "{\\fArial Occidental|b0|i0|c0|p34;H.S.P. texte}"))

Est ce que Tous les fichiers sont dans un seul répertoire, ou sont-il n'importe-où dans le disque dur ?

Bon, il faut que je me concentre sur quelque chose moi.... Désolé DenisH, je tapais les lignes sans les tester, en faisant des copier/coller/modifier sans aprofondir la chose, et je ne suis pas encore assez bon pour ça.... Donc je t'ai fait perdre ton temps pour rien.... Et encore plus ecoeurer parceque j'avoue me sentir assez bien avec les entmake.... J'espère que je pourrais t'être d'une plus grande aide une autre fois....

merci maitre ;) c'est clair et concis... cela ressemble trés bien à une explication qu'un formateur en lisp pourrait donner !!! :P ... ça avance l'idée de donner des cours ??? :cool:

(essaye de répondre en évitant le language sms... beaucoup de personne dans ce forum (dont moi) se refuse de répondre à des messages de ce genre, même si les tiens sont presque normaux...) Cela doit être possible, mais je n'ai pas assez de connaissance pour ça.

mmmm... je me demande si tu ne devrais pas faire en fait un (entmake ( [b] append[/b] '( (0 . "STYLE") (5 . "40") (100 . "AcDbSymbolTableRecord") (100 . "AcDbTextStyleTableRecord") [b] (list (cons 2 NomTxt))[/b] .... (pas testé)

Ouaaaaaaaaaah!!!! mea culpa : en lt, tu ne peux pas utiliser (normalement) des lisps !!!!.... Donc je suis désolé. Pour ce qui est du Scrip, si tu as de la chance que Tramber passe par là, tu auras ta réponse !!!...

Le lisp est un language de programmation. Pour charger un lisp, tu as une explication ici !

Salut, à première vue : changer (2 . NomTxt) par (cons 2 NomTxt).

Je trouvais que c'était un bon exo alors je me le suis fait... cela enregistre le fichier "Nom_Fichier" sous le même répertoire, mais sous la forme "Nom_Fichier - 21 01 07". Il s'enregistrars à partir de là toutes la journée sous ce nom (en écrasant le précedent) Le lendemain, le fichier "Nom_Fichier - 21 01 07". s'enregistrera toute la journée sous "Nom_Fichier - 22 01 07". (defun c:sauv_date () (vla-saveAs (vla-get-ActiveDocument (vlax-get-acad-object)) (strcat (vl-string-subst "" ".dwg" (vl-string-subst "" (strcat " - " (menucmd "M=$(edtime,$(getvar,date),D MO YY)")) (vlax-get-property(vla-get-activedocument (vlax-get-acad-object))'FullName) ) ) " - " (menucmd "M=$(edtime,$(getvar,date),D MO YY)")".dwg") ) )

J'avoue ne pas être un connaisseur en macro. J'ai tenter d'insérer des valeur récupérer en lisp, mais ça ne fonctionne pas.... ^P(vl-load-com)(setq jour(menucmd "M=$(edtime,$(getvar,DATE),DD)")mois(menucmd "M=$(edtime,$(getvar,DATE),MO)")annee(menucmd "M=$(edtime,$(getvar,DATE),YY)")NomF(vl-string-subst "" ".dwg"(vlax-get-property(vla-get-activedocument(vlax-get-acad-object))'FullName))Nomenr(strcat NomF"-"jour" "mois" "année".dwg"))(princ);_saveas;2000;!Nomenr;o Si tu veux je peux par contre te le faire entièrement en lisp.....

Salut, dans l'aide : command "edtime" - à rajouter (en l'adaptant) à ta macro.

bon... ben encore une fois merci !!!!! Le temps de le faire.... réponse à 8h30..... ... tu est un lève tôt !!!!

Pfffffffffffff!... Je bloque lamentablement.... TwistAngle me fait tourner la vue selon le point de vue.... Je pensais qu'il suffisait que je modifie le "Target" et que je lance TwistAngle, mais non... ... je suis planté .... Je vous joint ci-dessous mon code de travail (donc super brouillon, désolé).... si vous avez une idée .... (defun c:tt () (if (= (getvar "TILEMODE") 1) (princ "\n ** Cette commande n'est valable que dans l'espace papier. **") (progn (if (= (getvar "CVPORT") 1) (progn (while (not (and (setq fenetre (car (entsel "\n Sélectionner une fenêtre :"))) (or (equal (cdr (assoc 0 (entget fenetre))) "VIEWPORT") (equal (cdr (assoc 0 (entget (cdr (assoc 330 (entget fenetre)))))) "VIEWPORT") ) ) ) ) (setq ent-fen (entget fenetre) id_fenetre (cdr (assoc 69 ent-fen))) (if (= id_fenetre nil) (progn (setq ent-fen (entget (cdr (assoc 330 ent-fen))) id_fenetre (cdr (assoc 69 ent-fen))) ) ) (command "_.MSPACE") (setvar "CVPORT" id_fenetre) ) ) ;(cdr (assoc 17 (entget fenetre))) (setq centre-fenetre (getvar "VIEWCTR")) (setq Target (getvar "target")) (setq cen_vp (trans centre-fenetre 0 2)) (setq cen_trg (trans Target 0 2)) (command "_.PSPACE") (setq centre-fenetre (trans cen_vp 2 3)) (setq Target-papier (trans cen_trg 2 3)) (setq vla-fenetre (vlax-ename->vla-object fenetre)) ;(setq Propriété_vla-fenetre (vlax-dump-object vla-fenetre T)) (setq Haut (vlax-get-property vla-fenetre 'Height) Larg (vlax-get-property vla-fenetre 'Width) custom-scale (vlax-get-property vla-fenetre 'CustomScale) Twist-Angle (vlax-get-property vla-fenetre 'TwistAngle) sauv-center (vlax-get-property vla-fenetre 'Center) ;Target (vlax-get-property vla-fenetre 'Target) ;center (vlax-get-property vla-fenetre 'center) ) ;(vlax-put-property vla-fenetre 'Target (vlax-3D-point Target)) (vlax-put-property vla-fenetre 'TwistAngle (+ Twist-Angle (/ pi -2))) (vlax-put-property vla-fenetre 'Center (vlax-3D-point Target-papier)) (vlax-put-property vla-fenetre 'Height Larg) (vlax-put-property vla-fenetre 'Width Haut) (vlax-put-property vla-fenetre 'CustomScale custom-scale) ;(vlax-put-property vla-fenetre 'Target (vlax-3D-point '(0 0 0))) ;(vlax-put-property vla-fenetre 'Center sauv-center) ) ) )

Salut et bienvenue ! En lisp : Geler sauf E1* (defun c:gel-E1 () (command "_-layer" "G" "*" "") (command "_-layer" "L" "E1*" "") (princ) )

moi aussi (et comme on est obligé de répondre pour recevoir un mail auto, jen'ai rien de plus à dire...)

... c'est pas 21 grammes ??? (de mémoires...) :casstet: :P

Aaaaah ! dacoord ! En fait, personnelement je me suis réaliser une liaison (sans réacteur) d'attribut, mais je ne créé pas de liste mais une paire pointé simple.... (et pour info, pas avec des VLA-OBJECT mais avec comme référence de l'entité le code DXF 5 .... ) Donc ce que tu obtiens en faisant une liste, moi je l'obtenais en récupérant mon groupe de liaison avec un (vlax-ldata-list "mon_appli"), ce qui me créé une erreur sur 2007.... J'ai pas mal de chose à retoucher moi..... :casstet:

Et bien , en sachant que sur la 2007 vlax-ldata à un bug, j'ai du mal à comprendre comment tu fais pour créer des liens sans les écrires quelque-part..... Rappel Bug : sur 2006 : donne : (vlax-ldata-get "Mon_appli" "cléf-1") = "toto" (vlax-ldata-get "Mon_appli" "cléf-2") = 52 (vlax-ldata-list "mon_appli") = (("cléf-2" . 52) ("cléf-1" . "toto")) sur 2007 : donne : (vlax-ldata-get "Mon_appli" "cléf-1") = "toto" OK (vlax-ldata-get "Mon_appli" "cléf-2") = 52 OK (vlax-ldata-list "mon_appli") = (("c" . 52) ("c" . "toto")) BUG

Bonuscad, merci de ta réponse. Je l'avais trouvé !.... mais je voulais le simplifier.... et me mettre à l'épreuve.... En effet.... merci ! ... une erreur de copier/coller (le bout de code de selection de fenêtre) J'édite mon message précédent. Je ne fait pas de rotation de fenêtre.... j'inverse la hauteur avec la longueur.... Je ne vois pas... ça c'est ce qui me fait retourner la vue.... mais peut-être que je ne comprend pas....

Salut, je me suis écris un petit code le plus simple que je sache faire (pour l'instant) pour faire une rotation de fenêtre de 90°. Mon problème étant que la rotation de la VUE se fait par rapport au 0,0,0 du SCG (j'ai l'impression), donc cela fausse la vue.... Et je ne sais comment faire.... (defun c:rot-vue-fenet () (while (not (and (setq fenetre (car (entsel "\n Sélectionner une fenêtre :"))) (or (equal (cdr (assoc 0 (entget fenetre))) "VIEWPORT") (equal (cdr (assoc 0 (entget (cdr (assoc 330 (entget fenetre)))))) "VIEWPORT") ) ) ) ) (setq vla-fenetre (vlax-ename->vla-object fenetre)) ;(setq Propriété_vla-fenetre (vlax-dump-object vla-fenetre T)) (setq Haut (vlax-get-property vla-fenetre 'Height) Larg (vlax-get-property vla-fenetre 'Width) custom-scale (vlax-get-property vla-fenetre 'CustomScale) Twist-Angle (vlax-get-property vla-fenetre 'TwistAngle)) (vlax-put-property vla-fenetre 'Height Larg) (vlax-put-property vla-fenetre 'Width Haut) (vlax-put-property vla-fenetre 'TwistAngle (+ Twist-Angle (/ pi -2))) (vlax-put-property vla-fenetre 'CustomScale custom-scale) ) merci d'avance !.... [Edité le 24/1/2007 par Bred]