Het is voor bedoelt om te gebruiken in een 1:100 of 1:20 tekening.Materiaal is niet echt belangrijk maar het gaat er meer om of de trap klopt volgens bouwbesluit.
En het handmatig tekenen van een spiltrap is tijdrovend,dus vandaar mijn vraag.
Groeten Marcel
Ik vond dit op het net (maar kan het nu niet uitproberen daar ik nu niet over AutoCAD beschik)en dit is in 3D.!!!
;SPST.LSP
;Draw spiral stair
;--------------------------------------------------------------------
;Main function
;--------------------------------------------------------------------
(defun c:spst ( / zcmd zblp zosm cn ag0 r1 r2 ag ht rase
dag dht ag1 tyn ty rw rn rt p1 p2 p3 p4
pa pb b1 b2 b31 b41 b5 b6 b32 b42
plist lista listb nr
)
(setq zcmd (getvar "cmdecho")
zblp (getvar "blipmode")
zosm (getvar "osmode")
)
(setvar "cmdecho" 0)
(initget 1)
(setq cn (getpoint "\nCenter:"))
(initget 1)
(setq ag0 (getangle cn "\nRotation angle of first step:"))
(initget 7)
(setq r1 (getdist cn "\nInner radius:"))
(initget 7)
(setq r2 (getdist cn "\nOuter radius:"))
(initget 3)
(setq ag (getreal "\nAngle between first and last steps:"))
(initget 3)
(setq ht (getreal "\nStair height [+ up][- down]:"))
(initget 7)
(setq nr (getint "\nNumber of steps:")
ag (* pi (/ ag 180.0))
rase (/ ht nr)
dag (/ ag nr)
dht (/ ht (1+ nr))
ag1 (- ag0 dag)
tyn 8
)
(setvar "osmode" 0)
(setvar "blipmode" 0)
(initget 1 "A B")
(setq ty (getkword "\nSpiral stair type <A>
:"))
(initget 5)
(setq rw (getreal "\nRailing width:"))
(initget 5)
(setq rh (getreal "\nRailing height:"))
(initget 1)
(if (= ty "A")
(setq rt (* -1 (getreal "\nRailing thickness:")) tyn 4)
)
(repeat (+ nr 1)
(setq ag1 (+ ag1 dag)
p1 (polar cn ag1 r1)
p2 (polar cn ag1 r2)
p3 (sp p1 dht)
p4 (sp p2 dht)
)
(if (minusp ht)
(setq pa (sp p1 (* 2 dht))
pb (sp p2 (* 2 dht))
)
(setq pa (sp p1 (* -1 dht))
pb (sp p2 (* -1 dht))
)
)
(if (and (equal ag1 ag0 0.001)(null (minusp ht)))
(setq pa p1 pb p2)
)
(if (and (equal ag1 (+ ag0 ag) 0.001)(minusp ht))
(setq pa (sp p1 dht)
pb (sp p2 dht)
))
(setq b1 (sp p1 rh)
b2 (polar b1 ag1 rw)
b31 (polar p1 ag1 rw)
b41 (polar cn ag1 (- r2 rw))
b5 (sp b41 rh)
b6 (polar b5 ag1 rw)
b32 (sp b31 dht)
b42 (sp b41 dht)
)
(if (= ty "A")
(setq plist (append plist (list pa p1 p2 pb pa p3 p4 pb))
lista (append lista (list b1 b2 (sp b2 rt)(sp b1 rt)))
listb (append listb (list b5 b6 (sp b6 rt)(sp b5 rt)))
)
)
(if (= ty "B")
(setq plist (append plist (list pa b1 b2 b31 b41 b5 b6 pb
pa b1 b2 b32 b42 b5 b6 pb))
)
)
(setq cn (list (car cn)(cadr cn)(+ (caddr cn) dht)))
)
(setq nr (length plist))
(command "3dmesh" (/ nr tyn) tyn)
(repeat nr
(command (car plist))
(setq plist (cdr plist))
)
(command "")
(spstnc)
(if lista
(progn (setq nr (length lista))
(command "3dmesh" (/ nr 4) "4")
(repeat nr (command (car lista))
(setq lista (cdr lista))
)
(command "")
(spstnc)
(command "3dmesh" (/ nr 4) "4")
(repeat nr (command (car listb))
(setq listb (cdr listb))
)
(command "")
(spstnc)
)
)
(setvar "osmode" zosm)
(setvar "blipmode" zblp)
(setvar "cmdecho" zcmd)
(princ)
)
;
;--------------------------------------------------------------------
;Get the point with increment h in Z direction
;--------------------------------------------------------------------
(defun sp ( pt h)
(list (car pt)(cadr pt)(+ (caddr pt) h))
)
;
;--------------------------------------------------------------------
;Enclose the 3D mesh as the last entity in N direction
;--------------------------------------------------------------------
(defun spstnc ( / en ed )
(setq en (entlast)
ed (entget en)
ed (subst (cons 70 48)(assoc 70 ed) ed)
)
(entmod ed)
)
;
;--------------------------------------------------------------------
;Print message
;--------------------------------------------------------------------
;
(princ "\nSPST.LSP loaded. Type SPST to draw spiral stair.")
(princ)
