kruszynski

Można też zrobić tak: . . On Error GoTo DefiniujStyl 'teraz styl jest, albo nie Set Blode = Thisdocument.Textstyles.Item("STYL_1") 'jak nie ma, to przechodzi do etykiety 'Tu moge używać stylu bo napewno jest Exit Sub ' jak tego nie będzie to zawsze wykona sie to co jest po etykiecie. DefiniujStyl: 'Tu tworze i definiuje właściwości stylu Resume Next ' to przenosi spowrotem do Set Blode.... End Sub Czasem też można użyć takich sposobów, ale przy większej ilości kodu łatwo sie w tym pogubić.

Niby dobrze, ale niedobrze Blocks dałem jako przykład bo taki miałem pod ręką, powinno być Textstyles czy jakoś podobnie. To co Pan napisał będzie działało ale jak na końcu nie będzie On Error GoTo 0 to poza funkcją jeśli wystąpi jakiś inny dowolny błąd to wróci znów do etykiety KONIEC co skutecznie zapętli program. Powodzenia w późniejszym diagnozowaniu gdzie jest błąd.

ja to robie tak: On Error Resume Next Set Blode = Thisdocument.Blocks.Item(newName) On Error GoTo 0 If TypeName(Blode) <> "Nothing" ' chyba może też być warunek Blode Not(IsNothing) ' tu sie dzieje co ma sie dziać EndIf

Rzeczywiście nie ma funkcji CopyFrom. Dlaczego wybrał Pan taką metodę - Tworzenie obiektu wymiarowania i kopiowanie jego ustawień do stylu? Moim zdaniem lepiej byłoby poprostu utworzyć nowy styl i poustawiać jego właściwości. W katalogu ZWCAD/Help jest plik: VBARef.chm, Jest w nim opisany model obiektowy i wszystkie dostępne właściwości i funkcje dla poszczególnych typów obiektów, style wymiarowania też są opisane. Raczej nie znam łatwego rozwiązania problemu wyświetlania innych strzałek niż są we właściwościach, skonsultuję tą sprawę z producentem programu. Inaczej programowo można edytować wymiary przez LISP. Jest to skomplikowane ale możliwe.

Zapraszam do sprawdzenia możliwości polecenia UNITS.

W tym wypadku problem jest taki, że ta funkcja działa na ZWCAD w wersji 2009 a nie 2008. Pomyśle nad "odchudzeniem" funkcji do wersji 2008

Witam Funkcja MDist gotowa. Proszę wczytać załącznik i potestować. MDist.zip

Witam W załączniku plik zawierający funkcję działającą w następujący sposób: Funkcję wywołuje się przez wpisanie polecenia WW Użytkownik wpisuje nazwę warstwy Wszystkie wymiary zostają przeniesione na warstwę o podanej nazwie. Wymiary.zip

Witam W niedługim czasie planujemy rozpocząś prace nad nakładką do programu ZWCAD, wspomagającą prace geodetów. Przewidujemy że nakładka będzie spełniała kilka podstawowych funkcji: 1. Zestaw oznaczeń zgodnych z wytycznymi instrukcji K1. 2. Numeryczny model terenu 3. Moduł przeliczający współrzędne punktów pomiędzy różnymi układami współrzędnych. W związku z tym, że nakładka jest narazie w fazie projektowania, mamy do Państwa prośbę o podanie propozycji funkcji, jakie powiinniśmy jeszcze dodać.

Proszę wykonać następujące kroki: 1. Wpisać polecenie _plot 2. W okienku drukowania (plot.jpg) kliknąć przycisk "Właściwości" 3. W kolejnym okienku (plotProperties.jpg) na zakładce "Urządzenie i ustawienia dokumentu" prosę znaleźć pozycję "Niestandardowe rozmiary papieru" i kliknąć poniżej przycisk "Dodaj".

Załączony plik pokazuje strukturę dokumentu w ZWCAD 2008, Jeśli sie nie mylę, to nie było zmian w zakresie profili w wersji 2009. A zrobienie tego w instalatorze może nie jest zupełnie proste, ale da sie zrobić, służę radą i mogę udostępnić fragmenty kodu takiego instatalatora. VBARef.zip

Najprostrzym rozwiazaniem byłoby ustawić odpowienią kolejność wyświetlania. Proszę wywołać funkcję _draworder, wskazać kreskowanie, opcja B. Spowoduje ustawienie kreskowania "na dół" rysunku, przez co, wszystkie obiekty nad nim będą widoczne

Trudna sprawa, obawiam się że zapis właściwości profilu może sie nie udać w czsie sesji, choć moge sie mylić, nigdy tego nie robiłem. Myśle że łatwiej byłoby zrobić nieduży instalatorek, który poustawia dane profilów, a dopiero później można uruchomić ZWCAD. Możnaby też spróbować zapisać profile nie przez rejestry, tylko obiektowo przez VBA.

Celem jest zdefiniowanie i ustawienie aktualnego profilu?

Witam W ramach jednej wersji, wszystkie akualizacje są darmowe, więc kupując licencję na wersję 2009, ma Pan prawo do wszystkich aktualizacji 2009. Jeśli ma Pan licencję na wcześniejszą wersję, koszt aktualizacji do wersji 2009, z dowolnej poprzedniej, wynosi 410 zł netto dla wersji STD i 500 zł netto dla wersji PRO.

Witam Jeśli dobrze zrozumiałem problem, to pomocna powinna być opcja obracania widoku. Można to zrealizować wywołując polecenie DView, opcję TW i określić kąt obrotu widoku. Procedurę zobrazować powinien załączymy filmik. Opcja Twist.zip

Ta wersja jest OK, parametry też powinny być wystarczające, A proszę spróbować wpisać polecenie ZOOMSPEED i ustawić wartość na 0. To może przyspieszyć.

Witam Problem może być zbyt wolnym komputerem, który nie nadąża odświerzać rysunku. Proszę podać numer kompilacji (polecenie vernum), być może w jakiejś starszej taka sytuacja mogła się pojawić.

Proszę o adres e-mail wyślę Panu ten plik

Witam Bardzo proszę o przesłanie pliku na adres pomoc@zwcad.pl, proszę również o informacje: 1. Czy problem występuje tylko w jednym pliku, czy we wszystkich? 2. Jaki jest numer komilacji uzywanego przez Pana ZWCADa. (informację można otrzymać wpisując polecenie vernum)

A czy miał Pan wcześniej zainstalowaną jakąś wcześniejszą wersję ZWCAD?

Czy mógłby Pan jeszcze zamieścić screena prezentującego porównanie jak to wygląda w obu programach? albo jakoś inaczej zaznaczyć gdzie są te znikające obiekty? ja to sprawdziłem u siebie na tej samej wersji i mam widoczne 90 okręgów. Bardzo prosze również o informacje o tym jaki system operacyjny i model karty graficznej Pan używa? Być może warto by też sprawdzić system programem antywirusowym

Witam Proszę podać numer kompilacji ZWCADa. Numer ten można uzyskać wpisując polecenie vernum. Jeśli to możliwe, proszę o przesłanie takiego przykładowego pliku.

Kreator dodawania plotera jest w pliku: AddPlotExe.exe. Domyślnie znajduje się on w katalogu: "C:\Program Files\ZWCAD 2009 Plk\AddPlotExe.exe"

Polilinie można połączyć używając polecenia PEDIT, i wybrać opcję J. Jednak polilinie muszą się "stykać" nie znam funkcji do łączenia niestykających się polilinii. Być może użyteczna byłaby opcja fazowania z wartoscią 0, co spowoduje wydłużenie obu linii, do ich przecięcia, i tak wydłużone polilinie połączyć. Nie ma możliwości pokazywania długości lini po najechaniu na uchwyt.