tranney 发表于 2013-7-15 17:25:56

继续发几个二合一命令希望大家喜欢

本帖最后由 tranney 于 2013-7-15 17:27 编辑

(setq eee1 1)
(defun c:2v() (princ "视图工具 左右视窗:\n")                                          ;左右视窗
(setvar "cmdecho" 0)
(setq eee1 (* eee1 -1))
(command "-vports" "si")
(if (< eee1 0)
(command "-vports" "2" "v"))
(setvar "cmdecho" 1)
(princ)
)
(setq fff1 1)
(defun c:2h() (princ "视图工具 上下视窗:\n")                                          ;上下视窗
(setvar "cmdecho" 0)
(setq fff1 (* fff1 -1))
(command "-vports" "si")
(if (< fff1 0)
(command "-vports" "2" "h"))
(setvar "cmdecho" 1)
(princ)
)

借花献佛

;---------- 全屏显示
(defun c:k ()
(if      (= 0 (getvar "CLEANSCREENSTATE"))
(command "commandlinehide" "CleanScreenon")
(command "commandline" "CleanScreenOFF"))
(princ))

金鹅起飞 发表于 2023-10-12 16:08:51

谢谢楼主分享

xhq1954425 发表于 2013-7-15 21:39:05

收下，备用。谢谢！

sicky111 发表于 2013-7-16 23:45:21

这么好的程式怎么没人支持呢。

清风明月名字 发表于 2013-7-17 10:24:36

谢谢楼主的分享！很有用啊。

注册 发表于 2013-7-17 23:07:41

;---------- 全屏显示
(defun c:k ()
(if      (= 0 (getvar "CLEANSCREENSTATE"))
(command "commandlinehide" "CleanScreenon")
(command "commandline" "CleanScreenOFF"))
(princ))这个是半平的，呵呵

tranney 发表于 2013-7-18 09:41:11

哥，没注意是借花献佛

峰峰兒 发表于 2013-7-18 11:07:10

云中孤鹰 发表于 2013-7-22 09:34:23


多谢分享，辛苦

恕放之生命 发表于 2014-8-21 20:04:57

好东西，谢谢分享。

519995995 发表于 2014-10-19 08:19:58

      顶起来
页: [1] 2
查看完整版本: 继续发几个二合一命令希望大家喜欢