请哪位大神帮忙修改下此代码

wyuh12

这是在论坛上找到了同行业的兄弟的代码，但是希望能改进一点，效果如图

程序如下
(defun c:cs( )
(setvar "cmdecho" 0)
(setq dlq '("16" "20" "25" "32" "40" "50"))
(setq xj '("2.5" "4" "6" "10" "16" "16"))
(setq gj '("20" "20" "20" "25" "32" "32"))
(setq 1gj '("20" "20" "20" "25" "32" "32"))
(setvar "cmdecho" 0)
(prompt "\n选择文字:")
(setq ss (ssget '((0 . "TEXT"))))
(repeat (setq i (sslength ss))
(setq en (entget(ssname ss (setq i (1- i)))))
(setq zb (cdr(assoc 10 en)));坐标
(setq tx (cdr(assoc 1 en)))
(if (setq dl (member tx dlq)) (progn
  (setq n (- (length dlq) (length dl)))
  (setq txt (strcat "BV-3*" (nth n xj) "-JDG" (nth n gj)))；SC和JDG希望能选择
  (setq newzb (mapcar '- zb '(600 0 0)))
  (setq en (subst (cons 1 txt) (assoc 1 en) en))
  (entmake (cdr(subst (cons 10 newzb) (assoc 10 en) en)))
  (setq txt1 (strcat "34" (nth n 1gj)))；“34”处为输入的断路器名
  (setq newzb1 (mapcar '- zb '(1000 100 0)))
  (setq en (subst (cons 1 txt1) (assoc 1 en) en))
  (entmake (cdr(subst (cons 10 newzb1) (assoc 10 en) en)))
))
)
(setvar "cmdecho" 1)
(princ)
)

希望添加的功能：1.提示输入套管类型，如JDG和SC（不同管型后数字不同）。2.提示输入断路器品牌（替换程序中的“34”）
输入选项后效果如下（JPG改为SC，34改为了XL)