Aviglémy

Je me joins à vous très tardivement. Il nous a tellement donné que je ne peux pas rester muet sans lui rendre un dernier hommage. Toutes mes condoléances à ses proches.

Bonjour, merci pour ce retour. arff, appli tourne toujours en boucle, je ne comprends pas pourquoi. Bref je vais m'intéresser à la solution de Fraid. Si je comprends bien : tu fait une requête à Circé, il crée le txt, le Lisp test la présence du txt, et enfin supprime le txt ? J'ai bien mis -E pour quitter à la fin de la requête Circé : -init Circe.ini -mode 0 -type 2 -sys1 24 -sys2 2 -typcoor1 3 140 -typcoor2 3 101 -H 0.0 -E "

Bonjour, le message concerne un code donné par Partik_35. Le post d'origine LIEN j'utilise ce code pour un calcul avec Circé des coordonnées de Lambert 1 -> Lambert 93 et inversement. Ce code a bien fonctionné pendant quelques années et depuis Windows 10 et/ou Autocad 2015, la boucle "(foreach item (list WMI meth1 meth2) (vlax-release-object item)" se met à tourner sans arrêt. Voici le Code : (defun appli(qui / apps item lst meth1 meth2 WMI) (setq WMI (vlax-create-object "WbemScripting.SWbemLocator") meth1 (vlax-invoke WMI 'ConnectServer nil nil nil nil nil nil nil nil) meth2 (vlax-invoke meth1 'ExecQuery "Select * from Win32_Process") ) (vlax-for item meth2 (setq lst (cons (vlax-get item 'CommandLine) lst)) ) (foreach item (list WMI meth1 meth2) (vlax-release-object item) ) (vl-remove-if-not '(lambda(x) (and x (vl-string-search (strcase qui) (strcase x)))) lst) ) Patrik__35, peux tu me dire si c'est moi qui déconne ou cette boucle ne confectionne plus avec Windows 10 et/ou Autocad 2015 ? Merci.

Bonjour, Depuis le temps que cette demande est faite.... Nouveau LIEN :angry: Un jour peut être ?..... :blink:

Bonjour, Pour utiliser sharepoint et Autocad, Autodesk propose Vault. Mais ce logiciel n'enregistre pas les métadonnées dans sharepoint, il crée une nouvelle base de donnée à coté de sharepoint. Donc Vault pas possible pour nous. En cherchant, j'ai essayé CadToWin, qui enregistre bien les métadonnées dans sharepoint, mais le navigateur pour aller chercher les fichiers est complètement archaïque. Puis CADnection, les vidéos sur YouTube sont prometteuses , mais le logiciel ne doit plus exister le site est supprimé. Un autre : Brava, j'essaye de le tester en ce moment, et il ne gère pas les métadonnées. Ensuite il existe Cadac organice et Vitro-Cad, pas encore testé, et surtout, pas moyen de trouver les versions d'essai... J'aimerais savoir si vous utilisez Sharepoint avec Autocad ? Dans ce cas quel logiciel utilisez vous pour entrer les métadonnées est gérer le versioning ? A bientôt.

Hello, Merci Patrick ! j'aime beaucoup : (setq fso (vlax-create-object "Scripting.FileSystemObject")) (vlax-get (vlax-get-property (vlax-get fso 'drives) 'item "F:") 'ShareName) Je le garde et l'ajoute à ma routine. Gégé, tu pars dans des contrées où je n'arrive pas à te suivre, mais très intéresant ton code, en fait j'essai de décoder ... :)

Re, merci vincentp010, voici une autre version avec des modifs qui me semble importantes. ;;; Routine pour récupérer le nom UNC d'un lecteur mappé. ;;; Aviglémy ; mars 2015 ;;; ;;; entrer (netuse VARIABLE) ;;; VARIABLE doit être un string ;;; ;;; Retourne chem1-unc ;;; ;;; Exemple : ;;; (setq lettre "f") ; lettre mappé dans windows ;;; (netuse lettre) ;;; chem1-unc : "\\\\serveur\\nom_repertoire_partagé" (defun netuse (lettre-mappe / TempReturn) (setq chem_temp (getenv "temp")) (command "_.shell" (strcat "net use "(strcase lettre-mappe)": >%temp%\\netuse-unc.txt")) (while (appli "cmd.exe")) ;; mise en attente du retour de cmd (setq TempReturn (open (strcat chem_temp "\\netuse-unc.txt") "r") ligne1 (str2lst (read-line TempReturn) " ") ligne2 (str2lst (read-line TempReturn) " ") chem1-unc (last ligne2) ) (close TempReturn) ) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;; Routine de (Gile) ;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defun str2lst (str sep / pos) (if (setq pos (vl-string-search sep str)) (cons (substr str 1 pos) (str2lst (substr str (+ (strlen sep) pos 1)) sep) ) (list str) ) ) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;; Routine de Patrick_35 pour vérifier que le shell est en fonction ;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defun appli (qui / apps item lst meth1 meth2 WMI) (vl-load-com) (setq WMI (vlax-create-object "WbemScripting.SWbemLocator") meth1 (vlax-invoke WMI 'ConnectServer nil nil nil nil nil nil nil nil) meth2 (vlax-invoke meth1 'ExecQuery "Select * from Win32_Process") ) (vlax-for item meth2 (setq lst (cons (vlax-get item 'CommandLine) lst)) ) (foreach item (list WMI meth1 meth2) (vlax-release-object item) ) (vl-remove-if-not '(lambda (x) (and x (vl-string-search (strcase qui) (strcase x) ) ) ) lst ) )

Bonjour, je viens de trouver une solution pour récupérer un chemin UNC d'un lecteur mappé. Il faut changer la lettre de lettre-mappe. J'utilise net use, pour avoir le chemin et récupère la ligne dans la variable chem1-unc. J'aimerais avoir votre avis, et comment clarifier le code. (defun netuse ( / TempReturn) (setq lettre-mappe "c") (command "_.shell" (strcat "net use "(strcase lettre-mappe)": >%temp%\\rapport1.txt")) (setq chem_temp (vl-filename-directory (VL-FILENAME-MKTEMP "vide.txt"))) (setq TempReturn (open (strcat chem_temp "\\rapport1.txt") "r") ligne1 (str2lst (read-line TempReturn) " ") ligne2 (str2lst (read-line TempReturn) " ") chem1-unc (last ligne2) ) ) (defun str2lst (str sep / pos) (if (setq pos (vl-string-search sep str)) (cons (substr str 1 pos) (str2lst (substr str (+ (strlen sep) pos 1)) sep) ) (list str) ) )

Héhé ! Bah oui .. c'est Lundi .. :) Merci Eric

Bonjour, depuis une erreur fatale, la liste déroulante des calques ne se met plus à jour quand je sélectionne un objet. Je me doute que c'est une variable système, mais je ne trouve pas. Si quelqu'un a une idée ? :) Merci d'avance.

Bonjour, j'ai retrouvé ce petit lisp qui doit être de Patrik_35. (defun c:insererblc () ((lambda ( / prefix pt_ins last_pt obj ll ur lg) (setvar "cmdecho" 0) (setvar "attreq" 0) (vl-load-com) (setq prefix (strcat (vl-filename-directory (getfiled "Sélectionner un fichier DWG TEMOIN" "" "dwg" 16)) "\\")) (setq pt_ins (getpoint "\nPoint d'insertion pour le 1er Bloc? <0.0,0.0,0.0>: ")) (if (null pt_ins) (setq pt_ins '(0.0 0.0 0.0))) (setq last_pt nil) (foreach dwg (vl-directory-files prefix "*.dwg" 1) (command "_.-insert" (strcat "\"" prefix dwg "\"") "_none" pt_ins "1.0" "1.0" "0.0") (setq Obj (vlax-ename->vla-object (entlast))) (vla-GetBoundingBox Obj 'll 'ur) (setq ll (safearray-value ll)) (setq ur (safearray-value ur)) (if last_pt (progn (command "_.move" (entlast) "" "_none" (list (car ll) (cadr pt_ins) (caddr pt_ins)) "_none" pt_ins) (setq lg (distance (list (car ll) (cadr pt_ins) (caddr pt_ins)) pt_ins)) ) (setq lg 0.0) ) (setq pt_ins (list (+ lg (car ur)) (cadr pt_ins) (caddr pt_ins))) (setq last_pt pt_ins) ) (command "_.zoom" "_all") (command "_.zoom" "_extents") (setvar "attreq" 1) (setvar "cmdecho" 1) (prin1) ))) Simple et efficace !

Bouuuuuuuuuuuuuu !! ;)

Bonjour, je relance la question car c'est indipensable pour suivre beaucoup de discussions complexes. Si l'opération est possible, pouvez vous nous dire si c'est dans vos priorité ? Si impossible, nous prévenir svp. CADMIN ?

Bonjour, J'ai installé la version beta test d'autocad Keystone (2014) et le problème de vignettes est résolu ! Donc ce n'est pas un problème autocad mais l'installation d'autocad dans windows.(les entrées de la base de registre.) @+

Salut à vous ! J'ai toujours le même problème, une solution est d'ouvrir le volet de visualisation, mais bon j'ai pas les vignettes.