[求助]如何改变块的颜色?

LongZT · 发表于 2008-4-17 13:59

如体,我把块的特性改了颜色项,为什么他没有显示出来?应该如果才能改变块的颜色并让其显示出来?

danxingpen · 发表于 2008-4-17 15:41

想要这么改的话,还要先把块内图元的颜色定义为随块

LongZT · 发表于 2008-4-17 16:41

那如果我们再做块的时候没注意这一点呢?也就是有一个块,他里面的图元没有随块.那该怎么改?

现在我做的方法是取的块中各图元的DXF组码,然后插入或替换(62 . x)这一段.在刷新整个块.

但发现,一些特殊的图元用这种方法是无法改的.比如多行文字.多段线等.那又该怎么处理呢?

还想请教一下,用entmake画块后面的参数该怎么写?

danxingpen · 发表于 2008-4-17 17:09

好像，可能，据说，百度的发家的根基就是我这样的人太多了。
我的个人方法就是如果没有办法了，看一下别人是怎么完成同样的事情的。
同样建议你查找一下以前的帖子，好像最近就有人贴图块颜色随层的程序的，在前10页以内好像。

caoyin · 发表于 2008-4-17 17:15

本帖最后由作者于 2008-4-17 17:36:07 编辑

(defun c:tt (/ obj col blk)
  (if (and (setq obj (entsel "\n选择块: "))
         (setq col (acad_colordlg 0 T))
   )
(progn
   (setq obj (vlax-ename->vla-object (car obj)))
   (setq blk (vla-get-name obj))
   (vlax-for x
      (vla-item (vla-get-Blocks (vla-get-activedocument (vlax-get-acad-object))) blk)
      (vla-put-Color x col)
   )
   (vla-Update obj)
)
  )
  (princ)
)

;;

(defun c:chcol (/ obj col blk)
(if (setq obj (entsel))
(progn
(setq obj (vlax-ename->vla-object (car obj)))
(or (setq col (acad_colordlg 0 T))
(setq col (vla-get-Color obj))
)
(if (= (vla-get-objectname obj) "AcDbBlockReference")
(progn
(vlax-for x
(vla-item (vla-get-Blocks (vla-get-activedocument (vlax-get-acad-object)))(vla-get-name obj))
(vla-put-Color x col)
)
(vla-Update obj)
)
(vla-put-Color obj col)
)
)
)
(princ)
)

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