664571221 发表于 2023-10-29 17:03:53

各位大神，输入tt，把现在绘图区域的视口水平向左移动1/4的范围，可以实现吗

各位大神，输入tt，把现在绘图区域的视口水平向左移动1/4的范围，可以实现吗

飞雪神光 发表于 2023-10-29 17:25:36

可以实现的

Bao_lai 发表于 2023-10-30 00:04:41

如图，源码+注释。

尘缘一生 发表于 2023-10-30 00:51:41


[*](defun C:88 () (command "PAN" (trans (list 0 (* 0.2 (getvar "VIEWSIZE"))) 0 1)""))
[*](defun C:22 () (command "PAN" (trans (list 0 (- (* 0.2 (getvar "VIEWSIZE")))) 0 1)""))
[*](defun C:44 () (command "PAN" (trans (list (- (* 0.2 (getvar "VIEWSIZE"))) 0) 0 1)""))
[*](defun C:66 () (command "PAN" (trans (list (* 0.2 (getvar "VIEWSIZE")) 0) 0 1)""))


这是三领设计的，本来啊，这想取消了，作废，因为这是很早以前，在DOS系统用的，哪么如今鼠标即可。






Bao_lai 发表于 2023-10-30 08:47:55

尘缘一生 发表于 2023-10-30 00:51
[*](defun C:88 () (command "PAN" (trans (list 0 (* 0.2 (getvar "VIEWSIZE"))) 0 1)""))
[*](defun C ...

老爷子这个简洁

tigcat 发表于 2023-10-30 09:55:17

(command "'pan" (trans (list (* 0.25 (apply '/ (getvar "screensize"))(getvar "viewsize"))0)0 1) "")

664571221 发表于 2023-10-30 10:15:48

尘缘一生 发表于 2023-10-30 00:51
[*](defun C:88 () (command "PAN" (trans (list 0 (* 0.2 (getvar "VIEWSIZE"))) 0 1)""))
[*](defun C ...

厉害厉害..

664571221 发表于 2023-10-30 10:17:04

Bao_lai 发表于 2023-10-30 00:04
如图，源码+注释。

谢谢大哥..

e2002 发表于 2023-10-30 10:38:43

这个功能自定义参考文档中作为样例提供了的，一般设置了对应的快捷键。
至少是R14时就有了。后面支持了鼠标滚轮Pan，就没人用了。

664571221 发表于 2023-10-30 16:08:43

e2002 发表于 2023-10-30 10:38
这个功能自定义参考文档中作为样例提供了的，一般设置了对应的快捷键。
至少是R14时就有了。后面支持了鼠 ...

你好快捷键是啥
页: [1] 2
查看完整版本: 各位大神，输入tt，把现在绘图区域的视口水平向左移动1/4的范围，可以实现吗