[试用]：哈哈的1＝2按钮可以这么做

笑傲糨糊 · 发表于 2003-11-23 12:54:32

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

哈哈的1＝2按钮好让人羡慕，试着这么做一个，盗哈哈的版。～～～
(defun c:haha1=n (/ n)
(setq n (getdist "\n输入图形放大倍数: "))
(setvar "DIMLFAC" (/ 1.0 n))
(command "-dimstyle" "_apply")
)

jxhaha · 发表于 2003-11-24 00:51:17

好！，你比俺的好！俺的是什么玩艺啊～～

笑傲糨糊 · 发表于 2003-11-24 10:35:22

不好意思，盗版居然盗到大名鼎鼎的哈哈头上。
不过，我那程序也太不负责任，应该要有系统变量恢复处理，即：
(setq oldlfac (getvar "dimlfac"))
...
(setvar "dimlfac" oldlfac)

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

[试用]：哈哈的1＝2按钮可以这么做

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

浏览过的版块