i want the object that my lips creates to be a solid ,to able to export to STL

[ritagarciabrito]

Hello,

Thank you for your help. 

I have a lisp that creates shapes of towers. But to be able to export as Stl file, I need to have a closed solid. Could you help me? Thank you

(defun c:towerR ()
(setq pontos2d (getvar "osmode"))
(setq pontos3d (getvar "3dosmode"))
(setvar "osmode" 0)
(setvar "3dosmode" 0)
(command "ucs" (getpoint "Insert point. ") "")
(setq nu 0)
(command "_rectangle" (list -1 -1 0) (list 1 1 0))
(guardar)
(command
"_rectangle"
(list (* -1 (setq a (alea 1 4))) (* -1 (setq b a)) (setq c (alea 1 2)))
(list a b c)
)
(guardar)
(command
"_rectangle"
(list (* -1 (setq a (alea 1 1.5))) (* -1 (setq b a)) (setq c (alea 2 7)))
(list a b c)
)
(guardar)
(command "_rectangle" (list -1.5 -1.5 10.) (list 1.5 1.5 10.))
(guardar)
(solido)
(setq lista nil)
(setvar "osmode" pontos2d)
(setvar "3dosmode" pontos3d)
(command "ucs" "")
)

[calderg1000 · Accepted solution]

Regards @ritagarciabrito 

Make the change here:

(defun solido ()
(command "loft" "_mo" "_so");;;Make the change here:"_so"
(foreach p lista (command p))
(command "" "")
)

[ritagarciabrito]

It worked. Thank you!!!