(defun box () ;; bagian ini ditulis tanpa prompt C
(setvar "cmdecho" 0) 
(setq osn (getvar "osmode"))
(setvar "osmode" 0)
(setq panjang (getdist "\n Panjang : ")
	lebar (getdist "\n Lebar : ")
	acuan (getpoint "\n Titik acuan :  ")
	pt1 (polar  acuan 0 panjang)
	pt2 (polar pt1 (/ pi 2) lebar)
	pt3 (polar acuan (/ pi 2) lebar)
); setq
(command "pline" acuan pt1 pt2 pt3 "c")
(setvar "osmode" osn)
(princ)
); defun



(defun box1 (panjang lebar) ;; bagian ini ditulis tanpa prompt C
(setvar "cmdecho" 0) 
(setq osn (getvar "osmode"))
(setvar "osmode" 0)
(setq acuan (getpoint "\n Titik acuan :  ")
	pt1 (polar  acuan 0 panjang)
	pt2 (polar pt1 (/ pi 2) lebar)
	pt3 (polar acuan (/ pi 2) lebar)
); setq
(command "pline" acuan pt1 pt2 pt3 "c")
(setvar "osmode" osn)
(princ)
); defun



(defun box2 (panjang lebar acuan) ;; bagian ini ditulis tanpa prompt C
(setvar "cmdecho" 0) 
(setq osn (getvar "osmode"))
(setvar "osmode" 0)
(setq pt1 (polar  acuan 0 panjang)
	pt2 (polar pt1 (/ pi 2) lebar)
	pt3 (polar acuan (/ pi 2) lebar)
); setq
(command "pline" acuan pt1 pt2 pt3 "c")
(setvar "osmode" osn)
(princ)
); defun