请教各位大师，如何用LISP求坐标数据中最大最小高程值！急急急！

yuanyong

请教各位大师如何用LISP实现计算三维坐标数据中最大最小高程值

liu_kunlun

这要看你的数据是怎样组织的，或怎样表示的。

如果将所有点组成一个表ptlist，而每个点的z坐标代表高程值，则

(apply 'max (mapcar '(lambda (x) (caddr x)) ptlist ))得到最大值

(apply 'min (mapcar '(lambda (x) (caddr x)) ptlist ))得到最小值

yuanyong

数据就是一个图斑，其性质是三维多段线，含有X,Y,Z坐标，我现在想算一个大致坡度，因此需要提取坐标值，通过Z值计算高程的最大，最小值，算出高程差，然后通过X,Y坐标算出两点之间距离，从而计算坡度，大致情况就是这样，请教各位大师用LISP该如何写。不胜感激！！！！！

zxq651007z

（defun test（/ z gd fw zz  hmx hmn phmx phmn)

  (setq fw (entsel "\n选择多段线："))
  (setq fw (car fw))

 (setq zz (entnext  fw) hmx 0.0 hmn 9999999999.9)
 (while (/= (cdr (assoc 0 (entget zz))) "SEQEND")
 (setq gd (cdr(assoc 10 (entget zz))))

 (setq z (nth 2 gd)

 (if(> z hmx)(setq hmx z phmx gd))

 (if(< z hmn)(setq hmn z phmn gd))

 (setq zz (entnext zz))
)

(setq hmx (nth 2 phmx) phmx (vl-remove hmx phmx))

(setq hmn (nth 2 phmn) phmn (vl-remove hmn phmn))

(setq zz (distance phmn phmx) z (- hmx hmn))

(setq zz (/ z zz))

(princ "\n坡度=")(princ zz)
）

看这样行吗？

zxq651007z

抱歉上面有几个（）写成中文，请自己改一下吧