属性值重新排序

lisp_beginner · 发表于 2018-2-20 22:59:48

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

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

×

图中有些属性，值为A01，A02，......A12，因某种原因，中间删除了几个，现在想求个工具，一次性把这些属性值重新排序
比如 A01，A02，A03，A07，A10，A11 ---->A01，A02，A03，A04，A05，A06

谢谢！

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:属性.rar
下载次数:11 文件大小:17.22 KB
下载权限: 不限以上 [免费赚D豆]

sicky111 · 发表于 2018-2-21 00:31:15

属性块？文字？

bikeboy · 发表于 2018-2-22 16:29:56

支持起来，等待学习。

marting · 发表于 2018-2-24 10:05:58

本帖最后由 marting 于 2018-2-24 10:07 编辑

试试

(defun c:tt (/ _split _padZero ss i e attVal_collection Startnum
Low_Num High_Num Preifxformat
)
(defun _padZero (num md)
(while (< (strlen num) md) (setq num (strcat "0" num)))
num
)
(defun _split (lst i / numbers)
(while (< 46 (setq n (nth (setq i (1- i)) lst)) 58)
(setq numbers (cons n numbers))
)
(if (and numbers (setq str (vl-list->string lst)))
(list (substr str 1 (1+ i)) (vl-list->string numbers))
)
)
(and (setq ss (ssget "_:L" '((0 . "INSERT") (66 . 1))))
(repeat (setq i (sslength ss))
(setq e (vlax-ename->vla-object (ssname ss (setq i (1- i)))))
(setq attval
(car
(mapcar
(function
(lambda (at / num)
(list (_split (vl-string->list
(setq str (vla-get-textstring at))
)
(strlen str)
)
at
)
)
)
(vlax-invoke e 'Getattributes)
)
)
)
(if (car attval)
(setq attVal_collection (cons attval attVal_collection))
)
attVal_collection
)
(setq attVal_collection
(vl-sort
attVal_collection
'(lambda (a b)
(< (distof (cadar a)) (distof (cadar b)))
)
)
)
(setq Low_Num (cadar (car attVal_collection)))
(setq High_Num (cadar (last attVal_collection)))
(setq Preifxformat
(if (< (strlen Low_Num) (strlen High_Num))
0
(strlen High_Num)
)
)
(setq startNum
(cond
((getint (strcat "\n输入起始值<"
(itoa (setq startNum (atoi Low_Num)))
">: "
)
)
)
(startNum)
)
)
(Foreach itm attVal_collection
(vla-put-textstring
(Cadr itm)
(strcat (Caar itm)
(if (zerop Preifxformat)
(itoa startNum)
(_padZero (itoa startNum) Preifxformat)
)
)
)
(setq startNum (1+ startNum))
)
)
)

(defun c:tt (/ _split _padZero ss i e attVal_collection Startnum 
              Low_Num High_Num Preifxformat 
             ) 
  (defun _padZero (num md) 
    (while (< (strlen num) md) (setq num (strcat "0" num))) 
    num 
  ) 
  (defun _split (lst i / numbers) 
    (while (< 46 (setq n (nth (setq i (1- i)) lst)) 58) 
      (setq numbers (cons n numbers)) 
    ) 
    (if (and numbers (setq str (vl-list->string lst))) 
      (list (substr str 1 (1+ i)) (vl-list->string numbers)) 
    ) 
  ) 
  (and (setq ss (ssget "_:L" '((0 . "INSERT") (66 . 1)))) 
       (repeat (setq i (sslength ss)) 
         (setq e (vlax-ename->vla-object (ssname ss (setq i (1- i))))) 
         (setq attval 
                (car 
                  (mapcar 
                    (function 
                      (lambda (at / num) 
                        (list (_split (vl-string->list 
                                        (setq str (vla-get-textstring at)) 
                                      ) 
                                      (strlen str) 
                              ) 
                              at 
                        ) 
                      ) 
                    ) 
                    (vlax-invoke e 'Getattributes) 
                  ) 
                ) 
         ) 
         (if (car attval) 
           (setq attVal_collection (cons attval attVal_collection)) 
         ) 
         attVal_collection 
       ) 
       (setq attVal_collection 
              (vl-sort 
                attVal_collection 
                '(lambda (a b) 
                   (< (distof (cadar a)) (distof (cadar b))) 
                 ) 
              ) 
       ) 
       (setq Low_Num (cadar (car attVal_collection))) 
       (setq High_Num (cadar (last attVal_collection))) 
       (setq Preifxformat 
              (if (< (strlen Low_Num) (strlen High_Num)) 
                0 
                (strlen High_Num) 
              ) 
       ) 
       (setq startNum 
              (cond 
                ((getint (strcat "\n输入起始值<" 
                                 (itoa (setq startNum (atoi Low_Num))) 
                                 ">: " 
                         ) 
                 ) 
                ) 
                (startNum) 
              ) 
       ) 
       (Foreach itm attVal_collection 
         (vla-put-textstring 
           (Cadr itm) 
           (strcat (Caar itm) 
                   (if (zerop Preifxformat) 
                     (itoa startNum) 
                     (_padZero (itoa startNum) Preifxformat) 
                   ) 
           ) 
         ) 
         (setq startNum (1+ startNum)) 
       ) 
  ) 
)

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

[求助] 属性值重新排序

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

浏览过的版块