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

foride · 发表于 2008-10-24 12:21:33

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

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

×

小弟是在设计院工作，由于工作需要，很需要这么一个功能，能减少很大的工作量，请大侠帮忙。具体功能如下：图面上有一个属性块（属性分上下两行，都是数字，上行是一个数字，下行为A—B类型），然后连续复制此块，复制所得块B递增。小弟手头有分开的两个工具，一个就是纯数字递增，还有一个是把N个块的属性编号，但是我所需要的却是复制的时候块属性递增。请大侠帮忙，小弟在此谢过。

gysjy · 发表于 2008-10-29 18:37:24

"复制所得块B递增"，能不能再说清楚些。

foride · 发表于 2008-10-30 12:33:53

看我传的图片，非常渴望有这个功能，希望大侠能帮忙，谢谢呀。

gysjy · 发表于 2008-11-6 22:55:14

看看下列程序能否满足你的要求：

[FONT=courier new]
(defun c:nn()
(setq sn (entsel "\n点取物体:") p1 (cadr sn) p2 t sn (car sn))
(while p2
(setq p2 (getpoint "\n下一点：" p1))
(command "copy" sn "" p1 p2)
(setq sn (entlast) p1 (to 10) en (entget sn))
(if (and p2 (to 66)(= "INSERT" (to 0)))
(progn
(setq st (entget (entnext (cdr (car (entget sn)))))
st (cdr (assoc 1 st))
);;提取属性
(setq st (atoi st) st (1+ st) st (itoa st))
(setq e1 (entget (entnext (cdr (car en)))))
(setq e1 (subst (cons 1 st) (assoc 1 e1) e1))
(entmod e1)(entmod en)
(princ st)
)
)
)
(princ)
)
(defun to(n)
(cdr (assoc n (entget sn)))
)
[/FONT]

lfx49 · 发表于 2008-11-7 08:42:06

小试了一下，有点问题，命令后A－B，从“1”开始递增，而不是从A－1，A－2，能否修改一下，有选择从任意数字递增，“A－”保留。

foride · 发表于 2008-11-7 13:49:32

首先十分感谢gysjy 呀，虽然还是有问题，但是毕竟还是离目标进了一步，觉得有希望。
问题1，类似楼上朋友说的那样，数字递增了，但是并没有保留A－。
问题2，使用命令时，实际上递增的是属性块中上面那个属性，看图：

gysjy · 发表于 2008-11-7 19:42:40

最初由 foride 发布
[B]问题1，类似楼上朋友说的那样，数字递增了，但是并没有保留A－。
[/B]

现将程序修改如下：

[FONT=courier new]
(defun to(n)
(cdr (assoc n (entget sn)))
)
(defun c:nn( / e1 en l p1 p2 sn st st1 st2)
(setq *error* nil)
(setq sn (entsel "\n点取物体:") p1 (cadr sn) p2 t sn (car sn))
(while p2
(setq p2 (getpoint "\n下一点：" p1))
(command "copy" sn "" p1 p2)
(setq sn (entlast) p1 (to 10) en (entget sn))
(if (and p2 (to 66)(= "INSERT" (to 0)))
(progn
(setq st (entget (entnext (cdr (car (entget sn)))))
st (cdr (assoc 1 st))
);;提取属性
(setq l (strlen st) st1 (substr st 1 (- l 1)) st2 (substr st l)
st2 (atoi st2) st2 (1+ st2) st2 (itoa st2) st (strcat st1 st2)
)
(setq e1 (entget (entnext (cdr (car en)))))
(setq e1 (subst (cons 1 st) (assoc 1 e1) e1))
(entmod e1)(entmod en)
(princ st)
)
)
)
(princ)
)
[/FONT]

[FONT=courier new] 
(defun to(n) 
  (cdr (assoc n (entget sn))) 
) 
 
(defun c:nn( / e1 en l p1 p2 sn st st1 st2) 
  (setq *error* nil) 
  (setq sn (entsel "\n点取物体:") p1 (cadr sn) p2 t sn (car sn)) 
  (while p2 
    (setq p2 (getpoint "\n下一点：" p1)) 
    (command "copy" sn "" p1 p2)    
    (setq sn (entlast) p1 (to 10) en (entget sn)) 
    (if (and p2 (to 66)(= "INSERT" (to 0))) 
      (progn 
        (setq st  (entget (entnext (cdr (car (entget sn))))) 
              st (cdr (assoc 1 st)) 
        );;提取属性 
        (setq l (strlen st) st1 (substr st 1 (- l 1)) st2 (substr st l) 
              st2 (atoi st2) st2 (1+ st2) st2 (itoa st2) st (strcat st1 st2)   
        )    
        (setq e1 (entget (entnext (cdr (car en))))) 
        (setq e1 (subst (cons 1 st) (assoc 1 e1) e1)) 
        (entmod e1)(entmod en) 
        (princ st) 
      ) 
    )    
  ) 
  (princ) 
) 
 
  [/FONT]

最初由 foride 发布
[B]
问题2，使用命令时，实际上递增的是属性块中上面那个属性，看... [/B]

你在制作属性块的时候，先写下方的属性，再写上方的属性，就可避免这个问题。

jx2008 · 发表于 2008-11-9 13:51:22

能用吗，如果有对个数数字呢，怎么递增呢？

gysjy · 发表于 2008-11-9 18:33:40

最初由 jx2008 发布
[B]能用吗，如果有对个数数字呢，怎么递增呢？ [/B]

不明白你的问题，能否再说仔细一点？

foride · 发表于 2008-11-10 09:06:50

上面两个问题都解决了，太感谢gysjy了，对我来说太有用处了。

lfx49 · 发表于 2008-11-11 10:03:12

还是有点问题，递增到19后，数字就变了110而不是20，后面还是递增还是有问题的，多试一试。我还是要非常感谢热心的gysjy了

gysjy · 发表于 2008-11-11 12:10:12

最初由 lfx49 发布
[B]还是有点问题，递增到19后，数字就变了110而不是20，后面还是递增还是有问题的，多试一试。 [/B]

程序是基于只考虑最末的数字的增加，未考虑位数的问题。增加一个条件语句可以解决这个问题。不过在实际应用中，连续拷贝超过19的概率已极小了。

foride · 发表于 2008-11-11 13:11:31

的确，还是很有些问题需要完善的，不过基本上解决我的问题，剩下的一些问题我自己有空慢慢完善，相信问题不大，难度也不会很大吧。

foride · 发表于 2008-11-11 13:24:46

的确，还是很有些问题需要完善的，不过基本上解决我的问题，剩下的一些问题我自己有空慢慢完善，相信问题不大，难度也不会很大吧。

lfx49 · 发表于 2008-11-12 13:46:48

本人不会程序，只能应用。有劳大家改好后通知一声。

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

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

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

相关帖子