AnsweredAssumed Answered

How to get the second entity attached to an annotation? (VBA)

Question asked by Nishihama Sayuri on Jul 27, 2017
Latest reply on Aug 7, 2017 by Nishihama Sayuri

Like • Show 0 Likes0
Comment • 4

I drew an annotation by pointing two entities on .slddrw file.

And I want to get second entity attached to the annotation using VBA.

2016 SOLIDWORKS API Help - Get Types of Entities Attached to Selected Annotation Example (VBA)

[GetAttachedEntities3] method returns entities, but entity order is at random.

How do I get the second entity?

---

vAttEntArr = swAnn.GetAttachedEntities3
vAttEntTypeArr = swAnn.GetAttachedEntityTypes2

If Not IsEmpty(vAttEntTypeArr) Then
    For i = 0 To UBound(vAttEntTypeArr)
         ' I want to get the second entity only. but entity order is at random.
         ' It is not always true "that i=1 entity is the second entity".
     Next i
End If

HELP me.

Manikandan Babu Aug 1, 2017 7:23 AM

Correct Answer

Hi Sayuri,

Try this for Dimxpert dimension, Add reference for dimxpert.

Dim swApp As SldWorks.SldWorks

Dim swmodel As SldWorks.ModelDoc2

Dim swSchema As SldWorks.DimXpertManager

Dim swDXPart As SwDimXpert.DimXpertPart

Dim Annotations As Variant

Dim swdim As SwDimXpert.DimXpertAnnotation

Dim swfeat As SwDimXpert.DimXpertFeature

Dim faces As Variant

Dim swent As SldWorks.Entity

Sub main()

Set swApp = Application.SldWorks

Set swmodel = swApp.ActiveDoc

Set swSchema = swmodel.Extension.DimXpertManager("Default", True)

Set swDXPart = swSchema.DimXpertPart

Annotations = swDXPart.GetAnnotations

Set swdim = Annotations(0)

Set swfeat = swdim.Feature

faces = swfeat.GetFaces

Set swent = faces(1)

swent.Select True

End Sub

Manikandan

See the reply in context

No one else had this question

Outcomes

Manikandan Babu Aug 1, 2017 2:54 AM

Hi Sayuri,

I have tried with below to code finding the second entity.

Even i have tried for multiple dimension,it is working fine.

Dim swApp As SldWorks.SldWorks

Dim swmodel As SldWorks.ModelDoc2

Dim swdraw As SldWorks.DrawingDoc

Dim swview As SldWorks.View

Dim Annotations As Variant

Dim swann As SldWorks.Annotation

Dim swentity As SldWorks.Entity

Dim vAttEntTypeArr As Variant

Sub main()

Set swApp = Application.SldWorks

Set swmodel = swApp.ActiveDoc

Set swdraw = swmodel

Set swview = swdraw.GetFirstView

Set swview = swview.GetNextView

Annotations = swview.GetAnnotations

Set swann = Annotations(1)

vAttEntArr = swann.GetAttachedEntities3

Set swentity = vAttEntArr(1)

swentity.Select True

End Sub

Manikandan

Actions

Nishihama Sayuri @ Manikandan Babu on Aug 1, 2017 4:55 AM

Hi Manikandan. Thank you for your reply !

I tried your code and it works fine in .slddrw.

But I tried it to DimXpert dimension in .sldprt, [swAnn.GetAttachedEntities3] doesn't work correctly.

So I'm going to try another way to get those entities.

I appreciate your help anyway!

ps sorry for my poor english...

Actions

Manikandan Babu @ Nishihama Sayuri on Aug 1, 2017 7:23 AM

Hi Sayuri,

Try this for Dimxpert dimension, Add reference for dimxpert.

Dim swApp As SldWorks.SldWorks

Dim swmodel As SldWorks.ModelDoc2

Dim swSchema As SldWorks.DimXpertManager

Dim swDXPart As SwDimXpert.DimXpertPart

Dim Annotations As Variant

Dim swdim As SwDimXpert.DimXpertAnnotation

Dim swfeat As SwDimXpert.DimXpertFeature

Dim faces As Variant

Dim swent As SldWorks.Entity

Sub main()

Set swApp = Application.SldWorks

Set swmodel = swApp.ActiveDoc

Set swSchema = swmodel.Extension.DimXpertManager("Default", True)

Set swDXPart = swSchema.DimXpertPart

Annotations = swDXPart.GetAnnotations

Set swdim = Annotations(0)

Set swfeat = swdim.Feature

faces = swfeat.GetFaces

Set swent = faces(1)

swent.Select True

End Sub

Manikandan

Actions

Nishihama Sayuri @ Manikandan Babu on Aug 7, 2017 8:32 AM

Hi Manikandan, Thank you for your reply !

[Get Feature] And [Get Faces]. I see.

I'll try again.

Actions

4 Replies

Manikandan Babu Aug 1, 2017 2:54 AM
Mark Correct
Correct Answer
Hi Sayuri,

I have tried with below to code finding the second entity.
Even i have tried for multiple dimension,it is working fine.

Dim swApp As SldWorks.SldWorks
Dim swmodel As SldWorks.ModelDoc2
Dim swdraw As SldWorks.DrawingDoc
Dim swview As SldWorks.View
Dim Annotations As Variant
Dim swann As SldWorks.Annotation
Dim swentity As SldWorks.Entity
Dim vAttEntTypeArr As Variant

Sub main()
Set swApp = Application.SldWorks
Set swmodel = swApp.ActiveDoc
Set swdraw = swmodel
Set swview = swdraw.GetFirstView
Set swview = swview.GetNextView
Annotations = swview.GetAnnotations
Set swann = Annotations(1)
vAttEntArr = swann.GetAttachedEntities3
Set swentity = vAttEntArr(1)
swentity.Select True
End Sub

Manikandan
Like • Show 1 Like1
Actions
- Nishihama Sayuri @ Manikandan Babu on Aug 1, 2017 4:55 AM
  Mark Correct
  Correct Answer
  Hi Manikandan. Thank you for your reply !
  
  I tried your code and it works fine in .slddrw.
  But I tried it to DimXpert dimension in .sldprt, [swAnn.GetAttachedEntities3] doesn't work correctly.
  
  So I'm going to try another way to get those entities.
  
  I appreciate your help anyway!
  
  ps sorry for my poor english...
  Like • Show 1 Like1
  Actions
  - Manikandan Babu @ Nishihama Sayuri on Aug 1, 2017 7:23 AM
    Unmark Correct
    Correct Answer
    Hi Sayuri,
    
    Try this for Dimxpert dimension, Add reference for dimxpert.
    
    Dim swApp As SldWorks.SldWorks
    Dim swmodel As SldWorks.ModelDoc2
    Dim swSchema As SldWorks.DimXpertManager
    Dim swDXPart As SwDimXpert.DimXpertPart
    Dim Annotations As Variant
    Dim swdim As SwDimXpert.DimXpertAnnotation
    Dim swfeat As SwDimXpert.DimXpertFeature
    Dim faces As Variant
    Dim swent As SldWorks.Entity
    
    Sub main()
    Set swApp = Application.SldWorks
    Set swmodel = swApp.ActiveDoc
    Set swSchema = swmodel.Extension.DimXpertManager("Default", True)
    Set swDXPart = swSchema.DimXpertPart
    Annotations = swDXPart.GetAnnotations
    Set swdim = Annotations(0)
    Set swfeat = swdim.Feature
    faces = swfeat.GetFaces
    Set swent = faces(1)
    swent.Select True
    End Sub
    
    Manikandan
    Like • Show 1 Like1
    Actions
    - Nishihama Sayuri @ Manikandan Babu on Aug 7, 2017 8:32 AM
      Mark Correct
      Correct Answer
      Hi Manikandan, Thank you for your reply !
      
      [Get Feature] And [Get Faces]. I see.
      I'll try again.
      Like • Show 1 Like1
      Actions

How to get the second entity attached to an annotation? (VBA)

Outcomes

Related Content

Recommended Content