starote

Bonjour, je desire créer une fonction qui renvoi le translaté d'un point style: function translate (px,py,pz,vectx,vecty,vectz) as double() translate(1) = px+vectx translate(2)=py+vecty translate(3)=pz+vectz end function Mais bien sur ca ne marche pas! Comment fait on pour que "function" renvoi un tableau (le tableau renvoyé serait ici le point translaté)? MERCI A TOUS :cool:

Bonjour, je suis justement en train de mettre au point un outil de gestion de patrimoine fonctionnant sur autocad. Il constitue une passerelle entre autocad excel et acces. Si tu veux des renseignements ou quelques conseils n'hésite pas. A bientôt :)

Merci bien, j'avais mal cherché et entre temps j'ai trouvé :D

BONJOUR! comment c'est qu'on arrondi un nombre en vba??? genre 25.454574 --> 25.5 ps: je sai que conformément a la charte de politesse on ne doit pas commencer ses phrases par comment ou est ce que mais bon j'étais pas inspiré ... MERCI

AHHHHH okay pardon je sui novice ici! Merci du conseil!

En fait il s'agit d'un boutton de la fenetre GESTATTB. Le boutton synchroniser. Je veux synchroniser mes attributs dans un commande vba et donc appeler la fonction que ce boutton appelle. Merci de votre aide!

Bonjour, Je cherche ou se cachent les définitions des fonctions que ataucad utilise (pas toutes dans support). En fait, je cherche la fonction appellée lorsque l'on synchronise les attributs d'un bloc (fenetre GESTATTB bouton synchroniser). Sous le bouton se cache une fonction! Quelle est elle??? Un mystère qui pourra etre percé par les plus doués d'entre vous! Par avance merci de votre aide ;)

:) :) :) MERCI lES gARS Je vais essayer!!! A bientôt!

Bonjour, est ce que quelqu'un sait comment (ou si on peu) utiliser du lisp dans un programme vba et vice versa? Merci de votre aide... :exclam: :exclam: :exclam: :P :yltype:

quand tu ouvre le visual basic editor verifie quend dans le fichier this drawing il y ait un appel à la macros que tu souhaite executer. Les macros qui apparaissent sont celles présentes dans this drawing

Bonjour, en fait il faut mettre les macros dans "this drawing" pour les voir apparaitre dans le gestionnaire de macros. Tu peux mettre dans cet onglet des macros qui appellent celles que tu as mise dans des modules ou tes userforms. ... Hummmmm ... Pas très clair tout ça, si? Bon courage!

Bonjour les amis! Je voulazis savoir si il existait une méthode qui permette de synchroniser les attributs de bloc d'un dessin. En fait j'ai crée un utilitaire qui me permet de créer des nouveau attributs de bloc mais je suis ensuite obligé de passer par le gestionnaire d'attributs pour effectuer la synchro!!! :mad: MERCI DE VOTRE AIDE!!! ;) ;)

Essaye ca, c une macros qui sert a exporter les valeurs d'attribut des bloc d'un calque (ou de tus le dessin) vers un fichier excel: '' Extraction des attributs du calque collaborateurs : Sub ExtractCollabo() Dim Excel As Excel.Application Dim ExcelSheet As Object Dim ExcelWorkbook As Object Dim RowNum As Integer Dim Header As Boolean Dim elem As AcadEntity Dim Array1 As Variant Dim Count As Integer ' Launch Excel. Set Excel = New Excel.Application ' Create a new workbook and find the active sheet. Set ExcelWorkbook = Excel.Workbooks.Add Set ExcelSheet = Excel.ActiveSheet ExcelWorkbook.SaveAs "CollaborateursAttr.xls" RowNum = 1 Header = False ' Iterate through model space finding ' all block references. For Each elem In ThisDrawing.ModelSpace With elem ' When a block reference has been found, ' check it for attributes If StrComp(.EntityName, "AcDbBlockReference", 1) _ = 0 Then If .Layer = "-07-NOMS-PERSONNES" Then If .HasAttributes Then ' Get the attributes Array1 = .GetAttributes ' Copy the Tagstrings for the ' Attributes into Excel For Count = LBound(Array1) To UBound(Array1) If Header = False Then If StrComp(Array1(Count).EntityName, _ "AcDbAttribute", 1) = 0 Then ExcelSheet.Cells(RowNum, _ Count + 1).Value = _ Array1(Count).TagString End If End If Next Count RowNum = RowNum + 1 For Count = LBound(Array1) To UBound(Array1) ExcelSheet.Cells(RowNum, Count + 1).Value _ = Array1(Count).TextString Next Count Header = True End If End If End If End With Next elem Excel.Application.Quit End Sub

Bonjour, une référence de bloc peut au plus accepter 8 attributs. Peut on rajouter des attributs? Si oui comment? MERCI BEAUCOUP!