下面是在这个论坛上人们的帮助下制定的一个小程序。但它并没有按您希望的方式旋转视口(事实上,当从WCS旋转视图时,该例程无法可靠地工作)。它可能包含您可能会发现有用的元素。
该例程所做的是,从视口开始,将其解锁,将ucs绕Y轴旋转180度,将视图设置为该ucs,然后将视图返回到其原始位置(即相同的视图中心和比例),并再次锁定视口。
我们使用它来详细描述镜像组件:
-
- (defun C:VPF (/ vc vs ve)
- (initerror)
- (setvar "cmdecho" 0)
- (command "undo" "mark")
- (command "_.undo" "_begin")
- (command "UCS" "world")
- (setq vc (getvar "VIEWCTR")
- vs (getvar "VIEWSIZE")
- ve (trans '(0 0 1) 0 1))
- (command "_.VPORTS" "_L" "_OFF" "_ALL" "")
- (command "_.UCS" "_Y" 180
- "_.PLAN" "_C"
- "_.ZOOM" "_C" (trans vc ve 1) vs)
- (command "_.VPORTS" "_L" "_ON" "_ALL" "")
- (command "_.undo" "_end")
- (setvar "cmdecho" 1)
- (princ)
- )
|