sechanbask

pour les PDF, j'ai mis une option dans PDF creator et il enregistre mes pdf automatiquement avec nom du fichier + date et heure, il me fait donc autant de fichier que présentation. Après si je veux les fusionner, j'ai fait un script avec pdftk en ligne de commande MSdos et en 30 sec max c'est fait même avec 10 fichiers des 6 mo chacun ! Si tu trouves que publier prend trop de temps, c'est par ce qu'il fait ça en tâche de fond et non pas en priorité haute, du coup tu peux bosser mais la publication prend du temps. Personnellement, j'ai changé l'option pour qu'il publie en priorité haute, mais je ne peux plus bosser pdt ce temps !! bon courage, si tu veux le code pour la fusion je te la donnerai sans problème ...

ça serait bien aussi de ne pas recevoir de mail quand nous sommes le posteur de message.

l'élément de contrôle des calques est dans la barre d'outils "calques" mais pour les blocs, il marche pas !! ou je ne comprends pas l'utilité

Bonjour, dans le CUI à quoi sert le "Contrôle du nom de bloc de référence" dans les éléments de contrôle, moi il ne m'affiche rien, est-ce que ça permet de voir le nom d'un bloc rien qu'en le sélectionnant ? Merci d'avance

c'est bien ce que je pensais pas de solution pour ça. J'ai regardé en VBA mais je ne pense pas qu'il y est moyen non plus sauf les fermer et les ré-ouvrir : pas pratique, lent si les fichiers sont gros etc ... Super !!

super !! non effectivement ça ne me sert à rien sinon pour réorganiser le numéro des fichiers pour les remettre dans l'ordre des étages par exemple, est-ce que quelqu'un à une commande ou macro ou lisp ? car dans autocad, je ne trouve pas solution. Merci d'avance

Bonjour, Je voudrais savoir à quoi sert "Organiser les icônes" dans le menu "Fenêtre" ? Cette commande ne lance rien même pas dans la ligne de commande. j'aimerais bien trouver une commande pour modifier l'ordre des fichiers d'ouverts, pour remettre le fichier N°1 à la place du N°4. Je ne sais pas comment expliquer ça. Merci en tout cas à ceux qui essayeront de me comprendre.

le mot de passe est : q2a5ph8x c'est juste pour éviter les mauvaises manipulations, bien sûr, je vous encourage à modifier ce projet pour l'adapter au mieux à vos besoins. Si vous trouvez des méthodes plus adaptées, n'oubliez de partager à votre tour !!

je suis enthousiaste de lire vos réponses ou demandes, malheureusement je n'ai pas trop le temps : J'apprends à utiliser Linux. Cela ne prends pas de temps à utiliser mais les possibilités sont telles que beaucoup de choses passent au second plan. Il n'est plus nécessaire de comprendre comment fonctionne Linux pour l'utiliser mais j'aime apprendre. Le but de ma macro n'est pas uniquement de gagner du temps en nettoyant des plans mais aussi d'apprendre le VBA, j'espère que mon manque de temps donnera des idées à certains pour continuer ce projet qui restera je pense inachevé... Bon courage

Le plus souvent tout est déjà plus ou moins fait par quelqu'un. Dans mon nettoyeur disponible en open source tu trouveras comment boucler dans la collection des blocs dans le module actions_blocs : ça permet de le renomme en ajoutant un préfixe... à toi d'adapter. Si je peux me permettre un conseille fait un fichier cvs en respectant les standards car si un jour tu changes pour openoffice(même s'il sait lire les cvs mal construit) ou un l'autre logiciel, tu pourrais être gêné. En effet l'exportation en cvs d'EXCEL ne respecte pas les séparateurs. Function modifier_nom_bloc() Dim objBlock As AcadBlock Dim IntN As Integer Dim intJ As Integer Dim strNom_bloc_ini As String Dim strDebut As String Dim strPrefixe As String 10 strModule = "actions_blocs" 20 strProcedure = "modifier_nom_bloc" 'si erreur aller dans la partie gestion : 30 On Error GoTo gestion 'Demande à l'utilisateur le nom pour le préfixe du bloc 40 strPrefixe = Nparametres.TB_nom_bloc.Text 50 If strPrefixe = "" Then 'ne rien faire 60 Else 'compter le nombre de lettre du préfixe 70 intJ = VBA.Len(strPrefixe) 'faire une boucle dans la collection des blocs 80 For Each objBlock In ThisDrawing.Blocks 'test pour savoir si le bloc est un Xref 90 If objBlock.IsXRef Then 100 Debug.Print "objBlock.Name", objBlock.Name, "objBlock.IsXRef", objBlock.IsXRef 110 Else 120 strNom_bloc_ini = objBlock.Name 'si les 12 permiers caractères du nom du bloc commence par... 130 Select Case VBA.Left(strNom_bloc_ini, 12) '"*model_space ou "*paperspace" Case "*Model_Space", "*Paper_Space" 'ne rien faire ce ne sont pas des blocs 'si non 140 Case Else 'récupérer le prefixe du bloc de la longueur du préfixe indiqué par l'utilisateur 150 strDebut = VBA.Left(strNom_bloc_ini, intJ) 'tester si le bloc possède déjà le préfixe 160 If strDebut <> strPrefixe Then 'si erreur lire la ligne suivante 170 On Error Resume Next 'Ajouter le préfixe au nom du bloc 180 objBlock.Name = strPrefixe & strNom_bloc_ini 'Si un bloc porte dejà ce nom bis 190 If Err.Number = "-2145386405" Then 'initialiser la variable pour le suffixe variable 200 IntN = 0 'Faire ça jusqu'à ce que ... 210 Do 'Effacement de l'enregistrement de l'erreur 220 Err.Clear 230 IntN = IntN + 1 'Ajouter le préfixe au nom du bloc + un suffixe incrémentiel pour éviter l'erreur si un bloc porte le nom du nom + le préfixe + intN-1 240 objBlock.Name = strPrefixe & strNom_bloc_ini & "_" & IntN '...l'erreur enregistré sous "-2145386405" soit invalidée 250 Loop Until Err.Number <> "-2145386405" 260 End If 'Si un bloc porte dejà ce nom bis 270 Else 'DP "ne rien faire" 280 End If 'tester si le bloc possède déjà le préfixe 290 End Select 300 End If 310 Next objBlock 320 End If 330 Exit Function gestion: 340 Call erreurs.gestion_erreur(Err.Number, Err.Description, strModule, strProcedure, Erl()) End Function [code]

Pareil, j'ai mis 1 an pour remettre à jour mon nettoyeur à un niveau de production (oui - oui il faut avoir une sacrée assurance dans ma boite d'où un nombre de tests hallucinants....). Ça fait 1 an et demi que j'aurai du mettre à jour la charte graphique automatique, pareil pour les réservations et j'avance plus du tout sur le projet de dessin de gaines.... Vivement la retraite que j'ai le temps de bien travailler mdr (j'ai 25 ans)

Pour moi aussi, le but n'est pas le gain de place, mais la légèreté du plan, la facilité de présentation lié à lisibilité du fond de plan.... Le gain de place vu le prix des disques durs n'est effectivement pas une choses très importante. De plus, nous avons une politique d'archivage assez aigu donc niveau place, c'est ok. bon aller je vais continuer les mises à jour si j'ai un peu de courage. Je suis très intéressé par ta technique pour scanner les blocs, tu boucles dans les entités du plan ou dans les blocs ?

>lili2006 Comme j'arrive pas à reproduire l'erreur -2145386476. Pour voir ce que ça donne, peux-tu supprimer le "VBA." dans : Module : gestion_calques Procédure : test_version Ligne : 50 le mot de passe si y'en a un c'est "q2a5ph8x" merci d'avance... Pour les autres erreurs, je suis dessus... P.S. mon nettoyeur ne fait pas de miracle si le plan n'a pas de bloc avec des couleur forcées, des cotations, des points, des lignes de longueur nulle, etc... le nettoyage du plan ne fera pas diminuer la taille du plan de moitié !! boucle verte.dwg 5 390 ko boucle verte nettoyée.dwg 4 224 ko ce qui est bien mais pas top. [Edité le 18/6/2009 par sechanbask]

s'il veut voir mais qu'il ne doit pas pouvoir imprimé ça devient coton ! Comme se passe l'utilisation d'un profil? c'est une ssesion sur votre serveur ? car le problème c'est que s'il a la possibilité de voir, il pourra imprimer sur une imprimante virtuelle et récupérer le fichier ... Expliquer d'avantage votre problème...

>KALLAIN : sur autocad 2004 fait ALT+F11 tu clic sur le truc que tu vois à gauche ... nettyeur.dvb et tu entre le mot de passe (oui j'ai oublié de l'enlever) q2a5ph8x et tu retournes sous autocad et tu relances la machine normalement l'erreur va revenir mais tu pourras me dire où le programme s'arrête et pourquoi ... sur Autocad Map 3D 2008 vu le temps qu'il mets pour nettoyer un plan soit le plan ont un nombre impressionnant d'objet, soit ton PC est aussi peu violent que le mien (P4 3 GHz). P.S. le mieux c'est de faire un Wbloc plutôt qu'un purger >(gile) j'ai pas reçu le fichier tu me l'as envoyé où et comment ?

Mon programme ne doit pas être faible, donc il faut être dur avec lui !!! je ne suis pas là pour faire un truc qui plante devant des plans d'archicad... il faut que je gère l'erreur pour nettoyer au mieux le plan. Peut-tu me dire avec quel autocad tu travailles ?

Merci pour ce rapport de bug !! Je trouve ça bien efficace !! Pour la première erreur, j'ai oublié de mettre le numéro de ligne donc j'ai dû mal à localiser le bug. Mais c'est lié à la détéction de la version de ton autocad. Du coup j'ai fait une function pour tester la version pour voir si c'est le test de version qui marche pas ou l'accès à l'interface graphique... J'ai déposé le nouveau nettoyeur v.2.1 : http://88.189.92.44/partage/ Pour l'erreur 2, c'est lié à objet de ton plan que ta version d'autocad ne sais pas traiter. Peux-tu me dire quelle version tu utilises et serait t-il possible que tu m'envoie le plan qui te pose problème (s'il n'est pas confidentiel). Je pense que je vais faire une procédure pour sauter cet élement mais il me faudrait le type d'élément. Pour l'erreur 3, j'ai le même problème de version que pour l'erreur 1[Edité le 3/2/2010 par sechanbask][Edité le 7/6/2010 par sechanbask] [Edité le 13/2/2011 par sechanbask]

avant j'avais fait une boucle, puis pour un problème, j'ai fait 2 boucles mais sans changer le nom de la procédure... Maintenant, j'ai trouvé une solution : je ne fais plus qu'une boucle !!

Normalement il y a gain de temps léger mais pas négligeable sur le nettoyage de gros plan. J'ai remplacé 2 boucles sur les objets par 1 boucle avec d'avantage de tests : la procédure Nettoyage en 1 boucle, ne comporte plus qu'une boucle !!

l'interface a été revue car j'avais plus assez de place pour les options... alors ça plante ?

voici la nouvelle version http://88.189.92.44/partage/ Cette version a de nouvelles fonctions, une nouvelle interface graphique que je vous laisse découvrir, me^me la gestion des erreurs a été revue. Si une erreur non gérée apparait, l'emplacement de l'erreur est indiqué dans votre ligne de commande Autocad, si cela arrive, veuillez me renvoyer le texte écrit, merci. Comme toutes les grosses fonctions ont été réimplantées, il se peut qu'il y ait des erreurs, pour les frileux, je vais faire des batteries de tests une fois les dernières fonctions implantées (suppression des objets qui sont dans des calques cachés, etc...) P.S. toujours rien pour aplatir le plan tous mes efforts donne naissance à des suppressions d'objet non souhaité et non souhaitable. Donc rien pour l'instant. Bonne utilisation[Edité le 10/6/2009 par sechanbask][Edité le 3/2/2010 par sechanbask] [Edité le 13/2/2011 par sechanbask]

j'avais fait [/case] pour fermer la balise pas étonnant ... des outils pour formater les blocs ne manque pas mais un outils qui : -formate les blocs -supprimer les présentations -supprime les points -supprime les polylignes de longueur nulle -supprime les lignes de longueur nulle -détache les Xrefs imbriquer dans des blocs impriqués -cache ou supprime les cotes -cache ou supprime les hachures etc... moi j'en connais qu'un open sources !! sinon croit moi je ne me ferais pas chier à le faire... je suis FEGNIANT !!

Merci, je n'avais relevé ce bug. Je n'utilise jamais cette option pour l'instant. Cela ne vient pas des espace papier et objet, ils sont exclus dans Function formater_les_blocs() par : 'si les 12 permiers caractère du nom du bloc commence par... Select Case VBA.Left(objBlock.Name, 12) '"*model_space ou "*paperspace" Case "*Model_Space", "*Paper_Space" 'ne rien faire car ce ne sont pas des blocs Case Else L'erreur est que je déplace tous les bloc sur le calque 0. Je vais le corriger dans la future version v.2 [Edité le 9/6/2009 par sechanbask] [Edité le 9/6/2009 par sechanbask]

avec autocad 2006, j'ai bien 0.70 mm en épaisseur de trait pour les lignes des calques...

ça doit être l'installation du nouvel autocad qui a modifié cette option mais comme l'installation a planté..