[求助]caoyin 版主，帮帮忙呀，如何把左边的属性块(很多个)变成右边的。

userzhl

caoyin 版主，帮帮忙呀，如何把左边的属性块(很多个)变成右边的。

急，在线等：

userzhl

郁闷，真不知道为什么整个文件的都是这样了，把我害惨了。哪个高手帮忙解决一下？

ZZXXQQ

游客，本帖隐藏的内容需要发帖数高于 5 才可浏览，你当前发帖数只有 0

userzhl

感谢版主，但是有些属性块还是没有解决，麻烦帮忙看看。

ZZXXQQ

三楼已改。其实是两个同名的块，插入点不同，如果改一下块的插入点，重新插入块就可以解决。

userzhl

 

ZZXXQQ版主，下面这两个程序需要相结合可能就行了

;属性归位 明经 ZZXXQQ 2009.1.10
(DEFUN C:T1 ()
  (IF (AND (PRINC "\nSelect a Block with attribute 选择带属性图块 :")
           (SETQ SS (SSGET '((0 . "INSERT") (66 . 1))))) (PROGN
   (SETQ I 0)
   (REPEAT (SSLENGTH SS)
    (SETQ ENT (ENTGET(SSNAME SS I)) I (1+ I))
    (SETQ PT (CDR(ASSOC 10 ENT)))
    (SETQ ENT1 ENT)
    (WHILE (/= (CDR(ASSOC 0 (SETQ ENT1 (ENTGET (ENTNEXT (CDR (ASSOC -1 ENT1))))))) "SEQEND")
     (SETQ ENT1 (SUBST (CONS 11 (MAPCAR '- PT (LIST 250 146.5))) (ASSOC 11 ENT1) ENT1))
     (ENTMOD ENT1)
     (ENTMOD ENT)
    )
   )
  ))
  (PRINC)
)
;属性归位 明经 ZZXXQQ 2009.1.11
(DEFUN C:T2 ()
  (IF (AND (PRINC "\nSelect a Block with attribute 选择带属性图块 :")
           (SETQ SS (SSGET '((0 . "INSERT") (66 . 1))))) (PROGN
   (SETQ I 0)
   (REPEAT (SSLENGTH SS)
    (SETQ ENT (ENTGET(SSNAME SS I)) I (1+ I))
    (SETQ PT (CDR(ASSOC 10 ENT)))
    (SETQ ENT1 ENT)
    (WHILE (/= (CDR(ASSOC 0 (SETQ ENT1 (ENTGET (ENTNEXT (CDR (ASSOC -1 ENT1))))))) "SEQEND")
     (IF (= (CDR(ASSOC 0 ENT1)) "ATTRIB") (PROGN
      (IF (= (CDR(ASSOC 1 ENT1)) "ST-1")
       (SETQ ENT1 (SUBST (CONS 11 (MAPCAR '- PT (LIST 250 146.5))) (ASSOC 11 ENT1) ENT1))
       (SETQ ENT1 (SUBST (CONS 11 (MAPCAR '- PT (LIST -250 146.5))) (ASSOC 11 ENT1) ENT1))
      )
      (ENTMOD ENT1)
      (ENTMOD ENT)
  ))
    )
   )
  ))
  (PRINC)
)

userzhl

哪位高手知道为什么会变成这样子的呢？是不是改变了插入点的原因呢？

userzhl

caoyin 版主，帮帮忙呀。

caoyin

我的思路是获取所有的属性标记及其值，和颜色、比例等数据，然后删除原块，插入新快，将刚才获得的数据赋予。

但我想应该有更好办法，要研究一下。。。