回复：（ZZXXQQ）可以直接上传。
1个文件上传成功,目前今天总共上传了4个附件 <p>我来上传个文件供大家试验吧，图中有一个块，如何实现插入块时，块里面的属性值 PI001 自动增1，变成PI002 </p> 试试看。仅针对上图。;拷贝属性加1明经 ZZXXQQ 2008.3.18
(DEFUN C:ADD1 ()
(SETVAR "CMDECHO" 0)
(IF (AND (SETQ S1 (CAR (ENTSEL "\nSelect Block with Attrib 选择带属性图块 :")))
(SETQ ENT (ENTGET S1))
(= (CDR (ASSOC 0 ENT)) "INSERT")
(= (CDR (ASSOC 66 ENT)) 1)
) (PROGN
(COMMAND ".UNDO" "BE")
(SETQ PT0 (CDR (ASSOC 10 ENT)) N nil)
(WHILE (SETQ PT1 (GETPOINT PT0 "\nInsert Point 插入点 :"))
(COMMAND ".COPY" S1 "" PT0 PT1)
(SETQ ENT1 (ENTGET(ENTLAST)) ENT2 ENT1 STA T)
(WHILE (AND STA (= (CDR(ASSOC 0 (SETQ ENT2 (ENTGET(ENTNEXT(CDR(ASSOC -1 ENT2))))))) "ATTRIB"))
(IF (= (CDR(ASSOC 2 ENT2)) "KKS_CODE") (PROGN
(SETQ TXTF (CDR(ASSOC 1 ENT2))
N (1+ (IF N N (ATOI (SUBSTR TXTF 3))))
TXTF (STRCAT (SUBSTR TXTF 1 2) (IF (< N 10) "00" (IF (< N 100) "0" "")) (ITOA N))
ENT1 (SUBST (CONS 1 TXTF) (ASSOC 1 ENT2) ENT2)
STA nil)
(ENTMOD ENT2)
(ENTMOD ENT1)
(ENTUPD (ENTLAST))
))
)
)
(COMMAND ".UNDO" "E")
))
(SETVAR "CMDECHO" 1)
(PRINC)
)
本帖最后由 作者 于 2008-3-20 20:50:49 编辑 <br /><br /> <p></p><p>试过了，很好用，版主厉害啊！</p><p>谢谢版主！</p><p>顺便再请教个问题，图中还是这个块，当你插入这个块的时候，你会发现，它其实是有很多属性的，只是其中的有些属性是不可见的。但是图中的这个块，双击图块后，在属性编辑器里面只能看到可见的那几个属性可以编辑，不可见的属性是无法编辑的，新插入这个块不会出线这样的问题，所以我觉得应该是插入块之后对图形进行了某些操作把不可见的属性在属性编辑器里面隐藏了防止被编辑。用battman同步之后就可以在属性编辑器里面看到之前看不到的那些属性了，我想知道是用了什么样的操作变成这样的，使得不可见的属性不可编辑。</p> <p>不明白？用ATE都可以编辑呀。</p> 本帖最后由 作者 于 2008-3-19 17:37:34 编辑 <br /><br /> <p>不知道版主用的哪一版 CAD，我用的08，不可以编辑，在04里面可以</p><p>下面是我用ATE的截图</p> 那就不清楚了。我用的是04。 <p>谢谢版主，我再研究下，有结果过来汇报：）</p> 感谢ZZXXQQ。
如果有两个属性要变化，任何做？ 比如：QF101 - > QF102<br/> TT101 - > TT102<br/>