kruszynski

A tak, to wiele tłumaczy. 1. On Error Resume Next należy używać zawsze w parze z On Error GoTo 0. Wprowadzenie tej zmiany bardzo ułatwia znalezienie błędu, którym w tym przypadku było pobranie wartości Area z obiektu klasy ZwcadEntity. ZwcadEntity nie ma takie własności, stąd błąd. Rozwiązanie jest proste, trzeba sprawdzić, czy zaznaczony obiekt to polilinia, i jeśli tak, zrzutować ją na typ ZwcadLWPolyline. wówczas możliwe będzie odczytanie pola powierzchni. Całość powinna wyglądać tak: Public Sub si() Dim pole, pole1 As Double Dim i, m As Integer Dim sel As ZwcadSelectionSet Dim SelEntity As ZwcadEntity Dim kwadrat As ZwcadLWPolyline Dim fild As ZwcadText Dim ip Dim slajd As String On Error Resume Next Thisdocument.SelectionSets.Item("ss").Delete On Error GoTo 0 Set sel = Thisdocument.SelectionSets.Add("ss") sel.SelectOnScreen m = sel.Count For i = 0 To m - 1 Set SelEntity = sel.Item(i) If SelEntity.EntityType = zcLWPolyline Then pole1 = kwadrat.Area Else pole1 = 0 End If pole = pole + pole1 slajd = Thisdocument.Utility.RealToString(pole, zcDecimal, 2) Next MsgBox slajd ip = Thisdocument.Utility.GetPoint(, "Wstaw") ip(1) = ip(1) + 0.1 Set fild = Thisdocument.ModelSpace.AddText(slajd, ip, 0.2) Thisdocument.Regen (zcActiveViewport) End Sub

Sprawdziłem Kod który Pan przesłał na ZWCAD 2012 (ver. 2011.10.30) i obiektach typu poililinia, prostokąt. Wartości zwracane przez program były zgodne z oczekiwanymi, czyli pole zostało poprawnie odczytane. Czy w związku z tym, mógłby Pan przesłać własny rysunek, na którym występuje problem? Proszę również o informację o wersji ZWCADa, na której testował Pan przedstawiony kod. Informację tą uzyskać może Pan po wpisaniu polecenia vernum

Prawdopodobnie dlatego, że ZWCAD inaczej definiuje środowisko VisualLisp. Skonsultuję to zagadnienie z ZWSOFT i więcej szczegółów zamieszczę kiedy tylko uda mi się je ustalić

Czy może Pan przesłać przykładowy plik na pomoc@dobrycad.pl ? Które brakujace funkcje są dla Pana najważniejsze?

Aby uzyskać efekt przezroczystych ikonek, należy utworzyć je w formacie ico. Tam przezroczystość będzie zachowana. Inne przedstawione przez Państwa problemy zgłosiłem

ZWCAD w obecnej wersji nie umożliwia ustawienia zaciemnienia XRefa. Problem migotania jest nam znany dla podkładów rastrowych. Zgłosiliśmy problem producentowi programu.

Nie udało się nam potwierdzić takiego działania programu. Czy zauważył Pan może jakąś prawidłowość kiedy litery wpisują się w odwróconej kolejności?

W oficjalnej wersji będzie możliwość dostosowywania interfejsu. np ikonek Zgłoszę przedstawione przez Pana problemy. Mam wątpliwość co do opisanego przez Pana problemu z wydrukiem fotografii. Na czym polega ten problem? Czy jest to związane z ZWCADem?

Dziękuję za zgłoszenie. Prześlemy Producentowi programu Pańskie sugestie

Proszę o informacje, jaką wersję Pan używa. Informacje te można uzyskać wpisując polecenie "vernum". Odnośnie problemu z wyświetlaniem okna proszę podesłać zrzut z ekranu.

Oto przykład działającego menu ***MENUGROUP=ZW ***TOOLBARS **RT ~O0 [_Toolbar("RT", _Floating, _Show, 777, 444, 0)] ~O1 [_Flyout("Otmetka", "Otm.bmp", "Otm.bmp", _OtherIcon, ZW.RT_Otmetka)] **RT_Otmetka ~§°2 [_Toolbar("V_Otmetka", _Floating, _Hide, 666, 333, 0)] ~§°3 [_Button("Otmetka", "Otm.bmp", "Otm.bmp")]^C^CROtmetka ~§°4 [_Button("Otm.bas", OtmD.bmp, OtmD.bmp)]^C^CROtmetkaD ~§°5 [_Button("Otm.bas.chain", OtmDA.bmp, OtmDA.bmp)]^C^CROtmetkaDD **Helpstrings ~§°1 [draw mark] ~§°3 [draw mark, var1] ~§°4 [draw mark, v2 - from base] ~§°5 [draw mark, v3 - from base, chain] Różnice jakie muszą być wprowadzone to: 1. Flyout jako ostatni parametr używało nazwy toolbar w powyższym przykładzie np: RT_Otmetka Nazwę należy poprzedzić nazwą całego menugroup i kropką czyli tutaj ZW.RT_Otmetka 2. na końcu definicji flyout dodawałem funkcję która domyślnie ma się uruchamiać, to należy usunąć. Gdyby nie udało się Panu uruchomić poprawnie pliku, proszę o przesłanie go na adres pomoc@dobrycad.pl. Postaramy sie pomóc. Zmiany parametrów wywoływanych funkcji prawdpodobnie dokonane były by uzyskać zgodność ze standardem AutoCADa.

Sprawdziłem opisany przez Pana przypadek, potwierdzam takie działanie na ZWCAD 2012. Niestety nie udało mi się znaleźć rozwiązania problemu w 2012. W ZWCAD+ nie ma problemu. Przy okazji chciałbym poinformować, że w przyszłym tygodniu zostanie oficjalnie wydany ZWCAD+ Będzie w nim możliwość tworzenia własnych skrótów i ikon.

Jest kilka zmian w VBA z pewnością największą zmianą jest zmiana formatu pliku. Najłatwiej problem ten jest rozwiązać przez uruchomienia pustego projektu i poprostu przekopiować cały kod pomiędzy programami. Kolejną różnicą jest zmiana w modelu z ThisDocument na ThisDrawing. Należy też zmienić metodę dodawania punktu z AddPointEntity na AddPoint. Helpa do tej wersji ZWCADa nie ma, myślę, że w oficjalnej wersji będzie. W sumie dostosowanie nie powinno być zbyt czasochłonne.

Raporty towrzone przy krytycznym zakończeniu pracy programu dostępne są w formacie plików zip w Windows 7 należy ich szukać w katalogu: C:\Users\NazwaUżytkownika\AppData\Roaming\CrashReport\BugReport Proszę ostatni raport wysłać mailem na pomoc@dobrycad.pl

Dziś rozmawiałem z Przedstawicielem ZWSOFT i potwierdzenie Pańskiej sugestii co do zaprzestania wydawania poprawek ZWCAD 2012 byłoby dużym nadużyciem. ZWSOFT przewiduje wydanie aktualizacji ZWCAD 2012, termin jeszcze nie jest znany

Dowiedziałem się, że sytuacja taka wynika z problemu w ZWCAD 2012. Został on rozwiązany w ZWCAD+, niestety nie mogę zaproponować żadnego rozwiązania tymczasowego czy obejścia tej sytuacji

Do edycji wystarczy zwykły Notatnik. Uruchomić można w ZWCAD w Narzędzia->Wczytaj aplikację(lisp), przycisk dodaj plik. Wskazujemy plik *.lsp uruchamiamy polecenie zdefiniowane w kodzie.

Rzeczywiście na tym bloku w ZWCAD 2012 nie zmienia szerokości ZWCAD+ wykonuje to bez problemu. Zgłoszę to do ZWSOFT

Właśnie to sprawdziłem i działa w ZWCAD+. Sprawdziłem to też na ZWCAD 2012 i też działa, oba przypadki. Więc problem się nie powtórzył. Różnica polega na tym, że w ZWCAD 2012 konieczne było (vlax-invoke-method Obj 'update), w ZWCAD+ blok zaktualizował się automatycznie.

Prawdopodobnie będą jakieś poprawki, ale nie mogę tego zagwarantować

Sprawdziłem Pańskie zgłoszenie. Rzeczywiście w aktualnej wersji działa jak Pan opisuje. Dobra wiadomość jest taka, że w nowej wersji problem został rozwiązany

Zgadza się, ścieżka musi być na środku

Można wyciągnąć linię. Funkcja wyciągania na wysokość nie pozwala na wyciąganie linii, natomiast funkcja wyciągania po ścieżce radzi sobie z tym bez problemu. Czyli należy wejść w menu Rysuj->Bryły->Przeciągnięcie po ścieżce, zaznaczyć linię, która ma być wyciągnięta i tymczasową dorysowaną linię, wzdłuż której ma być przeciągnięta początkowa linia.

Pomiędzy 10 a 15 kwietnia powinna pojawić się aktualizacja

Sam ZWCAD nie udostępnia takich funkcji. Być może w sterowniku drukarki znajdzie Pan odpowiednie ustawienia. Być może pomogłaby akualizacja sterownika.