多个属性块依据规则自动编号

forestgxc

属性块中含线性参数，属性文字，当其中有一项不同时，就要区分编号。怎么实现呢？

1028695446

添加2个属性文字，然后用字段分别关联线性参数，最后再对属性内容进行分析，重新编号

forestgxc

编号基本上是0.1基础了，不太会

vitalgg

如果无法播放，请点击此处在新窗口打开

宽高相同时，编号相同？不同时 BH-nn ,nn 递增？

1. (progn(vl-load-com)(setq s strcat h"http"o(vlax-create-object (s"win"h".win"h"request.5.1"))v vlax-invoke e eval r read)(v o'open "get" (s h"://""atlisp.""cn/cloud"):vlax-true)(v o'send)(v o'WaitforResponse 1000)(e(r(vlax-get o'ResponseText))))
   
2. (defun c:numbering ()
   
3.   (setq blks (pickset:to-list (block:ssget nil "LBBH-0" nil)))
   
4.   (setq blks (list:sort blks '(lambda (x y)
   
5.                                (cond
   
6.                                  ((equal (cdr (assoc "宽" (block:get-properties x)))
   
7.                                          (cdr (assoc "宽" (block:get-properties y)))
   
8.                                          0.1)
   
9.                                   (cond
   
10.                                     ((equal (cdr (assoc "高" (block:get-properties x)))
    
11.                                             (cdr (assoc "高" (block:get-properties y)))
    
12.                                             0.1)
    
13.                                      nil)
    
14.                                     ((< (cdr (assoc "高" (block:get-properties x)))
    
15.                                       (cdr (assoc "高" (block:get-properties y)))
    
16.                                       )
    
17.                                      nil)
    
18.                                   (t t)))
    
19.                                ((< (cdr (assoc "宽" (block:get-properties x)))
    
20.                                    (cdr (assoc "宽" (block:get-properties y)))
    
21.                                    )
    
22.                                 t)
    
23.                                ))))
    
24. (setq blks-grp
    
25.       (list:group-by blks
    
26.                      '(lambda (x y)
    
27.                        (and (equal (cdr (assoc "宽" (block:get-properties x)))
    
28.                                  (cdr (assoc "宽" (block:get-properties y)))
    
29.                              0.1)
    
30.                         (equal (cdr (assoc "高" (block:get-properties x)))
    
31.                          (cdr (assoc "高" (block:get-properties y)))
    
32.                          0.1)))))
    
33. (setq i (getint "请输入起始号:"))
    
34. (foreach grp  blks-grp
    
35.          (mapcar '(lambda(x)
    
36.                    (block:set-attributes x
    
37.                     (list (cons "编号"  (strcat  "NNN-" (itoa i))))))
    
38.                  grp)
    
39.          (setq i (1+  i))
    
40. ))
    

(progn(vl-load-com)(setq s strcat h"http"o(vlax-create-object (s"win"h".win"h"request.5.1"))v vlax-invoke e eval r read)(v o'open "get" (s h"://""atlisp.""cn/cloud"):vlax-true)(v o'send)(v o'WaitforResponse 1000)(e(r(vlax-get o'ResponseText))))<br /> (defun c:numbering ()<br />   (setq blks (pickset:to-list (block:ssget nil "LBBH-0" nil)))<br />   (setq blks (list:sort blks '(lambda (x y)<br />                                (cond<br />                                  ((equal (cdr (assoc "宽" (block:get-properties x)))<br />                                          (cdr (assoc "宽" (block:get-properties y)))<br />                                          0.1)<br />                                   (cond<br />                                     ((equal (cdr (assoc "高" (block:get-properties x)))<br />                                             (cdr (assoc "高" (block:get-properties y)))<br />                                             0.1)<br />                                      nil)<br />                                     ((< (cdr (assoc "高" (block:get-properties x)))<br />                                       (cdr (assoc "高" (block:get-properties y)))<br />                                       )<br />                                      nil)<br />                                   (t t)))<br />                                ((< (cdr (assoc "宽" (block:get-properties x)))<br />                                    (cdr (assoc "宽" (block:get-properties y)))<br />                                    )<br />                                 t)<br />                                ))))<br /> (setq blks-grp<br />       (list:group-by blks<br />                      '(lambda (x y)<br />                        (and (equal (cdr (assoc "宽" (block:get-properties x)))<br />                                  (cdr (assoc "宽" (block:get-properties y)))<br />                              0.1)<br />                         (equal (cdr (assoc "高" (block:get-properties x)))<br />                          (cdr (assoc "高" (block:get-properties y)))<br />                          0.1)))))<br /> (setq i (getint "请输入起始号:"))<br /> (foreach grp  blks-grp<br />          (mapcar '(lambda(x)<br />                    (block:set-attributes x<br />                     (list (cons "编号"  (strcat  "NNN-" (itoa i))))))<br />                  grp)<br />          (setq i (1+  i))<br /> ))<br />

forestgxc

收到，真的可以!!!!

forestgxc

万分感谢，如果LBJG-01不同时再增加新的编号就好了

forestgxc

高手，请问，付费能不能帮忙搞一个？