SF.Designer

Ca c'est sympa déjà, ca me plais, pour des petit bat rapide. Mais si on change de fichiers DWG, on ne voit plus l'information. En gros quand on fait tourner la création des fichier PLT, cela peut prendre des heures et pendant ce temps je voie cela en dehors d'autocad (PJ), et ca défile pour chaque fichier créé. Je cherche depuis un bon moment comment remplacer cette fenêtre par une petite comme expliqué sur mon post précédent.

J'ai une "moulinette" qui me crée les fichiers PLT ou PDF. Du coup pendant le temps de création je voie défilé sur la fenêtre DOS, toute la procédure. EN PJ Exemple d'un de mes BAT et SCR ... (J'en ai des dixaines) Du coup si je pouvais avoir une simple fenêtre style "La création des fichiers est en cours" .... BatchPrint.zip

Merci beaucoup pour l'astuce. Si tu ou quelqu'un sait comment faire un afficher une fenêtre d'attente le temps que le .bat finisse sont travail, alors la ce serais le graal !

Bonjour, petit post pour relancer le sujet qui, je trouve, peux etre interressant !

Pour la création a partir d'un lisp, ce petit code bien pratique a adapter a son cas. Code récupéré sur ce lien. (defun c:makelt (/ str file fn exprt) (setq str (getstring T "\n Enter string for linetype: ") file (strcat (getvar 'dwgprefix) (vl-filename-base (getvar 'dwgname)) "_mylt.lin" ) fn (open file "w") exprt (getvar 'expert) ) (write-line (strcat "*" str ", ---" str "---") fn) (write-line (strcat "A,0.5,-0.05,[\"" str "\",STANDARD,S=0.1,R=0.0,X=-0.0,Y=-.05]," (rtos (* -0.1 (strlen str))2 3) ) fn ) (close fn) (setvar 'expert 5) (command ".-linetype" "load" "*" file "") (setvar 'expert exprt) (vl-file-delete file) (princ) )

Si les plans cadastraux peuvent compléter ta demande, ces deux sites pourront être intéressante : https://cadastre.data.gouv.fr/datasets/plan-cadastral-informatise https://cadastre.data.gouv.fr/data/dgfip-pci-vecteur/2018-06-29/

@Steven : Halleluia, ça a fonctionné, merci énormément, je n'avais plus pensé a cette fonction. @Lecrabe : J'aimerais bien passer a une autre version, mais c'est mon groupe qui choisi pour nous suivant les évolutions de leurs progiciel !

Je suis avec Autocad 2014 version pleine et Windows 10 !!! Ça rend fou de ne pas trouver d'ou ça viens !!!

Bonjour Didier, J’obtiens le même résultat. Oui c'est bien la fenêtre ou il y a la sélection des couleurs pour les calques par exemple.

Oui j'ai deux écrans. J'ai essayé de passer sur un seul écran avec l'un puis l'autre. Rien n'y a fait !!!

Bonjour a tous, Je me trouve dans une impasse depuis plusieurs jours, malgré des recherches assidus. La fenêtre de sélection de couleur n’apparaît plus et me bloque Autocad jusqu’à ce que je fasse Echap et que je puisse reprendre la main. Elle n’apparaît même pas sur les vignettes de la barre des tâches. J'ai tenté de trouver si cela venait d'une variable qui aurait été modifié, ce qui ne me paraissait pas logique car je n'ai fait aucune manipulation divergente a mes habitudes de travail. J'ai tenté aussi la réparation d'Autocad sans résultat. C'est pour cela que je me tourne vers vous aujourd'hui avant d'en arriver a la désinstallation complète et réinstallation. L'un d'entre vous aurait il déjà eu ce cas la, ou auriez vous une piste a explorer ? Merci d'avance et bon week-end a tous !!!

Petite précision : cela ne me dérange pas si je dois passer par un autre langage de programmation, quitte a devoir m'auto-former, afin d’exécuter cette seul fonction de détection automatique du chemin d’exécution de mon lisp.

Merci de te pencher sur mon cas déjà... J'ai essayé de regarder les possibilités avec setenv, mais cela ne me permet pas de détecter automatiquement le dossier d’exécution du lisp ou cuix avec mnl, ou alors je suis vraiment passé a coté d'un truc. Cela m'oblige a le déclarer en "dur". Je crois que je vais passer par un cuix principal avec un mnl, qui appelera mes autres cuix avec mnl dans lequel je vais créer en dur tout les chemins de mes dossiers et sous dossiers ou se trouvent mes programmes. Je n'arrive pas a trouver de solution automatique comme "dwgprefix" en lisp ou "%~dp0\" en batch !!!

Bonjour maître Gilles (oue c'est de la lèche comme a l’école hehehe) Le but de cette demande étant surtout de pouvoir programmer chez moi mes programmes lisp sur ma clé usb ou sur mon pc, puis de pouvoir installer dans un quelconque dossier les programmes lisp et que ce dossier soit reconnu automatiquement. Le seul avantage du serveur est que cela me permet d'installer rapidement sur pas mal de PC le Fichiers de personnalisation partiels avec un simple lisp a glisser dans autocad. PS: Oui je me suis un peu étalé sur les différentes installations...

Bonjour a tous, Je me tourne vers vous après plusieurs jours de recherches et de tests, car je bloque sur le sujet cité en objet. J'aimerais pouvoir développer sur mon ordinateur personnel des fonctions (clé USB) et ensuite les mettre en place sur les ordinateurs de mon travail, sachant que les ordinateur de mon travail sont en partie connectés sur un serveur (ordinateur fixe) et d'autre ordinateur non connectés sur ce serveur (ordinateur portable). Donc les chemins d'installation de mes fonctions seront différents dans les trois cas (ordinateur personnel USB, ordinateur fixe serveur, ordinateur portable). J'aimerais a l'instar des fonctions "dwgprefix" en lisp ou "%~dp0\" en batch, que mes lisp détectent automatiquement le dossier ou ils se trouvent pour ensuite stocker ce chemin dans un variable (dossierlispcourant) afin d’éviter de programmer en dur les chemins d’accès. Exemple : au lieu d'avoir dans mon lisp "W:\\Etudes\\Batch\\BatchPrint\\PLTNOIR.bat", avoir (strcat "dossierlispcourant" "PLTNOIR.bat") J'avais pensé passer par l’écriture dans la base de registre avec un fichier batch, par exemple : "REG ADD "HKEY_CURRENT_USER\Environment" /v BatchPrint /d "%~dp0\" /f" et ensuite récupérer cet valeur dans ma variable (dossierlispcourant) avec par exemple (vl-registry-read "HKEY_CURRENT_USER\\Environment" "batchprint") qui me récupère bien le chemin D:\\@SF\\Autocad\\Bat\\BatchPrint\\ (qui est mon dossier courant d'ou se lance le Batch sur mon USB). Par quel moyen puis je passer pour simplifier cela ? Merci d'avance a vous tous Exemple de lisp que je souhaite automatiser: BASE: (defun c:TextSCHME () (setq des (vla-open (vla-get-documents (vlax-get-acad-object)) "W:\\Etudes\\LSP\\Blocs\\TexteSCHME.dwg")) (princ) ) (princ) RESULTAT FINAL QUE JE SOUHAITE : (defun c:TextSCHME () (setq des (vla-open (vla-get-documents (vlax-get-acad-object)) (strcat "dossierlispcourant" "TexteSCHME.dwg"))) (princ) ) (princ)

Ce sont des licences constructeur (Appelées OEM : Original Equipment Manufacturer). Donc pour résumer, ces sites achètent , au même titre que des constructeurs, des masses énormes de licences. De plus une fois installé sur un pc, ces licences sont liées au numéro d'identification de la carte mère, a l'instar d'un pc portable ou fixe fourni directement avec windows intégré (HP, DELL, Etc...), donc le jour ou vous changez de carte mère, il faut racheter une nouvelle licences. Voila pourquoi ces tarifs si avantageux !

Regarde sur le site SCDKey, il y a régulierement en license OEM (donc lié a tes numéro de carte mére) : Win10 Pro = 9€90 Office pro plus = 25€

Bonjour a tous, A la vue de l'aide qu'apporte ce forum, je suis prêt a participer financièrement aussi au projet !!! Bonne journée

Penser aussi a vérifier si dans les options du traceur se trouve l'option de "Suppression des zone blanche", cela devrait aussi régler le problème !!!

Up

Bonjour, bienvenu Polaris !

Ah oui ca me dit "commande inconnue QSAVE .....

Bonjour a tous, Quelqu'un aurait une explication du pourquoi ma première fonction, "SaveExtended", marche très bien alors que la seconde, "Save2013dwg", ne marche pas ? Je vous met le lisp en entier. ; Save.LSP ; ------------------------------------------------------------------------------------------------- ; Détermine si les invites et les entrées sont reprises lors de la fonction de commande AutoLISP (setvar "CMDECHO" 0) ; 0 = Désactive l'affichage à l'écran ; Chargement de Visual lisp (vl-load-com) ; ------------------------------------------------------------------------------------------------- ; CONFIGURATION DE BASE ; ------------------------------------------------------------------------------------------------- ; Retour configuration de base (defun RootSet () (setvar "CLAYER" "0") ; Definir calque courant (setvar "CECOLOR" "BYLAYER"); Definir couleur courante (setvar "CELTYPE" "BYLAYER") ; Definir type de ligne courant (setvar "CELWEIGHT" -1) ; Definir epaisseur courante (vl-cmdf "-COTSTYLE" "R" "STANDARD") ; Definir style de cote courant (setvar "CTABLESTYLE" "STANDARD") ; Definir style de tableau courant (setvar "CMLEADERSTYLE" "STANDARD") ; Definir ligne de repere multiple courant (setvar "TEXTSTYLE" "ISO") ; Definir style de texte courant (vl-cmdf "SCU" "_W") ; Definir scu courant ) ; ------------------------------------------------------------------------------------------------- ; ZOOM ; ------------------------------------------------------------------------------------------------- ; Zoom Etendu (defun ZoomExtended () (vl-cmdf "_ZOOM" "_EXTENTS") ) ; ------------------------------------------------------------------------------------------------- ; ETAT DE CALQUES ; ------------------------------------------------------------------------------------------------- ; Calques : Sauvegarde / Unlock (defun SaveStateLayers () (vl-cmdf "_LAYER" "_STATE" "_SAVE" "SavTemp" "" "" "") ; Sauvegarder l'etat des calques (vl-cmdf "_LAYER" "_THAW" "*" "_UNLOCK" "*" "_ON" "*" "") ; Degeler, Deverouiller, Activer les calques ) ; Calques : Restaurer etat (defun RestoreStateLayers () (vl-cmdf "_LAYER" "_STATE" "_RESTORE" "SavTemp" "" "") ; Restaurer l'etat des calques (vl-cmdf "_LAYER" "_STATE" "_DELETE" "SavTemp" "" "") ; Supprimer sauvegarde d'etat des calques ) ; ------------------------------------------------------------------------------------------------- ; PURGE ; ------------------------------------------------------------------------------------------------- ; Purge de toutes les entites (defun PurgeAllObjets () (vl-cmdf "_PURGE" "_ALL" "" "_NO" "") ) ; ------------------------------------------------------------------------------------------------- ; GESTION FENETRE DE TEXTE ; ------------------------------------------------------------------------------------------------- ; Fermer Fenetre Texte (defun CloseWindowText () (textscr) ; Basculer sur fenêtre de texte (vlax-invoke-method (vlax-get-or-create-object "WScript.Shell") "SendKeys" "%{F4}") ; Fermer fenêtre de texte ) ; ------------------------------------------------------------------------------------------------- ; SAUVEGARDER ; ------------------------------------------------------------------------------------------------- ; Sauvegarder et fermer (defun SaveAndClose () (vl-cmdf "_QSAVE" "") ; Sauvegarde (vl-cmdf "_CLOSE" "") ; Fermer ) ; Sauvegarder (defun SaveNoClose () (vl-cmdf "_QSAVE" "") ; Sauvegarde ) ; ------------------------------------------------------------------------------------------------- ; FONCTIONS ; ------------------------------------------------------------------------------------------------- ; Zoom, purge, sauvegarde (Defun c:SaveExtended () (RootSet) (ZoomExtended) (SaveStateLayers) (PurgeAllObjets) (RestoreStateLayers) (CloseWindowText) (SaveAndClose) (princ) ) (princ) ; Format enregistrement par defaut ; 1 - AutoCAD R12 DXF ; 12 - AutoCAD 2000 DWG ; 13 - AutoCAD 2000 DXF ; 24 - AutoCAD 2004 DWG ; 25 - AutoCAD 2004 DXF ; 36 - AutoCAD 2007 DWG ; 37 - AutoCAD 2007 DXF ; 48 - AutoCAD 2010 DWG ; 49 - AutoCAD 2010 DXF ; 50 - AutoCAD 2010 DWT ; 60 - AutoCAD 2013 DWG ; 61 - AutoCAD 2013 DXF ; 62 - AutoCAD 2013 DWT ; 64 - AutoCAD 2018 DWG ; Zoom, purge, sauvegarde 2013 (defun c:Save2013dwg () (setenv "DefaultFormatForSave" "60") (SaveNoClose) (princ) ) (princ)

Dans raster la commande _IFRAME Active ou desactive le cadre !!!

Bonjour christian, Je voulais te demander si tu pouvais m'expliquer ton script? Je comprend les lignes d'appel des barres mais les redess a la suite non. Redess actualise l'affichage mais pourquoi autant ? Merci beaucoup ! (saleté de 2016 ^^)