请问可否阵列数字的同时使数字按升序或降序排列

flowing

meflying

vl-sort

mmmmmm

[WEB]http://www.ikozmos.com/htmls/products/lqf2004.htm[/WEB]

thtanhao

不知我理解的对不对?以下是我以前编的一个对矩形阵列的物体编号的程序,不知对你有帮助否?
(DEFUN C:TAR (/ CN RN CD RD BP0 BPIJ HI I J BP0X BP0Y TXT DIR z)
                                        ;ΪLCDÅÅ°æͼÉ趨ģºÅ,µ¥°æ
  (setq z (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (command "undo" "be")
  (princ "\nΪLCDÅÅ°æͼÉ趨ģºÅ£¬µ¥°æ. °æȨËùÓУºTH.ÑÔÎ÷Ôç¶þ")
  (initget (+ 1 2 4))
  (SETQ CN (GETint "\nPLEASE INPUT NUMBER OF ROWS(---):"))
  (initget (+ 1 2 4))
  (SETQ RN (GETint "\nPLEASE INPUT NUMBER OF COLUMNS(|||):"))
  (initget (+ 1 2 4))
  (SETQ RD (GETdist "\nPLEASE INPUT THE DISTANCE BETWEEN ROWS(---):"))
  (initget (+ 1 2 4))
  (SETQ
    CD (GETdist        "\nPLEASE INPUT THE DISTANCE BETWEEN COLUMNS(|||):"
       )
  )
  (initget (+ 1 2 4))
  (SETQ HI (GETdist "\nPLEASE CONFIRM THE HEIGHT OF TEXT:"))
  (initget (+ 1 2 4))
  (SETQ        DIR
         (GETint
           "\nPLEASE CONFIRM THE DIRECTION OF ARRAY(UP-RIGHT=1,UP-LEFT=2,DOWN-RIGHT=3,DOWN-LEFT=4):"
         )
  )
  (initget (+ 1 2 4))
  (SETQ BP0 (GETPOINT "\nPLEASE PICK THE BAISE POINT OF TEXT:"))
  (SETQ        BP0X (CAR BP0)
        BP0Y (CADR BP0)
  )
  (command "style" "mol" "swiss.ttf" "" "" "" "" "")
  (SETQ        I cn
        J rn
  )
  (IF (= DIR 1)
    (WHILE (>= I 1)
      (WHILE (>= j 1)
        (SETQ BPIJ (LIST (+ BP0X (* (- rn j) CD))
                         (+ BP0Y (* (- cn I) RD))
                   )
        )
        (SETQ TXT (STRCAT (RTOS I 2 0) "." (RTOS J 2 0)))
        (COMMAND "TEXT" "s" "mol" BPIJ HI "" TXT)
        (SETQ J (1- J))
      )
      (SETQ J rn)
      (SETQ I (1- I))
    )
  )
  (IF (= DIR 2)
    (WHILE (>= I 1)
      (WHILE (>= j 1)
        (SETQ BPIJ (LIST (- BP0X (* (- rn j) CD))
                         (+ BP0Y (* (- cn I) RD))
                   )
        )
        (SETQ TXT (STRCAT (RTOS I 2 0) "." (RTOS J 2 0)))
        (COMMAND "TEXT" "s" "mol" BPIJ HI "" TXT)
        (SETQ J (1- J))
      )
      (SETQ J rn)
      (SETQ I (1- I))
    )
  )
  (IF (= DIR 3)
    (WHILE (>= I 1)
      (WHILE (>= j 1)
        (SETQ BPIJ (LIST (+ BP0X (* (- rn j) CD))
                         (- BP0Y (* (- cn I) RD))
                   )
        )
        (SETQ TXT (STRCAT (RTOS I 2 0) "." (RTOS J 2 0)))
        (COMMAND "TEXT" "s" "mol" BPIJ HI "" TXT)
        (SETQ J (1- J))
      )
      (SETQ J rn)
      (SETQ I (1- I))
    )
  )
  (IF (= DIR 4)
    (WHILE (>= I 1)
      (WHILE (>= j 1)
        (SETQ BPIJ (LIST (- BP0X (* (- rn j) CD))
                         (- BP0Y (* (- cn I) RD))
                   )
        )
        (SETQ TXT (STRCAT (RTOS I 2 0) "." (RTOS J 2 0)))
        (COMMAND "TEXT" "s" "mol" BPIJ HI "" TXT)
        (SETQ J (1- J))
      )
      (SETQ J rn)
      (SETQ I (1- I))
    )
  )
  (command "undo" "e")
  (setvar "cmdecho" z)
  (PRINC)
)

SWAYWOOD

估计是明细表什么的用