w Wydawnictwie Naukowym PWN SA i w wirtualnej czytelni iBUK.pl

poniedziałek, 29 lutego 2016

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

Brak komentarzy:

Prześlij komentarz