alf

poszukuję lispa, który przeprowadzi mi operację następującą: mam w rysunku bloki o różnych nazwach, które chciałabym rozbić tak, by po rozbiciu wszystkie elementy siedzące w bloku znalazły się na warstwie o takiej nazwie jaka jest nazwą bloku. Albo chociaż lisp, który zmienia nazwę elementów w bloku na nazwę bloku (kiedyś podobnie działający lisp miałam ale jakoś przepadł .. i teraz nie mogę go znaleźć). Czyli docelowo szukam takiego skutku: mam w rysunku wstawiony blok o nazwie "xyz" (lub wiele bloków o różnych nazwach) i po rozbiciu ich w otrzymuję elementy zlokalizowane na warstwach ( bez zmiany na bylayer, zawsze można zmienić na bylayer na końcu) takich jak nazywały się te bloki..

18,19,20,21,22... 😩

odświeżam, moze jakiś pomysł się urodzi.. https://forum.bricsys.com/discussion/30483/explode-line-style-to-separate-entities

znalazłam coś prostego.. może się komuś kiedyś przyda: https://forums.autodesk.com/t5/autocad-2000-2000i-2002-archive/change-points-to-symbols/td-p/208934 ;| PT2BLK.LSP (c) 2003 Tee Square Graphics converts selected points in a drawing to insertions of a block specified by the user. |; (defun C:PT2BLK (/ ss ent blk) (while (or (not (setq blk (getstring "\nBlock name: "))) (not (tblsearch "block" blk)))) (prompt "\nSelect points to replace: ") (setq ss (ssget '((0 . "POINT")))) (if ss (progn (setq n (1- (sslength ss))) (while (>= n 0) (setq pt (cdr (assoc 10 (entget (ssname ss n)))) n (1- n) );; setq (command "_.insert" blk pt "" "" "") );; while );; progn (alert "No POINT objects selected.") );; if (princ) );; defun

Poszukuję rozwiązania np lisp, na wstawianie bloku w wielu punktach na raz. Mam w dwg-u chmurę kilkudziesięciu punktów (points) a potrzebuję by w tych punktach został umieszczony konkretny blok. Ktoś może spotkał sie z rowiązaniem takiego problemu?

poprawka: po zresteowaniu kompa naprawiło się.. samo.. i wyświetla się teraz ok.. dziękuję za pomoc

pliki shx wgrałam tu oraz do katalogu z rysunkiem : ..\AppData\Roaming\ZWSOFT\ZWCAD\2018\en-US\Support ale dodatkowo tu też (choć style linii nie mają chyba nic wspólnego ze stylami czcionek), ale efekt jest bez zmian Program Files\ZWSOFT\ZWCAD 2018\fonts pliki przeslę na prv

VERNUM = "2018.03.16(29562)_x64" (read only) pomógł taki zabieg, choć nie traktuję tego jako prawidłowe rozwiązanie: wkopiowanie do tego samego katalogu pliku shx, wyświetla sie wtedy w maganerze prawie dobra nazwa stylu, ale złe wyświeltenie. Dopiero zmiana ręczna nazwy na właściwy styl powoduje wyświetlenie linii prawidłowe: przykład zmiany dotyczy warstwy zakres, druga wstwa bez zmian, wyświetla się błędnie i jeszce jedno pytanko, da sie wyexportować pakiet stylów linii siedzących w pliku dwg (style pochodzace z pliku shx) do pliku *lin? A może zna ktos sposób na export do plików rsc czytanych przez bentleya? w odpowiedzi na: też nie działa prawidłowo:

czy jakieś rozwiązanie w tej sprawie się udało uzyskac? Mam podobny problem. Plik dwg od mapowy wyświetla się ok, tj linie wyświetlają się prawidłowo (od geodety mam pliki shp), natomiaast ten sam plik podłączony pod inny dwg jako xref niestety geodezyjnych stylów nie czyta, mimo wkopiowania plików shp od geodety do supportu. Przykład dla jednej z warstw: W pliku mapowym wyświetlają się linie prawidłowo: jak się ten sam plik podłaczy jako xref gubi style linii, tj nadpisuje jako linia ciągła:

RESET naprawił co trzeba, ale jeszcze w międzyczasie zniknęły mi z okienka km Standard ikonki dla redo i undo, jak ją przywrócić? W przypadku ikonek reset nic nie zdziałał..

Coś takiego mi się stało z ZW2018 VERNUM = "2018.03.16(29562)_x64" (read only): nie pokazuje mi textów w okienku dla dalszych działań komend.. gdzieś coś się włącza/wyłącza? brak ich jest nieco frustrujący..

wielka szkoda, bo powrót "grupowy" do bezwzgl ściezki tj konkretnego katalogu byłby wielce pożyteczną sprawą..

Spróbowałam tego pispa uruchomić i coś się on nie tak zachowuje. Na jednym z plików, nie zawierjącym odniesień nie dało się tego okienka wyłączyć, ale nie jestem w stanie tego powtórzyć, wiele było okien wtedy jednocześnie otworzonych. Druga próba na pliku z podpiętymi odnośnikami z przeładowaniem była udana, ale proba powrotu do ścieżki bezezględnej spowodowała jakiś błąd. Robiłam to tym okienkiem na dole zaznaczając całą grupę odniesień z wyszukaniem innego, własciwego katalogu. Błąd polega na tym że w tym pliku nie uruchamia się już okienko xmen-a..

Takie było moje pytanie - cyt. powyżej Rozumiem, że to tak dziala (ścieżka względna w okienku "scieżka xrefa") i nie mam zastrzezeń, ale wracam do przypadku poszukowania innych sciezek plików tj działania okienka "dodatkowa ścieżka". Rozumiem że do czegoś ona powinna być przydatka, tj wyobrażam sobie jesli ktoś w moim rys zmieni ścieżkę na inną, wtedy śieżka zaamiętana, nie ważne czy względna czy bezwzględna, będzie inna.. okienko drugie w przypadku zgubienia ściezki, powinno służyć do poszukiwania pliku we właściwym wskazanym w tym okienu jako sciezka, miejscu. I o to pytałam, czy w okienku "dodatkowa ścieżka" można wpisać ścieżkę względną i jeśli tak, to jak?

problem jest chyba bardziej skomplikowany, projekty trzymamy na serwerze i korzystam ze zmapowania ścieżki, właśnie z tych powodów by ścieżki bezwzględne przy przenoszeniu katalogu projekty się nie gryzły. podłączane pliki z dysku C ze ścieżką względną podłączają się ok, natomiast ze zmapowanego serwera z pełną ścieżką.. nie wiem czy taka składnia to zalatwi, nie mam teraz mozliwości testować: ..\.. \.. \!! Odnośniki aktualne

.. ale chodzi tu o ustalenie, niezależnej od wpisanej i zapamiętanej, ściezki poszukowania xrefa, stąd było moje pytanie o składnię "ścieżki względnej", o ile ona istnieje, w okienku ścieżek dodatkowych. Bo jak wpisuję ścieżkę additional klikająć w "Browse", to wpisuje zwcad całą ścieżkę niestety.. a tu chodzi o organizację pracy na plikach, gdzie wymagana jest scieżka względna. Inne, nie powiem, że wszystkie, programy potrafią to, tj wpisanie ścieżki niepełnej powoduje, że automatycznie program szuka ściezki katalogowej od końca..

no właśnie.. bo żeby miało to, o czym piszę, sens powinna być możliwość ustawienia ścieżk względnych.. co jest odwiecznym problemem róznistych programów..

a czy da się tu wpisac ścieżki względne? np zgodnie ze składnią z kropką: .aktualne XR\

wracając do ścieżek poszukowania xrefów. Zasadniczo wygląda to tak jak na schemacie: mam w katalogu projekty poszzcególne katalogi różnych projektów, przykładowo projekt o nazwie kasuj. Tak pracuję na plikach np plik projekt v1 zawiera, odnośniki branżowe które aktualne trzymam w w katalogi o zawsze tej samej nazwie Aktualne XR oraz inne odnościki, np tabelki w kat o nazwie Standardy. Jak ustawić by w pierszszej kolejności szukał plików w tym samym katalogu a w dalszej w kat "Aktualne.." i "Standardy"? Czy działa to nie zależnie od położenia plików, np wtedy gdy znajdzie się plik w podkatalogu:

tak własnie było, działa teraz ok.

mam jeszcze jedno pytanie, jak prawidłowo wpisuje się dodatkowe ściezki poszukowań xrefów. Jesli np nie mam w tym zamym katalogu xrefy oraz magazym xrefów w katalogu nadrzędnym o nazwie np "aktulane xr" to jak to zapisać?

no fajnie, działa, dziękuję..

Wysypał mi się zw i mam teraz problem z podłączaniem odnośników, tj nie podłączają się tylko pokazuje się sama ścieżka. Czy czeka mnie naprawa zw poprzez ponowną reinstalację, czy jest na to jakiś lepszy sposób? VERNUM = "2018.03.16(29562)_x64" (read only)

i jeszcze drugi "myk", bo tak mnie nagle oświeciło ;-): zapisałam cały plik do dxf R12 i otworzyłam ponownie.. to jest chyba najszybsze rozwiązanie temat chyba do zamknięcia

nie działa, ale dorzuciłam do tego: (defun c:2D2 (/ s i) (if (setq s (ssget '((0 . "POLYLINE") (-4 . "<not") (-4 . "&") (70 . 120) (-4 . "not>")))) (repeat (setq i (sslength s)) (OldStyle2LwPolyline (ssname s (setq i (1- i)))) ) ) (princ) ) jeszcze to, to ze strony https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/lisp-routine-to-convert-2d-polyline-to-polyline/td-p/7124499: i teraz działa. Nie wnikam jak ;-), dzięki! ;; OldStyle2LwPolyline (2008/03/31) ;; Replace a 2d polyline with a light weight polyline ;; ;; Argument : 2d polyline (ename) ;; Return : light weight polyline (ename) (defun OldStyle2LwPolyline (pl / plst xdata vtx vlst elst) (setq plst (entget pl '("*")) xdata (assoc -3 plst) vtx (entnext pl) ) (while (= (cdr (assoc 0 (setq vlst (entget vtx)))) "VERTEX") (if (zerop (logand (cdr (assoc 70 vlst)) 16)) (setq elst (cons (vl-remove-if-not (function (lambda (x) (member (car x) '(10 40 41 42)) ) ) vlst ) elst ) ) ) (setq vtx (entnext vtx)) ) (if (setq new (entmakex (append (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") (assoc 410 plst) (assoc 8 plst) (cond ((assoc 39 plst)) (T '(39 . 0)) ) '(100 . "AcDbPolyline") (cons 90 (length elst)) (cons 70 (logand 129 (cdr (assoc 70 plst)))) (cons 38 (last (caar elst))) (assoc 210 plst) ) (apply 'append (reverse elst)) (if xdata (list xdata) ) ) ) ) (entdel pl) ) new )