求一个写文本的程序

皇上快溜

各位大佬，想求大家写个一个程序
程序以输入程序内置选项的方式，调出选项内置的词句组成若干行文本，插入到图形中。形式大致如下：

品名：（此时命令行有干行选项 A, B, C,,,,,,)
图号：（此时命令行有干行选项 A, B, C,,,,,,)
........................................
........................................
.................最好有六七行



插入到图形之后的文本是这样：

品名：张三
图号：王五
.................
.................
.................


只要一个结构框架就行了，内置选项的内容我自己来填充

皇上快溜

这又个类似的，只能写一行文本，我不会改

;;;短词句
(defun c:dcj(/ A1 A2 A3 A4 H S DS )
  (setvar "cmdecho" 0)
  (SETQ DS (GETVAR "DIMSCALE"))
  (SETQ A1 "0")
  (SETQ A2 "0")
  (SETQ A3 "0")
  (SETQ A4 "0")
  (SETQ A5 "0")
  (IF (/= B NIL)
      (SETQ h b ) (SETQ H 1))
  (princ "\n1总图 2.布局图 3.装配示意图 4.DETAIL 5.SCALE： 6.▲ 7.★")
  (PRINC "\n输入选项 (1 2 3 ...):<") (princ h) (princ ">" )
  (setq b (getint))
  (if (= b nil) (setq b h))
  (SETQ h (getvar "DIMTXT"))
  (COND ((= b 1) (setq a "总图"))
        ((= b 2) (setq a "布局图"))
        ((= b 3) (setq a "装配示意图"))
        ((= b 4) (setq a "DETAIL"))
        ((= b 5) (setq a "SCALE"))
        ((= b 6) (setq a "▲"))
        ((= b 7) (setq a "★"))
)
  (setq pp1 (getpoint "\n起始点:"))

皇上快溜

  顶一下，，，，

皇上快溜