lisp中如何把坐标转换下？

panpan1202

编写了一个画漏斗的程序，画完之后是世界坐标系吧，所以这个图看起来就不是立体的，但我是想要看起来是立体的，所以在lisp中加了一句

(COMMAND "VPOINT" "10,5,10") 但画完之后，坐标系统是这样的

                                                       /|\ Z

                                                        |

                                                        |______y

                                                       /

                                                      /x

但我的漏斗计算的时候y轴是向上的，也就是是想这样来表示，

                                                       /|\ y

                                                        |

                                                        |______x

                                                       /

                                                      /z

那么在lisp中应该如何添加语句啊？谢谢

自贡黄明儒

首先,这个漏斗程序要放在这里大家能看见,呵呵!!!

panpan1202

2. (defun C:F()
3. ;(COMMAND "LIMITS" "-0.3,0" "0.3,1.2")
4. (COMMAND "VPOINT" "10,5,10")
5. (COMMAND "SURFTAB1" 1000)
6. (SETQ D 0.001 DD 0.001 S 10)
7. (COMMAND "ERASE" "ALL" "")
9. (setq F1 (open"g:/base_case_spheresandhopper.dat" "r"))
10. ;;逐行读入
12.     (setq STR (read-line F1))
13.     ;(princ"\n")
14. ;(princ STR)
15.     ;(setq str1 (str-th str '(("," " "))))
16.     (setq LST1 (read (strcat "(" STR ")")))
17. (princ LST1)
18. (setq STR (read-line F1))
19.     (setq LST2 (read (strcat "(" STR ")")))
20. (princ LST2)
21. (setq STR (read-line F1))
22.     (setq LST3 (read (strcat "(" STR ")")))
23. (princ LST3)
24. (setq STR (read-line F1))
25.     (setq LST4 (read (strcat "(" STR ")")))
26. (princ LST4)
27. (setq STR (read-line F1))
28.     (setq LST5 (read (strcat "(" STR ")")))
29. (princ LST5)
31. (setq STR (read-line F1))
32.     (setq LST6 (read (strcat "(" STR ")")))
33. (princ LST6)
34. (setq STR (read-line F1))
35.     (setq LST7 (read (strcat "(" STR ")")))
36. (princ LST7)
37. (setq STR (read-line F1))
38.     (setq LST8 (read (strcat "(" STR ")")))
39. (princ LST8)
40. (setq STR (read-line F1))
41.     (setq LST9 (read (strcat "(" STR ")")))
42. (princ LST9)
44. (setq STR (read-line F1))
45.     (setq LST10 (read (strcat "(" STR ")")))
46. (princ LST10)
47. (setq STR (read-line F1))
48.     (setq LST11 (read (strcat "(" STR ")")))
49. (princ LST11)
50. (setq STR (read-line F1))
51.     (setq LST12 (read (strcat "(" STR ")")))
52. (princ LST12)
53. (COMMAND "COLOR" 130)
54. (COMMAND "CYLINDER" LST1 D "C" LST2)
55. (COMMAND "CYLINDER" LST1 D "C" LST4)
56. (COMMAND "CYLINDER" LST1 D "C" LST5)
57. (COMMAND "CYLINDER" LST1 D "C" LST9)
59. (COMMAND "CYLINDER" LST2 D "C" LST3)
60. (COMMAND "CYLINDER" LST2 D "C" LST6)
61. (COMMAND "CYLINDER" LST2 D "C" LST10)
64. (COMMAND "CYLINDER" LST3 D "C" LST4)
65. (COMMAND "CYLINDER" LST3 D "C" LST7)
68. (COMMAND "CYLINDER" LST4 D "C" LST8)
70. (COMMAND "CYLINDER" LST5 D "C" LST6)
71. (COMMAND "CYLINDER" LST5 D "C" LST8)
72. (COMMAND "CYLINDER" LST5 D "C" LST11)
75. (COMMAND "CYLINDER" LST6 D "C" LST7)
76. (COMMAND "CYLINDER" LST6 D "C" LST12)
78. (COMMAND "CYLINDER" LST7 D "C" LST8)
80. (COMMAND "CYLINDER" LST9 D "C" LST10)
81. (COMMAND "CYLINDER" LST9 D "C" LST11)
83. (COMMAND "CYLINDER" LST10 D "C" LST12)
85. (COMMAND "CYLINDER" LST11 D "C" LST12)
90. )

(defun C:F() ;(COMMAND "LIMITS" "-0.3,0" "0.3,1.2") (COMMAND "VPOINT" "10,5,10") (COMMAND "SURFTAB1" 1000) (SETQ D 0.001 DD 0.001 S 10) (COMMAND "ERASE" "ALL" "") (setq F1 (open"g:/base_case_spheresandhopper.dat" "r")) ;;逐行读入     (setq STR (read-line F1))     ;(princ"\n") ;(princ STR)     ;(setq str1 (str-th str '(("," " "))))     (setq LST1 (read (strcat "(" STR ")"))) (princ LST1) (setq STR (read-line F1))     (setq LST2 (read (strcat "(" STR ")"))) (princ LST2) (setq STR (read-line F1))     (setq LST3 (read (strcat "(" STR ")"))) (princ LST3) (setq STR (read-line F1))     (setq LST4 (read (strcat "(" STR ")"))) (princ LST4) (setq STR (read-line F1))     (setq LST5 (read (strcat "(" STR ")"))) (princ LST5) (setq STR (read-line F1))     (setq LST6 (read (strcat "(" STR ")"))) (princ LST6) (setq STR (read-line F1))     (setq LST7 (read (strcat "(" STR ")"))) (princ LST7) (setq STR (read-line F1))     (setq LST8 (read (strcat "(" STR ")"))) (princ LST8) (setq STR (read-line F1))     (setq LST9 (read (strcat "(" STR ")"))) (princ LST9) (setq STR (read-line F1))     (setq LST10 (read (strcat "(" STR ")"))) (princ LST10) (setq STR (read-line F1))     (setq LST11 (read (strcat "(" STR ")"))) (princ LST11) (setq STR (read-line F1))     (setq LST12 (read (strcat "(" STR ")"))) (princ LST12) (COMMAND "COLOR" 130) (COMMAND "CYLINDER" LST1 D "C" LST2) (COMMAND "CYLINDER" LST1 D "C" LST4) (COMMAND "CYLINDER" LST1 D "C" LST5) (COMMAND "CYLINDER" LST1 D "C" LST9) (COMMAND "CYLINDER" LST2 D "C" LST3) (COMMAND "CYLINDER" LST2 D "C" LST6) (COMMAND "CYLINDER" LST2 D "C" LST10) (COMMAND "CYLINDER" LST3 D "C" LST4) (COMMAND "CYLINDER" LST3 D "C" LST7) (COMMAND "CYLINDER" LST4 D "C" LST8) (COMMAND "CYLINDER" LST5 D "C" LST6) (COMMAND "CYLINDER" LST5 D "C" LST8) (COMMAND "CYLINDER" LST5 D "C" LST11) (COMMAND "CYLINDER" LST6 D "C" LST7) (COMMAND "CYLINDER" LST6 D "C" LST12) (COMMAND "CYLINDER" LST7 D "C" LST8) (COMMAND "CYLINDER" LST9 D "C" LST10) (COMMAND "CYLINDER" LST9 D "C" LST11) (COMMAND "CYLINDER" LST10 D "C" LST12) (COMMAND "CYLINDER" LST11 D "C" LST12) )

panpan1202

没人回复啊？？？

xhq1954425

我经常做三维的程序，都是用三维等轴测图来显示立体，四个方向的三维等轴测图一般就名够用了，置图形的三维直观观察方向VPOINT我是从没用过，控制观察视图的方向的矢量应该有点麻烦，只有选择合适的点坐标来控制矢量方向。你还得用(COMMAND "VPOINT" "10,5,10")，改变里面的坐标点来改变观察方向。

 

如果在当前坐标系是由(COMMAND "VPOINT" "10,5,10") 控制不改变的情况下，用下面的语句

 

(command "UCS" "3" "0,0,0" "0,1,0" "0,0,1")可以变成你想要的坐标系。但这样只是改变了坐标系，可能还是看不到具有立体效果的图，可不可以用(command "-view" "swiso" ) ;切换为西南等轴测。

或：(command "-view" "seiso" )

      (command "-view" "neiso" )

      (command "-view" "nwiso" ) 中选一个的方法来改变视角？

 

仅供参考！

ZZXXQQ

(COMMAND "VPOINT" "1,-1,4")

panpan1202

xhq1954425发表于2010-10-27 5:49:00我经常做三维的程序，都是用三维等轴测图来显示立体，四个方向的三维等轴测图一般就名够用了，置图形的三维直观观察方向VPOINT我是从没用过，控制观察视图的方向的矢量应该有点麻烦，只有选择合