图框中 零件号 从左往右 从上往下 自动编号

慧不绘

图框是块，块名为A4N,零件号是此块中的一个属性（块中不只一个属性），标记为 dr2,多个图框在模型中，从左往右，从上往下排着（图框有不同的比例，但是块名是一样的）。
能否实现这样的功能：选择需要编号的图框，输入初始的数字，图框中的零件号从左往右、从上往下以此递增，实现零件号的自动编号。（零件号的格式为001、002、003…………）。
在本论坛和百度上找了好久都没找到类似的，望各位提供思路或者类似的程序，最好是程序啦，因为我刚学编程，现在只能编写一些简单程序！先谢过啦
以下内容2016/3/2更新
根据这几天的学习，及对一些例子的参考，编写了如下的程序，能实现零件号的递增输入，只是需要点选图框。
同时程序存在问题：为使点选一个图框后，仍处于命令执行状态，在子程序中加入了子程序自身的循环，但是在程序最后完成会提示 ” 错误: 参数类型错误: lentityp nil“，虽然使用过程不影响，仍觉别扭，忘坛友修改指正。下面是程序
以下内容2016/3/3更新
首先感谢9楼的思路，经过几天的针对式学习，终于有了进展，看效果图吧

2. (defun c:jh1(/ tsel ss nn na ss0 nna basx basy i ii minx maxx)   ;由慧不绘于2016/3/2编辑
   
3. (setvar "cmdecho" 0)  
   
4. (princ"***选择图框***")
   
5. (setq tsel (ssget ":s" (list (cons 0 "INSERT")(cons 2 "A4N,A4N-1"))))
   
6. (if (not tsel)(alert"未选中图框")) ;判断是否选中了图框
   
7. (setq ss (sslength tsel))  ;选择集长度
   
8. (if (not (setq nn (getint "\n请输入图框起始编号 <1>: ")))
   
9. (setq nn 1)
   
10. );end if
    
11. (repeat ss   ;22222222222222222222222222222222222222222222
    
12.   (setq i 0)
    
13.   (repeat ss  ;此循环找出坐标值最小的那个11111111111111111111111
    
14.     (setq ss0 (ssname tsel i)
    
15.         nna (entget ss0)
    
16.         bas (cdr (assoc 10 nna));获取图框基点坐标
    
17.         basx (car bas) ;获取图框基点x坐标
    
18.         basy (cadr bas) ;获取图框基点y坐标
    
19.         i (1+ i)
    
20.     );end setq
    
21.     (if (= 1 i)(setq minx basx ii (1- i))  ;第一次循环，直接把值赋给minx
    
22.       (progn
    
23.          (setq maxx basx)    ;第二循环开始，把值赋给maxx后做比较
    
24.          (if(< maxx minx)
    
25.             (setq minx maxx ii (1- i)) ;如果maxx比minx小，就把maxx赋值给minx
    
26.          );end if ;比较x坐标大小
    
27.        );end progn
    
28.     );end if
    
29.   );end repeat ss  ;1111111111111111111111111111111111111111111111
    
30. (setq na (ssname tsel ii)) ;根据基点x坐标值，提取坐标最小的图框
    
31. (ssdel na tsel) ;删除选择集中的x坐标最小的对象
    
32. (setq ss (sslength tsel)) ;删除对象后选择集长度
    
33. (autobian)           ;;子程序，对坐标最小的那个赋值
    
34. (setq nn (1+ nn))  ;此行返回的nn值比最大的ss大1，但程序在（autobian）之后，故无影响
    
35. );end repeat ss  ;222222222222222222222222222222222222222222222
    
36. (setvar "cmdecho" 1)               
    
37. (PRINC)
    
38. (prompt"******自动零件号编号完成******")
    
39. (prin1)
    
40. )
    
41. (defun autobian(/ nk tb tl vb)  ;用于图框零件号的编号
    
42. (cond((< nn 10)(setq nk (strcat "00" (itoa nn))))  ;编号小于10，为001-009
    
43.      ((and (< nn 100)(> nn 9))(setq nk (strcat "0" (itoa nn)))) ;编号大于9，为010-099
    
44.      ((> nn 99)(setq nk (itoa nn)))   ;编号大于99，为100-999
    
45. );end cond
    
46. (repeat 16
    
47.   (setq
    
48.         na (entnext na)  ;找寻图面中的下一个对象
    
49.   tb (entget na)  ;将列表分解为单个部件
    
50.   tl (cdr (assoc 2 tb))  ;获取的对应值对应的变量;获取第二元素,属性块标记
    
51.   )
    
52.   (if (= tl "DR2")   ;块中属性标记为dr2  ★★★★★★
    
53.      (progn   
    
54.          (setq vb nk)
    
55.          (setq tb(subst (cons 1 vb) (assoc 1 tb) tb))  ;(subst 新序列 旧序列 对象) ;替换对象中的序列
    
56.          (entmod tb)   ;更新序列内容
    
57.          (entupd na)   ;更新主对象内容
    
58.       ) ;end progn
    
59.    )  ;end if
    
60. )  ;end repeat
    
61. )

(defun c:jh1(/ tsel ss nn na ss0 nna basx basy i ii minx maxx)   ;由慧不绘于2016/3/2编辑<br /> (setvar "cmdecho" 0)  <br /> (princ"***选择图框***")<br /> (setq tsel (ssget ":s" (list (cons 0 "INSERT")(cons 2 "A4N,A4N-1"))))<br /> (if (not tsel)(alert"未选中图框")) ;判断是否选中了图框<br /> (setq ss (sslength tsel))  ;选择集长度<br /> (if (not (setq nn (getint "\n请输入图框起始编号 <1>: ")))<br /> (setq nn 1)<br /> );end if<br /> (repeat ss   ;22222222222222222222222222222222222222222222<br />   (setq i 0)<br />   (repeat ss  ;此循环找出坐标值最小的那个11111111111111111111111<br />     (setq ss0 (ssname tsel i)<br />         nna (entget ss0)<br />         bas (cdr (assoc 10 nna));获取图框基点坐标<br />         basx (car bas) ;获取图框基点x坐标<br />         basy (cadr bas) ;获取图框基点y坐标<br />         i (1+ i)<br />     );end setq<br />     (if (= 1 i)(setq minx basx ii (1- i))  ;第一次循环，直接把值赋给minx<br />       (progn<br />          (setq maxx basx)    ;第二循环开始，把值赋给maxx后做比较<br />          (if(< maxx minx)<br />             (setq minx maxx ii (1- i)) ;如果maxx比minx小，就把maxx赋值给minx<br />          );end if ;比较x坐标大小<br />        );end progn<br />     );end if <br />   );end repeat ss  ;1111111111111111111111111111111111111111111111<br /> (setq na (ssname tsel ii)) ;根据基点x坐标值，提取坐标最小的图框<br /> (ssdel na tsel) ;删除选择集中的x坐标最小的对象<br /> (setq ss (sslength tsel)) ;删除对象后选择集长度<br /> (autobian)           ;;子程序，对坐标最小的那个赋值<br /> (setq nn (1+ nn))  ;此行返回的nn值比最大的ss大1，但程序在（autobian）之后，故无影响<br /> );end repeat ss  ;222222222222222222222222222222222222222222222<br /> (setvar "cmdecho" 1)                <br /> (PRINC)<br /> (prompt"******自动零件号编号完成******")<br /> (prin1)<br /> ) <br /> (defun autobian(/ nk tb tl vb)  ;用于图框零件号的编号<br /> (cond((< nn 10)(setq nk (strcat "00" (itoa nn))))  ;编号小于10，为001-009<br />      ((and (< nn 100)(> nn 9))(setq nk (strcat "0" (itoa nn)))) ;编号大于9，为010-099<br />      ((> nn 99)(setq nk (itoa nn)))   ;编号大于99，为100-999<br /> );end cond<br /> (repeat 16<br />   (setq<br />         na (entnext na)  ;找寻图面中的下一个对象<br />   tb (entget na)  ;将列表分解为单个部件<br />   tl (cdr (assoc 2 tb))  ;获取的对应值对应的变量;获取第二元素,属性块标记<br />   )<br />   (if (= tl "DR2")   ;块中属性标记为dr2  ★★★★★★<br />      (progn   <br />          (setq vb nk)<br />          (setq tb(subst (cons 1 vb) (assoc 1 tb) tb))  ;(subst 新序列 旧序列 对象) ;替换对象中的序列<br />          (entmod tb)   ;更新序列内容<br />          (entupd na)   ;更新主对象内容<br />       ) ;end progn<br />    )  ;end if<br /> )  ;end repeat <br /> )

bh89757

不行啊 ，命令: JH1 ***选择图框***
选择对象: 指定对角点:
请输入图框起始编号 <1>:  ; 错误: 参数类型错误: lentityp nil

ivde

这样的排序函数太多了！你得知道怎么构造一个关联表用来排序

慧不绘

ivde 发表于 2016-2-23 15:57
这样的排序函数太多了！你得知道怎么构造一个关联表用来排序

新手一枚，不知如何构造关联表，有没有相关的学习资料

LPACMQ

富士康

慧不绘

LPACMQ 发表于 2016-2-26 16:02
富士康

什么意识

LPACMQ

发帖悬赏马上有人站出来，要不然自己找找论坛类似的东西还是蛮多的，修修改改就能用了。

ll_j

最好上传两个图，表明原来什么样，要求结果什么样，应该有人帮忙。
看你的描述，似懂非懂，我想很多人也都这样，也就无法下手了。

慧不绘

ll_j 发表于 2016-2-26 16:18
最好上传两个图，表明原来什么样，要求结果什么样，应该有人帮忙。
看你的描述，似懂非懂，我想很多人也都 ...

按你的说明，详细了一下，能提供点方法什么的吗

zhoufupeng

拒供一个思路，首先获取所有块的插入上，然后将加入个列表，依据x,y的值排序

ivde

2. 
   
3. (defun c:tt (/ ss sl e el lst)
   
4.   (if (setq ss (ssget '((0 . "insert")))) ;_过滤图框
   
5.     (progn
   
6.       (setq sl (sslength ss))
   
7.       (while (setq e (ssname ss (setq sl (1- sl))))
   
8.         (setq el (cons (vlax-ename->vla-object e) el))
   
9.       )
   
10.       (setq lst        (mapcar        '(lambda (x / al)
    
11.                            (if (setq al        (car (vl-member-if
    
12.                                                '(lambda (a) (= (vla-get-tagstring a) "BH"))
    
13.                                                (vlax-invoke x 'GetAttributes)
    
14.                                              )
    
15.                                         )
    
16.                                )
    
17.                              (list (vla-get-textposition al) al);_构造属性插入点和实体的关联表
    
18.                            )
    
19.                          )
    
20.                         el
    
21.                 )
    
22.       )
    
23.       ;;排序
    
24.       (setq lst (vl-sort lst '(lambda (x1 x2)  ...)))
    
25.     )
    
26.   )
    
27.   (princ)
    
28. )

<br /> (defun c:tt (/ ss sl e el lst)<br />   (if (setq ss (ssget '((0 . "insert")))) ;_过滤图框<br />     (progn<br />       (setq sl (sslength ss))<br />       (while (setq e (ssname ss (setq sl (1- sl))))<br />         (setq el (cons (vlax-ename->vla-object e) el))<br />       )<br />       (setq lst        (mapcar        '(lambda (x / al)<br />                            (if (setq al        (car (vl-member-if<br />                                                '(lambda (a) (= (vla-get-tagstring a) "BH"))<br />                                                (vlax-invoke x 'GetAttributes)<br />                                              )<br />                                         )<br />                                )<br />                              (list (vla-get-textposition al) al);_构造属性插入点和实体的关联表<br />                            )<br />                          )<br />                         el<br />                 )<br />       )<br />       ;;排序<br />       (setq lst (vl-sort lst '(lambda (x1 x2)  ...)))<br />     )<br />   )<br />   (princ)<br /> )