加载运行在AUTOCAD下的小游戏四款

xxkz

大家玩的小游戏大部分是exe格式的，或者flash类型的，今天给大家带来4款可以在autocad里面加载运行的lsp小游戏，按照常规插件的加载方式加载后，输入快捷键就可以愉快的玩耍了，快捷键都附在每个游戏文件名的括号里了，四款游戏分别为：
打飞机(快捷键troy).lsp

俄罗斯方块(快捷键elsfk).lsp

五子棋（快捷键wzq）.fas

中国象棋（快捷键zgxq）.lsp

如果要问，好不好玩，只能说是能玩而已，在autocad里毕竟是以插件的形式存在的，只是给大家分享个不一样的小玩意。
下面附上下载链接：https://wwf.lanzouo.com/igGrv1w8kr8h


==========================================================================================================

在回复里有人问到，在autocad里面可不可以看TXT的小说，所以一番搜索后，发现还真可以，特分享出来。
使用命令rd1，读下一行的时候按空格或者回车即可。
把以下代码保存到文本文档里，后缀改为rd1,lsp,在cad里面加载，然后输入rd1命令，
按照提示找到txt格式的小说，然后就可以啦。
================================
(defun c:rd1 ( / ff1 fn i txt1 et )
  (setq ff1 (getfiled "选择TXT文件" "" "txt" 2))
  (setq olderr *error* *error* dragon)  
    (setq cn nil fn (open ff1 "r"))   
  (if (= cn nil)
    (setq cn (getint "\n 确定起始行数：")) )
   (repeat cn
     (read-line fn)
     )
    (setq et "111" txt1 nil txt1 (read-line fn)) (princ txt1) (print)
  (while (/= et "exit")
        (setq  txt1 (read-line fn))      
        (setq cn (1+ cn))
         (if (and (/= txt1 "") (/= txt1 nil))
           (progn
                  (princ txt1)  (print) )
           (progn
               (setq cn (1+ cn))
               (setq  txt1 (read-line fn))
               (princ txt1) (print)
         ));end if
    (setq et (getstring ""))
      );end while     
  (repeat 6     (princ "\n命令： ") )
  (princ "\n行数： ") (princ cn)
  (princ "\n命令： ")
  (setq *error* olderr)
  
   (princ)
)
(defun dragon (st)  
   (repeat 6     (princ "\n命令： ") )
   (princ "\n行数： ") (princ cn)
   (princ "\n命令： ")
  (setq cn (1+ cn))
  (setq *error* olderr)
  (princ)
  )

Reborn2019

摸鱼达人

xxkz

qw87887584 发表于 2024-4-23 20:34
窝草，这也可以吗，大神，能不能弄一个看TXT的插件。

使用命令rd1，读下一行的时候按空格或者回车即可。
把以下代码保存到文本文档里，后缀改为rd1,lsp,在cad里面加载，然后输入rd1命令，
按照提示找到txt格式的小说，然后就可以啦。
================================
(defun c:rd1 ( / ff1 fn i txt1 et )
  (setq ff1 (getfiled "选择TXT文件" "" "txt" 2))
  (setq olderr *error* *error* dragon)  
    (setq cn nil fn (open ff1 "r"))   
  (if (= cn nil)
    (setq cn (getint "\n 确定起始行数：")) )
   (repeat cn
     (read-line fn)
     )
    (setq et "111" txt1 nil txt1 (read-line fn)) (princ txt1) (print)
  (while (/= et "exit")
        (setq  txt1 (read-line fn))      
        (setq cn (1+ cn))
         (if (and (/= txt1 "") (/= txt1 nil))
           (progn
                  (princ txt1)  (print) )
           (progn
               (setq cn (1+ cn))
               (setq  txt1 (read-line fn))
               (princ txt1) (print)
         ));end if
    (setq et (getstring ""))
      );end while     
  (repeat 6     (princ "\n命令： ") )
  (princ "\n行数： ") (princ cn)
  (princ "\n命令： ")
  (setq *error* olderr)
  
   (princ)
)
(defun dragon (st)  
   (repeat 6     (princ "\n命令： ") )
   (princ "\n行数： ") (princ cn)
   (princ "\n命令： ")
  (setq cn (1+ cn))
  (setq *error* olderr)
  (princ)
  )

ManaCola

还可以这样嘛，长见识了

t33333

感谢分享，下载玩玩。

hupei520.

appload加载后怎么调出来呀

sp0770

居然还有这玩意？涨见识了

sp0770

这 个会不会让专杀工具当成病毒杀？

xxkz

hupei520. 发表于 2024-4-23 18:50
appload加载后怎么调出来呀

快捷键命令都附在每个游戏文件名的括号里了

xxkz

sp0770 发表于 2024-4-23 19:03
这 个会不会让专杀工具当成病毒杀？

应该不会吧，没有专门去查杀过，毕竟大部分插件不也能运行，也没有被当病毒清理掉。

skyblue0999

涨见识了。。