[求助]Lisp程序高手请帮忙

2443725 · 发表于 2004-5-4 15:58

以下是我在别的论坛看到的，感觉挺好，但不知道如何使用

一个很好的关于放大缩小的小程序

本人第一次来，还请过关照． （defun c:1（）（command "_（zoom）" "1.4x"）） （defun c:1（）（command "_（zoom）" ".７x"）） 上面的这两行在Ｒ１４里面加载可以很方便的实现图面的放大缩小．只需按１和enter（２和enter），大家不妨试试．但现在有个问题，我在２００４版的搞了好几次都不行，还请高人指点一下，不胜感激！

 这样写试试： (defun c:1() (command "_.zoom" "s" "1.4x" ) (prin1)) (defun c:2() (command "_.zoom" "s" ".7x") (prin1))

swaywood · 发表于 2004-5-4 19:34

按下面的应该是可以的！

sjiang · 发表于 2004-5-5 07:02

R2002版，下面的好用的么！

koalabear · 发表于 2004-5-6 03:52

不可能的，按说版本越高越好。我在2002里面好好的！