编号批量复制递增 问题 (附图), 请高手来帮忙解决...........谢谢喽

rickyshuang

谢谢10楼低胸，学习一下

firstinti

送你一个我自己写的算了,这种东西其实应该自己弄

(defun c:szbcc(/ ss bc n bpt m spt i txt ctxt)

(defun sub_upd (ename code newvalue)
  (entmod (subst (cons code newvalue)
   (assoc code (entget ename))
   (entget ename)
   )
  )
  (entupd ename)
)

(defun dxf(number ent_data / mm)
  (setq mm(cdr(assoc number ent_data))) 
)
  
  (setq ss(ssget (list(cons 0 "TEXT"))))
  (setq bc(getreal "\n输入步长:"))
  (setq n(getint "\n输入保留位数<0>:"))
  (if (null n)(setq n 0))
  (setq bpt(getpoint "\n选择基点:"))
  (setvar "dimzin" 0)
  (setq m 1)
  (while (setq spt(getpoint bpt "\n选择第二点:"))   
    (setq i 0)
    (repeat(sslength ss)     
      (setq txt(ssname ss i))
      (vl-cmdf ".copy" txt "" bpt spt)
      (setq ctxt(entlast))
      (sub_upd ctxt 1 (rtos (+(atof(dxf 1 (entget txt)))(* bc m)) 2 n))     
      (setq i(1+ i))
    )
    (setq m(1+ m))
  )
)

kunlongmann

12楼大大  你好

麻烦可以修改成 可以加 前缀 或后缀的吗?  谢谢

etom999

可不可以对块的某个属性(SORT)进行复制操作,
每次加1就可以了...
如:块H01K01中的属性SORT的内容为:QF101
复制后产生另一个块H01K01中的属性SORT的内容为:QF102...

669423907

carrot1983 发表于 2008-1-13 13:48
把5楼的代码稍加修改，没有用到vl的函数，所以可以在任意一个CAD版本上使用。。呵呵
但是我还是觉得写的不 ...

为什么我复制一次，程序就结束了？08的CAD，望解！谢谢！

盛年

好东西