4 Replies Latest reply on Aug 7, 2017 8:32 AM by Nishihama Sayuri

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

Nishihama Sayuri Jul 27, 2017 3:02 AM

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.

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

Manikandan Babu Aug 1, 2017 2:54 AM (in response to Nishihama Sayuri)

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 Likes(1)

Actions
- Re: How to get the second entity attached to an annotation? (VBA)
  
  Nishihama Sayuri Aug 1, 2017 4:55 AM (in response to Manikandan Babu)
  
  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 Likes(1)
  
  Actions
  - Re: How to get the second entity attached to an annotation? (VBA)
    
    Manikandan Babu Aug 1, 2017 7:23 AM (in response to Nishihama Sayuri)
    
    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 Likes(1)
    
    Actions
    - Re: How to get the second entity attached to an annotation? (VBA)
      
      Nishihama Sayuri Aug 7, 2017 8:32 AM (in response to Manikandan Babu)
      
      Hi Manikandan, Thank you for your reply !
      
      [Get Feature] And [Get Faces]. I see.
      I'll try again.
      
      Like Show 1 Likes(1)
      
      Actions

Go to original post