METRAGE DANS AUTOCAD V2

Commentaire de PatDeLaYaute le 22/08/2003 21:15:38

Salut, je n'ai pas tester ton code car j'en ai pas l'utiliter, mais en ce qui concerne l'ouverture de fichier DWG tu peux aller a cette adresse : http://www.opendwg.org si tu ne connais pas, il y a en telechargement des outils pour developper en C ou C++ et peut etre en VB je crois.

@+ et bon courage ;-)

Commentaire de fgansoinat le 25/08/2003 20:27:31

Pour aller plus vite, il te suffit de passer par les selctionset....
avec des filtres sur le datatype :

Option Explicit
Public EntitéCodeDXF As String
Public groupCode As Variant, dataCode As Variant
Public NameSelSet As String
Public appCad As AcadApplication
Public drw As AcadDocument


Sub TrouverBloc()
        Dim SelSet As AcadSelectionSet
        'Initialisation
                      NewSelSet ("Test")
                      Set SelSet = drw.SelectionSets.Item("Test")
                      SelSet.Clear
                      GSelset.FiltrerEntité "line"
                      SelSet.Select acSelectionSetAll, , , groupCode, dataCode
          Dim i As Integer
          MsgBox "Nombre de lignes : " & SelSet.Count, vbInformation, "Test FG"
          For i = 0 To SelSet.Count - 1
            Set returnObj = SelSet.Item(i)
              returnObj.Color = acRed
              returnObj.Update
          Next i
    End Sub

Function NewSelSet(NameSelSet)
      Dim k As Integer
      Dim ssetObj As AcadSelectionSet
   For k = 0 To drw.SelectionSets.Count - 1
    If drw.SelectionSets(k).Name = NameSelSet Then
      'le jeu de selection existe deja
            Set ssetObj = drw.SelectionSets.Item(NameSelSet)
            drw.SelectionSets.Item(NameSelSet).Clear
            k = drw.SelectionSets.Count - 1 'sort de la boucle
            Exit Function
     Else
       'le jeu de selection n'existe pas... reste a le créer
            Set ssetObj = drw.SelectionSets.Add(NameSelSet)
    End If
   Next k
End Function
Sub FiltrerEntité(EntitéCodeDXF As String)
    Dim gpCode(0) As Integer
    Dim dataValue(0) As Variant
    gpCode(0) = 0
    dataValue(0) = EntitéCodeDXF
    groupCode = gpCode
    dataCode = dataValue
End Sub

Commentaire de LeVoleur le 28/06/2005 15:27:07

Salut, ça fonctionne avec la 2002. C'est interessant
a+
le voleur

Commentaire de guani le 14/02/2008 08:46:03

Bonjour tout le monde. J'ai le même problème que BLANCHERM. Je dispose d'Autocad 2005.
Apparemment je dirais que ce sont certaines lignes de code de "Form1" qui ne sont pas prises en compte par le VBE (par exemple la 1ère ligne object= "...." et Begin VB.Form Form1).
Est ce que quelqu'un a une solution???

PS: je ne suis qu'un petit débutant dans le monde d'Autocad et de la programmation VB.

Commentaire de guani le 21/02/2008 08:05:53

Voilà j'ai compilé avec Microsoft Visual Basic 2008.
J'ai résolu un maximum d'erreurs afin d'adapter ton programme.
Cependant, il reste encore des erreurs que je n'arrive pas à résoudre.
L'erreur récurente se trouve sur les lignes de code contenant l'expression:
"Acad.activedocument".
En fait, il arrive à compiler, mais le compilateur me met un exeption s'est produite de type 0x25d2454...
Aurais-tu une idée d'où cela peut venir?

Merci

A+