GEGEMATIC

Salut, J'utilise tellement osnapz que je l'ai mis en raccourcis clavier, avec un modemacro pour voir sont état. osnapz est primordial pour travailler avec Covadis j'aimerai avoir une commande pour égaliser les z de plateforme jointive justement pour les cas qu'on a évoqué: j'en ai besoin quand je change l'altitude d'une des plateformes. Gégé

salut à tous, dans ma bataille pour régler le problème de migration command-s dont je parle ici il me reste le problème du pragam qui ne fonctionne que si la fenêtre visual lisp est fermée pour l'ouvrir: vlisp ou vlide mais pour la fermer ? J'ai pensé à passer directement par windows, via vbscript, mais je ne sais pas: vlisp est une application, mais pas un processus ... des idées ? merci, gégé

salut, d'accord avec Lili, j'en profite pour faire un appel : j'ai vu plusieurs fois un poster qui représente un batiment avec tous le jargon de l'architecture. jamais réussi à mettre la main dessus, mais c'est un truc génial. (j'aurai du le photographier, mais on m'a a chaque fois promis de me l'envoyer par mail ...) enfin je le cherche toujours Gégé

salut à tous, obligé de migrer vers 2015, j'ai du trouver un solution radicale: j'ai fait un article complet la dessus, car c'est à y perdre son latin, mais chez moi ça marche les retours d'expériences sont les bienvenus, surtout avec la 2016, mais pour l'instant j'ai 10 jours de fonctionnement avec 2012, 2013 et 2015 Gérer la migration de vos applications lisp vers la version 2015 (VVC: Internal Error) gégé

Salut, pour ça, il te suffit de creer un fichier contenant les tables, et de l'inserer dans ton dessin (une légende par exemple) un copier/coller d'une entité avec DO suffit également pour le N)2, je le gère par le lisp, mais je pense qu'il y a des moyens avec map, avis aux experts ... pour les données d'objets, attention, tu aura vite des problèmes avec si tu bricole tes tables d'un dessins à l'autre: j'ai écrit un article incompatibilite-des-tables-de-donnees- sur ce sujet pénible Gégé http://g-eaux.over-blog.com/article-incompatibilite-des-tables-de-donnees-da-113227413.html

salut à tous, j'ai la mauvaise habitude d'utiliser le menu pop fichiers. aujourd'hui il avait une ralentissement terrible à l'affichage: l'explication : un fichier de l'historique sur un emplacement réseau non accessible. voir ce lien: http://knowledge.autodesk.com/support/autocad/troubleshooting/caas/sfdcarticles/sfdcarticles/File-menu-or-Application-menu-is-slow-to-display-in-AutoCAD.html par contre, la résolution proposée ne convient pas: j'ai pensé que supprimer l'historique une fois permettait de repartir à 0, mais non, si on remet ensuite à 9, le problème recommence donc je conseille plutôt d'aller effacer le fichier à problème dans le registre: HKEY_CURRENT_USER\Software\Autodesk\AutoCAD\R20.0\ACAD-E000:40C\Recent File List

salut à tous, sur un de mes postes, on a un énorme ralentissement au chargement de map 2012 au chargement. le poste à 2 comptes, le ralentissement n'a lieu que sur un des comptes. le fichier qui bloque est acmgd.dll j'ai essayé tous les trucs concernant ce pb, rien n'a jamais fonctionné. pour moi le problème vient du fait qu'autocad a été installé depuis l'autre compte, qui était admin, alors que celui ci ne l'était pas. d'ailleurs, pour faire marcher autocad sur ce compte non admin, un techniciens Autodesk avait fait un dépannage en prenant le controle de l'ordi, je ne me souviens plus de tout. voilà, c'est une piste, car comme dit Olivier, le fichier qui s'affiche n'est pas forcément la cause du problème gégé

Il faut dire que le quote est un peu la fonction "originelle" du lisp, parfois j'en perds un peu la compréhension. D'ailleur un mapcar quote, quoique logique, me paraissais assez rigolo J'ai toujours utilisé le mapcar 'command par fainéantise, et je croyais que le vl-cmdf était l'équivalent de command-s, obligeant à donner tous les arguments dès le début (c'est ce qu'explique l'aide lisp) mais en fait vl-cmdf est un mix entre command et command-s, et à ce titre ne me sortira pas d'affaire: j'ai eu des erreurs VVC: Internal error avec un simple (vl-cmdf "_redraw"), qui n'est même pas imbriqué dans un mapcar. il y a des parties centrales de mes programmes pour lesquelle j'ai supprimé depuis longtemps la plupart des appels command par des methodes plus propres, mais pour beaucoup de petits utilitaires, j'utilise command, et je vais avoir beaucoup de mal à migrer toutes ces petites routines.

salut à tous, empêtré dans la migration vers 2015, je me bas avec les command-s. comme je veux pouvoir gérer plusieurs version et que command-s ne marche pas avec la 2012, j'essaie plutôt de remplacer par vl-cmdf (plutôt que de devoir tester les versions) et là j'ai cette curiosité : (progn(setq lpt (pw_poly_buffer (enam) 1)) (eval (append '(VL-CMDF "_pline") (mapcar 'quote lpt) '("_close")))) qui marche très bien, sauf que tous les points sont confondus : (setq lpt ((-4007.29 77.6245) (-3836.77 115.533) (-3831.78 114.556) (-3832.16 112.594) (-3836.75 113.49) (-4006.85 75.6722))) (mapcar 'quote lpt) -> ((quote (-4006.85 75.6722)) (quote (-4006.85 75.6722)) (quote (-4006.85 75.6722)) (quote (-4006.85 75.6722)) (quote (-4006.85 75.6722)) (quote (-4006.85 75.6722))) Bizarre ou tout à fait logique ? Gégé

Salut, je suis d'accord avec ce qui a été dit plus haut. je précise que la solution qui t'est imposé n'est absolument pas viable car si tu ajoute à ton débit de fuite (22 l/s) le débit naturel du canal, (ce serait la théorie pour que ton bassin ne déborde pas dès la 1ere pluie de 10mn), ton bassin ne fonctionnera que lors d'épisodes pluvieux exceptionnels. ce n 'est pas forcément ce qui est voulu. a priori, ce sont des charlots. ça arrive que des BE ne comprennent rien à l'esprit de la la loi sur l'eau par contre ton débit de fuite de 22l/s me parait énorme pour 900m² de bati. Il y avait déjà de l'existant ?

Salut, le problème de Didier ne m'étonne pas du tout, je suis même étonné qu'il n'ait ce problème que depuis la version 2015 Pour moi, l'accrochage en Z sur des extrémités avec autocad ne fonctionne pas correctement, et n'a jamais fonctionné correctement. seuls les nodaux ou les cercles sont fiables pour avoir un Z Quand je créée une polyligne 3d qui doit s'accrocher à des lignes ou de extremité de face 3d, je fait une vue de face pour repérer les vertex qui ont un z = 0, il y en a toujours quelques uns, alors que les entités sur lequelles je m'accroche sont les même concernant les accrochage, j'ai noté par contre qu'ne passant de la 2012 à la 2015, l'accrochage nodal ne marche plus sur les textes, alors qu'il fonctionnait sur ma 2012 c'était emmerdant, car on pouvait accrocher un texte à la place d'un point. Gégé

salut, depuis la version 12, il est bien possible d'importer des plateformes depuis un autre dessin barre d'outil pfm, création des plateformes Gégé

salut, Avec ça tu peu les écrire dans un fichier xml et les éditer avec excel aide-a-la-migration-avec-powerclic] sinon en vrac: quelques lisp : certains sont standelone, d'autre pas : ;**************************************************************************** ;§/menu/programme de test pour visualiser l'arborescence des menus contextual/none (defun c:test_menu_context ( / ok i j acadObject AcadMenuGroup NbMenuGroup currMenuGroup currMenuGroupMenus scMenu AlreadyExist) (vl-Load-Com) (setq acadObject (vlax-get-acad-object)) (setq AcadMenuGroup (vla-get-MenuGroups acadObject)) (prompt "\nNombre de menugroup") (print (setq NbMenuGroup (vlax-get-property AcadMenuGroup 'Count))) (setq j 0) (while (and (< j NbMenuGroup) (not ok)) (setq currMenuGroup (vlax-invoke-method AcadMenuGroup 'Item j )) (print (vlax-get-property currMenuGroup 'name)) (setq currMenuGroupMenus (vla-get-Menus currMenuGroup)) (prompt "\nNombre de scMenu : ") (print (setq nb (vlax-get-property currMenuGroupMenus 'Count))) ;;parcours les menus pour trouver celui qui est contextuel (setq i 0) (while (and (< i nb) (not ok)) (setq scMenu (vlax-invoke-method currMenuGroupMenus 'Item i )) (print (vlax-get-property scMenu 'name)) (if (= ':VLAX-TRUE (vlax-get-property scMenu 'ShortcutMenu)) (progn (prompt "\Un contextuel trouvé:") (vlax-dump-object scMenu) ) ;(setq ok T ) ) (setq i (+ 1 i)) ) (setq j (+ 1 j)) ) ) ;**************************************************************************** ;§/menu/programme de test pour visualiser l'arborescence des menus telle qu'elle est parcourue/none (defun c:test_menu_tree (/ ok i j acadObject AcadMenuGroup NbMenuGroup currMenuGroup currMenuGroupMenus scMenu ) (vl-Load-Com) (setq acadObject (vlax-get-acad-object)) (setq MenuGroups (vla-get-MenuGroups acadObject)) (prompt "\nNombre de menugroup ") (print (setq NbMenuGroup (vlax-get-property MenuGroups 'Count)) ) (setq j 0) (while (< j NbMenuGroup) (setq MenuGroupe (vlax-invoke-method MenuGroups 'Item j)) (print (vlax-get-property MenuGroupe 'name)) (setq MenuCollection (vla-get-Menus MenuGroupe)) (prompt "\n Nombre de sous Menu : ") (princ (setq nbScmenu (vlax-get-property MenuCollection 'Count)) ) ;;parcours les scmenus (setq i 0) (while (< i nbScmenu) (setq scMenu (vlax-invoke-method MenuCollection 'Item i)) (setq tmp scmenu) (if (vlax-property-available-p scMenu 'name) (prompt (strcat "\n " (vlax-get-property scMenu 'name)) ) ) (if (vlax-property-available-p scMenu 'label) (prompt (strcat "\n " (vlax-get-property scMenu 'label)) ) ) (prompt "\n Nombre de Menuitems ") (princ (setq NbMenuitems (vla-get-count scMenu))) ;;parcours les menuitems (setq k 0) (while (< k NbMenuitems) (setq MenuItem (vlax-invoke-method scMenu 'Item k)) (if (vlax-property-available-p MenuItem 'name) (prompt (strcat "\n " (vlax-get-property MenuItem 'name)) ) ) (if (vlax-property-available-p MenuItem 'label) (prompt (strcat "\n " (vlax-get-property MenuItem 'label) ) ) ) (setq k (+ 1 k)) ) (setq i (+ 1 i)) ) (setq j (+ 1 j)) ) ) ;**************************************************************************** ;§/menu/Afficher le nom du menu et le fichier de base/none (defun c:Affiche_menus (/ ok i j acadObject AcadMenuGroup NbMenuGroup currMenuGroup currMenuGroupMenus scMenu AlreadyExist ) (vl-Load-Com) (setq acadObject (vlax-get-acad-object)) (setq AcadMenuGroup (vla-get-MenuGroups acadObject)) (prompt "\nNombre de menugroup") (print (setq NbMenuGroup (vlax-get-property AcadMenuGroup 'Count)) ) (setq j 0) (while (and (< j NbMenuGroup) (not ok)) (setq currMenuGroup (vlax-invoke-method AcadMenuGroup 'Item j)) (print (vlax-get-property currMenuGroup 'name)) (print (vlax-get-property currMenuGroup 'MenuFileName)) (setq j (+ 1 j)) ) ) ; **************************************************************************** ;;§/menu/ecrit la liste des menus utilisés dans un fichier csv (obsolète)/none (defun c:ecritlistemenu (/ lmenu fich nchem ) (setq lmenu (pw_listeMenu )) (setq fich (getfiled "Fichier csv de menus à écrire : " aclsp-chem "csv" 1 ) ) (pw_ecricsv "lmenu" fich) (opencsvwithoooscalc fich) )

Ok merci ! gégé

Salut le crustacé je ne trouve pas de nouveautés dans ton lien ? c'est ça qui te fait pleurer ? je crois que je vais passer à BricScad-Intelimap gégé

Salut à tous, je suis passé de la version 12 à la version 14, et je dois dire que je suis plutôt content. les nouvelles fonctionnalités (pour moi essentiellement module VRD et plateformes, MNT Objet) sont "naturelles", on a pas de mal à les comprendre car on en avait besoin. (je fais le parallèle avec Autocad, où, de version en version, j'ai souvent du mal à comprendre les nouvelles fonctionnalités, même si elle sont parfois intéressantes, après longue réflexion…) Je regrette bien sûr de ne pas avoir été exaucé sur l’ensemble de mes attentes mais certaines l’ont été. Mon soucis à plutôt été du côté de la migration. Comme je n’avais pas pratiqué de migration de covadis depuis 2011, j’ai fait ça un peu au pif, et comme j’ai installé sur un poste vierge, j’ai peut être loupé des assistants de migration géomédia. J’ai néanmoins réussi à migrer la majeur partie de mes personnalisations, mais j’aurai bien aimé en profiter pour faire le ménage : Je traine des bibliothèques énormes un un tas de matériaux, tuyaux obsolètes, des fichiers pty, prl également obsolètes. Mais les supprimer, c’est prendre le risque de ne pas pouvoir faire une petite correction d’un vieux projet sans devoir rentrer dans une grosse galère. Ma question est donc : Est-il possible de configurer deux environnements covadis, via 2 profils pointant sur 2 répertoires de base différents : Car je peux personnaliser rapidement les bibliothèques XML : Module / bibliothèque Assainissement et réseaux divers Bordereau des prix Carrefour : gabarits Étiquettes Giration : véhicules Marques de profil en long Matériaux de structures Plates-formes : étiquettes Plates-formes: types dans l’onglet option, mais pour les path, dès que je définis autre chose que « C:\Program Files\Geomedia SA\Covadis\.. », au lancement covadis restaure les chemin par défaut, et je ne pointe plus sur les répertoire Config, Profils Types, Support et Symboles 3D que je souhaite. J’ai eu beau modifier les fichiers ini, tout est remis à l’original. Merci d’avance, Gégé

salut le Crabe, j'ai donc fait le test en copiant le profil avec covadis, puis en lui appliquant COVAPROFILSANSCOV pour être sur que le profil est identique sauf Covadis : résultat le bug disparait: ça semble donc un bug civil + covadis mais c'est peut être un bug autocad+ covadis, car je n'ai pas installé Covadis pour d'autre produit qu'Autocad 2015. Gégé

salut, j'ai fait de petits tests, et il ya des choses que je ne comprends pas, on dirait que ma version de MicroStationDGN connait de petits bugs: en effet, je n'arrive pas à utiliser SaveAs avec des paramètres ni CopyDesignFile VBA semble les considérer comme des fonctions alors que ce sont des procédures. c'est ennuyeux car si le dessin existe, ça plante Sub TestDGN() Dim result As Variant Dim oMicroStation As MicroStationDGN.Application Dim oConnector As MicroStationDGN.ApplicationObjectConnector If oMicroStation Is Nothing Then Set oConnector = New MicroStationDGN.ApplicationObjectConnector End If oConnector.Application.Visible = True Dim odesign As DesignFile Dim newdesign As DesignFile 'ci dessous ne marche pas : 'oConnector.Application.CopyDesignFile("E:\ustation\dessins\pproto.dgn", "E:\ustation\dessins\monNouveau.dgn", True) Set odesign = oConnector.Application.OpenDesignFile("E:\ustation\dessins\pproto.dgn", False) 'Sub SaveAs(NewFileName As String, [Overwrite As Boolean = Faux], [NewFormat As MsdDesignFileFormat = msdDesignFileFormatCurrent]) odesign.SaveAs ("E:\ustation\dessins\monNouveau.dgn") 'ci dessous ne marche pas : 'Dim NewFormat As MsdDesignFileFormat 'NewFormat = msdDesignFileFormatV8 'odesign.SaveAs("E:\ustation\dessins\monNouveau.dgn", False, NewFormat) MsgBox ("finit") End Sub

Salut à tous, je découvre ce matin un bug aussi bizarre qu'intermitant, te je n'en ai pas trouvé trace dans ce forum: je veux changer la hauteur d'une partie du texte dans un mtext, et là, impossible de garder le focus sur la liste déroulante des hauteur. si je tape la nouvelle hauteur, elle remplace le texte sélectionné. ce qui est bizarre, c'est que le bug ne se produit qu'avec civil3d + covadis, et se produit systématiquement avec UN dessin. Au démarage dans un dessin vierge, le bug ne se produit pas, une fois que ce dessin à été ouvert, le bug se produit dans tous les dessins ouverts. le dessin en question à un rapport d'erreur vierge, et ne contient aucune entité propre à Covadis. mystère total ... Gégé

salut, je ne peux pas savoir excatement ce que tu veux faire, mais avec ustatioon 2004, j'ai une référence MicroStationDGN Donc je peux avoir : Dim MsApp As MicroStationDGN.Application ça ne garantie pas que c'est ce dont tu as besoin, mais c'est une piste ... gégé

Salut, attention avec cette version de pamcad, la 1.08, elle est truffée d'erreurs: beaucoup de cotes sont fausses, je l'ai fait constater par PAM. Ils ont une version 2.0 (et peut être 2.x) qu'il faut leur demander (le mieux est de demander à un commercial, ils vous donneront un lien de téléchargement) Gégé

salut, avant je trouvais affreux le crénelage des lignes lors quelle n'étaient pas strictement verticales ou horizontale, et je me disais que c'était indigne du 21eme siècle ! avec la 2015, l'anticrénelage est bluffant, impossible de percevoir une déviation angulaire résultat: je vais déactiver l'anticrénelage, car je n'ai plus d'alerte visuelle pour un accrochage raté, ou un mode ortho qui' nétait pas activé ! mieux c'est moins bien ? Gégé

Salut et merci pour les réponses Oui, je n'ai que des Autocad métier: Map, Civil et Mep Je les personnalise en ajoutant les vieux menu pop de base, sinon je laisse la majeure partie de l'environnement. J'essaye en général de comprendre le concept d'Autodesk avant de le critiquer. Donc je vois que le concept d'Autodesk c'est qu'on a besoin de l'affichage des propriétés qu'avec Autocad de base, et uniquement dans l'onglet Début. ça se tiendrait si Autocad mep fonctionnait comme revit mep, ce n'est pas le cas. Donc au final, pour mon besoin, il me faut bien les barres d'outil propriété. Il y a des logiciels dont chaque nouvelle mouture est une évidence, puisqu'elle amène des fonctionnalités et une interface qu'on attend: Pour l'interface d'Autocad, c'est loin d'être le cas. Microsoft office n'est pas en reste, avec des choix étranges qui font que certaine options, par exemple le collage spécial sont de plus en plus difficiles à trouver (on a un choix par defaut, mais il est limité) je fait le parallèle car les 2 produit sont dans la même logique: pas de révolution fonctionnelle à attendre, mais surtout du cosmétique. peux-tu développer STP ? Merci Gégé

salut : C:IRELATIVE Tronque le chemin d'une images en gardant le seul sous dossier si ça ne marche pas, c'est un bug, ça m'interresse d'en connaitre l'origine Gégé

salut et merci, j'ai bien les calques dans début, mais pas les propriétés : couleur, épaisseur et type de ligne en plus, je suis pas toujours dans début ... Gégé