VBA ZCadGroup [rozwiązany]

[JasW]

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.
 

 

 

 

[kruszynski]

Potwierdzam, pobierając element z grupy otrzymujemy błąd.

[patogen.]

Sprawdźcie tak:

Dim Group as Variant

For i ...

Set Group = ThisDrawing.Groups.Item(i)

MsgBox TypeName(Group)

 

Edytowane 10 Listopada 2016 przez patogen.
Formatowanie

[kruszynski]

Sprawdziłem i działa.

[JasW]

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.

[kruszynski]

No tak, i taki problem przekazałem do ZWSOFT po Pana wczorajszym zgłoszeniu.

[patogen.]

5 godzin temu, JasW napisał:

To niestety nie to samo:

 

Ok. Chodziło mi o sprawdzenie jakiego typu zwracane są obiekty i czy na pewno są to ZCadGroup.

[patogen.]

A przepraszam, nie doczytałem wcześniej że chodzi o elementy Group a nie Groups.  

Sprawdziłem u siebie teraz i ZGroup.Item(n) u mnie zwraca "nothing".

[kruszynski]

W najbliższej wersji jeszcze nie będzie to obsługiwane, ale widać że coś przy tym majstrują.

[JasW]

Uprzejmie informuję iż w vernum 12354  z 09.12 rozwiązane.

Pozdrawiam

J.

[dmatusz3]

Dzięki za informacje.

Problem rozwiązany.