(defun C:BUX (/ bux_ins  bux_len)
;;; copyright 2001 by Nir Sullam & anySOFT
;;;
;;;
;;;     You will be prompted to pick a point inside any closed area.
;;;     After that an extrusion height will be asked for:
;;;     Entering a value greater than zero will create a 3DSOLID.
;;;     Entering zero will create a REGION.
;;;     Pressing ENTER or SPACEBAR or entering
;;;     negative values will create a simple POLYLINE.
;;;
;;;     You may change the name of the command in case it overrides an
;;;     existing one of the same name.    


    (princ "\nBoundary & extrude 1.1")
    (setq bux_ins (getpoint "\nPick a point inside: "))
    (command "_.BOUNDARY" bux_ins "")
    (setq bux_len (getdist "\nExtrusion height: "))


 (cond
    ((and bux_len (> bux_len 0))
     (progn
        (command "_.EXTRUDE" (entlast) "" bux_len "")
        (princ "\n 3DSOLID created.")
	))
    ((and bux_len (zerop bux_len))
     (progn
        (command "_.REGION" (entlast) "" )
        (princ "\n REGION created.")
	))
    ((null bux_len)
     (princ "\n POLYLINE created.")
	)
    )

    (princ)
    )