求一个写文本的程序
各位大佬，想求大家写个一个程序程序以输入程序内置选项的方式，调出选项内置的词句组成若干行文本，插入到图形中。形式大致如下：
品名：（此时命令行有干行选项 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起始点:")) 顶一下，，，，
页:
[1]