[编程申请]：复制块同时块属性（数字）相应递增

xmchy

这个东西实现起来挺负责得.呵呵,属性值,肯定比文字麻烦.

lfx49

帮忙完善一下这个程序

gysjy

最初由 lfx49 发布
[B]帮忙完善一下这个程序 [/B]

不知你希望完善成什么样子？

lfx49

递增到19后，数字就变了110而不是20，后面还是递增还是有问题的,能让数字有效的递增

lfx49

递增到19后，数字就变了110而不是20，后面还是递增还是有问题的,能让数字有效的递增

gysjy

最初由 lfx49 发布
[B]递增到19后，数字就变了110而不是20，后面还是递增还是有问题的,能让数字有效的递增 [/B]

下面是修改后的程序，能使数字递增到19后，接着是20.

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

<br />   [FONT=courier new]<br /> (defun to(n)<br />   (cdr (assoc n (entget sn)))<br /> )<br /> <br /> (defun tosx()<br />   (setq st  (entget (entnext (cdr (car (entget sn)))))<br />         st (cdr (assoc 1 st)) <br />   );;提取属性  <br /> )<br /> (defun c:nn( / e1 en l p1 p2 sn st st1 st2)<br />   (setq *error* nil)<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 /> )<br /> <br />   [/FONT]<br />

lfx49

如果从1开始能够有效循环，如果从任意的二位数开始，还是从19到（20）110，29到（30）210。

gysjy

最初由 lfx49 发布
[B]如果从1开始能够有效循环，如果从任意的二位数开始，还是从19到（20）110，29到（30）210。 [/B]

是的，是这样的。因从二位数开始的使用几率很小，故在此程序中没有考虑。如你工作中的确需要，也可以加上一个问答句以满足这个功能。

axin0305

积分不够痛苦啊

gysjy

最初由 lfx49 发布
[B]如果从1开始能够有效循环，如果从任意的二位数开始，还是从19到（20）110，29到（30）210。 [/B]

此问题已解决。详见下列地址：
[iframe h=600 w=100%]http://p4.xdcad.net/forum/showthread.php?s=&postid=3375021#post3375021[/iframe]

lfx49

积分不够，发邮件，行吗？lfx49@sohu.com

rik6523

简单实用点，本人不会编程啊。

chen_6943

好用的程序，可是积分不够，下不了，痛苦ing....

金鹅起飞

谢谢分享，多谢楼主！

金鹅起飞

gysjy：您好！我用您的源码试了一下，出现“ 指定基点或 [位移(D)/多个(M)] <位移>:  指定第二个点或 <使用第一个点作为位移>: 命令: ; 错误: 参数值错误: 正 0”
这是什么原因？请指教。