pros2i

Merci pour l'information Pat

OK je vais regarder. Merci Pat

Encore Merci, Maintenant cela fonctionne, plus qu'à comprendre les différents paramètres. Existe-t-il un listing ? Merci Pat

Merci Bonuscad Comme dans la routine proposée, (vl-load-com) doit être exécuté au moins 1 fois dans la session pour avoir accès aux fonction (vlax-????) OK maintenant cela fonctionne, Je regarde maintenant ton 1er script Pat

Bonjour Bonuscad, J'ai essayé ta commande mais j'obtiens cela : ; erreur: no function definition: VLAX-ENAME->VLA-OBJECT Que dois-je installer ou cocher ? Merci Pat

Yes, j'ai trouvé une solution D'abord je ferme "DWG TrueView" par dde Canal = DDEInitiate(DDEInit, "System") DDEExecute Canal, "_quit " DDETerminate Canal DDETerminateAll Puis j'ouvre "DWG Trueview" par shell Shell """C:\Program Files\DWG TrueView 2009\DWGVIEWR.exe"" " & NomFichier, vbMaximizedFocus Pas catho mais cela fonctionne A+ Pat

Bonjour, A partir d'access je souhaite ouvrir un fichier autocad avec trueview. J'ai essayé avec "_open" mais ensuite je suis bloqué car il ouvre une fenêtre afin de sélectionner un fichier. Sous Autocad 2009 (et l'ouverture de fichier fonctionne) en changeant le SDI=1 et FILEDIA=0 mais pas avec trueview. Quelqu'un aurait-il une solution ? Merci Pat [Edité le 18/4/2009 par pros2i]

J'ai trouvé, Pour que cela fonctionne il faut la variable SDI = 1 et FILEDIA = 0 Et tant mieux c'est ce qu'il me faut SDI = 1 correspond à un seul fichier autocad ouvert en même temps. Pour créer un fichier : (command "_new" "o" "acad.dwt") Pour ouvrir (command "_open" "o" "c:/gesplan/fichiersp/proto.dwg") Merci A bientôt pour d'autres codes Pat

Bonjour, Avec Autocad 2009 (+ Mechanical) : J'essaye sans succès de créer ou d'ouvrir un fichier existant mais cela ne fonctionne pas Je mets FILDEDIA = 0 Pour ouvrir un document existant : (command "_open" "c:/gesplan/fichiersp/proto.dwg") Commande inconnue "C:/GESPLAN/FICHIERSP/PROTO.DWG" Pour créer un document : (command "_new" "acad.dwt") Commande inconnue "ACAD.DWT" Directement sous Autocad _open c:/gesplan/fichiersp/proto.dwg Cela fonctionne bien. Ou est mon erreur ? Merci Pat [Edité le 13/3/2009 par pros2i]

Merci je vais regarder. Pat

Bonjour, En autolisp, et Autocad 2009 j'essaye de corrigé un programme lisp qui fonctionne avec Autocad 2000 afin de modifier le nombre de chiffre apres la virgule pour une cotation et y compris la tolerance (setvar "CMDECHO" 0) (setq StyleCourrant (getvar "DIMSTYLE")) (setq default (getvar "DIMTDEC")) (setq Ens (ssget)) (setq Texte (strcat (strcat "Nombre de décimales pour les cotations <" (rtos default) "> : "))) (setq Valeur (getreal Texte)) (if (= Valeur nil) (setq Valeur default)) (if (> Valeur 8) (setq Valeur 8)) (setq corr (expt 10 Valeur)) (setq EnsCot (ssget "P" '((0 . "DIMENSION")))) (setq i 0) (setq cpt (sslength EnsCot)) (repeat cpt (setq Entite (entget (ssname EnsCot i))) (setq NomEnt (cdar Entite)) (setq Tol_Ent (entget (ssname EnsCot i) '("TOLERANCE"))) (setq Tol_Ent_Min (entget (ssname EnsCot i) '("TOLE_MIN"))) (setq Tol_Ent_Max (entget (ssname EnsCot i) '("TOLE_MAX"))) (setq Ech_Ent (entget (ssname EnsCot i) '("SCALE"))) (setq StylCot (cdr (assoc 3 Entite))) (if (/= StylCot "*SANSNOM") (command "COT" "_RESTORE" StylCot "Quitter") (progn (setq StylCot (cdr (assoc 1000 (cdr (car (cdr (assoc -3 DefCot))))))) (if (/= StylCot nil) (command "COT" "_RESTORE" StylCot "Quitter")) ) ) (setvar "DIMTDEC" Valeur) (setvar "DIMTOL" 1) (setq TolP (cdr (assoc 1040 (cdr (car (cdr (assoc -3 Tol_Ent_Min ))))))) (if (/= TolP nil) (setvar "DIMTP" (/ (float (fix (* TolP corr))) corr))) (setq TolM (cdr (assoc 1040 (cdr (car (cdr (assoc -3 Tol_Ent_Max ))))))) (if (/= TolM nil) (setvar "DIMTM" (/ (float (fix (* TolM corr))) corr))) (command "COT" "_UPDATE" NomEnt "" "Quitter") (setq i (1+ i)) ) (if (/= StyleCourrant "*SANSNOM") (command "COT" "_RESTORE" StyleCourrant "Quitter")) (setvar "DIMTDEC" default) (setvar "CMDECHO" 1) (princ) La valeur Tolp est nil et ca bloque. Je ne trouve pas la solution. Une piste à me donner. Merci Pat [Edité le 18/4/2009 par pros2i]