azrael

Je vais tester de suite. Merci Patrick :)

Merci pour le partage, je suis toujours en admiration devant une routine qui peut faciliter la vie !

Bonjour à tous, J'ai 4 groupes de "filtre de groupe". 1)Adductions, 2-Chauffage, 3-Ventilation et 4-décharges Malheureusement, d'un dessin à l'autre, je n'ai pas tout-à-fait les mêmes calques par filtre. Je cherche une routine pour gérer les filtres par fenêtres. Pour le moment, je vais dans la propriétés des calques, Je sélectionne un filtre - fenêtre - libérer ou geler. Ce n'est pas insurmontable mais fastidieux lorsqu'on a 150 dessins. Le top serait de réaliser une routine afin de geler tous les filtres puis de pouvoir en libérer un, ceci pour toutes les fenêtres en même temps. Je rêve peut-être ! Belle journée à vous, Maxime

Grand merci à toi pour ce fichier. Je commence à dessiner de l'HVAC et j'avoue avoir grand plaisir à utiliser ton programme. Azrael

J'ai téléchargé ! C'est un super programme de Dieu le père :-) Merci bcp pour ce partage ! Azrael

Bonjour Sechanbask, Un nettoyeur de fichier dwg ? C'est un rêve :-) Est-il possible de télécharger le fichier ? Je te remercie d'avance ! Azrael

Merci beaucoup pour votre aide ! Je vais tester cela ! C'est beau l'entraide !

Bonjour, J'ai hérité de plan d'architecture en 2D avec des points en Z dans tous les sens. A l'écran, rien de visible car je travaille en XY. Mais après quelques minutes de travail, j'ai remarqué qu'il était impossible d'accrocher une ligne en intersection de deux lignes existantes. Les deux lignes sont dans des plans différents. Je recherche donc un lisp pour remettre la valeur Z de chaque entitées à 0. Cela concerne les lignes, arcs, blocs, texte, polyligne ... Cela est peut-être impossible ... mais impossible n'est pas CADxp :) Si quelqu'un a une idée, je le remercie d'avance ! Azrael [Edité le 3/10/2009 par azrael]

Axlxex, c'est bien celà Neptume, la variable est XDWGFADECTL ! XFADECTL Contrôle le pourcentage d'intensité de l'estompage des références modifiées sur place. Merci également !

Oups, sorry Patrick ! Je n'avais pas vu cela ! Merci pour ce programme vraiment super !

Bonjour Neptume, Merci pour l'info ! Je ne connaissais pas cette variable. Mais dans mon cas, ce n'est pas cela. Je n'ai aucun calque verrouillé !

Bonjour, J'utilise depuis aujourd'hui la routine LG de Patrick. Mon problème est que le format de la légende est 10 fois trop petit pour la grandeur de mes blocs. Même le texte des titres "référence" et "entite" est trop grand pour la case. Dans le fichier doc en annexe du programme, Patrick parle d'option de légende ! J'ai beau changé filedia ou cmddia, rien ne change ! Merci pour votre aide ! Azrael

Bonjour à tous ! Depuis la version 2010, mes xref apparaissent grisés sur l'écran ! Ceci est une nouveauté ? Merci ! [Edité le 28/5/2009 par azrael]

Je suis aussi (toujours) intéressé !

Gile, C'est bien mieux qu'une réponse. C'est super car on peut choisir la couche ! Merci beaucoups ! Azrael

Didier, Désolé pour cette réponse tardive mais j'ai eu quelques problèmes avec mon PC. Oui, ce n'est pas toujours facile de lire le programme d'un autre. Si tu as quelques choses pour moi en lisp ou en VBA, cela serait avec grand plaisir. Merci d'avance ! Azrael

Bonjour, Bonjour, Voici un petit programme (qui n'est pas de moi) permettant de calculer la somme des lignes dans un layer bien précis (LINO PERIM). Malheureusement, avec la version 2008, celà bug presque à chaque fois ! Si quelqu'un peut me dépanner, je l'en remercie d'avance :D Option Explicit Sub ad_TotalLines() Dim adLine As AcadObject Dim adTotalLen As Double Dim adWorkLayer As String adWorkLayer = "LINO PERIM" adTotalLen = 0 For Each adLine In ThisDrawing.ModelSpace If adLine.ObjectName = "AcDbLine" Then If adLine.Layer = adWorkLayer Then adTotalLen = adTotalLen + adLine.Length End If End If Next adLine adTotalLen = Round(adTotalLen, 2) MsgBox "Total of line segments" & vbCr & _ "on layer " & adWorkLayer & " is:" & vbCr & _ adTotalLen End Sub Public Function Round(adNum As Double, adPlaces As Integer) As Double Dim adTmp As Integer adNum = CDbl(adNum) adTmp = Fix(adNum) adNum = CInt((adNum - adTmp) * 10 ^ adPlaces) Round = adTmp + adNum / 10 ^ adPlaces End Function

Lili2006, Voici les commandes du script: Command: _-plot Detailed plot configuration? [Yes/No] : Y Enter a layout name or [?] : A3 Enter an output device name or [?] : DWG To PDF Enter paper size or [?] : ISO expand A3 (420.00 x 297.00 MM) Enter paper units [inches/Millimeters] : M Enter drawing orientation [Portrait/Landscape] : Landscape Plot upside down? [Yes/No] : no Enter plot area [Display/Extents/Layout/View/Window] : Extents Enter plot scale (Plotted Millimeters=Drawing Units) or [Fit] : fit Enter plot offset (x,y) or [Center] : Center Plot with plot styles? [Yes/No] : yes Enter plot style table name or [?] (enter . for none) : A_200.stb Plot with lineweights? [Yes/No] : yes Scale lineweights with plot scale? [Yes/No] : no Plot paper space first? [Yes/No] : no Hide paperspace objects? [Yes/No] : no Enter file name : Save changes to page setup [Yes/No]? no Proceed with plot [Yes/No] : yes Effective plotting area: 389.69 wide by 275.41 high Effective plotting area: 379.86 wide by 265.81 high Plotting viewport 2. Plotting viewport 1. Command: close Really want to discard all changes to drawing? ------------------------------------------------------------------------------------------------------------------- J'ai bien l'impression du fichier PDF. Le problème, c'est qu'il pose la question: "Really want ..." de temps en temps ! [Edité le 17/9/2007 par azrael]

Il faut aussi savoir que avec un version US, -plot n'ouvre pas une boite de dialogue (obligatoire pour les scripts) _-plot idem mais _plot ouvre la boite de dialogue et bloque le script Lili, Peux-tu essayer le script en drag et drop (glisser-déposer) dans un dessin en cour ! Je rajoute de script: oici un script d'impression: _-plot Y A3 DWG To PDF ISO expand A3 (420.00 x 297.00 MM) M Landscape no Extents fit Center yes A_200.stb yes no no no no yes _close [Edité le 15/9/2007 par azrael]

Chez,, le script marche très bien chez moi ... sauf qu'il bloque sur le xème plan ou il demande : Really want to discard all changes to drawing? Pour info, la ligne vide évite de taper le nom du fichier (ouf!). Par défaut, il mais le nom du fichier + le non de la feuille. Pour moi, c'est nickel ! Bref, le script marche bien (chez moi) sauf qu'avant de quitter le plan, il demande parfois s'il faut le sauver ... ou de ne pas le sauver. Je continue mes recherches ! Azrael

Bonjour à tous, Lili, Avec Autocad 2008 US. "-plot" n'ouvre pas la boite de dialogue mais "_plot" oui. Bizarrement, je ne dois pas spécifier DWG To PDF .pc3 Le gros problème est pourquoi me demande t-il après close : "Really want to discard all changes to drawing" Si tu souhaites tester le programme script Maker, je peux te l'envoyer par courriel ! Il faudrait demander à Eric pour placer des variable. Ouvrir autocad, .open ou new Bon wek-end ! Azrael

J'avais loupé ce post: Voici un script d'impression: -plot Y A3 DWG To PDF ISO expand A3 (420.00 x 297.00 MM) M Landscape no Extents fit Center yes A_200.stb yes no no no no yes close Le problème, c'est après la ligne close, il me demande de temps en temp : Really want to discard all changes to drawing? Je n'utilise pas (encore) Superautoscript, que je viens de découvrir, mais un programme qui date 1988-1997 Script Maker : fichier exe de 40,5k Il n'ouvre pas autocad et il a une 2 variables ".open" ou ".New" Toujours pour les idées concernant les scripts. J'avais un fichier access pour faire des scripts ! L'avantage était qu'on pouvait ajouter des variables .... C'était un super programme ! Malheureusement imcopatibilité avec access 2000 - 2003 et 2007 Merci a Eric pour son programme !

Christian, Bonne idée ! Je vais enregistrer une vue avec les layeurs d'origines et une autre vue avec les layeurs grisés ! Merci pour l'astuce !

Voila, J'ai créé un petir script pour imprimer en PDF: Le problème, c'est après la ligne close, il me demande de temps en temp : Really want to discard all changes to drawing? Le problème est qu'il ne le demande pas à chaque dessin. Pourquoi ? Ce n'est pas grave pour un dessin mais a l'aide d'un programme, je rajoute: .OPEN E:\Mes_dessins\JOLIMONT\Plans_architecture\123.dwg script d'impression ....... .OPEN E:\Mes_dessins\JOLIMONT\Plans_architecture\124.dwg script d'impression ..... .OPEN E:\Mes_dessins\JOLIMONT\Plans_architecture\125.dwg script d'impression ..... Voici le script d'impression: -plot Y A3 DWG To PDF ISO expand A3 (420.00 x 297.00 MM) M Landscape no Extents fit Center yes A_200.stb yes no no no no yes close Merci pour vortre avis !

Rebcao, Je pense que tu as raison. Je vais essayer de créer une macro pour : Créer un style Xref s'il n'existe pas ! Sélectionner un Xref et lui affecter le style à tous les layeurs ! Merci pour ton aide ! Azrael