Forum użytkowników programów ZWCAD, KOMPAS-3D, Scan2CAD, PDF2CAD

Harry

Witam
Po 10 latach pracy na autocadach przesiadłem się na ZwCAD'a.
Ogólnie programik bardzo fajny, mało zasobożerny a przede wszystkim tani.
Jednak w trakcie użytkowania zauważyłem brak 2 dosyć fajnych funkcji:
1) SETBYLAYER (po PL - ustjakwar) - polecenie sprawia, ze wszystkie zaznaczone obiekty zmieniają kolor, rodzaj linii, grubość na parametr jak warstwa. (przydatne, przy tzw. wyszarzeniu rysunków.
2) Ctrl+0 - skrót klawiszowy, który powodował przejście aplikacji w tryb pełnoekranowy z wyłączeniem paska menu (oraz opcjonalnie paska poleceń). Bardzo przydatna funkcja, szczególnie przy mniejszych monitorach (chociaż stosowałem ją często przy 27 calach).
Jeśli ktoś ma rozwiązanie zastępcze na ww. funkcje, będę bardzo wdzięczny za pomoc.

P.s. wersja 2012 PL - 2011.10.30(17176)

KBR · Dołączył: 12 Maj 2008 Posty: 156

Można w ikonach zrobić sobie ikonę "ustaw jak warstwa" wpisując w wierszu polecenie

^C^Cchange \P C ByLayer;LT ByLayer;LW ByLayer;;

I będzie zmieniało wszystkie Kolor, rodzaj i grubość linii na ByLayer

Pablo · Dołączył: 31 Sty 2010 Posty: 32

ad 1) Może nie do końca rozumiem o co chodzi, ale czy opisanego zadania nie spełnia polecenie:
Narzędzia dodatkowe -> Warstwy -> Uzgodnienie warstw (LAYMCH) ?

gruzin

Żadna z tych metod nie jest tak dobra jak oryginalne SETBYLAYER

W oryginale działa to tak że możemy zmienic na "jakwarstwa" w wybranych elementach określone cechy np kolor, grubość itp. Najlepsze jest to że wewnątrz bloków również wszystkie elementy zmieniają się na JAKWARSTWA.
Jest to konieczne jeżeli podczytujemy sobie plik dwg jako Xref i chcemy nadać warstwom tego pliku określone cechy np szary kolor podkładu od architekta. Jeżeli architekt nadał ścianom kolor np czerwony (ścianom a nie warstwie) to u nas w pliku nie da się tego zmienić bez poprawy pliku np poleceniem SETBYLAYER.

Zwcad 2012 ma kilka pochodnych funkcji SETBYLAYER w narzędziach "Express" -> "Block"

Harry

Assgarth

Cytat:

1) SETBYLAYER (po PL - ustjakwar) - polecenie sprawia, ze wszystkie zaznaczone obiekty zmieniają kolor, rodzaj linii, grubość na parametr jak warstwa. (przydatne, przy tzw. wyszarzeniu rysunków.

Możesz skorzystać z LISP'a.
Drobna modyfikacja pod kątem ZwCADa (źródło jest na cad.pl):

Kod:

;;; ======================================================================================= ;;;
;;; CADPL-Pack-v1.lsp ;;;
;;; ;;;
;;; ======================================================================================= ;;;

; =========================================================================================== ;
; Zmienia cechy obiektu VLA / Sets the property of VLA-Object ;
; Obj [VLA-Object] - obiekt / object ;
; Lst [LIST] - lista cech par kropkowych / list of dotted pairs properties ;
; ------------------------------------------------------------------------------------------- ;
; (cd:ACX_SetProp ;
; (vlax-ename->vla-object (entlast)) ;
; '(("LineType" . "BLA")("Color" . 1)("Layer" . "0")) ;
; ) ;
; =========================================================================================== ;
(defun cd:ACX_SetProp (Obj Lst / a)
(if (vlax-write-enabled-p Obj)
(mapcar
(function
(lambda (% / %1)
(cons
(car %)
(if (vlax-property-available-p Obj (car %)) ; iCAD
;(if (vlax-property-available-p Obj (car a) (cdr a)) ; AutoCAD
(if
(setq %1
(vl-catch-all-apply
(quote vlax-put-property)
(list Obj (car %) (cdr %))
)
)
%1
:vlax-true
)
:vlax-null
)
)
)
)
Lst
)
)
)
;przykładowe wywołanie (zmiana typu linii, kolor i warstwa) dla jednego wskazanego obiektu:
;(cd:ACX_SetProp (vlax-ename->vla-object (entlast)) '(("LineType" . "Continuous")("Color" . 256)("Layer" . "0")))

; =========================================================================================== ;
(princ "\n------- CADPL-Pack-v1.lsp - http://forum.cad.pl -------")
(princ "\n--------------- Open Source 2011 - 2012 ---------------")
(princ)

Dalej, aby zadziałać na wszystkich wskazanych obiektach:

Kod:

;;--------------------------------=={ zk:SSZbr->List }==-----------------------------------;;
;; Zamienia ss-grupę na listę z entity name ;;
;;-----------------------------------------------------------------------------------------;;
;; ssZbr [SSGET] - SS-group ;;
;;-----------------------------------------------------------------------------------------;;
(defun zk:SSZbr->List (ssZbr / % lista)
(repeat
(setq % (sslength ssZbr))
(setq % (1- %) lista (cons (ssname ssZbr %) lista))
)
)

(defun c:Test ()
(foreach % (zk:SSZbr->List (ssget))
(cd:ACX_SetProp (vlax-ename->vla-object %) '(("LineType" . "Continuous")("Color" . 256)("Layer" . "0")("Lineweight" . "50")))
))

W przypadku ZwCAD może być konieczność regeneracji widoku obiektów - funkcja "REGEN".

pozdrawiam

Harry

Dziękuje
Lisp powinien poradzić sobie z tym "problemem"

Stefan · Dołączył: 24 Lis 2011 Posty: 6

Nie rozumiem za bardzo autora tematu a nie można po prostu zmienić parametru "Kolor" na ByLayer na pasku "warstwy", jedno klikniecie i wszystkie zaznaczone obiekty zmieniają kolor ??.

Pablo · Dołączył: 31 Sty 2010 Posty: 32

Też nie do końca rozumiem wszyskie wyjaśnienia w tym wątku. Pewne jednak jest, że prosta zmiana koloru nie zmieni nam koloru bloków, które nie zostały stworzone z elementami na warstwie JakBlok. Bloki można rozbić, ale wtedy mamy sieczkę na rysunku.

Assgarth

Zmiana samego koloru nie stanowi problemu, lecz gdy chcemy zmienić również inne parametry jak typ linii, szerokość, kolor, materiał, transparentność, styl wydruku (czyli wszystko to co ma w sobie funkcja SETBYLAYER), to już nie jest jedno kliknięcie. A jak chcemy się szybko przełączać między różnymi cechami obiektów, to Lisp umożliwi coś takiego właśnie prostym kliknięciem.
Wszystko można oczywiście ręcznie sobie ustawiać itp. lecz po co, skoro można szybciej?

gruzin

Assgarth a dużo to roboty żeby hurtowo lispem pozmieniac definicie blokow na jak warstwa? Jak dla mnie to kolor i grubośc linii wystarczy. stylu linii nigdy nie poprawiam bo wole żeby był taki jak u architekta, nawet jak jest narzucony recznie?

Stefan · Dołączył: 24 Lis 2011 Posty: 6

Assgarth

Nie wiem jakie kto ma zapotrzebowania. Osobiście nic nie projektuję, nie rysuję, ani też nie tworzę obiektów na potrzeby ich prezentacji. Działam tylko w zakresie tworzenia kodu według wytycznych, poprawiania istniejącego itp. To czy ktoś potrzebuje wrzucić wszystko na jedną warstwę, kolor itd. to jedno, a do czego tego użyje, to już nie moja sprawa

Assgarth

Cytat:

No to tak jak napisałem wyżej wszystko się wybiera z paska, nie wiem czy się dobrze zrozumieliśmy dlatego wklejam screena (...)

Nie przeczę, że nie da się tego zrobić, co już wcześniej napisałem, ale musisz po pierwsze kliknąć kilka razy, a nie raz, jeśli chcesz zmienić więcej niż jedną cechę (w lisp masz jedno kliknięcie plus ewentualne wskazanie obiektów, choć i to nie jest konieczne).

I tak jak napisałem w ostatnim moim poście - nie interesuje mnie do czego ktoś potrzebuje narzędzie, jeśli tylko jest ono do wykonania w miarę prosty sposób.

Niemniej jednak, autor postu powinien sam zapoznać się z przedstawionymi propozycjami i wybrać najbardziej mu odpowiadającą

pozdrawiam

Assgarth