VBA ZCadGroup [rozwiązany]


JasW
 Share

Recommended Posts

Ostatni priorytetowy dla mnie element w VBA (zgłaszany od ok 2 miesięcy) i teraz niestety ponownie zgłoszony do zwsoft (http://www.zwsoft.com/zwcad_forum/thread-4629-1-1.html):

Obsługa obiektu ZCadGroup zrealizowana w vernum=10726 tylko częściowo. 

a) Dostęp do obiektu już jest ( daje sie przypisać ) np. :

     Set Group = ThisDrawing.Groups.Item(0) # vernum=10203 error; vernum10727 ok.


b) Niiestety chyba słabo wytestowane. Jak chcę pobrać listę obiektów do kolejny błąd : 
 

   For i=0 to Group.Count-1
      Set Ent= Group.Item(i) ;    # <- vernum 10726 error
  End; 

J.
 

 

 

 

Link to comment
Share on other sites

To niestety nie to samo:

Dim Group as Variant

For i ...

Set Group = ThisDrawing.Groups.Item(i)

MsgBox TypeName(Group)

Powyżej uzyskaliśmy nadal tylko obiekt typu ZCadGroup  ( część a) mojego przykładu.

Mi chodzi o dostęp do obiektów ZCadEntity których kolekcje przechowują obiekty  ZCadGroup

np: (kod w jednej linii) :

Set Ent=ThisDrawings.Groups.Item(o).Item(0)     // Czyli:  pobierz pierwszy obiekt ZCadEntity   pierwszej grupy 

J.

Link to comment
Share on other sites

  • 4 weeks later...
  • dmatusz3 changed the title to VBA ZCadGroup [rozwiązany]
  • dmatusz3 locked this topic
Guest
This topic is now closed to further replies.
 Share