[求助]请教高手,如何获取列表中最大和最小的两组数?

userzhl

((369052.0 -227979.0 0.0) (369052.0 -227530.0 0.0) (369052.0
-225859.0 0.0) (369052.0 -226059.0 0.0) (369052.0 -227029.0 0.0) (369052.0
-226059.0 0.0) (369052.0 -225499.0 0.0) (369052.0 -225679.0 0.0) (369052.0
-225859.0 0.0) (369052.0 -225679.0 0.0) (369052.0 -227280.0 0.0) (369052.0
-227029.0 0.0) (369052.0 -227530.0 0.0) (369052.0 -227280.0 0.0))

如何赋予:

PT1=(369052.0 -227979.0 0.0)

PT2=(369052.0 -227530.0 0.0)

((370329.0 -230385.0 0.0) (370539.0 -230385.0 0.0) (369943.0 -230385.0 0.0)
(370329.0 -230385.0 0.0) (369425.0 -230385.0 0.0) (369943.0 -230385.0 0.0)
(369021.0 -230385.0 0.0) (369425.0 -230385.0 0.0) (368442.0 -230385.0 0.0)
(369021.0 -230385.0 0.0) (367766.0 -230385.0 0.0) (368442.0 -230385.0 0.0)
(367196.0 -230385.0 0.0) (367766.0 -230385.0 0.0) (369052.0 -227979.0 0.0)
(369052.0 -227029.0 0.0) (369052.0 -225499.0 0.0) (369052.0 -227029.0 0.0))

如何赋予:

PT3=(370329.0 -230385.0 0.0)

PT4=(369052.0 -227029.0 0.0)

caoyin

;; [功能] 获取点集范围
;; [作者] 王咣生
;; [参数] ptlst---点列表
(defun c:tt (/ p lst)
  (while (setq p (getpoint "拾取点: ")) (if p (setq lst (cons p lst))))
  (apply 'command (cons "_.rectang" (lt:pts-getBoundingbox lst)))
)
(defun lt:pts-getBoundingbox (ptl)
  (list (apply 'mapcar (cons 'min ptl))
 (apply 'mapcar (cons 'max ptl))
  )
)

userzhl

其实我想要达到的是上图中的红色部分(第二道尺寸):

下面是相关的程序,但却不能完成附件中的标注.

(defun c:t1 ()
  (defun *error* (msg)
    (print msg)
    (print "\n检查标注是否都在一条线上或有重合?")
    (entdel (entlast))
    (setq *error* nil
   dim-dxf-lst
    nil
    )
  )
  (while (and
    (not (prompt "\n选择需要累加的标注:"))
    (setq dim-ss (ssget '((0 . "DIMENSION") (1 . ""))))
    (> (setq dim-ss-n (sslength dim-ss)) 1)
    (vl-cmdf "copy" (ssname dim-ss 0) "" '(0 0) '(0 0))
    (setq
      dim-dxf-14   (cdr (assoc 14 (entget (ssname dim-ss 0))))
      dim-dxf-10   (cdr (assoc 10 (entget (ssname dim-ss 0))))
      dim-dis-1410 (distance dim-dxf-14 dim-dxf-10)
      dim-ang-1410 (angle dim-dxf-14 dim-dxf-10)
      dim-dxf-10   (polar dim-dxf-10
     dim-ang-1410
     (* dim-dis-1410 (1- dim-ss-n))
     )
    )
  )
    (if (setq tmp (getpoint "\n指定尺寸标注位置:"))
      (setq dim-dxf-10 tmp)
    )
    (setq dim-dxf-lst nil)
    (repeat dim-ss-n
      (setq dim-dxf-lst
      (append
        (list
   (cdr
     (assoc
       13
       (entget (ssname dim-ss (setq dim-ss-n (1- dim-ss-n))))
     )
   )
   (cdr (assoc 14 (entget (ssname dim-ss dim-ss-n))))
        )
        dim-dxf-lst
      )
      )
    )
    (foreach m dim-dxf-lst
      (setq i 0)
      (foreach n dim-dxf-lst
 (if (equal m n)
   (if (> (setq i (1+ i)) 1)
     (setq dim-dxf-lst (vl-remove m dim-dxf-lst))
   )
 )
      )
    )
    (setq dim-ent (entget (entlast))
   dim-ent (subst (cons 13 (nth 0 dim-dxf-lst))
    (assoc 13 dim-ent)
    dim-ent
    )
   dim-ent (subst (cons 14 (nth 1 dim-dxf-lst))
    (assoc 14 dim-ent)
    dim-ent
    )
   dim-ent (subst (cons 10 dim-dxf-10) (assoc 10 dim-ent) dim-ent)
    )
    (entmod dim-ent)
  )
)