pelloux

Sinon comment fait-on pour indiquer que le sujet a été résolu ? PH PELLOUX

Bonsoir Effectivement ça marche. Les fichiers sont copiés dans soit dans le dossier "RGF_93" soit dans le dossier "OUT". Pour conclure : Le script contient ceci : (load "verification_emprise.lsp") dispzone et le lisp contient cela : defun c:dispzone ( / MonPlan) (vl-load-com) (setq MonPlan(vla-get-activedocument(vlax-get-acad-object))) (vla-ZoomAll (vlax-get-acad-object)) (if (ssget "_C" '(1534000 8272000) '(1578000 8224000) (list (cons 410 "Model"))) ; SI il y a des objets en espace Objet ALORS copie le DWG dans le sous-dossier RGF93_CC49 (vla-SaveAs MonPlan (strcat (getvar 'DWGPREFIX) "RGF93_CC49\\" (getvar 'DWGNAME)) acNative) ; SI PAS d objet en espace Objet ALORS copie le DWG dans le sous-dossier OUT (vla-SaveAs MonPlan (strcat (getvar 'DWGPREFIX) "OUT\\" (getvar 'DWGNAME)) acNative) ) (princ) ;(command "._close" "o") en commentaire car fait planter SuperAutoScript ) En fin de lisp, j'ai mis ;(command "._close" "o") en commentaire pour pouvoir utiliser le script/lisp avec SuperAutoScript. La seule chose que je ne m'explique pas c'est qu'en plus du dwg, un .bak est crée pour chacun des fichiers dans les 2 dossiers. En tous cas merci à tous les contributeurs à ce sujet (le bonsoir à Fabcad qui me passe des tuyaux en off). PH PELLOUX

J'ai appliqué le 2ième lisp avec l'emprise : (if (ssget '(1534000 8272000) '(1578000 8224000) (list (cons 410 "Model"))) ; test si l'on dispose d'un objet dans une zone de l'espace Objet (defun c:dispzone ( / MonPlan) (vl-load-com) (setq MonPlan(vla-get-activedocument(vlax-get-acad-object))) (vla-ZoomAll (vlax-get-acad-object)) (if (ssget '(1534000 8272000) '(1578000 8224000) (list (cons 410 "Model"))) ; si il y a des objets en espace Objet ALORS copie le DWG dans le sous-dossier DEDANS (vla-SaveAs MonPlan (strcat (getvar 'DWGPREFIX) "OK\\" (getvar 'DWGNAME)) acNative) ; si PAS d'objet en espace Objet ALORS copie le DWG dans le sous-dossier DEHORS (vla-SaveAs MonPlan (strcat (getvar 'DWGPREFIX) "KO\\" (getvar 'DWGNAME)) acNative) ) (princ) (command "._close" "o") ) Une fois le lisp lancé, je n'ai plus de message d'erreur en ligne de commande par contre mon fichier reste ouvert et n'est pas enregistré dans le dossier DEDANS. :( Est-ce normal ? PH PELLOUX

Bonjour J'ai testé hier le script d'ECKMANN et le Lisp de ALALA. Dans les 2 cas je n'ai pas de résultat. J'ai donc essayé de voir si cela ne provenait pas d'une utilisation incorrecte de ma part. N'ayant pas résolu le problème, je vous donne les résultats en ligne de commande. Pour info : - J'ai crée 2 sous dossiers DEDANS et DEHORS vides. - j'ai crée un fichier "polyligne_in.dwg" dans le repertoire parent, contenant une polyligne se trouvant entièrement dans la zone d'intérêt. Pour le script d’Eckmann, posté 17 janvier 2013 - 10:37 : Commande: '_script Commande: (setq ade_cmddia_before_qry (getvar "cmddia")) 1 Commande: (setvar "cmddia" 0) 0 Commande: (mapcar 'ade_dwgdeactivate (ade_dslist)) nil Commande: (setq ade_tmpprefval (ade_prefgetval "ActivateDwgsOnAttach")) T Commande: (ade_prefsetval "ActivateDwgsOnAttach" T) T Commande: (setq dwg_id(ade_dsattach "C:\\DONNEES\\Dessin2.dwg")) nil Commande: (ade_prefsetval "ActivateDwgsOnAttach" ade_tmpprefval) T Commande: (ade_qryclear) T Commande: (ade_qrysettype "draw") T Commande: (ade_qrydefine '("" "" "" "Location" ("window" "crossing" (1534000.000000 8224000.000000 0.000000)(1578000.000000 8272000.000000 0.000000))"")) 3.66198e+008 Commande: (ade_qrysetaltprop nil) T Commande: (ade_qryexecute) La requête a extrait 0 objet(s).0.0 Commande: (setvar "cmddia" ade_cmddia_before_qry) 1 Commande: Enregistrement automatique vers C:\Documents and Settings\pelloux\local settings\temp\rectangle_in_1_1_1759.sv$ ... Commande: Quand je vais dans Définir requête, j'ai bien dans "Requête courante" : "Emplacement INTERSECTION FERMEE" Quand je vais dans "Modifier" : "Fenêtre", "Intersection" j'ai les 4 coordonnées d'emplacement (1534000,8224000;...;1534000,8272000). Pour info : - Exécuter tel que défini -> La requête a extrait 0 objet. - Aucune trace du fichier qry. je n'ai pas testé ton LISP qui suit le script. Pour le lisp d’Alala,posté 17 janvier 2013 - 14:57 : Dispzone >Sélectionner un point pour créer une Zone : Click d’un point à l’écran >Sélectionner un point pour créer une Zone : Click d’un autre point à l’écran Avec ou Sans les objets sur le polygone? (Avec Sans) >Avec >Régénération du modèle. >Commande: ; erreur: nombre d'arguments trop important >Commande: Question : A la question "Avec ou Sans les objets sur le polygone? (Avec Sans)" En fait la question ne se pose puisqu'il s'agit des objets à l'intérieur (ou au moins à cheval sur la zone d'intérêt). D'où viendrait l'erreur ? :) Par avance merci pour vos réponses. Ce qu'à indiqué Fabcad est ce que je recherche : @+ PH PELLOUX

Bonjour J'ai testé hier le script d'ECKMANN et le Lisp de ALALA. Dans les 2 cas je n'ai pas de résultat. J'ai donc essayé de voir si cela ne provenait pas d'une utilisation incorrecte de ma part. N'ayant rien trouvé d'incorrect, je vous donne les résultats en ligne de commande. Pour info : - J'ai crée 2 sous dossiers DEDANS et DEHORS vides. - j'ai crée un fichier "polyligne_in.dwg" dans le repertoire parent, contenant une polyligne se trouvant entièrement dans la zone d'intérêt. Pour le script d’Eckmann, posté 17 janvier 2013 - 10:37 : Commande: '_script Commande: (setq ade_cmddia_before_qry (getvar "cmddia")) 1 Commande: (setvar "cmddia" 0) 0 Commande: (mapcar 'ade_dwgdeactivate (ade_dslist)) nil Commande: (setq ade_tmpprefval (ade_prefgetval "ActivateDwgsOnAttach")) T Commande: (ade_prefsetval "ActivateDwgsOnAttach" T) T Commande: (setq dwg_id(ade_dsattach "C:\\DONNEES\\Dessin2.dwg")) nil Commande: (ade_prefsetval "ActivateDwgsOnAttach" ade_tmpprefval) T Commande: (ade_qryclear) T Commande: (ade_qrysettype "draw") T Commande: (ade_qrydefine '("" "" "" "Location" ("window" "crossing" (1534000.000000 8224000.000000 0.000000)(1578000.000000 8272000.000000 0.000000))"")) 3.66198e+008 Commande: (ade_qrysetaltprop nil) T Commande: (ade_qryexecute) La requête a extrait 0 objet(s).0.0 Commande: (setvar "cmddia" ade_cmddia_before_qry) 1 Commande: Enregistrement automatique vers C:\Documents and Settings\pelloux\local settings\temp\rectangle_in_1_1_1759.sv$ ... Commande: Quand je vais dans Définir requête, j'ai bien dans "Requête courante" : "Emplacement INTERSECTION FERMEE" Quand je vais dans "Modifier" : "Fenêtre", "Intersection" j'ai les 4 coordonnées d'emplacement (1534000,8224000;...;1534000,8272000). Pour info : - Exécuter tel que défini -> La requête a extrait 0 objet. - Aucune trace du fichier qry. je n'ai pas testé ton LISP qui suit le script. Pour le lisp d’Alala,posté 17 janvier 2013 - 14:57 : Dispzone >Sélectionner un point pour créer une Zone : Click d’un point à l’écran >Sélectionner un point pour créer une Zone : Click d’un autre point à l’écran Avec ou Sans les objets sur le polygone? (Avec Sans) >Avec >Régénération du modèle. >Commande: ; erreur: nombre d'arguments trop important >Commande: Question : A la question "Avec ou Sans les objets sur le polygone? (Avec Sans)" En fait la question ne se pose puisqu'il s'agit des objets à l'intérieur (ou au moins à cheval sur la zone d'intérêt). D'où viendrait l'erreur ? :) Par avance merci pour vos réponses. Ce qu'à indiqué Fabcad est ce que je recherche : @+ PH PELLOUX

Bonjour Merci pour vos contributions. J'ai un impératif encore aujourd'hui. Je me remets à ce développment dès que possible et vous tiens au courant concernant l'introduction de ce lisp dans mon script. PH PELLOUX

Tu veux dire la formation Autodesk MAP de base de l'année dernière ? Je l'ai faite avec Géomédia (notre service formation a estimé que comme on avait été formé par eux sur Covadis on pouvait leur faire confiance). Pour continuer sur le sujet : Attention : Il s'agit simplement de faire une requête et de déterminer si il a y a des objets dans cette zone d'intérêt, et pas de récupérer les objets de la zone d'intérêt dans un nouveau fichier. On pourrait simplement introduire une condition qui orienterait le fichier vers l'un des 2 répertoires suite à la requête. Comme on peut introduire une condition sous forme de LISP dans un script je pense que c'est faisable assez facilement. J'ai donc besoin de vous pour ce petit lisp. @+ PH PELLOUX

Salut le Crabe Effectivement on pourrait plutôt raisonner de cette manière : Si au moins un objet est compris dans ce périmètre, le fichier est mis dans un répertoire 1. Si aucun objet n'est compris dans ce périmètre, le fichier est mis dans un répertoire 2. Pour le reste je ne suis pas certain d'avoir tout compris dans ta réponse. Pourrais tu m'expliquer comment une requête à partir d'un dessin vierge permet de savoir si des données sont comprise ou pas comprise dans l'emprise en question ? J'ai ma petite idée mais je ne l'ai jamais mis en pratique. Quel langage utiliser pour ce type de problème ? Connais-tu une société qui peut me le développer (et le coût éventuel de cette prestations) ? Bonne soirée. PH PELLOUX

Bonsoir J'ai à ma disposition un millier de fichiers dwg. Je recherche un moyen de classer tous mes fichiers selon qu'ils sont compris ou pas dans une emprise géographique précise. Je ne vois pour cela que la création d'un programme. Ce dernier ouvrirait chacun des fichiers et examinerait si la condition concernant l'emprise géographique est respectée. Mon emprise géographique est comprise dans un rectangle : point supérieur gauche : X=1534000 Y=8272000 point inférieur droite : X=1578000 Y=8224000 Si les objets ne sont pas strictement compris dans ce périmètre, le fichier est mis dans un répertoire 1. Si tous les objets sont compris dans ce périmètre, le fichier est mis dans un répertoire 2. Par avance merci pour votre aide. PH PELLOUX

Bonjour Nous avons 3 jetons réseaux de Covadis 12 sur AutoCAD 12. Ce dernier est installé sur une dizaine de postes dans notre entreprise. Conformément à une documentation que m'a passé Géomédia j'ai pu créer un fichier journal qui me permet de savoir qui lance des commandes Covadis avec le jour et l'heure d'indiqué dans un fichier nommé "Sentinel_Test.log". Ce fichier est généré sur la machine sur ou est installé le serveur (Sentinel Protection Server). Néanmoins certains champs de ce fichier sont totalement incompréhensibles pour moi. Quelqu'un connaît-il la signification des champs de ce fichier ? Pour info un extrait du fichier "Sentinel_Test.log" : v7.6.0, 8,1355480084,Fri Dec 14 11:14:44 2012 ,687, 17,INUC-00848,STEPHANR,3964,3,3,0 v7.6.0,16,1355480121,Fri Dec 14 11:15:21 2012 ,0, 0,INUC-01084,DONNEFOYA,1420,0,0,3 v7.6.0,16,1355480122,Fri Dec 14 11:15:22 2012 ,0, 0,INUC-01084,DONNEFOYA,1420,0,0,3 v7.6.0,16,1355480122,Fri Dec 14 11:15:22 2012 ,0, 0,INUC-01084,DONNEFOYA,1420,0,0,3 v7.6.0, 3,1355480182,Fri Dec 14 11:16:22 2012 ,687, 0,INUC-00489,PELLOUX,1164,3,2,0 Pour info : Il n'y a pas d'entêtes de fichier. Par avance merci. PH PELLOUX

Bonjour Je reviens vers vous pour conclure ce sujet et vous indiquer la solution que j'ai appliqué pour faire fonctionner mon script de reprojection à la volée de données géographiques. Pour rappel sous Map, ce script plantait à cause de problèmes dans le nom du chemin+nom de fichier (espace, caractères spéciaux essentiellement). En fait comme vous me l'avez indiquez il suffit pour les commande purement AutoCAD de mettre des guillemets en début et fin de chemin. Mais pour certaines commandes MAP les guillemets ne sont pas reconnues et font planter le script. Par exemple, là où je rigole (excusez mais ça fait du bien)la commande "associer" ne veut pas des guillemets par contre "dissocier" en a besoin. Ce qui donne ceci : ouvrir "C:\temp\l8_cc49\urba\_l1c\dev_eco\aubette_martainville\Plan de recolement Zac.dwg" -calque Déverrouiller * libcalque _save "C:\temp\l8_cc49\urba\_l1c\dev_eco\aubette_martainville\Plan de recolement Zac.dwg" oui fermer _new reproj_dao_urba_com.dwt _ADESETCRDSYS sessionCourante RGF93.CC49 Quitter _adedrawings Associer C:\temp\l8_cc49\urba\_l1c\dev_eco\aubette_martainville\Plan de recolement Zac.dwg Quitter _ADESETCRDSYS dessinsSource C:\temp\l8_cc49\urba\_l1c\dev_eco\aubette_martainville\Plan de recolement Zac.dwg NTF.Lambert-1c Quitter _adequery Définir Emplacement Sélectionnertout Exécuter Dessiner zoom etendu _adedrawings Dissocier "C:\temp\l8_cc49\urba\_l1c\dev_eco\aubette_martainville\Plan de recolement Zac.dwg" Quitter purger tout * non purger tout * non purger tout * non _zoom etendu _saveas 2004 "C:\temp\l8_cc49\urba\_cc49\dev_eco\aubette_martainville\Plan de recolement Zac.dwg" fermer Tout pourrait être parfait mais malgré tout la longeur du chemin+nom de fichier à son importance. Il ne faut pas dépasser une certaine longueur de chemin+nom de fichier. Par exemple le script suivant plante sur ce chemin+nom de fichier : "C:\temp\l8_cc49\urba\_cc49\dev_eco\plaine_ronce\amenagements_paysagers_cadastre_31122010\$Ronce DCE 2.12.amenagement_paysagers.dwg" ouvrir "C:\temp\l8_cc49\urba\_l1c\dev_eco\plaine_ronce\amenagements_paysagers_cadastre_31122010\$Ronce DCE 2.12.amenagement_paysagers.dwg" -calque Déverrouiller * libcalque _save "C:\temp\l8_cc49\urba\_l1c\dev_eco\plaine_ronce\amenagements_paysagers_cadastre_31122010\$Ronce DCE 2.12.amenagement_paysagers.dwg" oui fermer _new reproj_dao_urba_com.dwt _ADESETCRDSYS sessionCourante RGF93.CC49 Quitter _adedrawings Associer C:\temp\l8_cc49\urba\_l1c\dev_eco\plaine_ronce\amenagements_paysagers_cadastre_31122010\$Ronce DCE 2.12.amenagement_paysagers.dwg Quitter _ADESETCRDSYS dessinsSource C:\temp\l8_cc49\urba\_l1c\dev_eco\plaine_ronce\amenagements_paysagers_cadastre_31122010\$Ronce DCE 2.12.amenagement_paysagers.dwg NTF.Lambert-1c Quitter _adequery Définir Emplacement Sélectionnertout Exécuter Dessiner zoom etendu _adedrawings Dissocier "C:\temp\l8_cc49\urba\_l1c\dev_eco\plaine_ronce\amenagements_paysagers_cadastre_31122010\$Ronce DCE 2.12.amenagement_paysagers.dwg" Quitter purger tout * non purger tout * non purger tout * non _zoom etendu _saveas 2004 "C:\temp\l8_cc49\urba\_cc49\dev_eco\plaine_ronce\amenagements_paysagers_cadastre_31122010\$Ronce DCE 2.12.amenagement_paysagers.dwg" fermer Dernière question. Comment fait-on pour indiquer que le problème a été résolu avec cette version de cadxp ? Bonne journée. PH PELLOUX

Ok merci quand même. PH PELLOUX

Sais-tu comment éviter de l'avoir à l'ouverture ? Merci. PHP

Bonjour N'ayant pas trouvé de réponses à ce sujet sur le forum, je souhaiterais savoir comment supprimer le message suivant au démarrage d'AutoCAD LT 2012 : "AutoCAD LT 2012 requiert une résolution de 1024*768 ou supérieure pour s'exécuter." Pour info : ce message n'empêche l'ouverture d'AutoCAD LT 2012. Je précise que : - l'on est en Windows XP PRO et que la résolution de l'écran a été changée de 1024*768 -> 1280*720. - qu'un clic droit sur l'icône de démarrage d'AutoCAD LT, dans onglet "compatibilité", toutes les cases de dialogues sont décochées. - que les ressources sur Internet concernent essentiellement Windows 7. Par avance merci. PH PELLOUX

Non ça reste bien en ligne de commande. Mais AutoCAD n'accepte pas le chemin+nom de fichier que je lui indique puisqu'il me met en retour : >0 fichiers trouvé. Depuis j'ai avancé et me suis aperçu que pour _adedrawings il fallait faire sauter les "" contenant le chemin+nom du fichier. Malgré tout le fait de faire sauter les "" ne résoud pas tout car j'ai encore parfois pour certains fichiers : >0 fichiers trouvé. Pour ce cas là, je pense que c'est une histoire de nom d'un fichier DWG (chemin inclus) qui comporte plus de 256 caractères. Qu'en penses tu ? Sinon je vous donne des nouvelles dès que possible. @+ PH PELLOUX

Bonjour Lili Peut-être me suis-je mal exprimé. c'est un script contenant des commandes AutoCAD MAP ! Ex : _adedrawings Est-ce que c'est plus clair ? PH PELLOUX

Merci Fabcad Ta réponse m'est bien utile car je crois que je vais finalement être obligé de renommer. Pour les chemins + noms de fichiers entre "" j'ai découvert une faille. Ils fonctionnent avec les scripts AutoCAD mais pas avec les scripts MAP. Dans un script avec une commande telle que _adedrawings cette dernière réagit de cette manière : >0 fichier trouvé. Il y a donc bien une limitation aux "" sur les scripts sur Autodesk. Il ne me reste plus finalement qu'à renommer mes répertoires et fichiers comme j'en ai eu l'intuition au départ. Bon WE.

Effectivement il n'y a pas besoin d'aller chercher midi à quatorze heures. Il fallait juste le savoir. J'utilise effectivement régulièrement l'utilitaire que tu as développé (SAS) ET qui me rend beaucoup de services. @+ PH PELLOUX

Bonjour Ce sujet est un peu en marge de ce forum mais n'ayant pas trouvé de solutions sur les moteurs de recherche "classique d'Internet, je pense que le problème peut peut-être avoir une réponse ici et intéresser d'autres utilisateurs. En effet je travaille actuellement sur la reprojection à la volée, de données dwg du Lambert 1 carto vers le Conique Conforme 49. Le nom des répertoires, dans lesquels se trouvent ces fichiers dwg, comportent souvent des caractères spéciaux qui bloquent les scripts lancés sur AutoCAD. Je recherche donc un outil simple qui permette de rechercher-remplacer des chaînes de caractères dans le nom des répertoires : - suppression d'espace, suppression des caracères accentués... Par conséquent existe t'il un moyen, sur Windows, de renommer des répertoires à la volée sans avoir à le faire à le manuellement ? Pour info : sous MS DOS la commande "rename", avec une liste de dwg (fichier bat), bloque bien évidemment au premier répertoire comportant un espace. Les outils gratuits type Ant Rennamer ne fonctionne que pour le "renommage" des fichiers... Par avance merci. PH PELLOUX

De mon côté j'ai fait une copie "txt.shx" et l'ai rennommé en "gls.txt" et je n'ai plus eu le message de police introuvable en faisant fonctionner le script. Bon WE.

Presque en fait c'est Paul-Henri, et je travaille bien sur Rouen. @+ PH PELLOUX

Bonjour Je te remercie, je vais tester les 2 solutions en commençant d'abord par la plus simple avec la police "gls.shx" dans le répertoire C:\Program Files\Autodesk\AutoCAD Map 3D 2013\Fonts. En fait j'applique plusieurs script dont le principal est celui de projection : ouvrir C:\temp\l8_cc49\sage\_l1c\cav_sout\HOUP_indices.dwg -calque Déverrouiller * libcalque _save C:\temp\l8_cc49\sage\_l1c\cav_sout\HOUP_indices.dwg oui fermer _new reproj_dao_sage_com.dwt _ADESETCRDSYS sessionCourante RGF93.CC49 Quitter _adedrawings Associer C:\temp\l8_cc49\sage\_l1c\cav_sout\HOUP_indices.dwg Quitter _ADESETCRDSYS dessinsSource C:\temp\l8_cc49\sage\_l1c\cav_sout\HOUP_indices.dwg NTF.Lambert-1c Quitter _adequery Définir Emplacement Sélectionnertout Exécuter Dessiner zoom etendu _adedrawings Dissocier C:\temp\l8_cc49\sage\_l1c\cav_sout\HOUP_indices.dwg Quitter purger tout * non _zoom etendu _saveas 2004 C:\temp\l8_cc49\sage\_cc49\cav_sout\HOUP_indices.dwg fermer J'ai essayé à partir de COVADIS et de la commande "projchgdoss" qui est intéressante puisqu'elle traite le contenu d'un répertoire mais elle a le défaut de supprimer les liens avec les références externes. Par conséquent je préfère procéder par paliers successifs en appliquant plusieurs scripts que je contrôle : - Depuis le fichier d'origine, export des états de calques sous forme d'un fichier las, libération dévérouillage des calques - Reprojection du fichier - Import et restauration des états de calques dans le fichier reprojets. - Depuis le fichier reprojeté, récupération de(s) onglet(s) de présentation(s) depuis le fichier d'origine. J'utilise au préalable un tableur pour répéter à chaque ligne les mêmes commandes à chacun des fichiers dwg. Le seul processus que je n'ai pas pu automatiser est la récupération des filtres de calques. J'avais récupéré sur le forum, un développement en dotnet permettant par fichier d'exporter les filtres d'un fichier pour les importer dans un autre fichier "LayerFilterImportExport" mais ce développement n'est pas utilisable dans un script. Bonne journée. PH PELLOUX

Bonjour J'ai fait un script pour reprojeter mes données du Lambert 1 carto vers le Conique Conforme 49. Plusieurs centaines de fichiers ont déjà été traités en automatique sans avoir eu à intervenir manuellement pour répondre à quelque boîtes de dialogue que ce soit. Toutefois je rencontre un problème avec une série de fichiers depuis quelques jours. Le script s'interrompt à la boîte de dialogue : "Sélectionnez le fichier de formes". N'ayant pas besoin de la police "gls.shx", je clique sytématiquement sur "annuler" pour que le script continue normalement son travail. Afin d'éviter d'avoir à cliquer continuellement sur annuler, existe t'il une variable système à modifier (j'ai essayé EXPERT à 5 mais sans résultat) ou bien existe t'il une commande à mettre dans le script qui permet de répondre "annuler" automatiquement ? Pour info : filedia et cmddia sont à 0 en entête de script. Par avance merci pour vos réponses. PH PELLOUX

Autre question : Peut-on charger automatiquement cette dll au démarrage d'AutoCAD ? J'ai regardé dans _appload, démarrage, ça n'a pas l'air d'être possible. @+ PHP