[求助]：谁帮我修改一下底图改颜色的工具？

lshpool

这个工具也是版主提供给我的，但是感觉有点不如意的地方，如果能够让更改的对象变为ByBlock、BYLAYER、是否归0层有可选性就好了，另外这个程序并不是更改被选对象，而是在没有任何提示的情况下一下子把所有图元全部改了，我感觉这样也不是太好！

;;;此程序在整理底图时候非常好用，但没有对话框，没有可选性，
;;;如果有ByBlock、BYLAYER、是否归0层有可选性就好了
;;;把所有图块内图元颜色改为ByBlock并且归0层
(defun c:CBB (/ blocks obj blk)
(setq        blocks (vla-get-blocks
                 (vla-get-activedocument (vlax-get-acad-object))
               )
  )
  (vlax-for blk        blocks
    (if        (not (wcmatch (vla-get-name blk) "`**_Space*"))
      (vlax-for        obj blk
        (vla-put-layer obj "0")
        (vla-put-color obj acByBlock)
      )
    )
  )
  (princ)
)

zutn

跟这个类似，也是不能选择，而且遇到天正元素还不能执行
(defun c:S0 (/ blocks obj blk)
  (setq DOC (vla-get-activedocument (vlax-get-acad-object)))
  (setq blocks (vla-get-blocks DOC))
  ;;(princ(vla-get-Count blocks))
  ;;(princ (entget(vlax-vla-object->ename blocks)))
  (vlax-for blk        blocks
    (if        (not (wcmatch (vla-get-name blk) "`**_Space*"))
      (vlax-for        obj blk
        (vla-put-layer obj "0")
        (vla-put-color obj 0) ;_随层“acbylayer”or“256”，随块“acByblock”or“0”
      )
    )
  )
  ;;(vla-regen doc acActiveViewport) ;_重生成当前视口
  ;;(vlax-release-object BLOCKS) ;_释放图形对象
  ;;(vlax-release-object DOC)
  (princ)
)