[求助]三角形全等判断！师父那紧急？

sssssss

要编写两个函数来帮忙 ;-------------------------------------------------------------;
; 函数 p1_is_p2 判断两个点 p1 p2 是否相同 ;
; 点的数据格式为 p1 (x1 y1 z1) p2 (x2 y2 z2) ;
; 函数返回值 T / nil ;
;-------------------------------------------------------------;
(defun p1_is_p2 ( p1 p2 )
(if (and (listp p1) (listp p2))
(if (and (= (car p1) (car p2))
(= (cadr p1) (cadr p2))
(= (caddr p1) (caddr p2))
)
t
nil
)
)
)
;--------------------------------------------------------------------------------------;
; 函数 p1_in_list 判断点 p1 是否在点的集合表 pt-list 中 ;
; 数据格式为 p1 (x1 y1 z1) pt-list ((p1 p3 p4)(p5 p6 p7) ... (pn pn+1 p1)) ;
; 函数返回值 含有p1点的三点表的集合表 ((p1 p3 p4)(pn pn+1 p1)) 没有则返回 nil ;
;--------------------------------------------------------------------------------------;
(defun p1_in_list ( p1 pt-list / ll nl la pa pb pc p1-lt)
(if (and (listp pt-list) pt-list)
(progn
(setq ll pt-list nl (length ll))
(repeat nl
(setq la (car ll) ll (cdr ll))
(setq pa (car la) pb (cadr la) pc (caddr la))
(if (or (p1_is_p2 pa p1)
(p1_is_p2 pb p1)
(p1_is_p2 pc p1))
(setq p1-lt (append p1-lt (list la)))
)
)
)
)
(setq p1-lt p1-lt)
)
;--------------------------------------------------------------------;
;; 1. 构成第一个三角形 ;
;; 2.1 将已构成三角形的顶点 p1 中的(10 x1 y1 z1)去掉组码号 10 ? ;
;; 得到点 p1 的坐标点表 (x1 y1 z1) ;
;; 2.2 将三个顶点p1 p2 p3的坐标点表构成三角形的顶点坐标表 ;
;; ((x1 y1 z1)（x2 y2 z2）(x3 y3 z3)) ;
;; 2.3 将已经生成的三角形的顶点坐标表，生成三角形顶点坐标总表， ;
;; total-lt = ((p1 p2 p3)(p1 p2 p4)...(pi pn pm)...) ;
;; 3. 寻找新顶点 ... ;
;; 4. 三角形新边判断 检验 pj pk 两个点构成的边是否有效 用 : ;
;; (setq kk (length (is_in_list pj (is_in_list pk total-lt)))) ;
;; 如果 kk = 0 则 pj-pk 边没有构成过三角形； ;
;; kk = 1 则 pj-pk 边构成过一个三角形； ;
;; kk = 2 则 pj-pk 边构成过两个三角形； ;
;; 5. ... ;
;--------------------------------------------------------------------;

sssssss

机器出问题，删掉多发的

waterhot

谢谢各路高手的指点，我正在尝试中，希望能有所进展！

waterhot

龙龙仔您好！ 可否把你的程序上转，提供一下参考！ 不情之请！

龙龙仔

提供容易,但它的主要用途是甚么?

waterhot

数字高程上应用的。

龙龙仔

数字高程?那可能不太合用!       

waterhot

谢谢你了，现下了看一看！