kruszynski

Nie. gdyby był to uchwyt obiektu wszystko byłoby OK. W tym przypadku uchwyt powinien być np 27D a odczytane cuda to np "@Ţ\002\" To byłoby zbyt daleko idące uproszczenie. W tym przypadku rzeczywiście w ten sposób oznaczyłem obejście błędu który w naszym systemie zgłoszeń ma taki numer. Nasza baza zgłoszeń powstaje od kilku lat i zawiera zgłoszenia błędów, ale też propozycje funkcjonalności ZWCADa i naszych programów, takimi zgłoszeniami są też prośby od Klientów czy z forum typu jak uruchomić w ZWCAdzie skrypt itp . Więc numer jest identyfikatorem zgłoszenia a nie każde zgłoszenie to bug.

Zasadniczo mogą. ale odczytując taki uchwyt w ZWCAD 2017 SP2 otrzymujemy jakieś cuda. Na szczęście uchwyt jest też tekstem, a tekst można odczytywać bez problemu.

Sprawdzę to.

Kilku funkcji jeszcze brakuje żeby móc uruchomić tego LISPa, nie były one też dostępne w poprzednich wersjach ZWCADa. Zgłosiłem brakujące funkcje.

ZRX się nie da. Musi być VS 2010 Pro i nic innego Może custom entity da się też tworzyć w .Net ale tego nie jestem pewien

W ZRX jest możliwość tworzenia tzw custom entity czyli własnych typów elementów. kiedy program nie jest wczytany to właśnie one wyświetlają się jaki ACAD_PROXY_ENTITY. Żeby stworzyć taki własny element, potrzebne jest środowisko Visual Studio 2010 Professional . ZWCAD 2017 powstał w Visual Studio 2010 więc właśnie ta wersja jest potrzebna, Pakiet SDK bazuje na MFC więc potrzebna jest wersja Professional (np darmowa wersja VS 2010 Express nie ma MFC) Potrzebne są jeszcze biblioteki , które zawarte są w pakiecie ZRXSDK. Również przykład znajduje się w pakiecie ZRXSDK. sam pakiet ZRXSDK dla ZWCAD 2017 SP2 dostępny jest tutaj: https://www.dropbox.com/s/akh5kbxaiqi1cut/ZWCAD_2017_SP2_ZRXSDK.exe?dl=0

Ja również skłaniałbym się do .Net , daje większe możliwości w samym środowisku ZWCAD i perspektywy poza CAD. Znam LISP i lubię, zwłaszcza z powodu łatwości ale jeśli mówimy o rozpoczęciu nauki, to raczej polecałbym .Net .

Witam Znamy potrzebę opracowania takiej funkcjonalności . Niestety nie wiem kiedy zostanie to wprowadzone w samym ZWCADzie, Być może uda nam się we własnym zakresie opracować jakieś podobne rozwiązanie.

Może teraz będzie działało na 2015? DimToBack.lsp

Ta wersja powinna działać na ZWCAD+ 2015 i ZWCAD 2017 DimToBack.lsp

W załączniku poprawka która nadpisuje właściwości. ImportWlasciwosci.zel

Mogę przygotować takiego LISPa, ale proszę na początek o odpowiedzi na kilka pytań: Automatyczną numerację atrybutów można różnie zrozumieć. np czy kolejne atrybuty w tym samym bloku maja mieć kolejne numery? czy jeden atrybut w różnych blokach ma mieć kolejne numery? Treść która była wcześniej ma się nadpisywać? czy numer ma się dopisywać przed/po aktualnej treści? Jak chciałby Pan używać funkcji? czy chce Pan wybierać bloki ? czy mają się same wybierać np po nazwie / warstwie / dotychczasowej treści któregoś z atrybutów? Może udostępniłby Pan jakiś mały przykład pliku, w którym moglibyśmy zobaczyć jak będzie wyglądał rysunek przed i jak jak powinien wyglądać rysunek po użyciu funkcji.

Pliki fas, to LISP skompilowany w AutoCADzie. Proszę skontaktować się z autorem nakładki. Dysponując kodem źródłowym twórca może zaszyfrować plik w ZWCADzie do formatu zel, który będzie mógł Pan wczytać.

OK, dodam taką możliwość

chciałem podejrzeć wartość tej właściwości na działającym ZWCADzie. (setq display (vla-get-display (vla-get-preferences (vlax-get-acad-object)))) ( vlax-dump-object display t ) zobaczyłem że nil i (RO) czyli ReadOnly. więc zapytałem ZWSOFT jak można to ogarnąć Dam znać co odpowiedzą.

tak na szybko to dlatego, że IZcadPreferencesDisplay nie ma jeszcze właściwości GraphicsWinModelBackgrndColor postaram się ustalić jak można to rozwiązać

ok, w przyszłości dodam możliwość pomiaru względem aktualnego UCS.

A mógłby Pan napisać coś więcej o tym co rozumieć jako "nie działa" ?

Nie znam sposobu żeby ustawić w ZWCAD wzory kreskowania w innym katalogu.

Załączam jeszcze pliki wzorów Hex.pat SOIL.pat

Wzoru kreskowania HEX nie ma w pliku ZWCAD.pat w w ZWCAD 2017. Utworzyłem pliki soil.pat i hex.pat w katalogu: c:\Users\xxx\AppData\Roaming\ZWSoft\ZWCAD\2017\en-US\Support\ To wystarczyło, żeby wzory stały się w dostępne ZWCAD 2017.

to może tak: (defun c:zz () (setq sciezka(car(entsel "\nWskaż ścieżkę wyciągania \n"))) (print "\nWskaż wszystkie powierzchnie") (setq pow3D (ssget)) (command "_Extrude" pow3d "" "_P" sciezka "" ) )

Jeszcze czegoś nie rozumiem, Kiedy czytałem to pierwszy raz pomyślałem o wyciąganiu w sensie zamiany np prostokąta na prostopadłościan. Jeśli tak, to to się robi funkcją _sweep a nie _extrude. W takim przypadku cały kod mógłby wyglądać tak: (defun c:zz () (setq sciezka(car(entsel "\nWskaż ścieżkę wyciągania \n"))) (print "\nWskaż wszystkie powierzchnie") (setq pow3D (ssget)) (setq i 0) (while (< i (sslength pow3D)) (setq JednaPow (ssname pow3D i )) (command "_sweep" JednaPow "" sciezka ) (setq i (1+ i) ) ) ) Chyba że chodzi o wyciąganie pojedynczej powierzchni w bryle (_extrude) ale to już ciut bardziej skomplikowane /

A jakiś komunikat błędu jest? czy jak nie działa Bardziej dziwi mnie że działa na powierzchni 3d niż że nie działa. To jest zupełnie niepotrzebne: (setq wszystkie nil ) (setq wszystkie (append wszystkie (list (cdr JednaPow)))) Jedną powierzchnię ze Zbioru selectionset wybiera się tak: (ssname pow3D i) gdzie i to kolejny index. kod: (setq JednaPow (assoc 10 pow3D)) Wyświetla mi komunikat: Error: incorrect type - <Selection Set: ffd188c0> I w sumie racja bo assoc wybiera z listy element powiązany z liczbą 10. a nie 10 czy 11 element z listy.

(setq wierzchołek (assoc 10 polilinia)) to współrzędne w formacie (10 x y z) A Ty chcesz odczytywać współrzędne z listy wszystkich współrzędnych, a nie z listy współrzędnych jednego wierzchołka (setq x2 (nth 0 wierzchołki) y2 (nth 1 wierzchołki)) Powinno być: (setq wierzchołek (cdr wierzchołek )) (setq x2 (nth 0 wierzchołek) ) (setq y2 (nth 1 wierzchołek) ) Czyli całość: (defun c:yy () (setvar "dimzin" 2) (setq PozOdn (getreal "\nPodaj poziom odniesienia \n")) (setq P1 (getpoint "\nWskaz początek ukladu wspolrzednych \n")) (setq x1 (nth 0 P1) y1 (nth 1 P1)) (setq polilinia(entget (car(entsel "\nWskaż polilinię \n")))) (setq wierzchołki nil ) (while (setq wierzchołek (assoc 10 polilinia)) (setq wierzchołki (append wierzchołki (list (cdr wierzchołek)))) (setq polilinia (cdr (member wierzchołek polilinia) ) ) (setq wierzchołek (cdr wierzchołek )) (setq x2 (nth 0 wierzchołek) ) (setq y2 (nth 1 wierzchołek) ) (setq rzedna (+ PozOdn (/ (- y2 y1) 5))) (command "_text" wierzchołek "" "" (RTOS rzedna 2 2)) ) );KONIEC