Lien vers un objet autocad

Fermé
LimsWolf - 18 févr. 2012 à 17:26
Raymond PENTIER Messages postés 57157 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 28 mars 2023 - 19 févr. 2012 à 01:41
Bonjour,

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


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
------------------------------------------------------------------------------------------------------
ICI
------------------------------------------------------------------------------------------------------
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 ou la Cells(m,n+1), dans le dernier IF soit un lien pour rendre visible autocad et zoomer sur l'objet ou le sélectionner... enfin que je face une action autocad.

avec l'evenement BeforeDoubleClick

ou un lien hypertext.

Merci

1 réponse

Mytå Messages postés 2969 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 930
18 févr. 2012 à 20:09
Salut le forum

Référence : Piloter AutoCAD avec Excel

Mytå
0
Raymond PENTIER Messages postés 57157 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 28 mars 2023 17 157
19 févr. 2012 à 01:41
... parce qu'on suppose, LimsWolf , que tu parles d'excel ?
0