[测试]：Grread、Grvecs与矩阵应用演示。

eachy

环境CAD2002，黑色背景。

2. 
   
3. ;;Grvecs与矩阵配合实例：动态拖动演示框 By Eachy 2003.02.28
   
4. (defun ea:drawbymatrix
   
5.        (/ ea:grvecs urp0 urp loop urp1 source pt matrix)
   
6.   (defun ea:grvecs (p1 p2 color matrix1 matrix2 / p3 p4 p5 p6 p7)
   
7.     (setq p3 (polar p2 0.0 10)
   
8.           p4 (polar p2 0.0 1)
   
9.           p5 (polar p4 0.0 7)
   
10.           p6 (polar p5 _pi2 2)
    
11.           p7 (polar p4 _pi2 2)
    
12.     )
    
13.     (grvecs (list color p1 p2 p2 p3))
    
14.     (grvecs (list color p4 p5 p5 p6 p6 p7 p7 p4) matrix1)
    
15.     (grvecs (list color p4 p5 p5 p6 p6 p7 p7 p4) matrix2)
    
16.   )
    
17.   (setq        matrix '((1.0 0.0 0.0 0.0)
    
18.                  (0.0 1.0 0.0 0.0)
    
19.                  (0.0 0.0 1.0 0.0)
    
20.                  (0.0 0.0 0.0 1.0)
    
21.                 )
    
22.   )
    
23.   (setq        urp  (getpoint "\n基点: ")
    
24.         loop t
    
25.   )
    
26.   (prompt "\nscond point :")
    
27.   (while loop
    
28.     (setq urp1 (grread t 1 2))
    
29.     (setq source (car urp1)
    
30.           pt         (cadr urp1)
    
31.     )
    
32.     (cond
    
33.       ((and (= source 5)                ;跟踪点
    
34.             (or        (/= (car urp) (car pt))
    
35.                 (/= (cadr urp) (cadr pt))
    
36.             )
    
37.        )
    
38.        (progn
    
39.          (if urp0
    
40.            (ea:grvecs urp
    
41.                       urp0
    
42.                       0                        ;用屏幕色覆盖前次绘制的矢量获取背景色函数搜索前面帖子
    
43.                       (ea:matrix_SetTranslation matrix '(1.0 1.0 0.0))
    
44.                       (ea:matrix_SetTranslation matrix '(1.0 -3.0 0.0))
    
45.            )
    
46.          )
    
47.          (ea:grvecs urp
    
48.                     pt
    
49.                     1
    
50.                     (ea:matrix_SetTranslation matrix '(1.0 1.0 0.0))
    
51.                     (ea:matrix_SetTranslation matrix '(1.0 -3.0 0.0))
    
52.          )
    
53. 
    
54.          (setq urp0 pt)
    
55.        )
    
56.       )
    
57.       ((or (= source 3)                        ;拾取点
    
58.            (and (= source 2) (or (= pt 13) (= pt 32)))
    
59.        )
    
60.        (setq loop nil)
    
61.       )
    
62.       (t)
    
63.     )
    
64.   )
    
65. )
    

<br /> ;;Grvecs与矩阵配合实例：动态拖动演示框 By Eachy 2003.02.28<br /> (defun ea:drawbymatrix<br />        (/ ea:grvecs urp0 urp loop urp1 source pt matrix)<br />   (defun ea:grvecs (p1 p2 color matrix1 matrix2 / p3 p4 p5 p6 p7)<br />     (setq p3 (polar p2 0.0 10)<br />           p4 (polar p2 0.0 1)<br />           p5 (polar p4 0.0 7)<br />           p6 (polar p5 _pi2 2)<br />           p7 (polar p4 _pi2 2)<br />     )<br />     (grvecs (list color p1 p2 p2 p3))<br />     (grvecs (list color p4 p5 p5 p6 p6 p7 p7 p4) matrix1)<br />     (grvecs (list color p4 p5 p5 p6 p6 p7 p7 p4) matrix2)<br />   )<br />   (setq        matrix '((1.0 0.0 0.0 0.0)<br />                  (0.0 1.0 0.0 0.0)<br />                  (0.0 0.0 1.0 0.0)<br />                  (0.0 0.0 0.0 1.0)<br />                 )<br />   )<br />   (setq        urp  (getpoint "\n基点: ")<br />         loop t<br />   )<br />   (prompt "\nscond point :")<br />   (while loop<br />     (setq urp1 (grread t 1 2))<br />     (setq source (car urp1)<br />           pt         (cadr urp1)<br />     )<br />     (cond<br />       ((and (= source 5)                ;跟踪点<br />             (or        (/= (car urp) (car pt))<br />                 (/= (cadr urp) (cadr pt))<br />             )<br />        )<br />        (progn<br />          (if urp0<br />            (ea:grvecs urp<br />                       urp0<br />                       0                        ;用屏幕色覆盖前次绘制的矢量获取背景色函数搜索前面帖子<br />                       (ea:matrix_SetTranslation matrix '(1.0 1.0 0.0))<br />                       (ea:matrix_SetTranslation matrix '(1.0 -3.0 0.0))<br />            )<br />          )<br />          (ea:grvecs urp<br />                     pt<br />                     1<br />                     (ea:matrix_SetTranslation matrix '(1.0 1.0 0.0))<br />                     (ea:matrix_SetTranslation matrix '(1.0 -3.0 0.0))<br />          )<br /> <br />          (setq urp0 pt)<br />        )<br />       )<br />       ((or (= source 3)                        ;拾取点<br />            (and (= source 2) (or (= pt 13) (= pt 32)))<br />        )<br />        (setq loop nil)<br />       )<br />       (t)<br />     )<br />   )<br /> )<br />

wharan

程序不能正常执行

似水无痕

ea:matrix_SetTranslation函数未定义

狂刀

提供　ea:matrix_SetTranslation　或给链接

haibinpro

基点:
scond point :
Error:no function definition: EA:MATRIX_SETTRANSLATION