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

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

本帖最后由 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

谢谢楼主分享

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

收下，备用。谢谢！

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

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

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

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

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

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

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

哥，没注意是借花献佛

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

提示: 作者被禁止或删除内容自动屏蔽

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

多谢分享，辛苦

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

好东西，谢谢分享。

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

顶起来

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

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

评分

本帖被以下淘专辑推荐:

峰峰兒峰峰兒当前离线积分 10947 明经币个注册时间 2010-8-7 在线时间小时威望金钱个贡献激情	发表于 2013-7-18 11:07 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡