Pako

Question facile.dwt => Réponse facile.ctb ! Merci à vous deux !

Salut à tous, J'aurai besoin de me faire rafraîchir la mémoire... Comment fait-on pour transférer la liste des Layers d'un dessin type à un autre dessin sans transférer d'objets. Merci !

:exclam: Pas fou ce Maximilien ! J'ai terminé mon bloc dynamique contenant plus de 57 modèles d'arbre en plan. En voici une copie à télécharger pour les intéressés(es) : http://www.mediafire.com/?hmcnnjtmjbx Vive CADxp ! ___________________________________________

Excuse moé, Didier s'est probablement mon accent........ ;) Ça fonctionne no.1, merci pour les explications, Pascal

Merci Pascal, Je vais suivre ta démarche....... A+

Salut à tous, et à ceux qui sont toujours aussi actif sur CADxp. Ouff, ça va longtemps que je suis pas venu ici'tte. Bon ! Voici mon problème, je veux créer un block dynamique, qui referme une série de block. Comme l'exemple suivante : http://images.imagehotel.net/nmpb04kaiq.jpg Par contre, j'ai ouvert l'éditeur de block dynamique dans AutoCAD 2006, et je me suis senti un peu perdu, est-ce quelqu'un peut m'orienter dans la démarche à suivre.....merci grandement...

pour moé, j'ai bien le traditionnel !

Microsoft est en cour depuis lundi pour se défendre d'une poursuite relativement aux droits d'auteurs d'un logiciel anti-piratage. Selon The Gazette, le numéro un mondial des logiciels informatiques est poursuivi par Z4 Technologies inc., une entreprise privée du Michigan. Cette dernière réclame le paiement de redevances pour l’utilisation d’une technologie de sécurisation de programmes qu’elle aurait créée. La poursuite touche également Autodesk Inc. , un fabricant de logiciels de design californien. source : lesaffaires.com à suivre...... [Edité le 13/4/2006 par Pako]

salut geolys, DisplayPlotPreview ne fonctionne pas aussi avec AutoCAD 2006. J'exécute cette exemple (venant du HELP d'AutoCAD ActiveX and VBA Reference) Sub Example_DisplayPlotPreview() ' This example creates a circle and then performs ' a plot preview. ' Create the circle Dim circleObj As AcadCircle Dim center(0 To 2) As Double Dim radius As Double center(0) = 2: center(1) = 2: center(2) = 0 radius = 1 Set circleObj = ThisDrawing.ModelSpace.AddCircle(center, radius) ZoomAll ' Preview the plot of the circle [surligneur] ThisDrawing.Plot.DisplayPlotPreview acFullPreview[/surligneur] End Sub Ça bug !

ou bien, www.acadtuning.com :casstet:

hé geolys, Dans la classe : _AcadPlotConfiguration On retrouve la méthode : GetWindowToPlot(LowerLeft, UpperRight) Et voici un exemple modifié, pris dans le Help : Sub Example_GetWindowToPlot_() Dim point1(0 To 1) As Double Dim point2(0 To 1) As Double point1(0) = 0 point1(1) = 0 point2(0) = 420 point2(1) = 297 ' Dans le layout courant ThisDrawing.ActiveLayout.SetWindowToPlot point1, point2 ' Capter l'information de la fenêtre ThisDrawing.ActiveLayout.GetWindowToPlot point1, point2 End Sub

Effectivement, mais tu peux toujours la voir sur AcadTuning Effectivement, chez moi il est 6 heures de moins qu'en France ! Lorsque je serai moins occupé, je vais mettre le fichier sur AcadTuning D'ici là, j'ai un examen en C#.NET demain, donc l'heure est l'étude ! Merci Christian ! A+ [Edité le 13/12/2005 par Pako]

Salut rebcao, Puis-je me permettre d'ajouter un copie sur AcadTuning Merci d'avance ! ps. Toi à l'ouest et Éric à l'est, pis le nord et le sud eux ? amicalement,

Comme prévu après une troisième version, le DWG change de format : 2000, 2000i & 2002 = DWG(2000) 2004, 2005 & 2006 = DWG(2004) 2007, 2008 & 2009 = DWG(2007) De plus l'article prétend aucun changement pour les environnements Visual LISP & VBA, contrairement à l'environnement .NET & ObjectARX. Merci Patrick pour l'info ! amicalement,

Salut winfield, Pour accompagner ta dinde, rien de mieux qu'une bonne : Bière d’épinette traditionnelle Ingrédients : 12 litres d’eau 24 grains de genièvre 2 c. à thé de gingembre frais 4 tasses de cassonade Un bouquet d’environ 7 centimètres de diamètre de brindilles d’épinette (prendre les 15 derniers centimètres de la branche) Préparation : - Dans une casserole, porter à ébullition l’eau et ajouter les brindilles, le gingembre et le genièvre. - Couvrir et laisser frémir à feu doux 1 ½ h. - Passer au tamis deux fois à l’aide d’un linge fin. - Laisser tiédir le mélange. - Prélever 500 ml (2 tasses) de liquide et placer dans un récipient à part. - Ajouter 125 ml (1/2 tasse) de cassonade et 2 c. à thé de levure sèche ordinaire. - Bien mélanger avant de réincorporer dans le reste du liquide. - Ajouter le reste de la cassonade et bien brasser. - Transférer le mélange dans une chaudière en plastique et couvrir d’un linge ou d’une pellicule plastique. - Laisser fermenter de 1 à 5 jours dans un endroit chaud, à l’abri des courants d’air. - Ne pas déplacer le contenant. - Écumer régulièrement. - Une fois la fermentation terminée, écumer et repasser au tamis. - Refroidir le mélange et servir ou embouteiller dans des bouteilles en verre Flexi-cap en prenant soin de ne pas remplir jusqu’au bouchon (environ 5 centimètres du bord). igloo, igloo, igloo .......:)

Salut boris, Vraiment amusant, ça fait sortir l'artiste en soi ! On dirait même que ça sent la peinture quand on y mets ! http://artpad.art.com/?ircb5p10z82o A+

Bonjour, Mes hachurages(Hatch) et mes types de ligne (LineType) ne s'affichent pas correctement ? Si vous utilisez le système métrique : MEASUREINIT à 1 MEASUREMENT à 1 ******************************** Si vous utilisez le système impériale : MEASUREINIT à 0 MEASUREMENT à 0 ************************************ Pour les deux systèmes vérifiés : _UNITS ************************************************ Dans le cas, des Linetypes reloadés tous vos Linetypes pour appliquer le changement de variables..... That'is ! ps. Très bonne idée Rebcao !

Pis ça fonctionnes-tu ? Est-ce que le type d'attachement de l'image (FULL PATH, RELATIVE PATH, NO PATH), peux avoir un bug avec ta routine ? Répertoire choisi par l'usager ! amicalement, [Edité le 7/12/2005 par Pako]

Salut, J'ai testé ton code à plusieurs reprise, et après réflexion : Au lieu d'utiliser la propriété .ImageFile , j'ai essayé avec .Name & .ImageFile (pour le type de fichier). Et ça semble fonctionné..... Voici le bout à modifier : Else StrChemin = GetDirectory aTrouver = "_" For Each Raster In ObjSelection typeRaster = "" NomFichier = "" typeRaster = Right(Raster.ImageFile, 4) MyPos = InStr(1, Raster.Name, aTrouver, 1) NomFichier = Left(Raster.Name, MyPos - 1) Raster.ImageFile = StrChemin & "\" & NomFichier & typeRaster Next End If ps. J'ai bien ta function "Function GetDirectory(Optional msg) As String", est-ce que je peux partager ton code sur www.acadtuning.com, mon site perso ! amicalement,

Merci Patrick ! Voici ce que je disais : Des détails sur AutoCAD 2007 (avec plus de claireté) Plus nécessaire de vous incrire !! :casstet:

Salut Dominique, Ce n'est pas une traduction de Google, mais de Pako.....:( Tous mes excuses, j'ai traduit de mon mieux.....:(

Effectivment Tramber, Il faut donner un peu de temps..... A+

Effectivement, Vous pouvez avoir accès à une partie sur la page d'accueil.... la suite est dans le Forum ... Il faut s'inscrire :casstet: c'est gratuit ! :D AcadTuning est un portail internet pour AutoCAD exclusivement. Les utilisateurs / programmeurs francophone, qui utilisent AutoCAD en version anglaise, y retrouveront des informations intéressantes... En passant, du sirop d'érable s'est très bon ! amicalement,

Pour maintenant, pour AutoDesk au futur, et il y a un mot pour le décrire : "agressif." http://worldcadaccess.typepad.com/photos/uncategorized/inventor.jpg La concurrence SolidWorks a été la plus agressif en essayant de convertir des utilisateurs d'AutoCAD et d'Inventor. Autodesk a tiré par en arrière, mais d'une manière la plus particulière. La salle de presse a contenait des affiches dans le modèle d'un faux match de boxe avec ces titres. Le "multidimensionnel" d'Autodesk contre SolidWorks "Un-Dimensionnel" - l'inventeur d'Autodesk. Un lieu et une date étaient prévus, mais aucun événement n'a eu lieu. Les membres des médias de DAO ont embarassé Autodesk devant son art de l'auto-portrait-proclame # 1. Après des années de l'optimisation par marketing de SolidWorks... la vente d'Autodesk employait les médias comme marché d'essai, parce que les affiches ont semblé nulle part d'autre que dans la salle de presse. De toute façon, les affiches étaient un exemple du nouveau, plus agressif marketing que nous pouvons prévoir d'Autodesk.

:exclam: Cliquer : ICI :exclam: Éric, tu vas aimé cette nouveauté ! à suivre ......