[求助]属性块的增量复制

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

还是有问题：
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

两段属性修改不同
TXTF (STRCAT TA (IF(< N 10) "00" (IF(< N 100) "0" ""))(ITOA N))

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

感觉这个还可以，只是一次拷贝....
;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

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

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

好东西啊~~~~

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

高手，我怎么看不见呢？

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

谢谢你了哈

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

写得好，真是活雷锋

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

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

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

呵呵，这么好的一个程序太感谢了

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