请教怎么做这样的对话框
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)
)
请教怎么做这样的对话框，最好是点确定了，对话框还在的那种
页:
[1]