Jason

ja osobiście nie wiem po co w ogóle są te opcje (obie, Save i Aktualizacja) dla rzutni. pracuje w modelu, skacze po widokach, Aktualizacja ok, może być (niestety brak tak oczywistej rzeczy jak przywrócenie widoku do miejsca w którym pracowaliśmy, po zmianie ucs. na szczęście lispy z linka to załatwiają) teraz papier. tworze rzutnie, ustawiam ucs. niech jest 10 klików, ale rzutnie przecież ustawiam raz (co najwyżej przesuwam - pan). chce inny widok to tworze kolejna, a nie bawię się w obracanie. jason

jest cos takiego jak na obrazku. wylaczasz i jest jak chcesz. jednak zupelnie nierozumie po co wlaczasz Aktualizcje w rzutni ? w modelu ok, ale po co w rzutni ? nawet jesli masz po UCS wpisac PLAN (mowa o rzutni) to robisz to raz. z czasem program nie zrobi ci przynajmniej kuku i nie obroci/powiekszy wszystkiego w najmniej spodziewanym momencie. jason

nie do konca rozumie. jesli masz wlaczona opcje Aktualizacji i wchodzisz w niezablokowana rzutnie to robi sie Zoom All. jest to normalne/poprawne zachowanie. Zoom All robi sie w KAZDEJ niezablokowanej rzutni z wlaczona Aktualizacja. o to chodzi ? pisales ze szybciej sie przelaczasz miedzy widoki z Aktualizacja. moj link robi dokladnie to samo bez niej. Aktualizcja potrafi niezla namieszc w paiperze. dlatego zawsze wylaczam. jason

1. http://forum.cad.pl/ucs-przez-dwa-punkty-z-zachowaniem-widoku-t77266.html#p7665423 2. rzutnie można utworzyć do północy, a potem po prostu zrobić ROTATE (autocad) jason

jesli masz ulozony papier i odpowiednio pokazane elewacje to po co rzutnie sie maja obracac ?

zawsze gdy wchodzi sie w rzutnie z wlaczona aklualizacja zmienia sie jej skala do Zoom Wszystko. nie bardzo wiem na co komu ten wynalazek. majac template wylaczam Aktualizacje we wszystkich rzutniiach , layouts i model. jason

kilka pobranych. przyk.zip

hej takich rzeczy jest bardzo dużo. trzeba tylko troche poszperać. tu kilka propozycji http://www.theswamp.org/index.php?topic=37459.0

niestety sam lisp temu nie podoła. jakoś nie widzę też jak wszyscy nazywają bloki tak jak trzeba. czesto nazwy są śmieciowe i nic nie mówiące. nawet gdyby udalo sie przeszukać pliki to przeglądnięcie kilkuset trwałoby chyba wieki. wydaje mi się, że jak nie stworzy się biblioteki ręcznie to raczej nic z tego nie będzie. coś więcej możesz napisać, więcej szczegołów. pozdr.

a jakiego typu jeśli można spytać ? pozdrawiam

to tak jak ja. potrzebujacych chyba brak

(eval (read (apply 'strcat (mapcar 'chr (list 40 97 108 101 114 116 32 34 67 122 121 108 105 32 108 105 112 97 32 58 40 32 34 41) ) ) ) )

0. fajnie,z funkcji się skorzysta 1. 2. ja cos tam pisze w większości autocad, ale zwcad też sie zdarza 3. tu niestey nic nie pomoge, ktoś musi coś podrzucić 4. może być 5. oj, daleka przyszłość jak coś na razie trzeba rzucić jakimś pomysłem i zobaczyc co da się zrobić hejka

cze ktoś chętny do pomocy przy jakiejś darmowej nakładce (lisp) ? nie chodzi oczywiście o wielki kombajn, ale coś np. wstawiającego bloki, rysującego z bazy (plik excel, txt, db - profile, sekcje, widoki) - robiącego może jakieś zestawienie. tak ciekaw jestem czy można coś stworzyć co będzie mogło choć trochę konkurować z "profesjonalnymi" nakładkami, często za grubą kasę, a działającymi tak sobie. jakieś propozycję ? jaka branża ? pozdr.

jesli dwx to pliki z CADLock to zapomnij o jakiejkolwiek edycji. nie ma narzedzia do tego oprocz samego CADLock. j.

chybe zupelnie zbedny dodatek. nie lepiej poprawiac bledy ? przeciez skroty klawiszowe dzialaja sprawniej. j.

sprobuj najpierw tego: http://lee-mac.com/macatt.html uzyj opcji "CURRENT DRAWING" bo zwcad nie przerabia rysunkow hurtowo (objectdbx) j.

wrzuc jakis przyklad. opisz ktore bloki chcesz wyciagnac moze sie cos skrobnie w lispie. j.

probuj tego j. MakeAnonymousBlock.zip

No no no :) Kopiowanie całości, części lub udostępnianie publiczne kodu, jest niezgodne z licencją ;) pozdrawiam mam nadzieje ze jeszcze nie jada po mnie :wink: jest tam tego sporo. dodatkowo jeszcze plik base.dcl j.

isnieje :) wystarczy skopiowac z autocada plik acad.dcl i zapodac go do Zwcada. sa tam gotowe definicje kilku okienek systemowych m.in.: acad_txtedit : dialog { label = "Edit Text"; initial_focus = "text_edit"; : edit_box { label = "Text:"; key = "text_edit"; edit_width = 40; edit_limit = 2048; allow_accept = true; } ok_cancel; } patrz na to: (lisped ( (lambda (/ C) (setq C "") (foreach % (list 72 97 108 111) (setq C (strcat C (chr %))))))) j.

(ssget "_X" '((0 . "LWPOLYLINE"))) (vlax-For % (vla-Get-ActiveSelectionSet (vla-Get-ActiveDocument (vlax-Get-Acad-Object) ) ) (princ (vla-Get-Length %)) ) j.

odpal lispa i po sprawie http://www.vizikos.com/lisp/spiral.lsp j.

do 1: (defun C:DELA (/ OB OB# BL CMD) (vl-load-com) (if (setq OB (entsel "\nWskaz blok z ktorego usunac atrybuty: ")) (if (and (= (cdr (assoc 0 (entget (car OB)))) "INSERT") (setq OB# (vlax-Ename->vla-Object (car OB))) (setq BL (kr:BLK_GetBlockName OB#)) ) (progn (setq CMD (getvar 'CMDECHO)) (setvar 'CMDECHO 0) (foreach % (jk:BLK_Get-Objects BL "ATTDEF") (vla-Delete (vlax-Ename->vla-Object %)) ) (command "_attsync" "_S" (car OB) "_Y") (setvar 'CMDECHO CMD) ) ) (princ "\n** Nic nie wskazano **") ) (princ) ) ; ============================================================ ; ; Get block name ; ; Blk# - VLA block reference object ; ; ============================================================ ; (defun kr:BLK_GetBlockName (Blk#) (if (vlax-Property-Available-P Blk# 'EffectiveName) (vla-Get-EffectiveName Blk#) (vla-Get-Name Blk#) ) ) ; ============================================================ ; ; Funkcja zwraca liste ENAME, obiektow okreslonego typu (argu- ; ; ment ObjType, w definicji bloku (rowniez XREF) podanego jako ; ; argument Name ; ; (jk:BLK_Get-Objects "POM" "INSERT") ; ; ============================================================ ; (defun jk:BLK_Get-Objects (Name ObjType / En Ed res) (setq En (tblobjname "BLOCK" Name)) (while (and (setq En (entnext En)) (setq Ed (entget En)) (/= "ENDBLK" (cdr (assoc 0 Ed))) ) (if (= (cdr (assoc 0 Ed)) (strcase ObjType)) (setq res (append (list (cdr (assoc -1 ed)) ) res ) ) ) ) res ) (princ "\n>> Wczytano DelAtt>LSP. Polecenie DELA. <<") (princ) j.

sprawdz jak masz ustawiona zmienna MEASUREMENT w rysunkach. jest to przelacznik Imperil/Metric j.