souchier

Bonjour avez-vous la même chose avec (command "_images" "?????" merci d'avance

[Edité le 24/8/2009 par souchier]

bonjour, Aprés quelques essais ce code fonctionne il n'est pas optimisé, mais bon (setq refname "c:\\TRANS\\list.lst") (if (/= nil (setq dwg_Lst (findfile refname))) (progn (setq list_dwg_01 (open Dwg_Lst "r")) (while (/= nil (setq File_Name (read-line list_dwg_01))) (princ (strcat "\nLecture ligne a ligne du Fichier LIST.LST = "File_name)) (vla-activate (vla-open (vla-get-documents (vlax-get-acad-object)) File_name :VLAX-FALSE)) (setq newlen (- (strlen File_name) 4)) ;; comptage du mot - 4 caractére (setq File_name_2 (substr File_name 1 newlen)) ;;retirer l'extention".dwg" (setq File_name_3 (strcat File_name_2 "_2000.DWG" )) ;; ajout de l'extention"_2000.dwg" (princ (strcat "\nSauvegarde du Fichier "File_name_2"_2000.DWG")) (setq File_name_3 (strcat File_name_2 "_2000.DWG" )) (vla-saveas dwg File_name_3 ac2000_dwg) ;;;___________________________________fermeture du fichier traité____________________________________________________ (vlax-for a (vla-get-documents (vlax-get-acad-object)) (not (vl-catch-all-error-p (vl-catch-all-apply (function (lambda () (vla-close a)))))) ) ;;;___________________________________________________________________________________________________________________ );end while );end progn );end if (command "QUITTER" "O" "") merci à vous tous pour vos informations [Edité le 24/8/2009 par souchier]

bonjour ok pour le (vla-close dwg :vlax-false) mais le (vla-saveas dwg File_name_3 ac2000_dwg) fait que la variable "dwg" n'existe plus je vais quand même testé @+

bonjours a tous j'essais d'employer ce code: (setq refname "c:\\TRANS\\list.lst") (if (/= nil (setq dwg_Lst (findfile refname))) (progn (setq list_dwg_01 (open Dwg_Lst "r")) (while (/= nil (setq File_Name (read-line list_dwg_01))) (princ (strcat "\nLecture ligne a ligne du Fichier LIST.LST = "File_name)) (setq dwg (vla-open (vla-get-documents (vlax-get-acad-object)) File_name)) (setq newlen (- (strlen File_name) 4));retirer l'extention".dwg" (setq File_name_2 (substr File_name 1 newlen)) (princ (strcat "\nSauvegarde du Fichier "File_name_2"_2000.DWG")) (setq File_name_3 (strcat File_name_2 "_2004.DWG" )) ;;; extention saveas --> ;;;ac2000_dwg -->AutoCAD 2000 DWG (*.dwg) ;;;ac2000_dxf -->AutoCAD 2000 DXF (*.dxf) ;;;ac2004_dwg -->AutoCAD 2004 DWG (*.dwg) ;;;ac2004_dxf -->AutoCAD 2004 DXF (*.dxf) (vla-saveas dwg File_name_3 ac2000_dwg) ;;;(vla-close (vla-item (vla-get-documents (vlax-get-acad-object)) File_name_3 )) ;;;(vla-close (vla-item File_name_3):vlax-false) ;;;(command "_.CLOSE") );end while );end progn );end if (command "QUITTER" "O" "") pour information le fichier list.lst est un fichier text fait sous cmd : dir *.dwg /s/b > c:\TRANS\list.lst mis dans un bat ce qui ne permet de gerer toutes les directories d'un coup. en fait le programme tourne bien, a part le fait que le "close" ne s'effectue jamais donc il fonctionne maladroitement sur de petite qantitée et a un moment memoire pleine et quit.(pas trés propre) a t'on la possibilite de fermer le fichier dans la boucle while?

merci pour tous vos commentaires. j'ai quelques test à faire, afin de faire évoluer mon apprentissage. le code de pat est suprprennant et il a du passer quelques temps à le développer. c'est super de travailer avec vous. @+ ps: pour sur, la fonction # est parfaite.

ok n'en jetté plus,mais que penser de ce code: (setq nom (findfile "c:/test/11.dwg") ;Nom du dessin cou (vla-get-activedocument (vlax-get-acad-object)) ; Dessin courant dwg (vla-open (vla-get-documents (vlax-get-acad-object)) nom) ;Ouverture du dessin ) (vl-bb-set "toto" cou) ; Définition de la variable toto dans le blackboard (setq dwg_close (vla-activate dwg)) ; Je passe sur le dessin ouvert ;;;Et le dessin qui s'ouvre doit obligatoirement charger un lisp qui contient (and (vl-bb-ref "toto") (vla-close (vl-bb-ref "toto") :vlax-false)) ; fermeture de l'ancien dessin en récupérant la valeur de la variable toto ; dans le blackboard si variable existe (vl-bb-set "toto" nil) ; effacer la variable toto du blackboard par contre le ne sais pas faire le : ;;;Et le dessin qui s'ouvre doit obligatoirement charger un lisp qui contient (and (vl-bb-ref "toto") (vla-close (vl-bb-ref "toto") :vlax-false)) a tester on peut trouver, peut être. merci pour vos commentaires , il me sont précieux. [Édité par (gile) : ajout des bbcodes]

en fait le but est d'ouvrir un document dwg et ensuite de modifier un attribut "date" d'un cartouche par un texte le premier code fonctionne sans "'val-active" le second fonctionne seul mais les deux à ce suivre ne fonctionne pas? le but a la fin est de pouvoir modifier la date d'une centaine de dwg ou tous autre attribut. avec une boucle d'ouverture fermeture de fichier, mais pour ce faire il faut que je passe cette étape Merci d'avance

bonjours a tous j'essais d'employer ce code: ;__________ouverture d'un fichier_______________________________ (vl-load-com) (setq nom (findfile "c:/test/11.dwg")) ;Nom du dessin (if (= 0 (getvar "SDI")) (setq a (vla-open (vla-get-documents (vlax-get-acad-object)) nom :vlax-true)) ) (vla-activate a) ;__________debut changement attribut dans un cartouche_______ (setq ent (entnext)) (while ent (if (and (member '(0 . "ATTRIB") (entget ent)) (member '(2 . "DATE") (entget ent)) ) (progn (entmod (subst (cons 1 (strcat "nouveau nomF")) (assoc 1 (entget ent)) (entget ent) )) (entupd ent) ) ) (setq ent (entnext ent)) ) (princ) ;__________fin changement attribut__________________________ et a chaque fois je bloque sur (vla-activate a) Savez-vous pourquoi, à cet ligne il trourne en rond? [Édité par (gile) : ajout des bbcodes "Code"]