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.

Bonjour je relance le sujet pour savoir si porticri ou quelqu'un a trouvé une solution ? J'ai le même problème, après la déinstallation d'Autocad 2013 (version de test) L'option d'affichage des gestionnaires d'aperçu est bien activée dans windows. Les variables : RASTERPREVIEW = 1 UPDATETHUMBNAIL = 15 Le test avec UPDATETHUMBNAIL = 31 rien non plus... Je pense que c'est lié à la suppression d'Autocad 2013, si quelqu'un a une idée ?

Grace à cette discussion : http://cadxp.com/index.php?/topic/11648-envoyer-courriel-sans-logiciel-balaise/page__st__20 Il faut ajouter : (if (vl-catch-all-error-p (vl-catch-all-apply 'vlax-invoke (list mail_object 'Send))) (princ "\nImpossible to send the message. No connection Internet") )

Sans vouloir abuser, une autre question sur ce Lisp : il est indiqué : ;(create-courriel recipients_list subject body attachments_list 1) ; Do send this mail immediately (create-courriel recipients_list subject body attachments_list 0) ; Do not yet send this mail Mais l'un ou l'autre ne font pas l'envoie du mail immédiatement. Comment faire l’envoie sans l’affichage du mail ?

Parfait, encore une fois (gile) est excellant ! c'est avec : (vlax-put-property mail_object 'BodyFormat 1) Merci (gile)

Bonjour, j'ai trouvé ce lisp sur le forum Autodesk : http://forums.autodesk.com/t5/Visual-LISP-AutoLISP-and-General/courriel-with-attachment-using-lisp/td-p/3206476 Par défaut l'courriel se fait en texte HTML, est-il possible de forcer le texte "body" du mail en BRUT et pas en HTML ? Cela vien certainement des paramètres outlook, mais je veux que le texte soit uniquement texte brut. (defun C:CreateMail (/ ) (setq fname (getvar "dwgname")) ;gets dwg filename and sets as variable ; Who's going to get the mail (setq recipients_list (list someone@somewhere.com.au)) ; What is the subject (setq subject (strcat "Copy of drawing - " fname)) ; What is the body (setq body (strcat "Hi, Please find the above file attached as requested.")) ; What are the attachments (setq attachments_list (list "C:\\AAA\\test-GT-copy.dwg"));;i have also tried using a variable to specify the filename and path. ;(create-courriel recipients_list subject body attachments_list 1) ; Do send this mail immediately (create-courriel recipients_list subject body attachments_list 0) ; Do not yet send this mail (princ) ) (defun create-courriel (recipients_list subject body attachments_list email_send / acadapp acaddoc outlookapp mail_object recipients_collection attachments_collection temp ret item cadz3d_function ) ;; Load the extended AutoLISP functions and ActiveX support (vl-load-com) ;; Get the application and current document objects (setq acadapp (vlax-get-acad-object) acaddoc (vlax-get-property acadapp 'activedocument) ) ;; Get the existing outlook application object (if (or (= (setq outlookapp (vl-catch-all-apply 'vlax-get-object (list "Outlook.Application") ) ) nil ) (/= (type outlookapp) 'vla-object) ) (progn (alert (strcat "Microsoft Outlook must already be running\n" "to create and send the courriel.\n" "Please start Microsoft Outlook and then close\n" "this dialog box to create the courriel.") ) (setq outlookapp (vl-catch-all-apply 'vlax-get-object (list "Outlook.Application") ) ) ) ) (if (= (type outlookapp) 'vla-object) (if ;; Create new courriel object (setq mail_object (vlax-invoke-method outlookapp 'createitem 0)) (if ;; Get the recipients collection (setq recipients_collection (vlax-get-property mail_object 'recipients ) ) (progn ;; Add the recipients properties to the courriel (foreach item recipients_list (if (= (type item) 'str) (vlax-invoke-method recipients_collection 'add item) ) ) ;; Add the subject properties to the courriel (if (= (type subject) 'str) (vlax-put-property mail_object 'subject subject) ) ;; Add the body properties to the courriel (if (= (type body) 'str) (vlax-put-property mail_object 'body body) ) ;; Add the attachements properties to the courriel (if (and (vl-consp attachments_list) (setq attachments_collection (vlax-get-property mail_object 'attachments ) ) ) (foreach item attachments_list (if (and (setq temp (findfile item)) (vl-file-systime temp)) (vlax-invoke-method attachments_collection 'add temp) ) ) ) ;; If the email_send equals 1 and the recipients_list, subject, and body were passed to the function then send the courriel, otherwise display the courriel for the user to finish (if (and (= email_send 1) (vl-consp recipients_list) subject body (/= subject "") (/= body "") ) (vlax-invoke-method mail_object 'send) (vlax-invoke-method mail_object 'display) ) (setq ret t) ) (princ "\nCould not get the recipients collection from the new mail item" ) ) (princ "\nCould not create a new mail item through Outlook") ) (princ "\nCould not create a new instance of Outlook") ) ;; Release the objects (if (and (= (type attachments_collection) 'vla-object) (= (vlax-object-released-p attachments_collection) nil) ) (vlax-release-object attachments_collection) ) (if (and (= (type recipients_collection) 'vla-object) (= (vlax-object-released-p recipients_collection) nil) ) (vlax-release-object recipients_collection) ) (if (and (= (type mail_object) 'vla-object) (= (vlax-object-released-p mail_object) nil) ) (vlax-release-object mail_object) ) (if (and (= (type outlookapp) 'vla-object) (= (vlax-object-released-p outlookapp) nil) ) (vlax-release-object outlookapp) ) (if (and (= (type acaddoc) 'vla-object) (= (vlax-object-released-p acaddoc) nil) ) (vlax-release-object acaddoc) ) (if (and (= (type acadapp) 'vla-object) (= (vlax-object-released-p acadapp) nil) ) (vlax-release-object acadapp) ) (princ) ret )

Bonjour, si cela peux vous aider il existe la commande REDIR du menu express il faut entrer l'ancien chemin puis le nouveau...

Bonjour (gile), je me demande s'il est possible de faire une sélection spéciale par objets connectés comme dans sketchup ? je pense que cela peut être utile mais je n'ai aucune idée des critères pour faire cette sélection... à part la correspondance des sommets d'entités.. merci

Merci pour votre réponse, amicalement.

Merci, ce lien est à garder précieusement, et j'irais plus souvent sur le site de Patriiik :) Amicalement.

Tiens j'ai fait une recherche avec "logiciel cao " Incroyable ! il retourne : "Un ou plusieurs mots-clés de votre recherche font moins de 4 caractères ou ne sont pas autorisés, comme 'html', 'img', etc. Veuillez augmenter la taille de ces mots-clés ou choisissez en des différents." J'ai l'impression de me répéter ..... Entonnant non ? Il y a quelqu'un derrière ce site ? Allo ?? youuuu .... (écho écho ...) Je repose la question car on ne sais jamais : C'est possible de faire une recherche avec 3 caractères ou pas ? Réponses possibles : OUI / NON / PEUT ETRE Pouvez vous changer le moteur de recherche tu site ? Réponses possibles : OUI / NON / PEUT ETRE