rickyshuang
发表于 2008-1-14 16:59:00
谢谢10楼低胸，学习一下
firstinti
发表于 2008-1-16 09:14:00
本帖最后由 作者 于 2008-1-16 9:21:11 编辑 <br /><br /> <p>送你一个我自己写的算了,这种东西其实应该自己弄</p><p>(defun c:szbcc(/ ss bc n bpt m spt i txt ctxt)</p><p>(defun sub_upd (ename code newvalue)<br/> (entmod (subst (cons code newvalue)<br/> (assoc code (entget ename))<br/> (entget ename)<br/> )<br/> )<br/> (entupd ename)<br/>)</p><p>(defun dxf(number ent_data / mm)<br/> (setq mm(cdr(assoc number ent_data))) <br/>)<br/> <br/> (setq ss(ssget (list(cons 0 "TEXT"))))<br/> (setq bc(getreal "\n输入步长:"))<br/> (setq n(getint "\n输入保留位数<0>:"))<br/> (if (null n)(setq n 0))<br/> (setq bpt(getpoint "\n选择基点:"))<br/> (setvar "dimzin" 0)<br/> (setq m 1)<br/> (while (setq spt(getpoint bpt "\n选择第二点:")) <br/> (setq i 0)<br/> (repeat(sslength ss) <br/> (setq txt(ssname ss i))<br/> (vl-cmdf ".copy" txt "" bpt spt)<br/> (setq ctxt(entlast))<br/> (sub_upd ctxt 1 (rtos (+(atof(dxf 1 (entget txt)))(* bc m)) 2 n)) <br/> (setq i(1+ i))<br/> )<br/> (setq m(1+ m))<br/> )<br/>)</p>
kunlongmann
发表于 2008-1-16 09:46:00
<p>12楼大大 你好 </p><p>麻烦可以修改成 可以加 前缀 或后缀的吗? 谢谢</p>
etom999
发表于 2008-1-30 11:56:00
可不可以对块的某个属性(SORT)进行复制操作,<br/>每次加1就可以了...<br/>如:块H01K01中的属性SORT的内容为:QF101<br/>复制后产生另一个块H01K01中的属性SORT的内容为:QF102...
669423907
发表于 2012-3-20 21:28:17
carrot1983 发表于 2008-1-13 13:48 static/image/common/back.gif
把5楼的代码稍加修改，没有用到vl的函数，所以可以在任意一个CAD版本上使用。。呵呵
但是我还是觉得写的不 ...
为什么我复制一次，程序就结束了？08的CAD，望解！谢谢！
盛年
发表于 2013-11-14 14:09:10
好东西