Download
1 / 27
270 likes | 429 Views
实验工程制图 第二十讲. 空间几何元素度 与量定位问题 实验工程制图 教材 P55-72. 习题见后. 根据几何模型推导的数学模型. 计算机显示凹槽块的步骤. （ 1 ）建立坐标系 （ 2 ）利用图中的尺寸确定凹槽块各顶点的坐标 （ 3 ）选择新投影方向 （ 4 ）算出新投影的坐标 （ 5 ）将相关点用直线相连 注意：在计算机计算时可以变换投影方向，以得到不同的立体感图形. (defun C:Lp1-1() (setq af0(getreal "af0=")) (setq bt0(getreal "bt0="))
E N D
实验工程制图第二十讲 空间几何元素度 与量定位问题 实验工程制图 教材P55-72 习题见后
计算机显示凹槽块的步骤 （1）建立坐标系 （2）利用图中的尺寸确定凹槽块各顶点的坐标 （3）选择新投影方向 （4）算出新投影的坐标 （5）将相关点用直线相连 注意：在计算机计算时可以变换投影方向，以得到不同的立体感图形
(defun C:Lp1-1() (setq af0(getreal "af0=")) (setq bt0(getreal "bt0=")) (setq L1(getreal "L1=")) (setq afr(/ (* af0 pi)180)) (setq btr(/ (* bt0 pi)180)) (setq s0(getpoint "enter start point")) (setq sx(car s0) sy(cadr s0) sz(caddr s0))
(setq A(list 30 0 50) B(list 30 0 0) C(list 30 80 0)D(list 30 80 50) E(list 30 55 50)F(list 30 55 30) G(list 30 25 30)H(list 30 25 50) I(list 0 0 50) J(list 0 0 0)K(list 0 80 0) L(list 0 80 50)m(list 0 55 50) n(list 0 55 30)o(list 0 25 30) p(list 0 25 50))
(setq xa(+ sx(car A))ya(+ sy(cadr A)) za(+ sz(caddr A))) ........ (setq dya(/ ya xa)) (setq lada(atan dya)) …….. (setq daa(- afr lada)) …….. (setq xa1(*(sqrt(+(* xa xa)(* ya ya)))(cos daa))) (setq ya1(*(sqrt(+(* xa xa)(* ya ya)))(sin daa))) (setq za1 za) ……… setq fia(/ za (- L1 xa1)))(setq fiar(atan fia)) ………
(setq ps(/(*(sin afr)(cos btr))(cos afr))) (setq psr(atan ps)) (setq bt1(-(/ pi 2)psr)) (setq xa2(*(cos(- fiar bt1))(/ (- L1 xa1) (cos fiar)))) (setq ya2 ya1) (setq za2(*(sin(- fiar bt1))(/ (- L1 xa1) (cos fiar)))) ……..
(setq a2(list xa2 ya2 )) (command "line" a2 b2 c2 d2 e2 f2 g2 h2 a2 "") (command "line" i2 j2 k2 l2 m2 n2 o2 p2 i2 "") (command "line" a2 i2 "") (command "line" b2 j2 "") (command "line" h2 p2 "") (command "line" g2 o2 "") (command "line" e2 m2 "") (command "line" f2 n2 "") (command "line" d2 l2 "") (command "line" c2 k2 “) )
习题 用换面法获得下列三视图所示物体在各个观察方向下的立体感图形，尺寸大小自行设计。
旋转变换辅助读图 换面法是物体不动，而变换投影面能使物体的新投影有立体感，这一结果也可以用另一种方法得到。
反L形板块 先绕y轴旋转α角 再绕z轴 旋转角
α α 绕y轴旋转
α α 绕y轴旋转
先绕y轴旋转α角，再绕z轴 旋转角二次旋转的矩阵形式 LSP2
(defun C:Lsp22() (setq sita(getreal "sita=")) (setq beta(getreal "beta=")) (setq sita1(/(* pi sita) 180)) (setq beta1(/(* pi beta) 180)) (setq S1x (cos sita1)) (setq S1y (- (sin sita1))) (setq S1z 0) (setq S3x(- (* (sin sita1) (sin beta1)))) (setq S3y(- (* (cos sita1) (sin beta1)))) (setq S3z (cos beta1))
(setq p1(list 0 0 0)) (setq p2(list 60 0 0)) (setq p3(list 60 40 0)) (setq p4(list 40 40 0)) (setq p5(list 40 20 0)) (setq p6(list 20 20 0)) (setq p7(list 20 40 0)) (setq p8(list 0 40 0)) (setq p9(list 0 0 -40)) (setq p10(list 60 0 -40)) (setq p11(list 60 40 -40)) (setq p12(list 40 40 -40)) (setq p13(list 40 20 -40)) (setq p14(list 20 20 -40)) (setq p15(list 20 40 -40)) (setq p16(list 0 40 -40))
(setq i 1) (repeat 16 (setq x1 (car (eval(read (strcat "p" (rtos i)))))) (setq y1 (cadr (eval(read (strcat "p" (rtos i)))))) (setq z1 (caddr (eval(read (strcat "p" (rtos i)))))) (setq x1_c (+ (* x1 S1x) (* y1 S1y) (* z1 S1z))) (setq z1_c (+ (* x1 S3x) (* y1 S3y) (* z1 S3z))) (set (read(strcat "p" (rtos i) "_c")) (list x1_c z1_c)) (setq i (+ i 1)) ) Eval-再求值函数 Strcat-<字符串1><字符串2>… rtos –实数转成字符串
(COMMAND "LINE" p1_c p2_c p3_c p4_c p5_c p6_c p7_c p8_c p1_c "") COMMAND "LINE" p1_c p9_c p10_c p11_c p12_c p13_c p14_c p15_c p16_c p9_c "") (COMMAND "LINE" p16_c p8_c p7_c p15_c p14_c p6_c p5_c p13_c p12_c p4_c p3_c p11_c p10_c p2_c "") )
