请教怎么做这样的对话框

hui987

DCL

:row {
    :edit_box {
        label = "柱X方向宽" ;
    }
    :edit_box {
        label = "柱Y方向宽" ;
    }
}
:row {
    :edit_box {
        label = "箍筋直径" ;
    }
}
:row {
}
:row {
    :edit_box {
        label = "X方向箍筋肢数" ;
    }
    :edit_box {
        label = "Y方向箍筋肢数" ;
    }
}
:button {
    label = "确定" ;
}




LISP

(defun C:tpgl()
(princ "柱体积配箍率")
   (setq xzk (getint "\n请输入柱X方向宽:"))
   (setq yzk (getint "\n请输入柱Y方向宽:"))
   (setq gjzj (getint "\n请输入箍筋直径:"))
   (setq xgjzs (getint "\n柱X方向箍筋肢数:"))
   (setq ygjzs (getint "\n柱Y方向箍筋肢数:"))
   (setq mj (* pi 0.25 gjzj gjzj))
   (setq xzk1 (- xzk 50))
   (setq yzk1 (- yzk 50))
   (setq tj (+(* xzk1 xgjzs mj)(* yzk1 xgjzs mj)))
   (setq ztj (* xzk1 yzk1 100))

   (setq tjpgl (* (/ tj ztj) 100))
   (setq sctjpgj (strcat "体积配筋率" (rtos tjpgl 2 2) "%" ))
   (setq pT (getpoint "\nInsert Point:"))
   (command ".TEXT" "S" "TSSD_REIN" pt 300 0 sctjpgj)

)

请教怎么做这样的对话框，最好是点确定了，对话框还在的那种