kruszynski

Proszę wpisać polecenie ZWCMDLINE i wartość ustawić na 0

XP nie ma Kontroli konta użytkownika. Czy problem pojawia się na jakimś określonym pliku? czy na wielu różnych? proszę sprawdzić na najprostszym, zawierającym tylko jedną bryłę. Czy na komputerach na których jest problem, zainstalowany jest ten sam program antywirusowy?

Sprawdziłem to Ctrl+C,V,X i działa to poprawnie, możliwe jest też definiowanie własnych skrótów. vernum 2012.07.20, może ma Pan wcześniejszą wersję.

Przeinstalowanie powinno pomóc, jeśli jest inaczej, być może pomoże obniżenie poziomu lub wyłączenie Windowsowej funkcji kontrola konta użytkownika. Poproszę również producenta programu o informacje czy jest to problem znany i jak można go rozwiązać.

Problem ze znikającym menu został zgłoszony. Tymczasem do czasu opracowania rozwiązania przez ZWSOFT Menu nie trzeba przeładować przez menuload. Wystarczy kliknąć na ikonce prawym przyciskiem myszy, i włączyć grupę.

Dokumentację może Pan znaleźć w ZWCAD 2012 w Menu Pomoc->pomoc dla programisty

Kody licencyjne dostępne są na stronie: licencja.zwcad.pl Kody do ZWCAD+ będą dostępne do 4 tygodni. Będziemy je zamieszczać sukcesywnie na tej stronie.

Dla ZWCAD+ konieczne jest kilka zmian: 1. Zmienione zostały typy obiektów np: ZwcadEntity na ZcadEntity itd 2. ThisDocument zmieniono na ThisDrawing 3. Stałe określające typy obiektów: zcLWPolyline na zcPolylineLight Public Sub si() Dim pole, pole1 As Double Dim i, m As Integer Dim sel As ZcadSelectionSet Dim SelEntity As ZcadEntity Dim kwadrat As ZcadLWPolyline Dim fild As ZcadText Dim ip Dim slajd As String On Error Resume Next Set sel = ThisDrawing.SelectionSets.Item("ss") If Not (sel Is Nothing) Then sel.Delete On Error GoTo 0 Set sel = ThisDrawing.SelectionSets.Add("ss") sel.SelectOnScreen m = sel.Count For i = 0 To m - 1 Set SelEntity = sel.Item(i) If SelEntity.EntityType = zcPolylineLight Then Set kwadrat = SelEntity pole1 = kwadrat.Area Else pole1 = 0 End If pole = pole + pole1 slajd = ThisDrawing.Utility.RealToString(pole, zcDecimal, 2) Next MsgBox slajd ip = ThisDrawing.Utility.GetPoint(, "Wstaw") ip(1) = ip(1) + 0.1 Set fild = ThisDrawing.ModelSpace.AddText(slajd, ip, 0.2) ThisDrawing.Regen (zcActiveViewport) End Sub Proszę jeszcze o podanie vernum programu, który Pan używa.

Dynamic input można wyłączyć na przycisku zaznaczonym na obrazku

ZWCAD nie umożliwia tworzenia obiektów VL.Applicatin.16. więc takie połączenie z LISP nie jest możliwe.

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