phil_vsd

Bonjour à tous, Je suis complètement planté sur ce sujet, j'ai trop la te-hon... J'ai ré-installé AutoCAD au travail mais mes accroche-objet ne se comportent plus de la même façon, il faut que je m'approche très très près d'une zone d'accroche pour qu'elle soit capturé, je dois faire un gros zoom pour attraper une intersection... J'ai farfouillé l'aide, j'ai manipulé mes variables, j'ai torturé la boîte des options, j'ai joué l'inquisiteur chez mes collègues, j'ai menacé tout le monde, je les ai espionné, soudoyé... Maintenant je me tourne vers vous... Et s'il n'en restait qu'un, je ne serai sûrement pas celui là...

Bonjour, Je sais geler un calque en VBA mais je sèche sur le fait de tous les geler. J'en ai une trentaine et je ne voudrai pas écrire trente fois la ligne... Je passe en selectionset ? Ca ne marche pas... Merci à vous !

Salut, L'extrusion a toujours la même longueur ou est-elle fonction d'un autre paramètre ? Peut-être en appliquant les SCU dans l'axe de la poutre tu économiseras à l'utilisateur quelques cliks. Par contre là j'ai pas saisi... : Dans l'absolu même si je ne saurai (encore) le faire je pense que c'est possible... Tiens nous au courant !

Bonjour, Mes tristes expériences d'entreprises humaines, ou plutôt "à taille humaine", où j'ai travaillé me font penser que les patrons de ces entreprises se laissent trop envahir par des sentiments trop humains comme la colère, la familiarité, l'emportement... Tout cela viens parasiter la courtoisie et le respect qu'il drevait avoir sur un lieu de travail. Mais peut-être suis je trop sensible ? Ou ai-je une vision particulière de l'entreprise... See you !

Génial ! :mad:

Salut, http://img157.imageshack.us/my.php?image=cannondalelogobd1.gif C'est voir si j'y arrive...

Salut, Tu vas dans la zone de téléchargement de CadXp et dans la case "Rechercher" tu tapes "Express", et voilà !

Whaaou, ces réponses c'est de l'or en fusion ! Je teste et je reposte. Merci A++

Yo ! J'avoue être plus Nike qu'Adidas mais là je trouve cela déplacé, voire même insultant. Communiquer sur un acte anti-sportif... Dommage... C'est une plaidoirie pour la violence sur les terrains. Prochaine pub sur le saut en longueur avec le goal Allemand de 1984 ! Bon, allez, je vais voir Jackass sur MTV.

Re-Winfiel ! C'est encore moi, Tu m'as expliqué que dans le code OK on renseigne l'attribut comme cela : MonBlock.GetAttributes(0).TextString="MaValeur1" Si j'en ai plusieurs cela ressemblera sans doute à cela : MonBlock.GetAttributes(0).TextString="MaValeur1" MonBlock.GetAttributes(1).TextString="MaValeur2" MonBlock.GetAttributes(2).TextString="MaValeur3" Est-ce que l'ordre de sélection des attributs quand je créé mon Bloc doit respecter celui plus haut ? Je pense que oui sinon les valeurs vont se répandre dans le mauvais ordre ? Merci !

Yes merci je commence à comprendre ! Dans cette optique je vais essayer comme cela. Je mon la barre d'un cran, dans mon cas réel, j'ai 3 radioBouton groupés dans un cadre, puis 4 autres dans un autre cadre j'aurai donc dans le bouton commande autant de lignes : If Button1 = False Then ..................... que de bouton Radio dans ma form ? Et le fait que l'on marque "End sub" dans un bouton radio ne gènera t-il pas le fait qu'il y en ait d'autre dans un autre cadre ? Autre question qui n'a rien à voir : Peut-on transformer une variable string en integer de la forme suivante : Dim Itoto as integer Dim Stata as string Itoto = val(Stata) Faut-il que Stata ne comporte aucun caractère alphabétique ? Merci à toi ! [Edité le 20/9/2006 par phil_vsd]

Bonsoir à tous, Je cale sur cette méthode : J'ai un bloc dans mon Dwg avec un attribut, j'ai aussi une form dans laquelle j'ai regroupé plusieurs RadioButton (Option) et un bouton Command. J'aimerai choisir un des RadioButton et en fonction du choix, la valeur de l'attribut serai modifiée, puis quand je clique sur le Command il m'insère le bloc contenant l'attribut modifié. J'ai cherché avec Has_attributes, AcadBlockreference... n'arrive pas... Si qq'un connait la syntaxe à mettre dans le bouton Option... Et aussi dans le bouton de commande qui insère le bloc ! SVP Merci d'avance !

Salut tous ! Bon je vais m'en tenir à cela, je m'en pensais qu'il ne fallait changer qu'une ligne ou deux mais si tu me dit que c'est galère... Je vais clôturer le sujet. Mille merci, mais partez pas trop loin !

Salut tous, Merci pour vos rapides réponses, c'était bien la librairie "Manquant" qu'il fallait désavtiver. Maintenant c'est inscrit dans mon carnet rouge ! Another question please : Tous les attributs apparaissent en décalé dans les colonnes. Y'a une ligne [surligneur] "Column = Column + 1 " [/surligneur] dans : ' On parcourt le tableau For i = LBound(Attributes) To UBound(Attributes) ' Pour chaque attribut, on cherche une colonne dont l'entête correspond à l'étiquette ' de l'attribut Column = 3 While Not IsEmpty(Cells(3, Column)) If Cells(3, Column).Text = Attributes(i).TagString Then Attributes(i).TextString = Cells(Row, Column).Text End If Column = Column + 1 ' On passe à la colonne suivante Wend Next Comment dois-je modifier cette ligne pour que les attributs apparaissent les uns en-dessous des autres ? Merci d'avance !

Yes moi aussi mes codes ressemblent à des exemples tirés de l'aide que j'aurai copié collé !... Je m'en sert pas mal. Aiguillé avec cette propriété CreateObject(AutoCad.Application) je devrai pouvoir m'en tirer. Comme ce code n'est pas de moi je n'en connais pas encor la structure ni la syntaxe... Merci pour les encouragements ! Quand ce sera au point cela pourra peut être intéresser des gens. Cependant dans les express tools y'a qqchose qui y ressemble... A très vite !

Non... Il bute sur : AutoCAD.AcadApplication Toujours cette bibliothèque introuvable, je charge et il se met en erreur... Désespérant. Je creuse...

Merci pour la réactivité, j'essaye et je reposte. Merci !

Salut ! C'est vrai que ces images sont impressionantes ! A mi chemin dans le film on voit le crash d'un 4x4 et l 'on s'aperçoit que le conducteur part vraiment sur l'avant avant que l'airbag ne s'ouvre, il a presque déjà la tête sur le volant ! Moi qui pensait qu'il allait presque rien avoir. Alors que dans les autres crash on voit très bien que l'airbag est complètement gonflé alors que la tête n'a presque pas bougé... A méditer...

Salut g_barthe, J'ai effectivement fait la manip sous l'éditeur Excel mais il me met "Objet déjà" utilisé quand je relance, puis la bibliothèque que j'ai choisie se désélectionne!... Ce code me parait important pour un débutant comme moi, extraction vers Excel, modif d'attribut depuis Excel puis rebascule vers AutoCAD ! J'aimerai bien qu'il fonctionne... J'ai laissé un message là où j'ai pris le code pur avoir des infos : http://perso.orange.fr/maxence.delannoy/vba/att_excel.htm Merci à toi !

Bonsoir tous, J'ai récupéré un code où Excel récupère des attribut sur AutoCAD mais lorsque je lance la macro j'ai le message : "Erreur de compilation, Projet ou bibliothèque introuvable" sur cette ligne Dim AcadApp As AutoCAD.AcadApplication Quand je passe par Outils/préférence il me dit Objet déjà utilisé. Voici le code : ********************************************************* Dim DrawingFile As String Sub EnvoyerVersAutoCAD() Dim AcadApp As AutoCAD.AcadApplication Dim BlocRef As AcadBlockReference Dim Row, i, Column As Integer ' On lance AutoCAD Set AcadApp = New AutoCAD.AcadApplication AcadApp.Visible = True ' On ouvre le fichier dans AutoCAD AcadApp.Documents.Open (Cells(1, 1).Text) Row = 4 ' On commence à la rangée N°4 While Not IsEmpty(Cells(Row, 2)) ' On s'arrête quand on tombe sur une cellule handle vide ' On retrouve l'insertion de bloc à l'aide du handle mémorisé dans la feuille de calcul et de la ' méthode HandleToObject de l'objet document AutoCAD Set BlocRef = AcadApp.ActiveDocument.HandleToObject(Cells(Row, 2)) ' Si le bloc a des attributs... If BlocRef.HasAttributes Then ' ... on les récupère Attributes = BlocRef.GetAttributes ' On parcourt le tableau For i = LBound(Attributes) To UBound(Attributes) ' Pour chaque attribut, on cherche une colonne dont l'entête correspond à l'étiquette ' de l'attribut Column = 3 While Not IsEmpty(Cells(3, Column)) If Cells(3, Column).Text = Attributes(i).TagString Then Attributes(i).TextString = Cells(Row, Column).Text End If Column = Column + 1 ' On passe à la colonne suivante Wend Next BlocRef.Update End If Row = Row + 1 ' On passe à la ligne suivante Wend 'AcadApp.ActiveDocument.Regen(acActiveViewport) ' On ferme AutoCAD AcadApp.Quit MsgBox "Les données ont été transférées vers AutoCAD avec succès." End Sub Public Sub ExtraireAttributs() Dim AcadApp As AutoCAD.AcadApplication Dim SelSet As AutoCAD.AcadSelectionSet Dim FilterType(0) As Integer Dim FilterData(0) As Variant Dim FiltersType, FiltersData As Variant Dim i, Row, j, Column As Integer Dim Entity As AcadEntity Dim BlocRef As AcadBlockReference Dim Attributes As Variant Dim ColumnExist As Boolean ' Efface toutes les données contenues dans la feuille Range("1:65536").ClearContents ' On lance AutoCAD Set AcadApp = New AutoCAD.AcadApplication ' On remets Excel au premier plan (le lancement d'AutoCAD désactive la fenêtre Excel) Application.Visible = True ' On demande le nom du fichier à ouvrir Cells(1, 1).Value = Application.GetOpenFilename("Dessins AutoCAD (*.dwg), *.dwg") ' Remplissage de l'entête du tableau Cells(3, 1).Value = "Nom du bloc" Cells(3, 2).Value = "Handle" ' On ouvre le fichier dans AutoCAD AcadApp.Documents.Open (Cells(1, 1).Text) Row = 4 ' 1ère ligne du tableau ' On crée un jeu de sélection Set SelSet = AcadApp.ActiveDocument.SelectionSets.Add("SELSET") ' On prépare un filtre de sélection sur les insertions de bloc FilterType(0) = 0 FilterData(0) = "INSERT" FiltersType = FilterType FiltersData = FilterData ' Sélection des entités SelSet.Select acSelectionSetAll, , , FiltersType, FiltersData ' On balaye le jeu de sélection For i = 0 To SelSet.Count - 1 Set Entity = SelSet.Item(i) ' Si l'objet est une insertion de bloc If Entity.ObjectName = "AcDbBlockReference" Then ' On précise le type de l'objet pour pouvoir accéder à ses propriétés et ' ses méthodes spécifiques Set BlocRef = Entity ' Si il a des attributs If BlocRef.HasAttributes Then Cells(Row, 1).Value = BlocRef.Name Cells(Row, 2).Value = BlocRef.Handle ' On les récupére Attributes = BlocRef.GetAttributes ' On parcourt le tableau For j = LBound(Attributes) To UBound(Attributes) ' On recherche si une colonne existe déjà pour cette étiquette d'attribut Column = 3 ColumnExist = False While Not IsEmpty(Cells(3, Column)) If Cells(3, Column).Text = Attributes(j).TagString Then ' Une colonne existe, on la remplit avec la valeur de l'atribut Cells(Row, Column).Value = Attributes(j).TextString ColumnExist = True End If Column = Column + 1 ' On passe à la colonne suivante Wend If Not ColumnExist Then ' Aucune colonne n'existe, on en crée une et on la remplit Cells(3, Column).Value = Attributes(j).TagString Cells(Row, Column).Value = Attributes(j).TextString End If Next ' Attribut suivant Row = Row + 1 ' Ligne suivante End If End If Next ' On ferme AutoCAD AcadApp.Quit MsgBox "Les attributs du dessin " & Cells(1, 1).Text & " ont été extraits avec succès." End Sub **************************************************** Si qq'un sait qqchose, il est le bienvenu ! Merci d'avance !

Bonjour tous ! Je teste une 2007 et je remarque que lorsque j'affiche un présentation avec l'option crénelage, mes Wipeout ne cachent pas les objets qui sont en arrière. De plus avec une table de tracé en monochrome l'impression sort en niveau de gris. Si qq'un sait ! Merci à vous.

Salut Micacao ! Miller Merci de t'intéresser à mon sujet ! Effectivement tu m'as apporté une aide précieuse, je vais étudier le cas pour savoir si on peut piloter cette opération en VBA. Il faudrai que je sache à quoi correspond cette chaîne [surligneur]_FldPtr 2130042032 [/surligneur] et comment l'obtenir, comme avec "getentity" ou "ObjectId" par exemple. Pour l'instant je fais les manip à la main, mon résultat sera de piquer les surface avec "getentity" plusieurs fois puis d'un seul clik toute l'opération de créer un champ addition se fait !... J'ai encore du chemin ! J'ai des contacts en lisp qui me propose aussi des options, faut que je mixe tout ça. Encore merci !

Salut tous ! Tramber tu ne parles pas dans le vent, l'hypothèse de passer sur Autodesk Architectural Desktop me trotte depuis quelques temps mais je dois me faire la main avant. Je ne peux engager mon boss dans une aventure floue. Rassembler des étages dans un même dessin a des avantages, tous dans notre équipe ne naviguent pas facilement dans les blocs, x-refs, chemins relatifs... Certains ne connaissaient pas Alt-Tab ni Ctrl-Tab y'a encore quelques semaines, ni les X-ref, ni les attributs. Maintenant, créer un dwg par étages, je ne croit pas que ce soit non plus la meilleure méthode... Mais bon, on s'éloigne du sujet même si cela m'intéresse, c'est vrai que parfois dans nos projets j'ai l'impression d'être dans la Chocolaterie de Mr Wonka ! Gile, je crois moi aussi que les champs doivent être dans des blocs pour les extractions futures. Ta piste est la bonne. Je vais creuser. En relisant les post, Gile nous parle d'extraire dans un tableau Autocad, je n'y avait pas pensé, pour moi les "extractions" se faisaient vers de l'Excel... Ca bouillonne... On y est presque...

Merci à vous. Yes j'ai Firefox, je vais voir le lien... Merci à vous !

Bonjour l'équipe, Des membres mettent des liens cachés derrières des mots comme "ici" ou "voir là", le mot est souligné en bleu et la bascule se fait vers un autre sujet dans le forum. J'ai osculté la FAQ mais j'ai pas trouvé... Les cotes et codes ça va mais les liens... C'est avec les URL ? How to ? Thanks !