按一下鼠标，显示一段歌词

wbwell · 发表于 2018-6-13 01:14:51

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

按一下鼠标，显示一段歌词（之前想按一下显示一句，轻轻的，我走了，正如我，轻轻的来。这个静态变量实在做不出来，大神请帮忙。附一段代码）
(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"))
)
  )
)

wbwell · 发表于 2018-6-13 01:17:34

在网上搜了C++语言，是这样的
@echo off
echo 要显示的内容1
pause > nul
echo 要显示的内容2
pause > nul
echo 要显示的内容3
即每次显示文字后调用pause，并且抛弃pause的提示信息。

wbwell · 发表于 2018-6-13 01:20:37

我想按一下，显示,轻轻的，再按一下，显示，我走了，再按一下，显示正如我

/db_自贡黄明儒_ · 发表于 2018-6-13 08:18:02

(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)
)

yangjian001 · 发表于 2018-6-13 09:13:04

做一个热心并受欢迎的人！

韩非文 · 发表于 2018-6-13 09:23:50

悄悄地看着你

wbwell · 发表于 2018-6-13 09:35:14

/db_自贡黄明儒_ 发表于 2018-6-13 08:18

太感谢了，原谅我是个小白。语句理解有点吃力，拼凑到现在也拼不起来。请帮我再看看怎么输出成这种文本格式。不胜感激！

wbwell · 发表于 2018-6-13 10:12:11

大神看到了帮帮我

琢磨两天了

wbwell · 发表于 2018-6-13 11:02:05

大神再帮帮我吧，

wbwell · 发表于 2018-6-13 11:51:28

wbwell · 发表于 2018-6-13 20:42:28

Lisphk · 发表于 2018-6-13 20:48:46

wbwell 发表于 2018-6-13 09:35
太感谢了，原谅我是个小白。语句理解有点吃力，拼凑到现在也拼不起来。请帮我再看看怎么输出成这种文本格 ...

没看出什么样的格式？

sicky111 · 发表于 2018-6-14 00:02:13

有一个看小说的版本。

qingchao · 发表于 2018-6-14 08:02:33

如果是随机提醒得罪的不错哦

账号		自动登录	找回密码
密码			立即注册

[求助] 按一下鼠标，显示一段歌词

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。