旋转视口
本帖最后由 /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 *****
不错 看看大作{:soso_e100:}
好像其他的也会斜动 是么 学习下!!!谢谢!!!
no function definition: _STARTUNDO 曾用数据监视器观察这个UCS设置有什么变化,竟然没有发现,可能Autodesk还藏了一手 不是很了解什么意思 确实不错
历害~~~~~~~~~~ 学习一下!~~顶起 plan那个方法好,学习了 在模型空间出图,以前一直用PLAN命令的。
谢谢老大的新功能,试试 好!!!!!!!!!!!!!!!!!!!!!