将视图不断向下移动

sergiu_ciuhnenc · 发表于 2022-7-5 19:43:39

早上好，世界，谁能帮我一个Lisp程序；
这就是问题所在：我必须检查钢筋，所以我必须查看图纸和autocad，但我必须多次向下平移视图；
原因是从当前视图向下移动一个常数单位，例如45000，数字可以在lisp中输入，我的意思是不要在autocad中手动引入它。
提前感谢！

Tharwat · 发表于 2022-7-5 20:13:26

试试这样的东西；


(command "_.-pan" '(0. 0. 0.) (polar '(0. 0. 0.) (* pi 1.5) 45000))

Lee Mac · 发表于 2022-7-5 20:41:20

或者只是：

(defun c:pd nil (command "_.pan" "_non" '(0 0) "_non" '(0 -45000)) (princ))

sergiu_ciuhnenc · 发表于 2022-7-5 20:57:03

它工作得很好，又是芬克斯！！！！！！
祝我今天愉快！！！

[编程交流] 将视图不断向下移动