旋转视口

/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版加精，怎么也得升级一下

游客，如果您要查看本帖隐藏内容请回复

桥云山 · 发表于 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

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

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

[每日一码] 旋转视口

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分

本帖被以下淘专辑推荐:

点评