Trouver toutes les variables d'environnement

[bonuscad]

Bonjour,

 

Ayant passé sur MAp 2014 en 64bits, j'ai fais la procédure de recherche sur cette version fraichement installée.

 

En incoporant accore.dll et acwindows.dll, j'arrive à 923 variables et 589 pour l'environnement.

 

Je joins les fichiers txt pour Rebcao, s'il veut aggrandir son "panel" de variables... ou pour tout ceux qui voudrais comparer. Je PRECISE encore une fois, ceci pour AutocadMAP 2014 64bits.

sysvars2014.txt

envvars2014.txt

[lili2006]

Bonjour à toutes et tous,

 

Salut bonuscad,

 

j'ai fais la procédure de recherche

 

Je souhaiterai en faire autant sur Civil 3D-2015, comment dois je m'y prendre ?

 

D'avance, merci

[bonuscad]

comment dois je m'y prendre ?

 

Heuh!... lili2006, tout est dans le fil de discussion!

 

Moi pour faire simple; pour ne pas être embété avec les chemins de dossier et les droit d'accés au dossier (je ne suis pas administrateur de mon PC)), j'ai mis une copie de A C A D.EXE et des dll requises tout dans un dossier provisoire avec l'executable strings.exe donné par (gile), j'ai lancé la command CMD (dans "tout les programmes" "accessoire" "Exécuter"), me suis mis dans le dossier provisoire et lancer string.exe avec les paramètres adéquates, puis executé les lisp de (gile)dans Autocad pour nettoyer les fichiers obtenus.

 

NB: utiliser ">" dans strings.exe pour la première utilisation, puis ">>" dans les utilisations suivantes (pour rajouter les données dans le fichier)

[Patrick_35]

Salut Lili

 

Un truc que je m'étais fait.

 (defun c:variables(/ cad che evr fic lin lst_evr lst_srv ori svr)
   (setq  cad (list (findfile "acad.exe")
	     (findfile "accore.dll")
	     (findfile "acwindows.dll")
	     (findfile "strings.exe")
       )
    che (strcat (vl-filename-directory (nth 1 cad)) "\\Variables.")
    ori (strcat che (substr (vla-get-version (vlax-get-acad-object)) 1 5))
   )
   (or (findfile ori)
     (progn
(setq fic (open (strcat che "bat") "w"))
(write-line (strcat "\"" (nth 3 cad) "\" -u -n 3 \"" (nth 0 cad) "\" > \"" ori "\"") fic)
(write-line (strcat "\"" (nth 3 cad) "\" -u -n 3 \"" (nth 1 cad) "\" >> \"" ori "\"") fic)
(write-line (strcat "\"" (nth 3 cad) "\" -u -n 3 \"" (nth 2 cad) "\" >> \"" ori "\"") fic)
(close fic)
(startapp (strcat "\"" che "bat\""))
(repeat 5000000)
(setq fic (open ori "r")
      evr (open (strcat che "evr") "w")
      svr (open (strcat che "svr") "w")
)
(while (setq lin (read-line fic))
  (cond
    ( (and (getenv lin)
	   (not (vl-position lin lst_evr))
      )
      (setq lst_evr (cons lin lst_evr))
    )
    ( (and (getvar lin)
	   (not (vl-position lin lst_svr))
      )
      (setq lst_svr (cons lin lst_svr))
    )
  )
)
(foreach lin lst_evr
  (write-line lin evr)
)
(foreach lin lst_svr
  (write-line lin svr)
)
(mapcar 'close (list fic evr svr))
     )
   )
   (list (strcat che "evr") (strcat che "svr"))
 )

 

ps : le lisp doit retrouver les fichiers "acad.exe", "accore.dll", "acwindows.dll" et "strings.exe"

 

@+

[lili2006]

Re,

 

Salut Patrick_35,

 

Cool, je regarde ça au + vite,..

[lili2006]

Rere,

 

J'viens d'tester rapidement avant de partir =>

 

Commande:

Commande: (LOAD "C:/Users/Lili2006/Desktop/variables.lsp") C:VARIABLES

Commande: VARIABLES

; erreur: type d'argument incorrect: stringp nil

Commande:

[Patrick_35]

Rere,

 

J'viens d'tester rapidement avant de partir =>

 

ps : le lisp doit retrouver les fichiers "acad.exe", "accore.dll", "acwindows.dll" et "strings.exe"

 

@+

[lili2006]

Re,

 

J'ai bien vu cette remarque Patrick, mais j'ai bien peur de ne pas te suivre,...:unsure:

[Patrick_35]

Bonjour Lili

 

C'est comme pour les boites de dialogues. Il faut qu'autocad retrouve ses petits.

(findfile "acad.exe") --> non nil

(findfile "accore.dll") --> non nil

(findfile "acwindows.dll") --> non nil

(findfile "strings.exe") --> non nil

 

@+

[lili2006]

Bonjour à toutes et tous,

 

Très certainement Patrick, mais je ne vois pas comment m'y prendre,...

 

Quelques explications complémentaires seraient les bienvenues,...

 

Merci encore,

[Patrick_35]

Si tu fais en ligne de commande (findfile "acad.exe"), tu devrais avoir un résultat (je ne doute pas pour AutoCAD.exe)

Je pense que c'est le strings.exe qui est introuvable et qu'il faut le mettre ou déclarer dans les chemins de recherche Autocad

 

@+

[lili2006]

Re,

 

Oki !

 

Je regarderai dans la semaine,..

 

Merci,;)