论坛 › A/VLISP › 旋转视口

/db_自贡黄明儒_ 发表于 2014-10-10 15:39:50

旋转视口

本帖最后由 /db_自贡黄明儒_ 于 2022-5-20 10:39 编辑

;;我第一次使用布置出图时，在布局中的标注全变了，加之布局时电脑反应慢，就不再使用布局出图
;;现在的电脑速度快了，不再担心慢。发现布局是好东西，在有些情况下比模型空间出图省不少事了
;;下面是百度搜到的方法，使用起来还是很麻烦的，故写成了程序。感觉还不错!!!!!!!!!!!!!!!!!!
;|第一种方法：
输入“ucs”命令，回车
输入“Z ”，回车
输入角度“45”（需要的角度，例如45，或者你想要旋转的角度值），回车
输入“plan”命令
回车
回车
这样就ok了
第二种方法：
使用 MVSETUP 命令旋转视图：
在命令提示下，输入 mvsetup；
输入 a（对齐）；
输入 r 旋转视图；
选择要旋转视图的视口；
指定旋转基点；
指定旋转角度；
整个视图在视口中旋转
|;
;;;;;;;;;;;;;;;;;;;;;;旋转视口   自贡黄明儒 2014.10.10
;;以上第二种方法不好用，故以第一种方法写成
(defun C:RotateView (/ CMD1 P1 P2)
(vl-load-com)
(or *ACAD* (setq *ACAD* (vlax-get-acad-object)))
(or *DOC* (setq *DOC* (vla-get-ActiveDocument *ACAD*)))
(_StartUndo *DOC*)
(setq cmd1 (getvar "cmdecho"))
(setvar "cmdecho" 0)
(if (equal (getvar "TILEMODE") 0)
    (cond
      ((equal (getvar "CVPORT") 1)
       (princ "\n 请双击激活视口运行本程序")      
      )
      (T
       (cond
         ((and (setq p1 (getpoint "\n 旋转基点"))
               (setq p2 (getpoint p1 "\n 旋转终点"))
          )
          (command "_.ucs" "_Z" "non" p1 "non" p2)
          (command "_.Plan" "")
         )
       )
      )
    )
    (princ "\n 请切换到布局")
)
(setvar "cmdecho" cmd1)
(_EndUndo *DOC*)
(princ)
)
;;;;;;;;;;;;;;;;;;;;;;旋转视口   自贡黄明儒 2014.10.10

N版加精，怎么也得升级一下

**** Hidden Message *****

桥云山 发表于 2014-10-10 16:06:37

不错                        

lucas3 发表于 2014-10-10 16:24:31

看看大作{:soso_e100:}

yangpeng0718 发表于 2014-10-10 20:56:53

好像其他的也会斜动 是么

spp_wall 发表于 2014-10-10 21:57:58

学习下！！！谢谢！！！

spp_wall 发表于 2014-10-10 22:03:50

no function definition: _STARTUNDO

csharp 发表于 2014-10-10 22:06:01

曾用数据监视器观察这个UCS设置有什么变化，竟然没有发现，可能Autodesk还藏了一手

yhly555 发表于 2014-10-10 22:32:59

不是很了解什么意思

守仁格竹GM 发表于 2014-10-11 08:15:17

确实不错

jxjaxa 发表于 2014-10-11 09:06:36

历害~~~~~~~~~~

daidong013 发表于 2014-10-11 09:24:29

学习一下！~~顶起

casd 发表于 2014-10-11 10:12:40

plan那个方法好，学习了

newer 发表于 2014-10-11 11:02:00

在模型空间出图，以前一直用PLAN命令的。

pp521yy 发表于 2014-10-11 16:50:12

谢谢老大的新功能,试试

oooohen 发表于 2015-1-22 15:45:49

好！！！！！！！！！！！！！！！！！！！！！

查看完整版本: 旋转视口