如何处理这个表PT_LIST才能：返回这个点表中的 “各个点中Z坐标最小的”

hlzhong

请教大侠，下面这个程序返回空间一被选取立方体的各顶点坐标的表PT_LIST，如何处理这个表PT_LIST才能：返回这个点表中的 “各个点中Z坐标最小的” 的点。即是要找出各点中哪个点的Z坐标最小，并返回这个子点表。 还请赐教！

(defun C:tts (/ SS SS1 N N1 NN ENT CHECK TMP PT_LIST)
  
  (command "explode" "all" "")
  (command "explode" "all" "")
  (command "explode" "all" "")
  
  (defun DO_IT1 ()
    (if (not
  (member (setq TMP (cdr (assoc 10 (entget ENT)))) PT_LIST)
)
      (setq PT_LIST (append PT_LIST (list TMP)))
    )
    (if (not
  (member (setq TMP (cdr (assoc 11 (entget ENT)))) PT_LIST)
)
      (setq PT_LIST (append PT_LIST (list TMP)))
    )
  )

  (setq SS (ssget '((0 . "polyline,line,lwpolyline"))))
  (setq PT_LIST '())
  (setq N 0)
  (repeat (sslength SS)
    (setq ENT (ssname SS N))
    (setq CHECK (cdr (assoc 100 (reverse (entget ENT)))))
    (cond
      ((= CHECK "AcDbPolygonMesh")
       (command "_.COPY" ENT "" "0,0" "@")
       (command "_.EXPLODE" (entlast))
       (setq SS1 (ssget ""))
       (setq N1 0)
       (repeat (sslength SS1)
(setq ENT (entget (ssname SS1 N1)))
(setq NN 0)
(repeat 4
   (if
     (not (member (setq TMP (cdr (assoc (+ 10 NN) ENT))) PT_LIST)
     )
      (setq PT_LIST (append PT_LIST (list TMP)))
   )
   (setq NN (1+ NN))
)
(setq N1 (1+ N1))
       )
       (command "_.ERASE" SS1 "")
      )
      ((OR(= CHECK "AcDb3dPolyline")
          (= (CDR (ASSOC 0 (ENTGET ENT))) "OLYLINE")
          (= (CDR (ASSOC 0 (ENTGET ENT))) "LWPOLYLINE"))
       (command "_.COPY" ENT "" "0,0" "@")
       (command "_.EXPLODE" (entlast))
       (setq SS1 (ssget ""))
       (setq N1 0)
       (repeat (sslength SS1)
(setq ENT (ssname SS1 N1))
(DO_IT1)
(setq N1 (1+ N1))
       )
       (command "_.ERASE" SS1 "")
      )
      (t
       (DO_IT1)
      )
    )
    (setq N (1+ N))
  )
  PT_LIST
)

hlzhong

ll_j

(defun minzl(ptlist)
  (setq minz (apply 'min (mapcar '(lambda(x) (caddr x)) ptlist)))
  (setq i 0)
  (while (/= (caddr (nth i ptlist)) minz)
    (setq i (1+ i))
  )
  (nth i ptlist)
)

hlzhong

试过，提示：“错误: 参数列表中有错误元素: -2.13163e-014”，（说明：-2.13163e-014 是所求点表中的x坐标值），不知返回的是 z坐标最小的那个点的点表吗？

hlzhong

hlzhong

shicai

(car (vl-sort pt_list '(lambda (z1 z2)(< (caddr z1)(caddr z2)))))

shicai

龙龙仔

hlzhong