dmatusz3

Administratorzy
 Pokaż profil  Zobacz aktywność

  • Postów

    3 826

  • Dołączył

  • Ostatnia wizyta

  • Wygrane w rankingu

    286

 Typ zawartości 

Odpowiedzi opublikowane przez dmatusz3

  3. ZWCAD 2021 - znikające szyki

    w ZWCAD Standard i Professional

    Opublikowano

    W celu zdiagnozowania i wykrycia problemu opracowaliśmy mały skrypt automatycznie zliczający szyki dynamiczne w rysunku Ilosc_szykow_dynamicznych.zel

    Wystarczy go przeciągnąć na początku pracy do okna rysunku, lub dodać do listy startowej programu.

    Przy każdym zapisie program będzie wyświetlał ilość szyków jaka:

    • była po ostatnim zapisie,
    • jest teraz.

    Program CAD wykona tę operację przed i po zapisie.

    Jeśli będzie mniej szyków to wyświetli się komunikat ostrzegawczy np. taki jak poniżej.

    ilosc_szykow_dynamicznych.png

     

    Sposób działania tego skryptu pokazaliśmy na rysunku poniżej.

    szyki_dynamiczne.gif

  5. [Pytanie/pomysł] Wypełnienie obiektu polilinią

    w Wsparcie programistyczne LISP i VisualLISP

    Opublikowano

    Może coś takiego?

    Polecenie "kreski"

    rysowanie-kresek.gif

      

    ;;https://forum.cad.info.pl/topic/3515-pytaniepomys%C5%82-wype%C5%82nienie-obiektu-polilini%C4%85/?tab=comments#comment-19899
(defun c:kreski ()
	(setq p1 (getpoint "\nWskaz lewy dolny rog "))
	(setq p2 (getcorner p1 "\nWskaz przeciwlegly naroznik prostokata ") )
	(setq odleglosc 150)
	(setq h1 (+ (cadr p1) 10)) 
	(setq h2 (- (cadr p2) 10)) 
	(setq L (- (car p2) (car p1)))
	(setq ilosc (fix (/ (- L 30) odleglosc) ))
	(setq y (/ (- L (* ilosc odleglosc)) 2))
	(setq i 0)
	(repeat (+ ilosc 1)
		(setq  x (+ (* odleglosc i) (+ (car p1) y)))
		(command "_line" (list x h1)  (list x h2)   "")	
		(setq i (+ 1 i))
	)
	(command "_rectangle" p1 p2   "")	
)

    kreski.lsp