GEGEMATIC

a partir d'options, ça marche, mais si tu change a partir d'un clic droit sur la barre d'etat "accrobj", la il n'y a pas de lien.

Salut, sous vista64, autocad 64, l'accrochage et l'interface marche. gc-SetCustOsmode agit sur l'accrochage. gc-GetCustOsmode retourne la valeur entrée par gc- SetCustOsmode . mais gc-GetCustOsmode ne retourne pas la valeur entrée par l'interface Autocad. il y a un petit pb de ce coté là. Gégé

Salut, je pense que c'est possible, et surtout pour toi, Gile, qui bosse en c# Il y a qq années, j'avais récupéré VLAX de Franck ockendo, et j'avais diffusé sa mise à jour, avec des exemples concrets d'utilisation. Tout marchait bien sous VBA. Maintenant, j'ai essayé de le mettre à jour sous VB.Net, et là, ça plante systématiquement. par contre, je t'ai trouvé une version en c# , avec des exemples : fait mois savoir si ça marche ... Pas de commentaire possible, le site est en japonais : http://fr.wrs.yahoo.com/_ylt=A03uv8qhQHBLuggB0JRjAQx.;_ylu=X3oDMTBzN25kaGFvBHNlYwNzcgRwb3MDMTAEY29sbwNpcmQEdnRpZAM-/SIG=12klg7hff/EXP=1265734177/**http%3a//www1.harenet.ne.jp/~hanafusa/mt/memo/archives/000236.html Comme ma version, elle est basée sur interrop #region Using directives using System; using System.Collections.Generic; using System.Text; using System.Collections; using System.Reflection; using Autodesk.AutoCAD.Interop; using Autodesk.AutoCAD.Interop.Common; using AcRx = Autodesk.AutoCAD.Runtime; using AcEd = Autodesk.AutoCAD.ApplicationServices; using AcGe = Autodesk.AutoCAD.Geometry; using AcDb = Autodesk.AutoCAD.DatabaseServices; #endregion namespace HLIB.Utils { /// /// VisualLISP???? /// (vl-load-com)??????????? /// public class Lisp : IDisposable { private bool Disposed = false; private object m_vlObj; private object m_vlFunc; private AcadApplication m_app; /// /// ??????? /// /// AutoCAD???????? public Lisp ( AcadApplication acadApp ) { m_app = acadApp; try { m_vlObj = acadApp.GetInterfaceObject( "VL.Application.16" ); object acDoc = GetProperty( m_vlObj, "ActiveDocument" ); m_vlFunc = GetProperty( acDoc, "Functions" ); } catch { AcEd.CommandLinePrompts.Message( "\nVL????????????????." ); } } ~Lisp () { Dispose(); } /// /// VlApp ?????????????????????? /// public void Dispose () { if ( Disposed == false ) { m_vlFunc = null; m_vlObj = null; m_app = null; Disposed = true; } } /// /// COM???????????????????? /// /// ?????????? /// ?????? /// private object GetProperty ( object obj, string propName ) { return obj.GetType().InvokeMember( propName, BindingFlags.GetProperty, null, obj, null ); } /// /// COM???????????????????? /// /// ??????????? /// ??????? /// private object GetIndexer ( object obj, string index ) { return obj.GetType().InvokeMember( "Item", BindingFlags.GetProperty, null, obj, new object[] { index } ); } /// /// LISP???????????????? /// /// LISP??? /// ?? /// private object InvokeLispFunction ( string funcName, object[] args ) { object sym = GetIndexer( m_vlFunc, funcName ); return sym.GetType().InvokeMember( "funcall", BindingFlags.InvokeMethod, null, sym, args ); } /// /// LISP???????? /// /// LISP? /// public object Eval ( string lispStatement ) { try { object sym = InvokeLispFunction( "read", new object[] { lispStatement } ); return InvokeLispFunction( "eval", new object[] { sym } ); } catch { AcEd.CommandLinePrompts.Message( "\nLISP???????????." ); return null; } } /// /// LISP???????????? /// /// ??? /// public object GetValue ( string symbolName ) { try { return Eval( symbolName ); } catch { return null; } } /// /// LISP??????????? /// /// ??? /// ? public void SetValue ( string symbolName, object val ) { Eval( "(vl-load-com)" ); Eval( "(defun translate-variant (data) (cond ((= (type data) 'list) (mapcar 'translate-variant data)) ((= (type data) 'variant) (translate-variant (vlax-variant-value data))) ((= (type data) 'safearray) (mapcar 'translate-variant (vlax-safearray->list data))) (t data)))" ); Eval( "(setq " + symbolName + " (translate-variant " + val + "))" ); Eval( "(setq translate-variant nil)" ); } /// /// LISP???nil?????? /// /// ??? public void SetSymbolsToNil ( params string[] symbolName ) { for ( int i = 0; i < symbolName.Length; i++ ) { Eval( "(setq " + symbolName[ i ] + " nil)" ); } } /// /// LIST?ArrayList??????? /// /// LIST??????? /// public ArrayList GetLispList ( string symList ) { ArrayList ret = new ArrayList(); object list; long len; try { list = Eval( symList ); len = ( long )InvokeLispFunction( "length", new object[] { list } ); for ( long i = 0; i < len; i++ ) { ret.Add( InvokeLispFunction( "nth", new object[] { i, list } ) ); } } catch { } return ret; } /// /// DXF?????????????? /// /// DXF??? /// ??? /// private object getDxfData ( int code, object symEname ) { object ent = InvokeLispFunction( "entget", new object[] { symEname } ); object val = InvokeLispFunction( "assoc", new object[] { code, ent } ); return InvokeLispFunction( "cdr", new object[] { val } ); } /// /// LSIP???????AcadEntity?????????? /// /// ?????????????? /// AcadEntity?????? /// public bool PickSetToSelectionSet ( string symSS, ref AcadEntity[] ents ) { bool ret = false; try { object ss = Eval( symSS ); long sslength = ( long )InvokeLispFunction( "sslength", new object[] { ss } ); ents = new AcadEntity[ sslength ]; for ( long i = 0; i < sslength; i++ ) { object en = InvokeLispFunction( "ssname", new object[] { ss, i } ); ents[ i ] = ( AcadEntity )( m_app.ActiveDocument.HandleToObject( ( string )getDxfData( 5, en ) ) ); } ret = true; } catch { } return ret; } /// /// LSIP???????ActiveX????????????? /// /// ?????????????? /// AcadSelectionSet???? /// public bool PickSetToSelectionSet ( string symSS, ref AcadSelectionSet acadSS ) { bool ret = false; acadSS.Clear(); AcadEntity[] ents = null; if ( PickSetToSelectionSet( symSS, ref ents ) ) { acadSS.AddItems( ents ); ret = true; } return ret; } /// /// LSIP???????ObjectIdCollection??????? /// /// ?????????????? /// ObjectIdCollection???? /// public bool PickSetToSelectionSet ( string symSS, ref AcDb.ObjectIdCollection objIds ) { bool ret = false; objIds.Clear(); AcadEntity[] ents = null; if ( PickSetToSelectionSet( symSS, ref ents ) ) { foreach ( AcadEntity en in ents ) { AcDb.ObjectId id = new AcDb.ObjectId(); id.OldId = en.ObjectID; objIds.Add( id ); } ret = true; } return ret; } /// /// ObjectIdCollection?LISP????????????? /// /// ObjectIdCollection /// ???????????? /// public bool SelectionSetToPickSet ( AcDb.ObjectIdCollection objIds, string symSS ) { bool ret = false; try { Eval( "(setq " + symSS + " (ssadd))" ); foreach ( AcDb.ObjectId id in objIds ) Eval( "(ssadd (handent \"" + id.Handle + "\")" + symSS + ")" ); ret = true; } catch { } return ret; } /// /// AcadSelectionSet?LISP????????????? /// /// AcadSelectionSet /// ???????????? /// public bool SelectionSetToPickSet ( AcadSelectionSet acadSS, string symSS ) { bool ret = false; try { Eval( "(setq " + symSS + " (ssadd))" ); foreach ( AcadEntity en in acadSS ) Eval( "(ssadd (handent \"" + en.Handle + "\")" + symSS + ")" ); ret = true; } catch { } return ret; } } }

Salut, en plein dans la conversion de VBA vers NET, j'étais justement en train de rapatrier les accrochages 1/3, 1/2 milieu de 4 pt etc ... en voyant l'option transparent dans .Net, j'allais m'atteler à mon vieux projet, accrochage centroïd je passe ici voir si qq parle de ça, et je tombe sur ce post tout neuf ! (Et déjà tout fait ...) parfait, merci Gile ! Gégé

Ce n'est pas étonnant, exporter/importer des entités ayant des liens entre elles n'est pas une promenade de sante, sous Autocad. Moi je le fais sous forme de prestation, ce qui veux dire que je peux bidouiller pour que ça marche, quelque soit le pb rencontré. De là à en faire une commande utilisateur, pour moi c'est un travail de fou...

Bonjour Si ton besoin est urgent, je peux réaliser cette manip grace à un pg maison. (faire passer des réseaux d'un dessin à un autre) c'est du rustique, tout l'habillage saute, seul le corps du réseau est transféré. Gégé [Edité le 7/9/2009 par GEGEMATIC]

T'as vu le crustacé ? Il suffit que gégématic s'énerve sur CadXp, pour qu' aussitôt, Autodesk craignant une révolte massive, se dépêche de nous faire un VRAI correctif ... In MAP we trust ! hin! hin!

Cher crustacé, je n'ai malheureusement rien à voir avec la personne qui a des problèmes avec ces TAB ! Je ne suis pas du genre à refuser de l'aide ... Pour MAP, j'en ai vraiment marre, ça c'est clair, car je n'ai pas vu une version clean depuis Map6, qui tournait sur la 2002. Je ne vais pas passer sous Mapinfo, car j'ai activité + CAO/DAO que SIG. je suis donc obligé d'utiliser Map, et ce n'est pas gratuit, donc à partir du moment ou ça ne marche pas bien, je pense avoir le droit de râler. J'avais fait la migration d'Autocad vers Ustation, et a cause d'un développement partagé avec une autre boite je suis retourné à Autocad et JE LE REGRETTE ! Il faut connaitre la puissance d'Ustation pour avoir ce genre d'avis, car souvent les gens qui viennent d'autocad n'aiment pas ustation. Moi j'ai mis qq années à découvrir que c'est vraiment le seul outil DAO/CAO qui soit à la hauteur, car il a un avantage de taille: Il est rapide. N'abuse pas de la sauce rouille .... Gégé

pour info J'utilise Map depuis 1996 ... Et j'ai déjà appliqué tous les patch possibles Quand tu dis "map marche bien" c'est un point de vue que je te laisse, il n' y a qu'à aller voir sur le site des patch map, quand tu vois les menus bugs que les correctifs corrigent ! (Crash quand on ouvre un dessin qui à le malheur de contenir ça ou ça ...) Si tu vas sur le forum map en anglais, tu verra la liste des bug que les utilisateurs subissent, et qui ne sont JAMAIS corrigés ! Car les patch map arrivent avec plusieurs mois de retard sur Autocad de base, et lorsqu'un nouvel autocad est lancé, il n'y a plus de patch pour Map. Ce n'est pas simplement moi qui le dit, mais les utilisateur map anglo-saxon... Malheureusement pour moi, il y a qq fonctions Map dont j'ai besoin, sinon je serais repassé à Autocad normal ... Le problème c'est depuis qu'Autodesk s'est mis en tête de sortir une version par an, pour moi, c'est la cata.

Je crois que ce que tu veux faire est possible avec FDO, quand celui ci marche ! Et chez moi, ce n'est pas le cas aujourd'hui : _mapfdoconnect: commande inconnue ... Marre de map et ses versions boguées, jamais mises à jour !

Eh bien juste pour t'embêter, je vais te répondre par un lisp, PowerClic, qui lorsque l'on "PowerClique" sur un rectangle, lance une commande Rectangle modifiée, qui permet de saisir un rectangle orienté, avec un longueur et une largeur perpendiculaire à la longueur Carpacio ? Et en plus, le rectangle ainsi créé est un Rectrue, qui reste un rectangle quand on l'étire via un grips carpacio itou ?

Si tu change souvent de poste, et de version d'autocad, le mieux est de lancer directement Autocad via un applicatif qui t'appartient, et que tu peux donc contrôler. Powerclic est fait pour être stocké sur une clef USB, de manière a ce que ce programme, ainsi que ses personnalisation, soit toujours sur le même support. L'idée venait de la demande d'un utilisateur intérimaire. Je n'ai jamais développé la partie menus, palettes d'outils, etc, a toi de voir. Par contre, dans le module PowerClic.dvb, tu as un évenement sur le lancement d'autocad qui efface les mnr des menus Powerclic: Ceci est primordial, car si tu passe d'une version 15 à une 16 ou 17, les mnr ne sont pas compatibles. Du coup, tu peux utiliser l'installation de PowerClic pour faire ce que tu veux: Pour lancer l'Autocad qu'il y a sur le poste, tu utilise PowerClic.exe: Il te permet de choisir l'Autocad à lancer, ainsi que le profil souhaité. Il marche de la V2000 à la V2009 Ensuite, ce PowerClic.exe lance Autocad avec des options de ligne de commande, profil et script: PowerClicSetup.scr Ce script en profite pour récupérer et propager le chemin d'où a été lancé PowerClic.exe: Voici le contenu du script: ;;this script is runned just one time, at autocad launch ;;this script is usefull only for usb key installation ;; ;;langage initialisation (if (/= (getcname "_STRETCH") "ETIRER") (progn (setq pw-foreign "english") (vl-propagate 'pw-foreign) ) ) ;; ;;PowerClic Initialisation (setq pw-chem (strcat (vl-registry-read "HKEY_CURRENT_USER\\SYSTEM\\CurrentControlSet\\Control\\Session Manager\\Environment" "PowerClicDirectory") "\\")) ;; (vl-propagate 'pw-chem) (vl-load-all (strcat pw-chem "pw_loader.lsp")) ;; ;;load powerclic toolbars (c:powerclicmenu) (c:powertextools) ;;load PowerClic group extension contextual menu using Powerclic.dvb (pw_LoadPowerClicPartialMenu) ;;clear all mnr using Powerclic.dvb (pw_InitializeClearMnrClass) ;; ;;check if its the first time launch (pw_test_1st_launch) (s::startup) A partir de là, tu fait ce que tu veux: Tu as de quoi nettoyer tes mnr, Tu as de quoi t'ajouter des menus contextuels qui ne resterons pas sur le poste Tu as une variable globale, pw-chem, qui contient la racine de tes menus Si PowerClic ne t'intéresse pas, tu n'as qu'a supprimer la ligne : (vl-load-all (strcat pw-chem "pw_loader.lsp")) et la remplacer par le fichier lisp de ton choix, chargé d'initialiser ton environnement Je pense que ça peux aider ...

Donc comme je l'ai dit dans un autre sujet, une version de PowerClic mise à niveau pour la 2009 est en ligne. Elle devrait permetre de faire fonctionner Map2html. Je dis bien devrait, car je n'ai pas fait des tests poussé pour vérifier que PowerClic s'installe correctement dans toutes les situations avec Autocad 2009. Les retours d'expérience sont les bienvenus.

Bon, j'ai réparé ma version, du coup j'ai perdu mes profils, mais ça marche Par contre, je sui bien déçu de ne pas voir de possibilité d'automatisation de l'export : toujours une idiote interface humaine ... a voir si il y a une methode disponible.

Salut le crustacé, j'ai vérifié et du coup j'ai ajouté ce répertoire, ainsi que d'autres ... Voilà ce que j'ai au démarage de Map 2009: Initialisation........ C:\Program Files\AutoCAD Map 3D 2009\AcMapWorkspace.arx ne trouve pas la procédure nécessaire. . C:\Program Files\AutoCAD Map 3D 2009\AcMapDwfApi.arx ne trouve pas la procédure nécessaire. Echec. AcMapWorkspace.arx Echec du chargement AcMapDwfApi.arx Echec du chargement C:\Program Files\AutoCAD Map 3D 2009\AcMapDwfUI.arx ne trouve pas la procédure nécessaire. Puis avec les commande import export: Commande: _mapimport C:\Program Files\AutoCAD Map 3D 2009\AcMapImpExpUI.arx ne trouve pas la procédure nécessaire. Commande inconnue "MAPIMPORT". Appuyez sur F1 pour obtenir de l'aide. Commande: MAPexport C:\Program Files\AutoCAD Map 3D 2009\AcMapImpExpUI.arx ne trouve pas la procédure nécessaire. Commande inconnue "MAPEXPORT". Appuyez sur F1 pour obtenir de l'aide. Pour les dossiers de support: (getenv "ACAD") "C:\\Program Files\\Fichiers communs\\Autodesk Shared\\GIS\\ImportExport\\7.0;E:\\ACLSP;E:\\ACLSP\\dwg14;E:\\ACLSP\\LISP;E:\\AC LSP\\bloc2;E:\\ACLSP\\patlin;E:\\ACLSP\\INI;E:\\TRIANG;E:\\ACLSP\\shx;E:\\ACLSP\ \PSFONTS\\shx;E:\\ACLSP\\PSFONTS\\ustn;E:\\ACLSP\\dwg14\\LAURENT\\symboles;C:\\P rogram Files\\AutoCAD Map 3D 2009\\civil;C:\\Program Files\\Fichiers communs\\Autodesk Shared\\GIS\\FDO\\2.0\\ArcSDE;C:\\Program Files\\Fichiers communs\\Autodesk Shared\\GIS\\FDO\\2.0\\Oracle;C:\\Program Files\\Fichiers communs\\Autodesk Shared\\GIS\\FDO\\2.0;C:\\Program Files\\AutoCAD Map 3D 2009\\support;C:\\Program Files\\AutoCAD Map 3D 2009\\fonts;C:\\Program Files\\AutoCAD Map 3D 2009\\help;C:\\Program Files\\AutoCAD Map 3D 2009\\express;C:\\Program Files\\AutoCAD Map 3D 2009\\support\\color;C:\\Program Files\\AutoCAD Map 3D 2009\\FDO\\bin;C:\\Documents and Settings\\Gérald Lemoine\\Application Data\\Autodesk\\AutoCAD Map 3D 2009\\R17.2\\fra\\support;"

C''est a peu près ça: les menus sont pleins d'expressions diesel qui merdent, du coup c'est bourré de dollars déjà sous la 2006 j'avais pas mal de commandes qui ne répondaient pas. Je vais voir chez les américains si le pb a déjà été vu ... car il n'est pas rare qu'un pb résolu sur la version US ne soit pas corrigé sur la version française, même si elle sort des mois après la version US...

Salut tout le monde, Je voyulais tester les possibilités de map 2009 en import export, mais pas moyen d'importer ou d'exporter: C:\Program Files\AutoCAD Map 3D 2009\AcMapImpExpUI.arx ne trouve pas la procédure nécessaire. Toujours ce message avec _mapinport et _mapexport Des idées ? Merci

Devant un tel enthousiasme qui fait plaisir; X_all à réussit à me décider à prendre 2 heures pour compiler une version à jour pour A 2009, PowerClic V 7.10 Elle inclue le support des entités Covadis, des améliorations de Rectrue qui l'amènent à la version 0.995 (en linuxien, je mettrait une version 1.0 quand j'aurai estimé que tout est Ok) Finalement, Autodesk aura créé une entité rectangle avant que j'y soit arrivé ! Tant pis, je reprendrai l'avantage avec polytrue, pour gérer les polygones ... Donc chez moi, cette version s'installe et fonctionne très bien sur une version Map 3d 2009, par contre, l'activation des propriétés rapides n'empèche pas le fonctionnement, mais perturbe la compréhension du processus. Je rappelle que les menus contextuels sont différents avec des entités gripées ou non gripées. Il faut tester.

Je ne sais plus de quand date Rectrue, 2005, 2006 ?, mais bon ça crée un rectangle, copiable, collable et tout. Tellement j'en ai pris l'habitude que j'avais oublié cette lacune Autocadienne ... http://www.g-eaux.com/powerclic/rectrue/index.php

Je ne connais pas ces précautions. En général, je désactive le firewall, car là ça peut être très chiant, mais l'antivirus, jamais: Certainement une erreur de ma part, d'ailleurs. Ta quadro fx 1700 est de dernière génération, je trouve ça dingue que tu soit emmerdé comme ça. raz le bol de ce trio infernal autocad/window/nvidia: autocad : Un logiciel trop lourd pour les hardwares disponibles en 32 bit, et une version mal deboguée tous les ans. Windows: Des solution 32 bit incapable de gérer le matériel d'aujourd'hui, et des solution 64 bits qui dissuadent de s'y mettre, hors station exclusivement dédiée à une appli Nvidia: Un pilote foireux tous les 15 jours ! Merde à eux !

une alternative plus puissante mais aussi plus compliquée, et qui a le defaut de nécessiter un formatage particulier du code : man.lsp tu la trouve sur mon site g-eaux.com, powerclic, bonus Man répertorie les lisp à scanner par le biais des fichiers prj de vlisp Il permet une aide toujours a jour (ça change tout ...) sur les routines lisp en ligne de commande, il permet un export html pour documenter son code et il permet un export des commande lisp commençant par c: sous forme de menu popup, avec ligne d'aide incluse. Bref, Man est l'outil de gestion de projets lisp indispensable quand on commence à avoir de la ligne de code sur son disque ...

Tu peux regarder comment est fait la partie Visula basic de PowerClic, PowerClic.dvb, il y a des commandes basiques qui font ce que tu veux faire: En fait, les réacteurs lisp ne le permetent pas, il faut passer par des réacteurs Vba

Des nouvelles de ma configuration de quadro fx 4500 Quelle galère ! Sous la 2009, je n'ai pas encore vraiment trouvé le bon réglage, mais sous la 2006, c'est bon. J'ai pris l'avant dernier pilote certifié pour la Fx4500 (c'est un modèle ancien) et la v 2009 c'est le 69.39, il y a des chances qu'il est été certifié pour A2006, mais la liste de compatibilité pour ces version anciennes n'est plus disponible. Je n'utilise pas powerDraft, car le pilote nvidia pour la 2006 est catastrophique, quand il ne plante pas, mais wingl8, qui lui fonctionne très bien: et j'ai enfin ce que je recherchait: pouvoir afficher les facettes d'un mnt avec ombrage et arrêtes actives, et avoir les grips a l'extrémité des facettes et arretes ! Le tout avec un vitesse d'affichage digne d'un carte professionnelle ! je croyais que ce serait un formalité, ça a été un calvaire ! Quand on pense au prix neuf de ces cartes, c'est scandaleux ! J'ai aussi mis whipthread à 3, c'est assez significatif avec les systèmes multi proc. Par contre, pour le 2D, on a toujours rien, ceux qui comme moi on connu les zoom carte, pannacéa ou Matrox, avec des cartes graphique de 2mo de ram, onpeste sur la lenteur de l'affichage 2d d'autocad, c'est indigne ! Moralité: Il faut des pilotes certifiés ! PS: tous ces problèmes d'affichage sont spécifiques à Autocad, avec Microstation, j'ai toujours eu des performance démentes en 3d, avec le pilote OpengL standard, et avec des cartes type gammer: (affichage du mnt du lac du bourget en lissage nurbs, avec des textures, sur un vieille Riva Tnt !) Grr ! [Edité le 5/2/2009 par GEGEMATIC]

Salut tout le monde, J'avais besoin de lire des valeurs dans un fichier xml, à savoir les bibliothèques de covadis. Mais les Cui sont du même type. J'ai donc utilisé les biblio VBA pour le XML: MSXML2 Dans cet exemple, je lis une liste de valeur dans un fichier xml. Il y a beaucoup de howTo en français pour le xml en VBA, il suffit de les suivre pour faire ce que vous voulez, mais là il y a déjà de quoi démarrer. Pour visualiser votre fichier xml, il faut télécharger l'utilitaire gratuit microsoft :XML Notepad 2007 ;;************************************************************************** ;;§/covadis/Liste les regards de la bibliotheque / none (defun Cov_LitListeRegards (/ xmldoc chlnd 1er 2eme 2emechlnd nb noeud finit i lres) (setq xmldoc (vlax-create-object "MSXML2.DOMDocument")) (vlax-invoke-method xmldoc 'load "C:\\Program Files\\Geomedia SA\\Covadis\\Config\\CovaBibRsx.xml" ) (setq chlnd (vlax-get-property xmldoc 'childNodes)) (setq 1er (vlax-get-property chlnd 'item 0)) (setq 2eme (vlax-get-property chlnd 'item 1)) (setq 2emechlnd (vlax-get-property 2eme 'childNodes)) (setq nb (vlax-get-property 2emechlnd 'length)) (setq i 0) (while (and (not finit) (< i nb)) (setq noeud (vlax-get-property 2emechlnd 'item i)) (setq i (+ 1 i)) (if (= (vlax-get-property noeud 'Basename) "Regards") (setq finit T) ) ) (if finit (progn (setq i 0) (setq noeudchlnd (vlax-get-property noeud 'childNodes)) (setq nb (vlax-get-property noeudchlnd 'length)) (while (< i nb) (setq 2noeud (vlax-get-property noeudchlnd 'item i)) (setq i (+ 1 i)) ;;(setq nom (vlax-invoke-method 2noeud 'getAttributeNode "Nom"));_retourne l'attribut en tant qu'objet (setq nm (vlax-invoke-method 2noeud 'getAttribute "Nom")) (setq lres (cons (vlax-variant-value nm) lres)) ) ) (prompt "\nPas de regards dans la bibliothèque !") ) )

je confirme bien que le patch à installé Autopiste: Si cela arrive, simplement supprimer les arx qui commencent par auto ainsi que les pistedll.arx puis _menuload, décharger automap. Pour le module VRD, le bug ne se produit que lorsque le fichier est suvegardé en version 2000, moralité, avec covadis 10, il vaut mieux sauvgarder en 2004 ou plus