请教ZZXXQQ：为块排序

weig168

dinosaurhxe2大侠，你好，请帮忙写一个给块排序的LSP,是冲模零件注解的块，我现在里面的内容全部手动修改的，一套模具2，3百个，真是累啊，请大侠高抬贵手。QQ:279660102

AMTONNY

有请高手出招呀，二楼的复制属性块并递增数字并没有成功，我也想要此功能

AMTONNY

1. 
   
2. (defun c:nn( / e1 en l p1 p2 sn st st1 st2)  
   
3.   (setq *error* nil)  
   
4.   (command "_ucs" "w")
   
5.   (princ "\n欢迎使用属性块连续拷贝程序！ GYSJY  2008.12.7")
   
6.   (setq sn (entsel "\n点取属性块:") p1 (cadr sn) p2 t sn (car sn))
   
7.    (if (and p2 (to 66)(= "INSERT" (to 0)))
   
8.     (progn
   
9.       (tosx)
   
10.       (setq l (strlen st) st1(substr st 1 (- l 1)))
    
11.       (while p2
    
12.         (setq p2 (getpoint "\n下一点：" p1))
    
13.         (command "copy" sn "" p1 p2)
    
14.             (setq sn (entlast) p1 (to 10) en (entget sn))
    
15.         (tosx)
    
16.         (setq st2 (substr st l) st2 (atoi st2) st2 (1+ st2)
    
17.               st2 (itoa st2) st (strcat st1 st2)
    
18.           )
    
19.             (setq e1 (entget (entnext (cdr (car en)))))
    
20.         (setq e1 (subst (cons 1 st) (assoc 1 e1) e1))
    
21.         (entmod e1)(entmod en)
    
22.         (princ st)
    
23.       )
    
24.     )
    
25.     (princ "\n你所点取的图元不是属性块。本程序只拷贝带属性的块。")
    
26.   )
    
27.   (princ))  
    
28.   (defun to(n)  
    
29.    (cdr (assoc n (entget sn))))
    
30. (defun tosx()
    
31. (setq st  (entget (entnext (cdr (car (entget sn)))))
    
32.         st (cdr (assoc 1 st))
    
33.    ))
    
34. 
    

<br /> (defun c:nn( / e1 en l p1 p2 sn st st1 st2)  <br />   (setq *error* nil)  <br />   (command "_ucs" "w")<br />   (princ "\n欢迎使用属性块连续拷贝程序！ GYSJY  2008.12.7")<br />   (setq sn (entsel "\n点取属性块:") p1 (cadr sn) p2 t sn (car sn))<br />    (if (and p2 (to 66)(= "INSERT" (to 0)))<br />     (progn<br />       (tosx)<br />       (setq l (strlen st) st1(substr st 1 (- l 1)))<br />       (while p2<br />         (setq p2 (getpoint "\n下一点：" p1))<br />         (command "copy" sn "" p1 p2)<br />             (setq sn (entlast) p1 (to 10) en (entget sn))<br />         (tosx)<br />         (setq st2 (substr st l) st2 (atoi st2) st2 (1+ st2)<br />               st2 (itoa st2) st (strcat st1 st2)<br />           )<br />             (setq e1 (entget (entnext (cdr (car en)))))<br />         (setq e1 (subst (cons 1 st) (assoc 1 e1) e1))<br />         (entmod e1)(entmod en)<br />         (princ st)<br />       )<br />     )<br />     (princ "\n你所点取的图元不是属性块。本程序只拷贝带属性的块。")<br />   )<br />   (princ))  <br />   (defun to(n)  <br />    (cdr (assoc n (entget sn))))<br /> (defun tosx() <br /> (setq st  (entget (entnext (cdr (car (entget sn)))))<br />         st (cdr (assoc 1 st))<br />    ))<br /> <br />

yaya-54

AMTONNY ：你的程序我用在我的图框块中，它递加的是版本号，如何让我的图号中的数字递加？改程序中哪个？

AMTONNY

呵呵,你把图框发过来给我看看,这个不用改程序,只改你的图框就可以了,要快哦

AMTONNY

呵呵,十四楼的都不理我了

jjie1970

回复 AMTONNY 的帖子

怎么编号由19突然增加到111了？编号每满9就就会增加一位吗？最后一个的编号怎么会自动加一啊？

gbhsu

序号增加问题没有解决！
应整体加1，而不是个位加下，
另外如：E1 E2 E3之类前面为非数的加法也要能用！

690994

回复 weig168 的帖子

论坛里有个实体排序的贴子，你搜下吧，冲压五金模具中用属性块一旦变更修改非常麻烦，我早就不用了，改用扩展数据块

四叶草by

占座学习一下