Szablony i skrypty startowe ZWPack

[Adam Klaczek]

Dzień dobry,

Czy _DVIEW - opcja S - kąt nie da pożądanego efektu?

[alf]

5 godzin temu, Adam Klaczek napisał:

Dzień dobry,

Czy _DVIEW - opcja S - kąt nie da pożądanego efektu?

nie używam, bo działa to dla mnie nazbyt skomplikowanie ;-).
Opcji obrotu o kąt nie widzę, a chodziło mi konkretnie o obrót widoku metodą punkt-punkt, bez zmiany zoomu..

[Adam Klaczek]

W przypadku wersji EN to będzie DVIEW - opcja TW - i wówczas zapyta o kąt...

[alf]

chodziło mi raczej o taki bajer:

[Adam Klaczek]

No to proszę: DWidok_Skrecenie.lsp

Polecenie: DWS

[alf]

Ło matko (i córko!), dziękuję, działa cudownie!! 😍😍

PS. Czy można dołożyć do tej komendy powrót do obrotu "0", np. za pomocą cyferki 0, w momencie jak pada zapytanie i pierwszy punkt? Było by mniej klikania 😉 

Edytowane 12 Października 2018 przez alf

[Adam Klaczek]

Dzień dobry,

No to jest, jak Pani chciała: DWidok_Skrecenie_v2.lsp

[alf]

dziękuję serdecznie, zdecydowanie to "lisp number one" w mojej osobistej liście przebojów ostatniego dziesięciolecia 😁

[perlon]

Moja propozycja implementacji powyższej funkcjonalności bez obracania gridem.

(defun RTD (/ANG) (/ (* ANG 180.0) pi))

(defun C:DWS2 (/ P1 P2 ANG)
  (if (setq P2 (getpoint "\--- Wskaż lewy punkt: " )			
; _ end of GETPOINT
      ) ;_ end of SETQ
    (progn (initget 1)
	   (setq P1  (getpoint "\n--- Wskaż prawy punkt: " P2)
		 ANG (angle P2 P1)
	   ) ;_ end of SETQ
	   (command "_UCS" "Z" P2 P1)		; zwykly obróy względem osiZ
	   (command "_plan" "C")		; widok na aktualny UCS
    ) ;_  end of PROGN
  ) ;_  end of IF
  (princ)
) ;_  end of DEFUN

(defun C:00 ()
  (command "_-view" "top")			; jest na to ikonka na pasku View więc komenda mało potrzebna ale niech tam...
) ;_  end of DEFUN

 

[czarnula_100]

czy zwpack będzie działał na v. 2019 lub 2020 ( w opisie - kompatybilny z v.2018)

[dmatusz3]

Tak, powinien działać, ale sprawdzimy to jutro i potwierdzimy.

[Adam Klaczek]

Dzień dobry,

Załadowałem - działa:

[czarnula_100]

Dziękuję. 

Już sprawdziłam i właśnie miałam napisać że działa.

Edytowane 26 Czerwca 2020 przez czarnula_100

[Marek-M]

Twój wariant @perlon jest uniwersalny i działa też na starszym ZWCAD np. 2015+ ale ma niestety taki minus, że po zmianie UCS rysunek robi _zoom _extens, co przy większych rysunkach bywa drażniące  Zrobiłem własną przeróbkę Twojej wersji. UCS ustawia się w punkcie bazowym przy lewym punkcie (P2) i na koniec wykonywany jest zoom na ten punkt z bieżącym zbliżeniem.

;;; Obrot UCS i PLAN wzgledem nowego punktu bazowego (P2)
(defun C:UCS2 (/ P1 P2 Z)
  (if (setq P2 (getpoint "\--- Wskaż lewy punkt: " )			
; _ end of GETPOINT
      ) ;_ end of SETQ
    (progn (initget 1)
	   (setq P1  (getpoint "\n--- Wskaż prawy punkt: " P2)
		 Z (getvar "VIEWSIZE")
	   ) ;_ end of SETQ
	   (command "_ucs" P2 P1 "")	; zwykly obrot wzgledem nowego punktu bazowego (P2)
	   (command "_plan" "C")		; widok na aktualny UCS
	   (command "_zoom" "_c" "0,0" Z)
    ) ;_  end of PROGN
  ) ;_  end of IF
  (princ)
) ;_  end of DEFUN

 

[alf]

uwaga formalna:

powyższy skrypt powoduje przesunięcie punktu 0,0,0 w inne miejsce stąd obrót dws2 powoduje zmianę w układzie współrzędnych a pierwotny skrypt miał za zadanie nie robic obrotu układu wsp tylko obrót samego widoku.. kłopotliwe w skrypcie DWS jest to, że po obrocie zw odmierza kont nie od poziomu widoku (obróconego) ale nadal od osi "X" układu "word" ale za to działa orto jak należy..

 

[Marek-M]

Tak, zgadzam się - DWS nie zmienia układu współrzędnych, zaś DWS2 i UCS2 zmieniają.

Komenda _DVIEW nie jest dostępna w starszych wersjach ZWCAD (np. w 2015+) i tam obrót jest widoku jest możliwy tylko przy pomocy zmiany układu współrzędnych. Innej metody ja przynajmniej nie znam.

[dmatusz3]

Dodaliśmy do zwpack 4 nowe funkcje:

• sumowanie długości wzdłuż klikanych punktów - mdist, 
• zmiana stylu istniejącej multilinii,   źródło https://wstaw.net/H7rPMsXd
• wymiarowanie polilinii, źródło https://wstaw.net/jbTYLih
• szyfrowanie lispów - źródło 

Więcej o nakładce.

 

 

 

[dmatusz3]

Dodaliśmy nowy skrypt do zwpack - do szyku manualnego.

Link na pierwszej stronie wątku jest podmieniony i zawiera już nową funkcjonalność.

 

[alf]

cz zwpack wersja 2021 nie działa w 2018 wersji zwcada?

Edytowane 24 Listopada 2020 przez alf

[dmatusz3]

Raczej powinien działać. Prawdę mówiąc nie sprawdzaliśmy wersji 2021 na ZWCAD 2018.

[alf]

no właśnie tak jakby nie chciał działać 😉

[Jarek]

Potwierdzam. 

 

[dmatusz3]

Sprawdzimy

[marecki18]

Dnia 20.11.2020 o 15:05, dmatusz3 napisał:

Dodaliśmy nowy skrypt do zwpack - do szyku manualnego.

Link na pierwszej stronie wątku jest podmieniony i zawiera już nową funkcjonalność.

 

Witam serdecznie.

A czy jest możliwość za pomocą lisp zrobić szeregowanie dopasowane do polilinii, łuku, czy spline tak jak jest to w AC? Strasznie brakuje mi tej funkcjonalności w pracy i znacznie przyśpieszyło by ją.

 

Pozdrawiam

Edytowane 3 Lutego 2021 przez marecki18

[Chris]

5 godzin temu, marecki18 napisał:

Witam serdecznie.

A czy jest możliwość za pomocą lisp zrobić szeregowanie dopasowane do polilinii, łuku, czy spline tak jak jest to w AC? Strasznie brakuje mi tej funkcjonalności w pracy i znacznie przyśpieszyło by ją.

 

Pozdrawiam

Może, któreś z przedstawionych wcześniej rozwiązań będzie pomocne:

 

Edytowane 3 Lutego 2021 przez Chris