哈哈，我看了下，颜色确实能改，线型只能改一部分，还有很多修改不了，不知道为什么，我用快速选择->线型->BYlayer 还是能够找到很多，这部分为什么被漏掉？奇怪了？
但是颜色修改率为100%，哈哈，这点确实很强呀…… 回复 Gu_xl 的帖子
哈哈，就是这个，谢谢啦，真的十分感谢啦，现在已经全部好了，呵呵 回复 Gu_xl 的帖子
还有一个问题，关于BYblock修改的问题，应该还BYLAYER一样的吧，我修改了下，发现改不了，奇怪了？
(defun c:tt(/ laydata doc ms blocks)
(setq layers (vla-get-Layers (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))))
(setq blocks (vla-get-blocks doc))
(vlax-for lay layers
(setq laydata (cons (list (vla-get-name lay) (vla-get-color lay) (vla-get-linetype lay)) laydata))
)
(vlax-for block blocks
(vlax-for obj block
(if (and (= 256 (vla-get-color obj)) (/= "0" (vla-get-layer obj)))
(vla-put-color obj (cadr (assoc (vla-get-layer obj) laydata)))
)
(if (and(= "BYLAYER" (strcase (vla-get-linetype obj)))(/= "0" (vla-get-layer obj)))
(vla-put-linetype obj (caddr (assoc (vla-get-layer obj) laydata)))
)
(if (and(= "BYblock" (strcase (vla-get-linetype obj)))(/= "0" (vla-get-layer obj)))
(vla-put-linetype obj (caddr (assoc (vla-get-layer obj) laydata)))
)
)
)
(setq ms (vla-get-ModelSpace doc))
(vlax-for obj ms
(if (= 256 (vla-get-color obj))
(vla-put-color obj (cadr (assoc (vla-get-layer obj) laydata)))
)
(if (= "BYLAYER" (strcase (vla-get-linetype obj)))
(vla-put-linetype obj (caddr (assoc (vla-get-layer obj) laydata)))
)
(if (= "BYblock" (strcase (vla-get-linetype obj)))
(vla-put-linetype obj (caddr (assoc (vla-get-layer obj) laydata)))
)
)
(princ)
) 回复 Gu_xl 的帖子
是大小写的问题，BYblock改为BYBLOCK就可以修改了，但是改出来的线型变成BYLAYER的线型了...........
为什么不能改成BYBLOCK的线型呢？ 继续顶，等待高手出现… 继续顶，等待高手出现… 为什么我只能改颜色，不能改线性，我按照楼主的做法，以及 Gu_xl 的做法，试了好久，
我把13楼的程序考下来，删掉一部分他加的
(if (and(= "BYblock" (strcase (vla-get-linetype obj)))部分，为啥呢？
奇怪了，再试试 能不能将选定的对象是几个图层(每个图层的颜色不同)物体改到一个图层中去,而他的颜色要和以前图层的颜色相同 Gu_xl 发表于 2011-3-12 21:08 static/image/common/back.gif
回复 tm20038175 的帖子
在天正上使用显示"此类型的 LISP 值不能强制转换成 VARIANT:253"不知道是什么原因
页:
1
[2]