[討論]lisp--vl-sort與lambda這2個函數的用法

(setq a1 '(0 0)
     a2 '(630 0)
     a3 '(1260 0)
     a4 '(1890 0)
     a5 '(2520 0)
     a6 '(3150 0)
     a7 '(0 500)
     a8 '(630 500)
     a9 '(1260 500)
     a10 '(1890 500)
     a11 '(2520 500)
     a12 '(3150 500)
     a13 '(0 1000)
     a14 '(630 1000)
     a15 '(1260 1000)
     a16 '(1890 1000)
     a17 '(2520 1000)
     a18 '(3150 1000)
     )
(setq aa(list a10 a14 a7 a8 a3 a13 a2 a18 a6 a12 a1 a16 a4 a15 a9 a11 a5 a17))
(setq aa(vl-sort aa
(function (lambda (e1 e2)
    (< (car e1) (car e2)))))
     )

如上面所示，我把18個坐標分成6x3排列，如果它是某圖塊的插入點坐標，我將它加入一個屬性標籤，並利用程式要幫它們先左→右，再上↓下的編碼，要如何寫呢？

會寫程式真的很厲害~頂出來~讓其他人可以幫你~我是不懂...

judyyai姐，我也還是在學習階段，很多都不會

先排x、再排y
…
(setq aa(vl-sort aa
(function (lambda (e1 e2)
    (< (car e1) (car e2)))))
);X座標排序，由小->大(左->右)

(setq aa(vl-sort aa
(function (lambda (e1 e2)
    (> (cadr e1) (cadr e2)))))
);Y座標排序，由大->小(上->下)
…

Atsai哥，謝謝你的解說，我發現，有時候是一件簡單的事，我都把它想得複雜了

好久沒關心這篇了~
自從Atsai哥解說後，我就立馬套進主程式使用，結果發現，如果抓的是圖元，雖然坐標有排好，但回饋給圖元，它又照圖元的號碼去排了
飯粒：
(setq sl nil
         ii 0
         ENTS(ssget '((0 . "TEXT"))))
   (Repeat (sslength ENTS)
     (setq sl (cons(ssname ENTS ii)sl)
           ii(1+ ii)))
     (setq sl (vl-sort sl
           (function (lambda(a b)(<
           (car(cdr(assoc 10(entget a))))
           (car(cdr(assoc 10(entget b))))
           ))))) ;X座標排序，由小->大(左->右)
     (setq sl (vl-sort sl
           (function (lambda(a b)(>
           (cadr(cdr(assoc 10(entget a))))
           (cadr(cdr(assoc 10(entget b))))
           ))))) ;Y座標排序，由大->小(上->下)

請問你是 希望座標排序好之後..再跟據座標.依序取得排好序的圖元.來做編輯嗎~?

shenhung哥，對ㄚ，我就是想這樣，我該如何做呢？

取得圓心之後.在圓心依排序寫出序號.. 此處.利用 點對  (座標點 . 圖元碼) 做榜定排序

代碼:


(defun c:tt ()
   (setq ss nil pt_list '() i 0)
   (setq ss (ssget '((0 . "CIRCLE"))))
   (repeat (sslength ss)
      (setq en (ssname ss i))
      (setq en_10 (cdr (assoc 10 (entget en))))
      (setq en_5 (cdr (assoc 5  (entget en)))) ;圖元HANDENT 碼
      (setq en_list (cons en_10 en_5))         ; 建立點對  (點 . 圖元碼)
      (setq pt_list (cons en_list pt_list))    ;  點對加入 pt_list 串列
      (setq i (1+ i))
   )
   (setq pt_list_sort (sort_y pt_list))    ; 先對y排序
   (setq pt_list_sort (sort_x pt_list_SORT)) ;再對x排序
   (write-text)
)


(defun sort_x (lst) ;由小排到大
   ;此處改寫為 (nth 0 e1) 是 將點對 (點  . 圖元碼) 中的座標點.取出來排序.
  (setq lst (vl-sort lst (function (lambda (e1 e2) (< (car (nth 0 e1))  (car (nth 0 e2)))))))
)
(defun sort_y (lst) ;由大排到小
  ;此處改寫為 (nth 0 e1) 是 將點對 (點  . 圖元碼) 中的座標點.取出來排序.
  (setq lst (vl-sort lst (function (lambda (e1 e2) (> (cadr (nth 0 e1)) (cadr (nth 0 e2)))))));此處改寫為 (nth 0 e1) 是 將點對 (點  . 圖元碼) 中的座標點.取出來排序.
)  

;;; write-text 在圓心寫序號)

(defun write-text()
  (setq w 0 )
  (setvar "cmdecho" 0)
  (repeat (length pt_list_sort)
    (setq en_inx (nth w pt_list_sort)) ; 取出點對.
    (setq en_nth_0 (car en_inx)) ;取出點對中座標點 ;.(其實以這個圓心點寫字就可以)
    (setq en_nth_1 (cdr en_inx)) ;取出點對中圖元碼
    (setq en_handent (handent en_nth_1))  ; 以圖元碼重新取得圖元ent
    (setq en_handent_10 (cdr (assoc 10 (entget en_handent)))) ; 取得圓心, (會跟en_nth_0 一樣)
    (command "text" "J" "M"  en_handent_10 "3.5" "0" (1+ w) )
    (setq w (1+ w))
 )
  (setvar "cmdecho" 1)
  (princ)
)


 ;刪除寫出的文字
(defun c:ee()
(setq ss (ssget '((0 . "TEXT"))))
(command "erase" ss "")
(princ)  
)
  
(princ)


測試cad檔和 LISP檔.下載
載點1： https://db.tt/kuwBLEXn
載點2： https://app.box.com/s/71w05dd51tf9zqn84zke

shenhung哥，謝謝你，看來我又要好好消化一番了，然後看能不能套用到我寫的其他程式內
我是正在改良圖框內的頁碼跟檔號排序(之前寫好後是利用離選去順序跑)

如果樓主的想法是為了圖框的圖號順序的話，我是建立一個帶屬性(編號)的圖框，利用功能變數將編號指定到"CTAB"也就是配置名稱。如此一來圖框的屬性(編號)就會跟著配置名稱跑。進階的方式則是再搭配圖紙集，則圖名，圖目錄也會像word一樣可關連，連動。圖紙集的 路份可以參者蘋果爸的教學。

不好意思！剛好在這裡看到順便請教，(setq a1 '(0,0).........，a1後的 ' 所代表的意思是什麼？謝謝！！