(defun c:kotak () 
(box)
)


(defun c:kotak1 () ;;command dengan prompt C yang merupakan routine KOTAK
(box1 150 150)
)



(defun c:jendela ()
(setq osn (getvar "osmode"))
(setq leb_jen (getdist " \lebar jendela : "))
(setvar "osmode" 0)
(box1 50 150)
(command "line" pt1 (setq pt4 (polar pt1 0 leb_jen)) ""
	 "line" (polar pt1 (/ pi 2) 75) (polar pt4 (/ pi 2) 75) ""
	 "line" pt2 (polar pt2 0 leb_jen) ""
)
(box2 50 150 pt4)
(setvar "osmode" osn)
(princ)

)


(defun c:bentuk ()
(box)
(if (< lebar 100) (command "line" acuan pt2 "" "line" pt1 pt3 ""))

(if (= lebar 100) (command "circle" (polar acuan (angle acuan pt2) (/ (distance acuan pt2) 2.0)) (/ lebar 4.0)))

(if (> lebar 100) 
    (command "line" 
	(polar acuan 0 (/ (distance acuan pt1) 2.0)) 
	(polar pt3 0 (/ (distance acuan pt1) 2.0)) ""
	
     "line" 
	(polar acuan (/ pi 2) (/ (distance acuan pt3) 2.0))
	(polar PT1 (/ pi 2) (/ (distance acuan pt3) 2.0)) ""
    )
)
(princ)
)



(defun c:tangga ()
(setq level (getdist "\n Tinggi Lantai : ");;; dengan getdist bukan getreal
	upstair (getint "\n Jumlah anak tangga : ")
	up (/ level upstair)
)
(princ up)
(princ)
)