[求助]：3维俯视轴侧视图如何实现

baby1528

以下LISP代码可以建立俯视（Z轴向下）的3维轴侧视图，本人想用VBA代码实现相同的功能，搞了几天也不成功。心急如焚，急盼高手指点

(defun c:stview()

  (setq

    t3d1    '((0 . "VIEW")

             (100 . "AcDbSymbolTableRecord")

             (100 . "AcDbViewTableRecord")

             (2 . "t3d")

             (70 . 0);标准标记值（按位编码值）

             (40 . 5.86615);视图高度（在 DCS 中）

             (10 0.0 0.0 0.0);视口中心点（在 DCS 中）

             (41 . 9.62504);视图宽度（在 DCS 中）

             (11 7.12741 10.4676 -4.4377);来自目标的观察方向（在 WCS 中）

             (12 80.2959 117.654 -48.0259);目标点（在 WCS 中）

             (42 . 50.0);镜头长度

             (43 . 0.0);前向剪裁平面（距目标点的偏移）

             (44 . 0.0);后向剪裁平面（距目标点的偏移）

             (50 . 3.14159);扭曲角度

             (71 . 0);视图模式（参见 VIEWMODE 系统变量）

             (281 . 0);渲染模式

             (72 . 1);如果存在与此视图相关联的 UCS，则为 1，否则为 0

             (110 0.0 0.0 0.0);UCS 原点（仅当将代码 72 设置为 1 时才显示）

             (111 1.0 0.0 0.0);UCS 原点的 Y 值和 Z 值

             (112 0.0 1.0 0.0);UCS 原点的 Y 值和 Z 值

             (79 . 1);UCS 的正交类型,1 = 俯视图

             (146 . 0.0);UCS 标高

            )

  )





  (if (null (tblsearch "view" "t3d"))

    (progn      (entmake t3d1)    )

  )

  (if (null (equal (getvar "viewdir") '(7.12741 10.4676 -4.4377)))

    (command "-view" "r" "t3d")

  )

  (command "ucs" "")

  (setq    t3d    (entget (tblobjname "view" "t3d"))  )





)