结合语句写出 点击鼠标生成文本格式

wbwell

各位大神帮帮我

(defun C:w1 ()
  (setq L '("轻轻地我走了" "正如我轻轻地来" "我轻轻地招手"))
  (setq n (length L))
  (setq i -1)
  (while (getpoint)
    (if (>= i (1- n))
      (setq i -1)
    )
    (setq i (1+ i))
    (setq str (nth i L))
    (prompt str)
  )
  (princ)
)

这是大神的代码
还有我的这一段
(defun C:ppp()
  (setq TextHeight (getreal"\n文字高度："))
  (setq StartPage (getint"开始页码："))
  (setq TotalPage (getint"总页数："))
  (setq pt (getpoint "插入点：\n"))
  (while pt
    (COMMAND "TEXT" pt TextHeight 0 (strcat "暖施" (itoa StartPage) "/"  (itoa TotalPage) "\n"))
    (setq StartPage (1+ StartPage))
    (if (> StartPage TotalPage)
      (setq pt nil)
      (setq pt (getpoint "\n插入点：\n"))
    )
  )
)


帮我结合这两段，写出点一下鼠标，生成一段个字段的程序。