李，也许你会有一个更好的解决方案来实现我的目标。。。
从顶视图往下看时，我在模型空间中绘制的对象大多比深宽，但也有一些比宽深。在这种情况下，我希望通过将俯视图扭转90°，旋转我的前视图使其成为左视图，旋转我的右视图使其成为前视图，使对象更好地适合视口（和页面）。（基本上与将模型空间中的对象旋转90°相同，这要容易得多，但我的雇主不允许我这样做，因为这会导致客户在他们的图纸中插入我们的符号时出现问题）
以下是我目前掌握的信息：
- (defun c:rt ()
- (setvar 'tilemode 0)
- (command "_.zoom" "_w" '(-0.5 -0.5 0.0) '(11.0 8.5 0.0))
- (command "_.mspace")
- (setvar 'cvport 2)
- (setq tvt (* (/ (+ (getvar 'viewtwist) (/ pi 2)) pi) 180))
- (command "_.dview" "" "_twist" tvt "")
- (command "_.zoom" "_e")
- (setvar 'cvport 5)
- (setq sfv (getvar 'ucsname))
- (setq efv (cond ( (= sfv "*Front*") "_Left")
- ( (= sfv "*Left*") "_Back")
- ( (= sfv "*Back*") "_Right")
- ( (= sfv "*Right*") "_Front")))
- (command "_.-view" efv)
- (command "_.zoom" "_e")
- (setvar 'cvport 4)
- (setq srv (getvar 'ucsname))
- (setq erv (cond ( (= sfv "*Front*") "_Left")
- ( (= sfv "*Left*") "_Back")
- ( (= sfv "*Back*") "_Right")
- ( (= sfv "*Right*") "_Front")))
- (command "_.-view" erv)
- (command "_.zoom" "_e")
- (command "_.pspace")
- (princ)
- (princ "\nAll modelspace items rotated 90° about the top plane")
- (princ))
如果有更好的办法，我洗耳恭听。 | 
