Kurs AutoCAD 2019 - #4 Automatyzacja (2) Auto LISP (Visual LISP)

     AutoCAD 2019 course - #4 Automation (2) Auto LISP (Visual LISP)

     The basis of the automation of the repetitive operations of the design process with the aid of the inner programming language - Auto LISP (Visual LISP) have been presented. The video poses an extension of my AutoCAD 2019 textbook by Scientific Publishers PWN.

     W prezentacji przedstawiono podstawy automatyzacji powtarzalnych operacji procesu projektowania za pomocą wewnętrznego języka programowania Auto LISP (Visual LISP). Auto LISP (od LISt Processing), pozwalający praktycznie od zawsze na dostęp do obiektów programu AutoCAD i nazywany „językiem sztucznej inteligencji”, jest jednym z najważniejszych elementów, które zdecydowały o stopniu rozprzestrzenienia się, żeby nie powiedzieć dominacji, programu AutoCAD na rynku systemów CAD przez dziesiątki lat.

     Aby efektywnie uczestniczyć w tej lekcji niezbędna jest bardzo dobra znajomość sposobu obsługi programu za pomocą klawiatury i wiersza poleceń i umiejętność swobodnego posługiwania się opcjami poleceń. Pożądana byłaby elementarna znajomość podstaw programowania w językach tzw. wysokiego poziomu.

     Kod źródłowy wykorzystany w prezentacji można znaleźć na końcu tego artykułu na blogu: http://cadaj.blogspot.com

     Wideoprezentacja stanowi rozszerzenie mojego podręcznika „AutoCAD 2019 / LT 2019 / Web / Mobile+. Kurs projektowania parametrycznego i nieparametrycznego 2D i 3D” wydanego przez Wydawnictwo Naukowe PWN. Kończą ją propozycje ćwiczeń uzupełniających do zawartych w prezentacji.

Zapraszam do oglądania, także na stronie: http://www.jedenautocad.pl/

28 września 2018 r.
© Andrzej Jaskulski (http://cadaj.blogspot.com/)

---

---

Kod źródłowy:

(defun C:CEO ()

  (setq G (getreal "\nPodaj grubość ścianki: "))

  (setq L (getreal "\nPodaj długość ramienia: "))

  (setq PU (getpoint "\nNarożnik ceownika: "))

  ;;Punkt początkowy  
  (setq X0 (car PU))
  (setq Y0 (cadr PU))
  ;;Punkt 1
  (setq X (+ X0 L))
  (setq PU1 (list X Y0))
  ;;Punkt 2
  (setq Y (+ Y0 G))
  (setq PU2 (list X Y))
  ;;Punkt 3
  (setq X (- X (- L G)))
  (setq PU3 (list X Y))
  ;;Punkt 4
  (setq Y (+ Y (- L G)))   
  (setq PU4 (list X Y))
  ;;Punkt 5
  (setq X (- X G))
  (setq PU5 (list X Y))
  ;;Rysowanie polilinii
  (command "_PLINE" PU PU1 PU2 PU3 PU4 PU5 "_c")

)