[求助]：请内业人士,这个LISP程序怎么编?

黄河之水

(defun c:11()    //全屏显示        (command"_cleanscreenON"))
(defun c:111()   //取消全屏显示    (command"_cleanscreenOFF"))

以上是两段2004版LISP程序,想请高手指点,只需要"11"命令,就能在这两者之间切换的程序.(也就是不要"111"命令)

nuance

按ctrl+0

黄河之水

谢谢你,
这个我知道,我相把它用命令来代替.那样较方便,
我现在想把它变成一个命令.

dwg001

试试它！
[PHP];;全屏显示/关闭的切换。　_By  dwg001   2006-12-07
(defun c:tt ()
  (setvar "cmdecho" 0)
  (if (null temp)
    (setq temp 0)
  )
  (if (= 0 temp)
    (progn
      (setq temp 1)
      (command "_.cleanscreenOFF")
    )

    (progn
      (setq temp 0)
      (command "_.cleanscreenON")
    )
  )
  (princ)
)
[/PHP]

xbaron

cui

里面有快捷键定义 我把它改成了F12了！~

carrot1983

4楼提供的思路真的是很有趣，我收藏了。。
谢谢。。学习了。。

phoenixdjq

前两天做了一个打开和关闭属性对话框的程序，虽不是很完美，也许对你也有用

(defun c:VCC()
(if (= jilujilu nil)
(setq jilujilu 1)
)
(if (= (rem jilujilu 2) 0)
(command "properties")
(command "propertiesclose")
)
(setq jilujilu (+ 1 jilujilu ))
(princ)
)

黄河之水

多谢4楼和7楼的朋友指点,这样简单的程序对我这样的新手很有用,我会慢慢分析的.


-------------------------------------------------------------------------------------------------
以上的两位楼主的程序真的不错,好象都与奇偶数有关,如果用此样式定义其它的命令,或没用此命令切换,奇偶数发生变化时,就需重复一个命令才能切换.