kruszynski

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

Witam Sprawdziłem to też na wersji 2012 i tam też to działa. Można w MText wstawić pole, w liście wybrać Diesel expression i tam wstawić podaną przez Pana treść. Informacje wyświetlają się poprawnie Pozdrawiam

Witam Nie korzystałem wcześniej z wyrażeń DIESEL choć spotkałem się z nimi. Być może udałoby mi się ustalić na czym polega problem, jeśli przesłałby Pan przykład pliku, kodu, w którym wykorzystuje Pan te wyrażenia. Pozdrawiam

Witam Pomimo wielu prób na różnych komputerach nie udało się nam powtórzyć opisanego przez Pana przypadku. Znaczenie może mieć wielkość rysunku, skale, jednostki, być może jakieś inne opcje ustawione w oknie, którego część jest wyłączona, dlatego prosiłbym o przesłanie pliku do bardziej szczegółowej analizy. Pozdrawiam

Witam Nie udało mi się powtórzyć opisanego przez Pana przypadku. Czy mógłby Pan przesłać przykładowy plik, i procedurę w VLISP, której Pan używa? Postaram się znaleźć jakieś rozwiązanie. Pozdrawiam

Witam Spotkałem się z podobnym problemem w którejś z wcześniejszych kompilacji ZWCADA. W obecnej (2013.03.31) problemu takiego jeszcze nie spotkałem. Proszę sprawdzić, czy ma Pan zainstalowany ZWCAD+ SP2. vernum (2013.03.31). W tej starszej wersji problem polegał na tym, że ZWCAD korzystał z VBA 6.0 a zainstalowane było 6.5 albo odwrotnie. Proszę też sprawdzić jaką wersję VBA ma Pan teraz zainstalowaną. Pozdrawiam

Nie mam pomysłu co jeszcze może to powodować. Postaram się jeszcze coś ustalić z ZWSOFT, jak będę wiedział coś więcej zamieszczę tu informacje

Dziwny jakiś to przypadek. Próbowałem powtórzyć to u siebie na tej samej wersji ZWCADA (2013.03.31) Również na Win7 Home 64-bit, ale okno się pojawia i wszystko działa OK. Próbowałem na angielskiej wersji językowej, a Pan? Czy może to jest w jakiś sposób powiązane z plikiem? próbował Pan na zupełnie nowym pustym pliku? I jeszcze jedno pytanie: Jaki interfejs ma Pan ustawiony?

Witam A na którym etapie nie udaje się wykonać operacji? Okno wyboru koloru się wyświetla po wybraniu koloru nie jest on przypisywany do warstwy? Czy może nie wyświetla się okno wyboru koloru? czy może kolor jest przypisywany poprawnie a po zamknięciu managera warstw kolor jest niezmieniony? Jaki system operacyjny Pan używa? Pozdrawiam

Witam Pracujemy właśnie nad aplikacją, która pozwoli w łatwy sposób pracować z blokami. Zapamiętywanie skal dla bloków również zamierzamy wprowadzić. Gdyby miał Pan jeszcze jakieś sugestie co funkcjonalności z tym związanej proszę o zgłoszenie pomysłów. Pozdrawiam

Witam Otrzymaliśmy odpowiedź z ZWSOFT w sprawie zapamiętywania skali bloku. Z informacji tej wynika, że w programie AutoCAD to działa w ten sam sposób jak w ZWCAD+. W związku z tym najprawdopodobniej nie zostanie to zmienione. Pozdrawiam