[求助]：在线等 请高手看看帮我改一下，非常感谢！

bolixin

菜鸟问题，请各位帮忙改一下，谢谢！
1、如下代码中，我想当输入“底筋”、“腰筋”等配筋时可实现图中点选及键盘输入两种方式
2、如果“底筋”、“腰筋”为空时我想直接回车进入下一项目的输入
3、输入结果显示在提示语句后面，即如下形式：底筋：2Φ20
(defun c:lcs ()
  (setvar "cmdecho" 1)
  (setq LiangHao (qdwz "梁号:"))
  (setq LiangHao (wzcl LiangHao))
  (setq LiangJieMian (qdwz "\n梁截面:"))
  (setq LiangKuan (substr LiangJieMian 1 (vl-string-position (ascii "x") LiangJieMian)))
(setq LiangGao (substr LiangJieMian (+ 2 (vl-string-position (ascii "x") LiangJieMian)) (- (strlen LiangJieMian) 4)))
  (setq GuJin (qdwz "\n箍筋:"))
  (setq GuJin (wzcl GuJin))
  (setq KuaDu (rtos (getdist "\n跨度:") 2 0))
  (setq a1 (rtos (getdist "\n左支座a1:") 2 0))
  (setq a2 (rtos (getdist "\n左支座a2:") 2 0))
  (setq a3 (rtos (getdist "\n右支座a3:") 2 0))
  (setq a4 (rtos (getdist "\n右支座a4:") 2 0))
  (setq DiJin (getstring "底筋:"))
  (setq DiJin (vl-string-subst "Φ" "." DiJin))
  (setq YaoJin (getstring "腰筋:"))
  (setq YaoJin (vl-string-subst "Φ" "." YaoJin))
  (setq ZhiTongJin (getstring "面直通筋:"))
  (setq ZhiTongJin (vl-string-subst "Φ" "." ZhiTongJin))
  (setq FuJin_z1 (getstring "左一排负筋:"))
  (setq FuJin_z1 (vl-string-subst "Φ" "." FuJin_z1))
  (setq FuJin_z2 (getstring "左二排负筋:"))
  (setq FuJin_z2 (vl-string-subst "Φ" "." FuJin_z2))
  (setq FuJin_y1 (getstring "右一排负筋:"))
  (setq FuJin_y1 (vl-string-subst "Φ" "." FuJin_y1))
  (setq FuJin_y2 (getstring "右二排负筋:"))
  (setq FuJin_y2 (vl-string-subst "Φ" "." FuJin_y2))
  (setq JiaLiJin (getstring "架立筋:"))
  (setq JiaLiJin (vl-string-subst "Φ" "." JiaLiJin))
  (setq txt (strcat LiangHao "+" KuaDu "+" a1 "+" a2 "+" a3 "+" a4 "+" LiangKuan "+" LiangGao "+" DiJin "+" YaoJin "+" ZhiTongJin "+" FuJin_z1 "+" FuJin_z2 "+" FuJin_y1 "+" FuJin_y2 "+" GuJin "+" JiaLiJin))

  (dos_clipboard txt)
)