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

meflying · 发表于 2004-1-7 13:37:00

vl-sort

mmmmmm · 发表于 2004-1-7 20:48:00

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

thtanhao · 发表于 2004-1-20 17:47:00

不知我理解的对不对?以下是我以前编的一个对矩形阵列的物体编号的程序,不知对你有帮助否?
(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(

SWAYWOOD · 发表于 2004-10-24 20:09:00

):"))
  (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(

meflying · 发表于 2004-10-24 21:40:52

):"
   )
  )
  (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)
)

meflying · 发表于 2004-10-24 22:42:14

估计是明细表什么的用

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

发表回复

精选推荐