社区 › AutoLISP/Visual LISP 编程技术 › 旋转视图，旋转视口，恢复视图

ucuc2003 发表于 2015-9-17 17:24:00

旋转视图，旋转视口，恢复视图

本帖最后由 ucuc2003 于 2015-9-17 17:55 编辑

参考了自贡黄明儒的源码，感谢！
增加了记忆角度功能

;;;恢复视图 by ucuc2003
(defun C:HFST (/ ro_ang)
(setvar "cmdecho" 0)
(princ "恢复视图")
(if (equal (getvar "TILEMODE") 1)
    (progn
      (command "_.undo" "_group")
      (command "_.Plan" "w" "_.ucs" "w")
      (command "_.undo" "_end")
    )
    (princ "\n*请切换到模型空间*")
)
(princ)
)
;;;恢复视图end

修改了下
;;;恢复视图 by ucuc2003
(defun C:HFST (/ ro_ang)
(setvar "cmdecho" 0)
(princ "恢复视图")
(vl-load-com)

(setqacadobject   (vlax-get-acad-object)
         acaddocument (vla-get-activedocument acadobject))
(if (equal (getvar "TILEMODE") 1)
    (progn
      (command "_.undo" "_group")
      (command "_.Plan" "w" "_.ucs" "w")
      (command "_.undo" "_end")
    )
    (if (= (vla-get-mspace acaddocument) :vlax-false)
      (command "mspace" "_.Plan" "w" "_.ucs" "w")
      (command "_.Plan" "w" "_.ucs" "w")
    )
)
(princ)
)

liu903758379 发表于 2019-6-11 15:28:44

学习学习，谢谢分享

999999 发表于 2020-8-16 18:10:41

学习学习，，谢谢分享

nyistjz 发表于 2021-6-4 08:28:59

http://bbs.mjtd.com/thread-178310-1-1.html
这个比您这个更好用一点，无需选择命令，合并在一起了。
供您参考。

白色微風1991 发表于 2021-6-5 07:31:37

學習學習，謝謝分享

00放飞梦想00 发表于 2022-2-17 12:32:19

不错的软件

wzb233 发表于 2022-11-6 20:50:52

感谢楼主分享~！

222808 发表于 2022-11-16 10:46:31

很好用啊，感谢感谢

查看完整版本: 旋转视图，旋转视口，恢复视图