旋转视口

自贡黄明儒 · 发表于 2014-10-10 15:42:12

;;我第一次使用布置出图时，在布局中的标注全变了，加之布局时电脑反应慢，就不再使用布局出图
;;现在的电脑速度快了，不再担心慢。发现布局是好东西，在有些情况下比模型空间出图省不少事了
;;下面是百度搜到的方法，使用起来还是很麻烦的，故写成了程序。感觉还不错!!!!!!!!!!!!!!!!!!
;|第一种方法：
输入“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

kucha007 · 发表于 2022-9-27 00:46:48

受黄老师的启发，写了这个。有时间可以看看：http://bbs.mjtd.com/forum.php?mo ... mp;extra=#pid927321

q3_2006 · 发表于 2014-10-10 16:17:34

黄工多久没画图了.....

USER2128 · 发表于 2014-10-10 17:21:30

回复，学习学习!

davide888 · 发表于 2014-10-10 17:26:16

路过不要错过

sicky111 · 发表于 2014-10-10 17:32:16

前排支持黄大师。

wzg356 · 发表于 2014-10-10 17:32:26

kkkkkkkkkkkkkkk

819534890 · 发表于 2014-10-10 17:44:42

不错不错，支持

hao3ren · 发表于 2014-10-10 19:05:24

黄工高产啊

hao3ren · 发表于 2014-10-10 19:06:24

黄工真是高产啊

aihuyujian · 发表于 2014-10-10 19:19:54

没用过布局不知道有什么用处

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

[源码] 旋转视口

本帖子中包含更多资源