[ActiveSelectionSet]

No nie zapoznawałem się pod kątem czasu oczekiwania - raczej zakładałem zdroworozsądkowe podejście do zagadnienia supportu.

Co do firmy - faktycznie ktoś próbował pomóc ale problem jak był tak jest. Rozwiązanie jedyne to zmiana podejścia co w moim przypadku nie wchodzi w grę.

Ciekawy jestem czy support innych programów tej klasy jest na takim samym poziomie.

W sumie dostrzegam taką tendencję w przypadku kilku producentów - czyli pęd do wydawania kolejnych wersji. Różnica jest jednak taka, że to co wychodzi jest dobrze wytestowane.

No nic, niewątpliwie ZWCAD nie będzie platformą którą bym komukolwiek polecał.

b

[ActiveSelectionSet]

Na chwilę obecną nie mogę Panu zaproponować rozwiązania. Jedyne co pozostaje to czekać na odpowiedź z ZWSOFT

Jak długo ? Czy tyle czasu zwykle trwa reakcja producenta ?

b

[ActiveSelectionSet]

U konkurencji działa : )

b

[ActiveSelectionSet]

Kosultujemy sprawę z Producentem ZWCADa. Co udało się dotychczas ustalić, to aby pobrać zbiór wskazanych elementów można posłużyć się następującą funkcją.

Sub Example_ActiveSelectionSet()
   Dim sset As ZwcadSelectionSet
   Set sset = Thisdocument.SelectionSets.Item("*ACTIVE")
End Sub

Za pierwszym razem ten sam błąd ("... failed"). Potem zniemiłem na ActiveDocument i zadziałało (w sensie że nie wywaliło wyjątku). Potem przywróciłem ThisDocument i zadziałało ...

W KAŻDYM RAZIE ZA KAŻDYM RAZEM sset.Count = 0 !!!! CZYLI NIE DZIAŁA !!!

Coś mi się zdaje że stabilne / wytestowane środowisko to to nie jest.

Dzisiaj zaczynam testy na BrisCAD'zie zobaczymy jak to jest u konkurencji.

b

[ActiveSelectionSet]

Mam pytanie - czy ja coś robię nie tak czy to jakiś bug. Chcę napisać procedurę która po uruchomieniu albo zrzuca współrzędne zaznaczonych linii, albo jeśli zaznaczenia nie ma zaznacza wszystkie elementy i zrzuca wszystkie:

Sub GetAllElements()

Dim theSS As ZwcadSelectionSet

Dim theE As ZwcadEntity

Dim theDeleteSelection As Boolean

'Set theSS = Thisdocument.ActiveSelectionSet

'Set theSS = Thisdocument.SelectionSets.Item(Thisdocument.SelectionSets.Count - 1)

If theSS.Count = 0 Then

theSS.Select zcSelectionSetAll

theDeleteSelection = True

Else

theDeleteSelection = False

End If

If theSS.Count > 0 Then

For Each theE In theSS

ProcessCurrent theE

Next

End If

If theDeleteSelection Then theSS.Clear

End Sub

Set theSS = Thisdocument.ActiveSelectionSet - działa loteryjnie. Od czasu do czasu jest błąd "Method 'ActiveSelectionSet' of object 'IIcadDocument' failed". Drugi sposób działa. Problem mam jednak inny - nawet jeśli przed uruchomieniem procedury zaznaczę elementy to theSS.Count zawsze jest 0 !!! Czy to tak powinno być ?

Wersja 2011.10.30(17176)

b