kruszynski

Dziękuję za uznanie. Chciałbym tylko zauważyć że to ja rozmawiałem z Panem telefonicznie, czyli wyszło, że mam wiedzę większą od samego siebie :) . A tak na poważnie to rozwiązanie podpowiedział mi na szybko przedstawiciel ZWSOFT.

Witam W katalogu ZWCADa powinien być plik: zwxdwgfile.dll. Proszę zmienić jego nazwę i spróbować jeszcze raz uruchomić program. Pozdrawiam.

Witam Czy programu nie da się uruchomić tylko w trybie Administratora a klikając dwukrotnie na ikonce otwiera się poprawnie? W taki przypadku zapora systemowa czy inna kontrola konta użytkownika blokuje program. Czy wyświetla się jakiś komunikat błędu? Pozdrawiam

Witam Myślę, że najłatwiejszy sposób to obrysować 3dFace polilinią3d i użyć polecenia loft, zaznaczyć dwie polilinie3d, Pozdrawiam

Witam Przekażę Pana zgłoszenie do ZWSOFT, być może im uda się znaleźć w tym jakąś prawidłowość i rozwiązać problem. Pozdrawiam

W jaki sposób Pan kopiuje rysunek? CTRL+C, w nowym rysunku: CTRL+V . Czy przez funkcje ZWCADa? czy jeszcze inaczej? Czy skala 5000 wpisuje się samoczynnie przy wklejaniu? czy po wklejeniu jest skala 200 a Pan ją ręcznie zmienia na 5000?

Witam Sprawdzałem te pliki, i nie udaje mi się powtórzyć opisanego przez Pana objawu. Czy mógłby Pan spróbować jeszcze raz przekopiować zawartość rysunku do nowego pliku? Proszę o informację czy ten problem się powtarza. Pozdrawiam

Witam W polskiej wersji ZWCADa angielskie polecenia nie są domyślnie dostępne. Prześlę Panu plik definiujący angielskie aliasy do polskich poleceń, jego wczytanie rozwiąże pierwszy opisany problem Aby rozwiązać drugi proszę w katalogu support ZWCADa domyślnie (C:\Program Files (x86)\ZWCAD+ 2012 PLK\support\) znaleźć plik zwcad.fmp i usunąć ostatnie linie mapujące czcionki romans.

Witam Nie udało mi się potwierdzić takiego działania w programie. Czy to dzieje się na jakimś określonym pliku ? czy udaje się Panu powtórzyć to wielokrotnie? Proszę o przesłanie na adres pomoc@dobrycad.pl przykładowego pliku, na którym wystąpił problem. Postaram się ustalić przyczynę. Proszę również o podanie numeru kompilacji, który można odczytać wpisując polecenie vernum oraz sprawdzić czy to samo powtarza się na najnowszej kompilacji, do której link przesłałem Panu w prywatnej wiadomości Pozdrawiam

Witam Otrzymałem odpowiedź z ZWSOFT w sprawie funkcji join dla splanów. Zgłoszeniu nadano numer: 4554 i funkcjonalność ta zostanie wprowadzona najszybciej jak to będzie możliwe. Pozdrawiam

Witam Narzędzie umożliwiające numerację tekstów znajduje się również w nakładce Tools naszego autorstwa. Więcej informacji i wersja testowa znajdują się na stronie http://zwcad.pl/tools-3.html Pozdrawiam

Witam Oczywiście procedurę można przerobić na używającą mleader. Wynik będzie następujący: (defun pt2txt (Px / ) (strcat (rtos (car Px)) "," (rtos (cadr Px)) "," (rtos (caddr Px))) ) (defun c:tt (/ pt1 pt2 e ) (setq osmode1 (getvar "osmode"))(setq osmode3 (getvar "osmode")) (If (= sc2 nil)(setq sc2 (getvar "dimscale"))) (if (= sc3 nil) (progn (setq sc3 (getreal (strcat "\nPodaj skalę rysunku <" (rtos sc2 2 0) ">: ") )) (if (= sc3 nil)(setq sc3 sc2)) (setq sc2 sc3) )) (command "_textstyle" "standard") (setq h (/ (* sc3 25) 10)) (setq h1 (* sc3 0.5)) (setq warstwa (getvar "clayer")) (command "_ortho" "on") (setq war "opis") (command "_layer" "m" "opis" "" ) (command "_osnap" "nea") (setq pt1 (getpoint "\n Start :")) (command "_osnap" "non") (setq pt2 (getpoint "\n To point :")) (command "_mleader" (pt2txt pt1) (pt2txt pt2) pause ) ;(command "_change" "last" "" "p" "c" "8" "") (command "_layer" "set" warstwa "") (command "_osmode" osmode1 ) );defun Dalej treść można wpisywać jedynie w linii poleceń bez uruchomienia okna edycji mtext Pozdrawiam

Witam Problem z MTextem jest taki, że w starszej wersji ZWCADa (command "mtext" pt2 "H" h "J" "Bl" "W" w "") Tworzyło tekst i prosiło Użytkownika o wpisanie treści. Wersji 2012+ MText w tej postaci kończy działanie. Jedyny sposób jaki znam, by w tej sytuacji poprosić Użytkownika o wpisanie tekstu jest użycie funkcji (getstring) Niestety nie pozwala ona na użycie wbudowanego edytora a jedynie podanie treści, która będzie użyta jako wartość tekstu. Kolejna sprawa to funkcja: (command "layer" "m" "opis" "" "" "" "") gdzie "" kończy polecenie a kolejne "" powtarzają ostatnio użyte polecenia. Funkcja powinna mieć raczej postać: (command "layer" "m" "opis" "") Całość kodu mogłaby wyglądać tak (defun c:tt (/ pt1 pt2 e ) (setq osmode1 (getvar "osmode"))(setq osmode3 (getvar "osmode")) (If (= sc2 nil)(setq sc2 (getvar "dimscale"))) (if (= sc3 nil) (progn (setq sc3 (getreal (strcat "\nPodaj skalę rysunku <" (rtos sc2 2 0) ">: ") )) (if (= sc3 nil)(setq sc3 sc2)) (setq sc2 sc3) )) (command "_textstyle" "standard") (setq h (/ (* sc3 25) 10)) (setq h1 (* sc3 0.5)) (setq warstwa (getvar "clayer")) (command "_ortho" "on") (setq war "opis") ;(command "layer" "m" "opis" "" "" "" "") (command "_layer" "m" "opis" "") (command "_osnap" "nea") (setq pt1 (getpoint "\n Start :")) (command "_osnap" "non") (setq pt2 (getpoint "\n To point :")) (setq radx (angtof "0" 0)) ;(setq rady (angtof "90" 0)) ;(setq rad45 (angtof "45" 0)) ;(setq rad60 (angtof "60" 0)) ;(setq rad30 (angtof "30" 0)) ;(setq rad300 (angtof "300" 0)) (setq w (* (* sc3 25) 10)) (setq pt6 (polar pt2 radx w)) (setq wartosc (getstring "podaj treść" )) ;(if (<= (car pt1)(car pt2)) ; (progn ; (command "_mtext" pt2 "H" h "J" "Bl" "W" w wartosc "") ; ) ; (progn ; (command "_mtext" pt2 "H" h "J" "Br" "W" w wartosc "") ; ) ;) ;(if (/= e nil) (command "_leader" pt1 pt2 "a" wartosc "") (command "_regen") (COMMAND "_change" "last" "" "p" "c" "8" "") (command "_layer" "set" warstwa "") (command "_osmode" osmode1 ) );defun Pozdrawiam

Im więcej to poznaję, tym mniej rozumiem. Z zamieszczonego przykładu wynika, że tworzony jest pusty tekst, bez treści, który jest mierzony. ZWCAD zwraca tutaj ((0.0 0.0 0.0) (0.0 0.0 0.0)) ZWCAD+ nil. To powoduje dalsze komplikacje. Mogę się mylić, dawno tego nie używałem, ale z tego co pamiętam, to textbox powinien określać granice tekstu, ale tylko jednowierszowego. Dla tekstów wielowierszowych należałoby raczej użyć bardziej uniwersalnej funkcji: vla-getboundingbox.

Witam Problem nie leży w punktach wskazanych ale w użyciu funkcji (setq pt3 ( cadr (textbox e))) textbox zwraca nil jeszcze niezupełnie rozumiem dlaczego. Postaram się to ustalić. Z tego co widzę w kolejnych liniach kodu, na podstawie punktów obliczonych z (textbox) obliczana jest długość, która nigdzie dalej nie jest użyta. Może więc można to zwyczajnie usunąć? czy może coś jeszcze gdzieś korzysta z wartości tu obliczonych? Pozdrawiam

Witam Problem może być spowodowany przez dwie przyczyny 1. Plik korzysta z czegoś jeszcze: (load "F:/a_block/lay/tlyr") Czy to jest dostępne i czy w takiej postaci bez rozszeżenia jest poprawne? 2. ZWCAD+ w polskiej wersji językowej nie posiada zdefiniowanych poleceń w języku angielskim. Można korzystać z domyślnych poleceń, które są zgodne z angielskimi, ale poprzedzone znakiem _ czyli przy każdym użyciu poleceń (command ...) nazwa polecenia i parametry powinny zaczynać się od _ co daje uniwersalność objawiającą się w możliwości uruchamiania poleceń na dowolnej platformie językowej. Przykład: (command "change" "last" "" "p" "c" "8" "") Powinno być (command "_change" "_last" "" "_p" "_c" "8" "") Pozdrawiam

Witam Dziękuję za informacje. Postaram się to uwzględnić w najbliższej aktualizacji. Pozdrawiam

Kierunek dobry, można spróbować jeszcze użyć właściwości np Caption albo FullName z obiektu zwróconego przez (vlax-get-acad-object). Wartość zwrócona przez vernum składa się z daty i numeru w nawiasie, może to właśnie ten numer będzie mógł być informacją, na której może Pan się oprzeć. Jadnak żadne z tych rozwiązań nie jest doskonałe i daje potrzebnej informacji wprost, a każde wymaga interpretacji odczytanej wartości.

Witam Taka funkcjonalność ma być wprowadzona, zgłoszeniu nadano ID 922. Niestety nie udało mi się uzyskać od ZWSOFT żadnej deklaracji czasowej w tym zakresie. Pozdrawiam

Witam Zagadnienie jest bardzo skomplikowane. Chcieliśmy zrobić coś podobnego, ale znacznie łatwiej było nam wykorzystać do tego C++ i ZRX więc zrezygnowaliśmy z próby nawiązania takiego połączenia przez LISP. Pozdrawiam

Witam Myślę, że najłatwiejszym sposobem byłoby odczytanie wartości zmiennej systemowej vernum: (getvar "vernum") Pozdrawiam

Problem występuje kiedy kopiujemy treść tekstu, kiedy polecenie _.mtedit jest aktywne, a wklejamy kiedy nie ma aktywnej żadnej funkcji, wkleja się tekst wyświetlany jako ramka, po jej wstawieniu symbol 2 z indeksem górnym wyświetla się jako odwrócony przecinek. Oczywiście zaraz zgłoszę problem do ZWSOFT

Witam W wersji, którą mam aktualnie zainstalowaną nie udało mi się powtórzyć takiego działania programu. Proszę o podanie wersji którą Pan ma. wersję może Pan odczytać wpisując polecenie VERNUM. Proszę również przesłać przykładowy plik na adres pomoc@dobrycad.pl . Pozdrawiam

Witam Ok, teraz rozumiem, jest to trochę inaczej niż w znanym nam przypadku, niemniej dalej niepoprawnie. Oczywiście zgłoszę to do ZWSOFT. Pozdrawiam

Witam Sprawdziliśmy przypadek, który Pan przesłał i we wszystkich tekstach, jakie są w tym rysunku symbol średnicy udało się wpisać poprawnie. Pojawił się natomiast inny problem, polegający na tym, że w czasie kopiowania tekstów przez kombinację CTRL+C, CTRL+V symbol średnicy podmienia się na R^ we wklejonym tekście. To oczywiście zgłosiliśmy już do ZWSOFT. Czy w tych, przypadkach, jakie są na załączonym przez Pana tekście błędny symbol powstał przez wpisanie? czy w skopiowanym tekście? Pozdrawiam