(setvar „cmdecho“ 0)
(setq r 0 x -1 y -1 z 1 c 0)
(vl-cmdf „_.shademode“ „_flat“)
(vl-cmdf „_.vpoint“ „-0.75,-2,0.35“)
(repeat 252
(vl-cmdf „_.circle“ (list x y (setq z (- z 5)))
(setq r (1+ (* 1.05 r)))
)
(vl-cmdf „_.region“ (entlast) „“)
(vl-cmdf „_.change“ (entlast) „“ „_properties“ „_color“ (setq c (1+ c)) „“)
)
(vl-cmdf „_.zoom“ „_extents“)
(repeat 85
(vl-cmdf „_.zoom“ „_scale“ 1.1)
)
(setq sapi (vlax-create-object „Sapi.SpVoice“))
(vlax-invoke sapi „Speak“ „I wish You a merry Solstice and happy New 2019 Year!“ 0)
(vlax-release-object sapi)
(princ „Load www.kitox.com/downloads/winter.lsp for more fun“)
Kategorija: LISP
Sublime Text for LISP
Finding the Right Text Editor for LISP Every beginning of the year, it is a time for me when I’m trying to optimize my workflows. LISP coding is one of my fields of interests in this case. I was using VLIDE for years, but since I started to test my code for BricsCAD, it became […]
Suma žodžiais
Atnaujinau LISP programėlę „suma žodžiais“. Naudojimas: 1. Su _APPLOAD pakrauti DES failą, 2. Komanda SUMAZ 3. Įvesti reikiamą sumą eurais, dešimtainės dalies skyriklis gali būti taškas arba kablelis. Parsisiųsti