可能是一种解决方案,不需要视口或UCS,您可以使用vpoint,特别是-vpoint 1,1,1是一种三维视图,将x、y、z值更改为零可以快速访问方形高程。然后是UCS V或UCS OB。
- (if (= look "R")(command-s "-vpoint" "1,0,0"))
- (if (= look "L")(command-s "-vpoint" "-1,0,0"))
- (if (= look "F")(command-s "-vpoint" "0,-1,0"))
- (if (= look "B")(command-s "-vpoint" "0,1,0"))
- (if (= look "P")(command-s "-vpoint" "0,0,1"))
|