pawmal

Witam
Proszę zmienić nazwę pliku zwcad.exe na zwcad2.exe w lokalizacji C:\Program Files (x86)\ZWCAD 2012 Plk i na pliku dwg kliknąć prawym przyciskiem myszy Otwórz za pomocą oraz wskazać bezpośrednio plik zwcad2.exe. Po tej czynności proszę jeszcze w skrócie na pulpicie zmienić Element docelowy analogicznie na ...\zwcad2.exe.
Pozdrawiam

Zachęcam do pobrania ZWCAD Classic ze strony www.classic.zwcad.pl. Program posiada opcję wprowadzania dynamicznego (autouzupełnianie). Znajduje się ona na pasku statusu pod nazwą DYN.

Witam
 
Proszę odinstalować jeszcze raz ZWCAD'a z linii poleceń cmd Windows'a przez wklejenie linków:
 
Pakiet główny ZWCAD+2015
MsiExec.exe /X{A032FD8E-A001-0000-A001-5BBA1F251080}

Pakiet językowy PL
MsiExec.exe /X{A032FD8E-A001-1045-A101-5BBA1F251080}
 
Pozdrawiam

Są już filmy w oparciu o 2017 w sieci


 
trochę cierpliwości, nowe funkcje wdrażane są powoli ale są. Jestem użytkownikiem ZWCAD od 2008r.

Kolejny etap do testowania... Jeśli chodzi powinien:
1) Rozpoznawać prawidłowe bloki
2) "Urozmaicić wybór", poprzez: podanie nazwy z ręki / wybranie z listy / wskazanie bloku
3) Zapamiętywać ostatnie ustawienia
4) No i polecenie ma skrócone - teraz jest B3D
 
Kod:
; =========================================================================================== ; (load "CADPL-Pack-v1.lsp" -1) ; =========================================================================================== ; (defun C:B3D ()(ExtrIns)(princ)) ; =========================================================================================== ; (defun ExtrIns (/ LBlk InsName StartP EndP PathEnt InsObj)   (if     (not (setq LBlk (BlockProfileList)))     (princ "\nW rysunku nie zdefiniowano bloków dla profili. ")     (progn       (if (not *B3D-Settings*)(setq *B3D-Settings* (list (car LBlk) 1.0)))       (if         (setq StartP (getpoint "\nPierwszy punkt linii definiującej ścieżkę: "))         (if           (setq EndP (getpoint StartP "\nKoniec ścieżki: "))           (if             (setq InsName (GetBlockProfileName LBlk))             (progn               (cd:SYS_UndoBegin)               (setq InsObj (cd:BLK_InsertBlock StartP InsName '(1 1 1) 0 T))               (SetInsertZOrient                 (NewVect StartP EndP)                 (setq InsObj (vlax-vla-object->ename InsObj))               )               (setq PathEnt (cd:ENT_MakeLine (getvar "CTAB") StartP EndP T))               (ExtrudeProfile (vlax-ename->vla-object InsObj) PathEnt)               (cd:SYS_UndoEnd)             )           )         )       )     )   ) ) ; =========================================================================================== ; (defun GetBlockProfileName (LProf / f k s)   (setq f (car *B3D-Settings*)         s (car (mapcar '(lambda (%)(cd:STR_ReParse LProf %))(list " ")))   )   (initget (strcat "Lista Wybierz " s))   (setq k     (vl-catch-all-apply 'getkword       (list (strcat "\nProfil [Lista/Wybierz] lub podaj nazwę <" f ">: "))     )   )   (if     (not k) f     (if       (= (type k) 'STR)       (cond         ( (= k "Lista")(ProfileDlg LProf))         ( (= k "Wybierz")(SelectBlock LProf))         (t k)       )     )   ) ) ; =========================================================================================== ; (defun ProfileDlg (BlkL / r p)   (setq r (cd:DCL_StdListDialog BlkL     (vl-position (car *B3D-Settings*) BlkL)     "Profile" "Wybierz:" 25 12 2 12 (list "&Ok" "&Anuluj")     nil T T nil)   )   (if r (progn     (setq p (nth r BlkL))     (setq *B3D-Settings* (list p (cadr *B3D-Settings*))))   ) p )   ; =========================================================================================== ; (defun SelectBlock (Lst / e d s)   (if     (and       (setq e (entsel "\nWybierz blok: "))       (setq d (entget (car e)))       (= "INSERT" (cdr (assoc 0 d)))       (member         (strcase (setq s (cdr (assoc 2 d))))         (mapcar 'strcase Lst)       )     )     (progn       (setq *B3D-Settings* (list s (cadr *B3D-Settings*))) s     )   )   ) ; =========================================================================================== ; (defun ExtrudeProfile (Blk Lin / Prf Crv Reg Del)   (vla-explode Blk)   (setq Prf (entlast))   (vla-delete Blk)   (if     (cond       ( (= "LWPOLYLINE" (cdr (assoc 0 (entget Prf))))         (setq Crv (vlax-make-safearray vlax-vbObject '(0 . 0)))         (vlax-safearray-put-element Crv 0 (vlax-ename->vla-object Prf))         (setq Reg (vla-AddRegion (cd:ACX_ASpace) Crv))       )       ( (= "REGION" (cdr (assoc 0 (entget Prf))))         (setq Reg (vlax-ename->vla-object Prf))       )       (t nil)     )     (progn       (vla-AddExtrudedSolidAlongPath         (cd:ACX_ASpace)         (if           (= (type Reg )'VLA-OBJECT)           Reg           (setq Del (vlax-safearray-get-element (vlax-variant-value Reg) 0))         )         (vlax-ename->vla-object Lin)       )       (if Del (vla-delete Del))       (foreach % (list Lin Prf)(entdel %))     )   ) ) ; =========================================================================================== ; (defun NewVect (p1 p2 / dt sq sm um uv)   (setq dt (mapcar '- p2 p1)         sq (mapcar '* dt dt)         sm (apply '+ sq)         um (sqrt sm)         uv (mapcar '/ dt (list um um um))   ) ) ; =========================================================================================== ; (defun SetInsertZOrient (ExtrVec Ename / e b)   (setq e (entget Ename)         b (trans (cdr (assoc 10 e)) Ename ExtrVec)         e (subst (cons 10 b)(assoc 10 e) e)         e (subst (cons 50 0.0)(assoc 50 e) e)         e (subst (cons 210 ExtrVec)(assoc 210 e) e)   )   (entmod e) ) ; =========================================================================================== ; (defun BlockProfile-p (Name / l d)   (if     (= 1 (length (setq l (cd:BLK_GetEntity Name nil))))     (progn       (setq d (entget (car l)))       (or         (and           (= (cdr (assoc 0 d)) "LWPOLYLINE")           (= 1 (logand 1 (cdr (assoc 70 d))))         )         (= (cdr (assoc 0 d)) "REGION")       )         )    ) ) ; =========================================================================================== ; (defun BlockProfileList (/ l)   (if     (setq l (cd:SYS_CollList "BLOCK" (+ 1 2 4 8)))     (acad_strlsort (vl-remove-if-not '(lambda (%)(BlockProfile-p %)) l))   ) ) ; =========================================================================================== ; (princ "\nZaładowano polecenie: B3D ") (princ)

Tymczasem wróćmy (bośmy nieco "zboczyli"... ;) ) do wyboru polilinii. Krótko jeszcze o "zadaniu domowym". Spójrzmy na obrazek porównujący prostokąt z "kokardką":
 
Pożądany przez nas czworokąt będący prostokątem można sprawdzić też w ten sposób:
Weźmy dwa sąsiednie boki (np. 1-2 i 2-3). Wybierzmy najdłuższy z nich (tu będzie to 1-2). I teraz sprawdzamy: w prostokącie ten najdłuższy z boków musi być krótszy od długości przekątnej (np. 1-4), dodatkowo oczywiście to (przekątne) jednocześnie muszą być sobie równe. I to chyba w zupełności wystarczy?
Kod "zadania domowego":
(defun SelRect (/ e d rect-p)   (defun rect-p (p / d)     (if                                          ; jezeli       (not (zerop (distance (car p)(cadddr p)))) ; 1 i 4 pkt sie nie pokrywaja       (and                                       ; sprawdz         (equal                                   ; czy jest rowna           (setq d (distance (car p)(caddr p)))   ; dlugosc 1 przekatnej           (distance (cadr p)(cadddr p))          ; i 2 przekatnej?           0.001         )         (<                                       ; i najwiekszy           (max                                   ; bok z 1 i 2             (distance (car p)(cadr p))           ; jest             (distance (cadr p)(caddr p))         ; mniejszy           )           d                                      ; od przekatnej         )       )                                          ; T  (spelnia warunki)     )                                            ; nil (nie spelnia)   )   (if         (and             (setq e (entsel "\nWskaż prostokąt: "))                    ; jest wybor       (= (cdr (assoc 0 (setq d (entget (car e))))) "LWPOLYLINE") ; to LWPoly       (= 1 (logand 1 (cdr (assoc 70 d))))                        ; jest zamknieta       (zerop (apply '+ (mapcar 'abs (cd:DXF_massoc 42 d))))      ; nie ma seg. lukowych       (= (cdr (assoc 90 d)) 4)                                   ; ma 4 wierzcholki       (rect-p (cd:DXF_massoc 10 d))                              ; jest prostokatem     )     (princ "\nOk")     (princ "\nŹle. ")   ) ) wzbogacony o komentarze, które pozwolą łatwiej prześledzić działanie.

Właśnie tak jak pisałem wcześniej.

 
Ja bym jeszcze sprawdził kąt czy jest równy 90 stopni pomiędzy trzema kolejnymi wierzchołkami.
Pozdrawiam

Witam
Wydaje mi się, że obliczenie przekątnych nie wystarczy, bo obiekt może być skręcony o 180 st. względem osi X, a "przekątne" wyjdą takie same ;)

Pozdrawiam

Witam
Proszę wejść w Opcje->zakładka Ustawienia użytkownika->Ukryj ustawienia wiadomości i zaznaczyć Tekst wieloliniowy.
 

Pozdrawiam

Witam
Proszę sprawdzić program Scan2Cad, który ma opcję OCR. Opis programu znajduje się na stronie opis programu. Natomiast wersja testowa programu jest do pobrania z tego linku Scan2Cad_v8,
Pozdrawiam

Witam
Jeśli chodzi o PDFConverter, to można go wczytać przez polecenie _appload i dodać do listy startowej. W samym ZWCAD uruchamiamy polecenie przez wpisanie w pasku poleceń PDF2DWG (lub PDF2DXF).
Pozdrawiam

Witam
Temat został zgłoszony i przyjęty. Natomiast to czy lista będzie wyświetlana tak samo jak w LT, będzie można sprawdzić dopiero w następnej kompilacji.
Pozdrawiam

Witam
Nie mamy informacji odnośnie tego, kiedy będzie wydana następna kompilacja. Patch'e nie są tworzone. Zresztą tak naprawdę sprawa dotyczy tylko wyświetlenia współrzędnych w inny sposób. W LT jest do usunięcia kolumna, a w ZWCAD wiersz. Tak czy inaczej, trzeba skorzystać z innej aplikacji w celu usunięcia zbędnych informacji. Dla 1000 punktów w Notepad, usunięcie niepotrzebnych linii razem z utworzeniem makra zajęło mi 20 sekund.
Pozdrawiam

Witam
Informacja o różnicy w wyświetlaniu listy punktów została przekazana do ZWSOFT.
Pozdrawiam

Witam
Przyjrzymy się jutro temu zagadnieniu i skonsultujemy to z ZWSOFT.
Pozdrawiam

Kolor kursora nitkowego można zmienić jedynie dla wszystkich osi jednocześnie.
Pozdrawiam

Witam
Proszę wpisać w pasku poleceń ADAPTACJA (_customize) i przejść na zakładkę Klawiatura.
Pozdrawiam

Witam
Jeśli wie Pan, że zbiornik narysowany jest w skali 1:20 i potrzebuje Pan go powiększyć do skali 1:10, to wystarczy użyć funkcji SKALA i przeskalować rysunek 2 krotnie. W następnym kroku wystarczy użyć funkcji PRZESUŃ, aby połączyć podwozie ze zbiornikiem.
Pozdrawiam

Witam
W ZWCAD+2015 jest coś takiego jak Centrum Projektanta. To narzędzie można włączyć przez Ctrl+2. W oknie zobaczymy drzewo z otwartymi rysunkami i występujące w nich style, warstwy, bloki, itp., które w łatwy sposób (przez przeciągnięcie) można przenosić między rysunkami.
 

Pozdrawiam

Witam
W ZWCAD+2015 jest coś takiego jak Centrum Projektanta. To narzędzie można włączyć przez Ctrl+2. W oknie zobaczymy drzewo z otwartymi rysunkami i występujące w nich style, warstwy, bloki, itp., które w łatwy sposób (przez przeciągnięcie) można przenosić między rysunkami.
 

Pozdrawiam

Witam
Prawdopodobnie to nie jest problem z rysunkiem, a problem z wyświetlaniem i dotyczy pewnej konfiguracji zainstalowanego programu. Jeśli taki problem się jeszcze pojawi, to proszę zwrócić uwagę na to czy okno rysunkowe jest przypięte do okna ZWCAD, bo być może w tym jest problem.
Pozdrawiam

Witam
Czy sprawdził Pan czy problem nie jest związany z tym co zostało napisane 4 posty wyżej, że obszar roboczy/rysunek nie jest zmaksymalizowany/przypięty do okna ZWCADa?
Pozdrawiam

Dziesięć lat z ZWCAD
;)

albo Dekada z ZWCAD

Dziesięć lat z ZWCAD
;)

albo Dekada z ZWCAD

Dziesięć lat z ZWCAD
;)

albo Dekada z ZWCAD