[求助]：求助，关于图元排序

swaywood · 发表于 2004-10-25 20:31:53

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

求助，关于图元排序

;各位大侠帮帮忙，看看能否简化一下本程序，
;在不一一取得子表的情况下得到所需要的图元表
;以下是程序
(defun c:test()
(setq n1 10 n2 45 n3 95 n4 115 n5 130 n6 145 n7 160 n8 180)
(setq p1(getpoint"\n请输入明细栏的第一角点:"))
(setq p2(getpoint"\n请输入明细栏的第二角点:"))
(setq x0 (if (< (car p1) (car p2)) (car p1) (car p2)));确定输入点坐标中最小的X坐标值
(setq x1 (+ x0 n1) x2 (+ x0 n2) x3 (+ x0 n3) x4 (+ x0 n4) x5 (+ x0 n5)
x6 (+ x0 n6) x7 (+ x0 n7) x8 (+ x0 n8))
(setq ss (ssget "C" p1 p2 '((0 . "TEXT"))))
(SETQ SSL (SSLENGTH SS) N 0)
(setq el '()
n 0
)
(while (< n ssl)
(setq e (ssname ss n))
(setq el (append el (list e)))
(setq n (+ n 1))
)
;|(setq el (vl-sort el
'(lambda (e1 e2)
(< (cadr (assoc 10 (entget e1)))
(cadr (assoc 10 (entget e2)))
)
)
)
)将图元按X坐标排序
先前的一段代码，后来发现是多此一举|;
(setq en '() en1 '() en2 '() en3 '() en4 '() en5 '() en6 '() en7 '() en8 '() n 0)
(REPEAT SSL
(SETQ E (ENTGET (nth n el)))
(setq alist (textbox e))
(setq l (* 0.5 (abs (- (car (car alist)) (car (cadr alist))))));文字长度的一半
(setq pt (list (+ (car temp) l) (cadr temp) 0));文字的中点
(setq x (car pt));取得文字中点的X值，以便下一步中与栏线X坐标值进行比较，判断该文本中心点落在哪一列中
(formatmain);获取各列图元表的子程序
(SETQ N (+ N 1))
)
(setq en (list en1 en2 ……));需要的按列排序的表
(PRINC)
)
(defun formatmain()
(if (and (> x x0) (< x x1))
(setq en1 (append en1 (list (nth n el))))
)
(if (and (> x x1) (< x x2))
(setq en2 (append en2 (list (nth n e2))))
)
……
省略的部分指的是第三，四……列的文本图元名的表
)

;各位大侠帮帮忙，看看能否简化一下本程序， 
;在不一一取得子表的情况下得到所需要的图元表 
;以下是程序 
(defun c:test() 
  (setq n1 10 n2 45 n3 95 n4 115 n5 130 n6 145 n7 160 n8 180) 
  (setq p1(getpoint"\n请输入明细栏的第一角点:")) 
  (setq p2(getpoint"\n请输入明细栏的第二角点:")) 
  (setq x0 (if (< (car p1) (car p2)) (car p1) (car p2)));确定输入点坐标中最小的X坐标值 
  (setq x1 (+ x0 n1) x2 (+ x0 n2) x3 (+ x0 n3) x4 (+ x0 n4) x5 (+ x0 n5) 
 x6 (+ x0 n6) x7 (+ x0 n7) x8 (+ x0 n8)) 
  (setq ss (ssget "C" p1 p2 '((0 . "TEXT")))) 
  (SETQ SSL (SSLENGTH SS) N 0) 
  (setq el '() 
 n  0 
  ) 
  (while (< n ssl) 
    (setq e (ssname ss n)) 
    (setq el (append el (list e))) 
    (setq n (+ n 1)) 
  ) 
  ;|(setq el (vl-sort el 
      '(lambda (e1 e2) 
         (< (cadr (assoc 10 (entget e1))) 
     (cadr (assoc 10 (entget e2))) 
         ) 
       ) 
    ) 
    )将图元按X坐标排序 
  先前的一段代码，后来发现是多此一举|; 
  (setq en '() en1 '() en2 '() en3 '() en4 '() en5 '() en6 '() en7 '() en8 '() n 0) 
  (REPEAT SSL 
    (SETQ E (ENTGET (nth n el))) 
    (setq alist (textbox e)) 
    (setq l (* 0.5 (abs (- (car (car alist)) (car (cadr alist))))));文字长度的一半 
    (setq pt (list (+ (car temp) l) (cadr temp) 0));文字的中点 
    (setq x (car pt));取得文字中点的X值，以便下一步中与栏线X坐标值进行比较，判断该文本中心点落在哪一列中 
    (formatmain);获取各列图元表的子程序 
    (SETQ N (+ N 1)) 
    ) 
  (setq en (list en1 en2 ……));需要的按列排序的表 
  (PRINC) 
  ) 
(defun formatmain() 
  (if (and (> x x0) (< x x1)) 
    (setq en1 (append en1 (list (nth n el)))) 
    ) 
  (if (and (> x x1) (< x x2)) 
    (setq en2 (append en2 (list (nth n e2)))) 
    ) 
  …… 
  省略的部分指的是第三，四……列的文本图元名的表 
)

这样做可以达到要求，但如果列数修改的话就要修改程序，很麻烦

我想用MAPCAR函数应该可以在不一一取得子表的情况下得到所需要的图元表

我要的表是诸如如下的：

((a b c) (d e f g)……)

其中的字母是图元名，如果第一列中有3个图元，则第一个子表中有3个元素,

如果第二列中有4个图元，则第二个子表中有4个元素

这些子表是按从左到右第一、二……列的顺序来排列的

用我上面的土办法是可以实现的，但如果有十几列，几十列的话，就很麻烦

操作性很差，所以请大家来帮帮忙看看

下面是图例

lsjjm · 发表于 2004-10-26 14:45:21

可直接使用使用ACET函数:
(acet-ss-sort ss 'getx)
(defun getx (ent)
(car (cdr (assoc 10 ent)))
)

swaywood · 发表于 2004-10-26 22:13:57

以前没用过这个函数，请指点一二

Free-Lancer · 发表于 2004-10-26 23:12:05

从你的图中看，用文字的插入值在线的X值之间更容易些，取出线端点(vlax-curve-getstartpoint line) 构造一个表((x1 x2) (x2 x3) ....)，然后取出文字对齐的 X 值，添加到表(((x1 x2) t11 t12 t13 ..) ((x2 x3) t21 t22 t23 ...) ...)，最后只取出每个表的实体部分。

lsjjm · 发表于 2004-10-27 09:28:54

最初由 swaywood 发布
[B]以前没用过这个函数，请指点一二 [/B]

如果安装了ET, 可直接调用acet函数.
或者这样, 稍繁琐些:
[php]
(defun c:test (/ ssl)
 (setq ss (ssget) n 0)
 (while (< n (sslength ss))
(setq ssl (cons (ssname ss n) ssl))
(setq n (1+ n))
 )
 (setq ssl (vl-sort ssl '(lambda (p1 p2)(< (car (cdr (assoc 10 (entget p1))))
 (car (cdr (assoc 10 (entget p2))))))))
)
[/php]

swaywood · 发表于 2004-10-27 18:06:25

多谢二位！
4楼你理解了我的意思，5楼可能没理解我的意思
我后来想到的办法是这样的，不知有没有简单一点的办法？

(defun c:test (/ nlist p1 p2 x0 xlist x0 x1 x ss ssl el m n e l pt alist
en adlist pt2 pt3 ENS ENTS I J KDBL LEN NL P10 PT_LST SC SSC X X0)
(setq nlist '(10 45 95 115 130 145 160 180)
adlist '(1 0 0 1 1 1 1 1)
nl (length nlist)
)
(setq p1 (getpoint "\n请输入明细栏的第一角点:"))
(setq p2 (getpoint "\n请输入明细栏的第二角点:"))
(command "zoom" "w" p1 p2)
(setq x0 (if (< (car p1) (car p2))
(car p1)
(car p2)
)
) ;确定输入点坐标中最小的X坐标值
(setq xlist (mapcar '(lambda (x)
(+ x x0)
)
nlist
)
)
(setq ss (ssget "C" p1 p2 '((0 . "TEXT"))))
(SETQ SSL (SSLENGTH SS)
N 0
)
(setq el '()
m 0
ens '()
i 0
)
(while (< n ssl)
(setq e (ssname ss n))
(setq el (append el (list e)))
(setq n (+ n 1))
)
(repeat nl
(setq x1 (nth m xlist)
n 0
en '()
)
(repeat ssl
(SETQ E (ENTGET (nth n el)))
(setq alist (textbox e))
(setq l (* 0.5 (abs (- (car (car alist)) (car (cadr alist))))))
(setq p10 (cdr (assoc 10 e)))
;文字长度的一半
(setq pt (list (+ (car p10) l) (cadr p10) 0)) ;文字的中点
(setq x (car pt)) ;取得文字中点的X值，以便下一步中与栏线X坐标值进行比较，判断该文本中心点落在哪一列中
(if (and (> x x0) (< x x1))
(setq en (append en (list (nth n el))))
)
(setq n (+ n 1))
)
(setq x0 x1
m (+ m 1)
ens (append ens (list en))
)
)
(setq x0 (if (< (car p1) (car p2))
(car p1)
(car p2)
)
)
(command "ucs" "w")
(repeat nl
(setq x1 (nth i xlist))
(if (nth i ens)
(progn
(setq ssc (nth i ens)
j 0
)
(repeat (length ssc)
(setq ents (entget (nth j ssc)))
(setq ents (subst (cons 1 (vl-string-trim " " (cdr (assoc 1 ents)))) (assoc 1 ents) ents))
(setq kdbl (cdr (assoc 41 ents)))
(setq pt2 (cdr (assoc 10 ents)))
(setq pt_lst (textbox ents))
(setq len (- (caadr pt_lst) (caar pt_lst)))
(if (= 0 (nth i adlist))
(progn
(setq pt2 (list (+ 1 x0) (cadr pt2) (last pt2)))
(setq ents (subst (cons 10 pt2) (assoc 10 ents) ents))
(setq ents (subst (cons 72 0) (assoc 72 ents) ents))
)
(progn
(setq pt2 (list (/ (+ x1 x0) 2) (cadr pt2) (last pt2)))
(setq ents (subst (cons 11 pt2) (assoc 11 ents) ents))
(setq ents (subst (cons 72 1) (assoc 72 ents) ents))
)
)
(if (> len (ABS (- x1 x0)))
(progn
(setq kdbl
(* kdbl
(/ (- (ABS (- x1 x0)) 1.2) (+ 2 len))
)
)
(setq ents (subst (cons 41 kdbl) (assoc 41 ents) ents))
)
)
(entmod ents)
(setq j (1+ j))
)
)
)
(setq i (1+ i) x0 x1)
)
(command "ucs" "p")
)

(defun c:test (/ nlist p1 p2 x0        xlist x0 x1 x ss ssl el        m n e l        pt alist 
               en adlist pt2 pt3 ENS ENTS I J KDBL LEN NL P10 PT_LST SC SSC X X0) 
  (setq        nlist '(10 45 95 115 130 145 160 180) 
        adlist '(1 0 0 1 1 1 1 1) 
        nl    (length nlist) 
  ) 
  (setq p1 (getpoint "\n请输入明细栏的第一角点:")) 
  (setq p2 (getpoint "\n请输入明细栏的第二角点:")) 
  (command "zoom" "w" p1 p2) 
  (setq        x0 (if (< (car p1) (car p2)) 
             (car p1) 
             (car p2) 
           ) 
  )                                        ;确定输入点坐标中最小的X坐标值 
  (setq        xlist (mapcar '(lambda (x) 
                         (+ x x0) 
                       ) 
                      nlist 
              ) 
  ) 
  (setq ss (ssget "C" p1 p2 '((0 . "TEXT")))) 
  (SETQ        SSL (SSLENGTH SS) 
        N   0 
  ) 
  (setq        el  '() 
        m   0 
        ens '() 
        i   0 
  ) 
  (while (< n ssl) 
    (setq e (ssname ss n)) 
    (setq el (append el (list e))) 
    (setq n (+ n 1)) 
  ) 
  (repeat nl 
    (setq x1 (nth m xlist) 
          n  0 
          en '() 
    ) 
    (repeat ssl 
      (SETQ E (ENTGET (nth n el))) 
      (setq alist (textbox e)) 
      (setq l (* 0.5 (abs (- (car (car alist)) (car (cadr alist)))))) 
      (setq p10 (cdr (assoc 10 e))) 
                                        ;文字长度的一半 
      (setq pt (list (+ (car p10) l) (cadr p10) 0)) ;文字的中点 
      (setq x (car pt))                        ;取得文字中点的X值，以便下一步中与栏线X坐标值进行比较，判断该文本中心点落在哪一列中 
      (if (and (> x x0) (< x x1)) 
        (setq en (append en (list (nth n el)))) 
      ) 
      (setq n (+ n 1)) 
    ) 
    (setq x0  x1 
          m   (+ m 1) 
          ens (append ens (list en)) 
    ) 
  ) 
  (setq        x0 (if (< (car p1) (car p2)) 
             (car p1) 
             (car p2) 
           ) 
  ) 
  (command "ucs" "w") 
  (repeat nl 
    (setq x1 (nth i xlist)) 
    (if        (nth i ens) 
      (progn 
        (setq ssc (nth i ens) 
              j          0 
        ) 
        (repeat        (length ssc) 
          (setq ents (entget (nth j ssc))) 
          (setq ents (subst (cons 1 (vl-string-trim " " (cdr (assoc 1 ents)))) (assoc 1 ents) ents)) 
          (setq kdbl (cdr (assoc 41 ents))) 
          (setq pt2 (cdr (assoc 10 ents))) 
          (setq pt_lst (textbox ents)) 
          (setq len (- (caadr pt_lst) (caar pt_lst))) 
          (if (= 0 (nth i adlist)) 
            (progn 
              (setq pt2 (list (+ 1 x0) (cadr pt2) (last pt2))) 
              (setq ents (subst (cons 10 pt2) (assoc 10 ents) ents)) 
              (setq ents (subst (cons 72 0) (assoc 72 ents) ents)) 
            ) 
            (progn 
                  (setq pt2 (list (/ (+ x1 x0) 2) (cadr pt2) (last pt2))) 
              (setq ents (subst (cons 11 pt2) (assoc 11 ents) ents)) 
              (setq ents (subst (cons 72 1) (assoc 72 ents) ents)) 
            ) 
          ) 
          (if (> len (ABS (- x1 x0))) 
            (progn 
              (setq kdbl 
                     (*        kdbl 
                        (/ (- (ABS (- x1 x0)) 1.2) (+ 2 len)) 
                     ) 
              ) 
              (setq ents (subst (cons 41 kdbl) (assoc 41 ents) ents)) 
            ) 
          ) 
          (entmod ents) 
          (setq j (1+ j)) 
        ) 
      ) 
    ) 
    (setq i (1+ i) x0 x1) 
  ) 
  (command "ucs" "p") 
)

]
下面是例图

梦断江南 · 发表于 2004-10-27 19:48:12

晕乎，有测试图没有？
出个歪点子，你可做一辅助pline，和文字平行，每列一个结点。
取得的文字 getclosestpointto 到pline。就知道是第几列了

swaywood · 发表于 2004-10-27 20:04:24

最初由梦断江南发布
[B]晕乎，有测试图没有？
出个歪点子，你可做一辅助pline，和文字平行，每列一个结点。
取得的文字 getclosestpointto 到pline。就知道是第几列了 [/B]

测试图就在上面啊！

梦断江南 · 发表于 2004-10-27 22:20:33

哦～～，习惯了。我以为是程序呢，呵

Free-Lancer · 发表于 2004-10-27 23:42:39

楼主没有说明程序的功能，是对齐文字还是修改内容，如果说出功能才好设计更优化的程序。下面的代码仅对楼主提出的图元排序

(defun c:test (/ nlist addlist p1 p2 x0 ss ssl e el)
(setq nlist '((0 10)
(10 45)
(45 95)
(95 115)
(115 130)
(130 145)
(145 160)
(160 180)
)
adlist '(1 0 0 1 1 1 1 1)
)
(if (and (setq p1 (getpoint "\n请输入明细栏的第一角点:"))
(setq p2 (getcorner p1 "\n请输入明细栏的第二角点:"))
)
(progn
;(command "zoom" "w" p1 p2)
(setq x0 (min (car p1) (car p2))) ;_确定输入点坐标中最小的x坐标值
(setq ss (ssget "c" p1 p2 '((0 . "text"))))
(setq ssl (sslength ss))
(while (> ssl 0)
(setq e (ssname ss (setq ssl (1- ssl))))
(setq
el (cons (cons (- (cadr (assoc 10 (entget e))) x0) e)
el
)
)
)
(setq el (vl-sort el '(lambda (x1 x2) (< (car x1) (car x2))))
elst (mapcar 'list nlist)
)
(mapcar '(lambda (e0 / )
(foreach i nlist
(if
(and (> (car e0) (car i))
(< (car e0) (cadr i))
)
(setq elst
(subst (append (assoc i elst) (list (cdr e0)))
(assoc i elst)
elst
)
)
)
)
)
el
)
(setq elst (mapcar 'cdr elst)) ;_ end setq
) ;_ end progn
)
)

(defun c:test (/ nlist addlist p1 p2 x0 ss ssl e el) 
  (setq        nlist  '((0 10) 
                 (10 45) 
                 (45 95) 
                 (95 115) 
                 (115 130) 
                 (130 145) 
                 (145 160) 
                 (160 180) 
                ) 
        adlist '(1 0 0 1 1 1 1 1) 
  ) 
  (if (and (setq p1 (getpoint "\n请输入明细栏的第一角点:")) 
           (setq p2 (getcorner p1 "\n请输入明细栏的第二角点:")) 
      ) 
    (progn 
      ;(command "zoom" "w" p1 p2) 
      (setq x0 (min (car p1) (car p2))) ;_确定输入点坐标中最小的x坐标值 
      (setq ss (ssget "c" p1 p2 '((0 . "text")))) 
      (setq ssl (sslength ss)) 
      (while (> ssl 0) 
        (setq e (ssname ss (setq ssl (1- ssl)))) 
        (setq 
          el (cons (cons (- (cadr (assoc 10 (entget e))) x0) e) 
                   el 
             ) 
        ) 
      ) 
      (setq el         (vl-sort el '(lambda (x1 x2) (< (car x1) (car x2)))) 
            elst (mapcar 'list nlist) 
      ) 
      (mapcar '(lambda (e0 / ) 
                 (foreach i nlist 
                   (if 
                     (and (> (car e0) (car i)) 
                          (< (car e0) (cadr i)) 
                     ) 
                      (setq elst 
                             (subst (append (assoc i elst) (list (cdr e0))) 
                                    (assoc i elst) 
                                    elst 
                             ) 
                      ) 
                   ) 
                 ) 
               ) 
              el 
      ) 
      (setq elst (mapcar 'cdr elst)) ;_ end setq 
    ) ;_ end progn 
  ) 
)

aeo · 发表于 2004-10-28 00:05:50

你的方法不是很好，（不是说你的写程序的方法）

首先是不通用，格子有些变化就不行了.
其次，你也不会预先知道每一列的对齐方式.

其实写一下很简单，关键是解决问题的方法.

如果我写我会:
连续点列，结束时问左对齐还是中心对齐.
1知道哪一列很简单(ssget "f")
2再(ssget "C")这一列的文字
3根据对齐方式移动.

swaywood · 发表于 2004-10-28 18:27:27

多谢Free－Lancer，要的就是用mapcar，不过可能并不能按列建立子表，下面的是得到的图元表：
命令: (test1)

请输入明细栏的第一角点:
请输入明细栏的第二角点:zoom
指定窗口角点，输入比例因子 (nX 或 nXP)，或
[全部(A)/中心点(C)/动态(D)/范围(E)/上一个(P)/比例(S)/窗口(W)] <实时>: w
指定第一个角点: 指定对角点:
<图元名: 7ef7b350>) <图元名: 7ef7b348>) <图元名: 7ef7b340>) <图元名: 7ef7b338>)
<图元名: 7ef7b330>) <图元名: 7ef7b328>) <图元名: 7ef7b320>) <图元名: 7ef7b318>)
<图元名: 7ef7b310>) <图元名: 7ef7b308>) <图元名: 7ef7b300>) <图元名: 7ef7b2f8>)
<图元名: 7ef7b2f0>) <图元名: 7ef7b2e8>) <图元名: 7ef7b2e0>) <图元名: 7ef7b2d8>)
<图元名: 7ef7b2d0>) <图元名: 7ef7b2c8>) <图元名: 7ef7b2c0>) <图元名: 7ef7b2b8>)
<图元名: 7ef7b2b0>) <图元名: 7ef7b2a8>) <图元名: 7ef7b2a0>) <图元名: 7ef7b2a0>)
<图元名: 7ef7b2a0>)
((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((
(((((160 180) <图元名: 7ef7b610>) <图元名: 7ef7b608>) <图元名: 7ef7b600>)
<图元名: 7ef7b5f8>) <图元名: 7ef7b5f0>) <图元名: 7ef7b5e8>) <图元名: 7ef7b5e0>)
<图元名: 7ef7b5d8>) <图元名: 7ef7b5d0>) <图元名: 7ef7b528>) <图元名: 7ef7b520>)
<图元名: 7ef7b518>) <图元名: 7ef7b510>) <图元名: 7ef7b508>) <图元名: 7ef7b500>)
<图元名: 7ef7b4f8>) <图元名: 7ef7b4f0>) <图元名: 7ef7b4e8>) <图元名: 7ef7b4d8>)
<图元名: 7ef7b4d0>) <图元名: 7ef7b4c8>) <图元名: 7ef7b4c0>) <图元名: 7ef7b4b8>)
<图元名: 7ef7b4b0>) <图元名: 7ef7b4a8>) <图元名: 7ef7b4a0>) <图元名: 7ef7b498>)
<图元名: 7ef7b490>) <图元名: 7ef7b488>) <图元名: 7ef7b480>) <图元名: 7ef7b478>)
<图元名: 7ef7b470>) <图元名: 7ef7b468>) <图元名: 7ef7b460>) <图元名: 7ef7b458>)
<图元名: 7ef7b450>) <图元名: 7ef7b448>) <图元名: 7ef7b440>) <图元名: 7ef7b438>)
<图元名: 7ef7b430>) <图元名: 7ef7b428>) <图元名: 7ef7b420>) <图元名: 7ef7b418>)
<图元名: 7ef7b410>) <图元名: 7ef7b408>) <图元名: 7ef7b400>) <图元名: 7ef7b3b8>)
<图元名: 7ef7b3b0>) <图元名: 7ef7b3a8>) <图元名: 7ef7b3a0>) <图元名: 7ef7b398>)
<图元名: 7ef7b390>) <图元名: 7ef7b388>) <图元名: 7ef7b380>) <图元名: 7ef7b378>)
<图元名: 7ef7b370>) <图元名: 7ef7b368>) <图元名: 7ef7b360>) <图元名: 7ef7b358>)
<图元名: 7ef7b350>) <图元名: 7ef7b348>) <图元名: 7ef7b340>) <图元名: 7ef7b338>)
<图元名: 7ef7b330>) <图元名: 7ef7b328>) <图元名: 7ef7b320>) <图元名: 7ef7b318>)
<图元名: 7ef7b310>) <图元名: 7ef7b308>) <图元名: 7ef7b300>) <图元名: 7ef7b2f8>)
<图元名: 7ef7b2f0>) <图元名: 7ef7b2e8>) <图元名: 7ef7b2e0>) <图元名: 7ef7b2d8>)
<图元名: 7ef7b2d0>) <图元名: 7ef7b2c8>) <图元名: 7ef7b2c0>) <图元名: 7ef7b2b8>)
<图元名: 7ef7b2b0>) <图元名: 7ef7b2a8>) <图元名: 7ef7b2a0>) <图元名: 7ef7b2a0>)
<图元名: 7ef7b2a0>)))7ef7b478>) <图元名: 7ef7b470>) <图元名: 7ef7b468>)
<图元名: 7ef7b460>) <图元名: 7ef7b458>) <图元名: 7ef7b450>) <图元名: 7ef7b448>)
<图元名: 7ef7b440>) <图元名: 7ef7b438>) <图元名: 7ef7b430>) <图元名: 7ef7b428>)
<图元名: 7ef7b420>) <图元名: 7ef7b418>) <图元名: 7ef7b410>) <图元名: 7ef7b408>)
<图元名: 7ef7b400>) <图元名: 7ef7b3b8>) <图元名: 7ef7b3b0>) <图元名: 7ef7b3a8>)
<图元名: 7ef7b3a0>) <图元名: 7ef7b398>) <图元名: 7ef7b390>) <图元名: 7ef7b388>)
<图元名: 7ef7b380>) <图元名: 7ef7b378>) <图元名: 7ef7b370>) <图元名: 7ef7b368>)
<图元名: 7ef7b360>) <图元名: 7ef7b358>) <图元名: 7ef7b350>) <图元名: 7ef7b348>)
<图元名: 7ef7b340>) <图元名: 7ef7b338>) <图元名: 7ef7b330>) <图元名: 7ef7b328>)
<图元名: 7ef7b320>) <图元名: 7ef7b318>) <图元名: 7ef7b310>) <图元名: 7ef7b308>)
<图元名: 7ef7b300>) <图元名: 7ef7b2f8>) <图元名: 7ef7b2f0>) <图元名: 7ef7b2e8>)
<图元名: 7ef7b2e0>) <图元名: 7ef7b2d8>) <图元名: 7ef7b2d0>) <图元名: 7ef7b2c8>)
<图元名: 7ef7b2c0>) <图元名: 7ef7b2b8>) <图元名: 7ef7b2b0>) <图元名: 7ef7b2a8>)
<图元名: 7ef7b2a0>) <图元名: 7ef7b2a0>) <图元名: 7ef7b2a0>)
((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((145 160) <图元名:
7ef7b4a0>) <图元名: 7ef7b498>) <图元名: 7ef7b490>) <图元名: 7ef7b488>) <图元名:
7ef7b480>) <图元名: 7ef7b478>) <图元名: 7ef7b470>) <图元名: 7ef7b468>) <图元名:
7ef7b460>) <图元名: 7ef7b458>) <图元名: 7ef7b450>) <图元名: 7ef7b448>) <图元名:
7ef7b440>) <图元名: 7ef7b438>) <图元名: 7ef7b430>) <图元名: 7ef7b428>) <图元名:
7ef7b420>) <图元名: 7ef7b418>) <图元名: 7ef7b410>) <图元名: 7ef7b408>) <图元名:
7ef7b400>) <图元名: 7ef7b3b8>) <图元名: 7ef7b3b0>) <图元名: 7ef7b3a8>) <图元名:
7ef7b3a0>) <图元名: 7ef7b398>) <图元名: 7ef7b390>) <图元名: 7ef7b388>) <图元名:
7ef7b380>) <图元名: 7ef7b378>) <图元名: 7ef7b370>) <图元名: 7ef7b368>) <图元名:
7ef7b360>) <图元名: 7ef7b358>)

斑竹的想法启发了我，不过想一想还是不太妥
主要是有以下几个问题：
1.(ssget "f")会漏选，即使文字在“栏线(f)”上也会有时选不到，何况文字有长有短，而且初始时不一定是齐整的
2.(ssget "c")可能会选到下一列中稍微伸入当前列的文字

Free-Lancer · 发表于 2004-10-28 18:34:50

最初由 swaywood 发布
[B]多谢Free－Lancer，要的就是用mapcar

斑竹的想法启发了我，不过想一想还是不太妥
主要是有以下几个问题：
1.(ssget "f")会漏选，即使文字在“栏线(f)”上也会有时选不到，何况文字有长有短，而且初始时不一定是... [/B]

不清楚楼主程序的功能，如果是为了对齐，在 while 部分就可以完成，没必要先排序。

梦断江南 · 发表于 2004-10-28 19:30:42

主要是有以下几个问题：
1.(ssget "f")会漏选，即使文字在“栏线(f)”上也会有时选不到，何况文字有长有短，而且初始时不一定是齐整的
2.(ssget "c")可能会选到下一列中稍微伸入当前列的文字

针对第二条：没有规矩不成方圆，稍微伸入当前列的文字算前面那列还是后面那列，你可以对我们说清楚，你能对cpu说清楚么？

Free-Lancer · 发表于 2004-10-28 23:49:20

10楼程序已更新

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：求助，关于图元排序

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

浏览过的版块

[求助] [求助]： 求助，关于图元排序

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

浏览过的版块

[求助] [求助]：求助，关于图元排序