Od A do Z AutoCAD. Automatyzacja – AutoLISP (Visual LISP) – REAKTYWACJA

     AutoCAD from A to Z. Automation – AutoLISP (Visual LISP) – REACTIVATION
An example of typical task automation with the aid of the inner programming language AutoCAD Visual LISP - Reactivated on YouTube.

     Jeden z Czytelników zwrócił mi uwagę, że moja wcześniejsza prezentacja się nie otwiera. Wynika to z faktu, że strona WWW, na której była umieszczona, stała się niedostępna (strona społeczności Autodesk). Uwaga Czytelnika uświadomiła mi fakt, że jest więcej takich prezentacji, które nie są dostępne w serwisie YouTube, a których tematyka jest ciągle aktualna.

     Dziś kontynuuję ich reaktywację prezentując drugi (po technice skryptów) sposób automatyzacji powtarzalnych operacji – wewnętrzny język programowania programu AutoCAD Visual LISP.
     Kod źródłowy wykorzystany w prezentacji znajduje się na końcu tego wpisu.

Zapraszam do oglądania.
29 lutego 2016 r.
© Andrzej Jaskulski (http://cadaj.blogspot.com/)

---

W celu uzyskania najlepszej jakości odtwarzania prezentacji (10 minut 33 sekundy) należy przejść do serwisu YouTube, wybrać rozdzielczość 720p (HD) i tryb pełnoekranowy.

---

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")

)