Discussion :

[LimsWolf]

bonsoir, cela devrai etre simple mais je m'y perds.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
 
                Case "ml"
                n = 10
                    Set Selection = AcadDoc.SelectionSets.Add("SelectionML")
                        FilterType(0) = 8
                        FilterData(0) = CalqueFichier
                        FiltersType = FilterType
                        FiltersData = FilterData
                    Selection.Select acSelectionSetAll, , , FiltersType, FiltersData
 
                    For Each Objet In Selection
 
                        If Objet.EntityName = "AcDbPolyline" Then
                            Longueur = Objet.Length
                            Compteur = Compteur + Longueur
                        End If
                        If Objet.EntityName = "AcDbLine" Then
                            Longueur = Objet.Length
                            Compteur = Compteur + Longueur
                        End If
                        If Objet.EntityName = "AcDbCircle" Then
                            Longueur = Objet.Circumference
                            Compteur = Compteur + Longueur
                        End If
                        If Objet.EntityName = "AcDbArc" Then
                            Longueur = Objet.ArcLength
                            Compteur = Compteur + Longueur
                        End If
 
                            If Sheets("Travail").Cells(m, n + 1).Value = "" Then
                                    Sheets("Travail").Cells(m, n + 1).Value = Longueur
 
                                    n = n + 1
                            End If
 
Cells(m, 10).FormulaLocal = "" & Replace(Cells(m, 10).FormulaLocal, "", "") & "+" & " " & Longueur
 
 
                    Next Objet 
 
                    Sheets("Travail").Cells(m, 9).Value = Compteur
                    AcadDoc.SelectionSets.Item("SelectionML").Delete
                    Compteur = 0

Pouvez vous m'aide ?

Je voudrai que ma variable Longueur dans le dernier IF soit un lien pour rendre visible autocad et zoomer sur l'objet ou le sélectionner... ou autre.

avec l'evenement BeforeDoubleClick

ou un lien hypertext.

Merci

[LimsWolf]

Quelqu'un a une petite idée,

pour mettre le contenue de la cellule soit la variable "Longueur", ou la cellule elle même soit Cells(m,n+1), en lien vers autocad.