[求助]：pan的用法

nuance · 发表于 2003-7-31 12:49:25

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

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

×

下面程序:
(defun c:4(/ pt h p)
(setq pt (cadr (grread t 5)))
(setq h (* 0.5 (getvar "viewsize")))
(command "zoom" "c" pt h)(setq p (getvar "viewctr"))
(command "-pan" p pt) 运行时此句不执行,不知何故?
(princ)
)

xazhji · 发表于 2003-7-31 16:23:16

此句执行了！只是 p 和 pt 是一样的值，同值，当然没有变化！

lijiao · 发表于 2003-7-31 18:47:42

最初由 nuance 发布
[B]下面程序:
(defun c:4(/ pt h p)
(setq pt (cadr (grread t 5)))
(setq h (* 0.5 (getvar "viewsize")))
(command "zoom" "c" pt h)(setq p (getvar "viewctr"))
(command "-pan" p pt) 运行时此... [/B]

我运行很正常，是不是有其他问题？

nuance · 发表于 2003-7-31 22:58:45

我是想用PAN把屏幕中心点移至PT
模拟天正5中CTRL+TAB实现以光标点为基点zoom，2xp
或者整个思路就不对。

aeo · 发表于 2003-8-1 00:17:38

(setq p (getvar "viewctr"))
(command "-pan" p pt)

这两行没用处.上面的已经满足要求了 : p=pt

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

[求助] [求助]：pan的用法

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

相关帖子

Re: [求助]：pan的用法