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

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

本帖最后由 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)
(setq  acadobject (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

学习学习，谢谢分享

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

学习学习，，谢谢分享

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

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

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

學習學習，謝謝分享

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

不错的软件

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

感谢楼主分享~！

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

很好用啊，感谢感谢

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

[源码] 旋转视图，旋转视口，恢复视图

本帖子中包含更多资源

评分

本帖被以下淘专辑推荐: