lsp适合玩的小程序

1. 坦克大战：一款经典的坦克射击游戏，玩家可以 *** 控坦克，攻扒仿击敌方坦克，消灭敌方坦克，赢得比赛。

2. 跳一跳：一款简单有趣的休闲游戏，玩家可以 *** 控角色跳跃，茄雹跳过障碍物，获得分数。

3. 小鸟快跑：一款有趣的休闲游戏，玩家可以 *** 控小鸟躲避障碍物，获得分数，赢得比赛。

4. 消灭星春纳纤星：一款有趣的休闲游戏，玩家可以 *** 控小球消灭星星，获得分数，赢得比赛。

5. 打地鼠：一款有趣的休闲游戏，玩家可以 *** 控锤子击打地鼠，获得分数，赢得比赛。

(defun c:tes ( / #k2 #kw c8)

(setvar "cmdecho" 0)

(setvar "blipmode" 0)

(if (and (setq c8 (entsel "\n请选择参考图层"))

(setq c8 (cdr (assoc 8 (entget (car c8)))))

(princ "\n请选择这个图层的对象")

(setq #kw (ssget (list (cons 8 c8))))

)

(progn

(initget "V C S E")

(if (setq #k2 (getkword (strcat "\n请选择动作方式或[选择(S)/移动顷前销(V)/复制(C)/删除(E)]:<" "S" ">")))

(setq #k2 (strcase #k2))

(setq #k2 "S")

)

(cond

((= #k2 "V"悔瞎) (command "_.Move" #kw "" pause) )

((= #k2 "C") (command "_.Copy" #kw "" pause) )

((= #k2 "E"雀游) (command "_.Erase" #kw "") )

((= #k2 "S") (progn (sssetfirst nil #kw) (pause) ) )

)

)

)

(prin1)

)

---