etom999 发表于 2008-3-31 15:50:00

还是有问题：
1. 当属性值为 H001 －> H001 －>H002 －>H003...
2. 当属性值为 -H001 －>001 －>002 －>003 ...
希望是：
1. 当属性值为 H001 －> H002 －>H003 －>H004...
2. 当属性值为 -H001 －>－H002 －>-H003 －>-H004 ...
3. 当属性值为 -HM001 －>－HM002 －>-HM003 －>-HM004 ...
4. 当属性值为 -H01 －>－H02 －>-H03 －>-H04 ...
5. 当属性值为 -HM01 －>－HM02 －>-HM03 －>-HM04 ...

etom999 发表于 2008-3-31 16:02:00

两段属性修改不同<br/>     TXTF (STRCAT TA (IF(&lt; N 10) "00" (IF(&lt; N 100) "0" ""))(ITOA N))<br/>

etom999 发表于 2008-4-1 13:35:00

感觉这个还可以，只是一次拷贝....
;57a--- 拷贝内定属性加1 ---
(Defun C:ATTC11()
(SETVAR "CMDECHO" 0)
(IF(AND
       (SETQ S1 (CAR(ENTSEL "\n选择属性图块 :")))
       (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 M nil)
       (SETQ PT1 (GETPOINT PT0 "\n插入点 :"))
       (COMMAND ".COPY" S1 "" PT0 PT1)
       (SETQ ENT1 (ENTGET(ENTLAST)) ENT2 ENT1)
       (While(/=(Get 0 (SetQ ent2 (EntGet(EntNext(Get -1 ent2))))) "SEQEND")
         (If(=(Get 0 ent2) "ATTRIB")
         (Progn
             (If(=(Get 2 ent2) "XR_FUNCTION")
                (Progn
                  (SetQ xrf (str2 (Get 1 ent2)) entxrf ent2)
                  (SetQ entxrf (SubSt(Cons 1 xrf)(Assoc 1 entxrf) entxrf))
                  (ENTMOD ENT2)(ENTMOD ENTxrf)(ENTUPD(ENTLAST))
                )
             ); 属性1
             (If(=(Get 2 ent2) "SNA")
                (Progn
                  (SetQ sna (str2 (Get 1 ent2)) entsna ent2)
                  (SetQ entsna (SubSt(Cons 1 sna)(Assoc 1 entsna) entsna))
                  (ENTMOD ENT2)(ENTMOD ENTsna)(ENTUPD(ENTLAST))
                )
             ); 属性2
             (If(=(Get 2 ent2) "SORT")
                (Progn
                  (SetQ sor (str2 (Get 1 ent2)) entsor ent2)
                  (SetQ entsor (SubSt(Cons 1 sor)(Assoc 1 entsor) entsor))
                  (ENTMOD ENT2)(ENTMOD ENTsor)(ENTUPD(ENTLAST))
                )
             ); 属性3
         )
         )
       )
   )
)
(SETVAR "CMDECHO" 1)
)

etom999 发表于 2008-4-1 13:45:00

43楼考虑有三个属性变化，<br/>可以根据自己情况增减，<br/>属性值的内容的适应性比较好...<br/>

hmw7374 发表于 2011-7-17 21:58:27

好东西啊~~~~

cadmj123456 发表于 2011-10-11 14:46:20

高手，我怎么看不见呢？

cadmj123456 发表于 2011-10-11 14:47:00

谢谢你了哈

cadmj123456 发表于 2011-10-11 14:48:12

写得好，真是活雷锋

cadmj123456 发表于 2011-10-11 14:48:59

这回好了，又有一个好东东

湜１只鱼 发表于 2011-10-28 19:24:46

呵呵，这么好的一个程序 太感谢了
页: 1 2 3 4 [5] 6 7
查看完整版本: [求助]属性块的增量复制