[LISP程序]：号码重新编号与排序

lsjjm

号码重新编号与排序
功能：框选过滤文本字符串号码；
      可选起始号码；
      可选号码增量；
      可选上下左右排列号码。
欢迎试用，提出意见。
[PHP]
(defun c:test ()
  (setq ss (ssget '((0 . "TEXT"))))
  (setq ll (acet-ss-to-list ss))
  (initget "LD LU RD RU DL DR UL UR")
  (setq tw (getkword "\n[Index:/LD/LU/RD/RU/DL/DR/UL/UR]:"))
  (cond
    ((or (= tw "LD")(= tw "LU"))   
      (setq ll (sortx+ ll))
      (if (= tw "LD")(setq ll (sorty+ ll))(setq ll (sorty- ll)) )
    )
    ((or (= tw "RD")(= tw "RU"))   
      (setq ll (sortx- ll))
      (if (= tw "RD")(setq ll (sorty+ ll))(setq ll (sorty- ll)) )
    )
    ((or (= tw "DL")(= tw "DR"))   
      (setq ll (sorty+ ll))
      (if (= tw "DL")(setq ll (sortx+ ll))(setq ll (sortx- ll)) )
    )
   ((or (= tw "UL")(= tw "UR"))   
      (setq ll (sorty- ll))
      (if (= tw "UL")(setq ll (sortx+ ll))(setq ll (sortx- ll)) )
    )
  )
  (setq sn (getint "\nStart Number <1>:"))
  (setq in (getint "\nIncrement <1>:"))
  (if sn nil (setq sn 1))
  (if in nil (setq in 1))
  (foreach i ll
    (setq obj (vlax-ename->vla-object i))
    (vla-put-textstring obj (itoa sn))
    (setq sn (+ sn in))
  )
)
;
(defun sortx+ (lst)
  (setq lst (vl-sort lst '(lambda (p1 p2)(< (car (cdr (assoc 10 (entget p1))))
                                              (car (cdr (assoc 10 (entget p2))))))))
)
(defun sortx- (lst)
  (setq lst (vl-sort lst '(lambda (p1 p2)(> (car (cdr (assoc 10 (entget p1))))
                                              (car (cdr (assoc 10 (entget p2))))))))
)
(defun sorty+ (lst)
  (setq lst (vl-sort lst '(lambda (p1 p2)(< (cadr (cdr (assoc 10 (entget p1))))
                                              (cadr (cdr (assoc 10 (entget p2))))))))
)
(defun sorty- (lst)
  (setq lst (vl-sort lst '(lambda (p1 p2)(> (cadr (cdr (assoc 10 (entget p1))))
                                              (cadr (cdr (assoc 10 (entget p2))))))))
)
[/PHP]

它山之石

　　功能不错，可以以此为模板再扩展。应该增加对含有前后缀序号的处理（例如L－1a等），如果仅仅是数字，用途不大。

zhengchuan1971

“LD LU RD RU DL DR UL UR"可以解释一下吗

ss1025

由 initget 所建立的控制标志及关键字表皆会应用到跟随其后的 entsel , nentsel, nentselp或getxxx调用, 接着便自动抛弃。这样可避免需再调用其他函数来清除此特定状况。

xxxcad

謝謝!不錯用O

sujia

我也和2楼的观点一样, 希望楼主能加入前缀和后缀的功能
在画平面布置图时用于给构件编号
主要用在结构平面布置图中, 这是一个非常有用的功能

lxyljl

Index:/LD/LU/RD/RU/DL/DR/UL/UR]:指的是什么？
还有就是使用过程中会出现不规则的排列，如4、5、6、7、1、2、3，为什么呢？
由于不会做演示，只能这样描述了。

bluesky1000

我的也是，比如：1　1　1　1　1
首数为3，增量为1，排序后会变成5　6　7　3　4
而不是我想要的3　4　5　6　7
而ET工具中的编号程序不会发生这种情况。

ss1025

这个程序我想了很久了。
刚才看了eachy斑竹的eanum程序，实现了处理前缀的功能，但我想要框选的。
请长老再改进一下吧。

gongzhuke

我喜欢序号后还跟着一串文字
这样的序号不知能不来改