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