【一个想法】修改图形里Bylayer的图元为指定颜色，线型

tm20038175

回复 Gu_xl 的帖子

哈哈，我看了下，颜色确实能改，线型只能改一部分，还有很多修改不了，不知道为什么，我用快速选择->线型->BYlayer 还是能够找到很多，这部分为什么被漏掉？奇怪了？
但是颜色修改率为100%，哈哈，这点确实很强呀……

tm20038175

回复 Gu_xl 的帖子

哈哈，就是这个，谢谢啦，真的十分感谢啦，现在已经全部好了，呵呵

tm20038175

回复 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)
  
  )

tm20038175

回复 Gu_xl 的帖子

是大小写的问题，BYblock改为BYBLOCK就可以修改了，但是改出来的线型变成BYLAYER的线型了...........
为什么不能改成BYBLOCK的线型呢？

tm20038175

继续顶，等待高手出现…

tm20038175

继续顶，等待高手出现…

kaka5163

为什么我只能改颜色，不能改线性，我按照楼主的做法，以及 Gu_xl 的做法，试了好久，
我把13楼的程序考下来，删掉一部分他加的  
(if (and(= "BYblock" (strcase (vla-get-linetype obj)))部分，为啥呢？
奇怪了，再试试

yangjian00yy

能不能将选定的对象是几个图层(每个图层的颜色不同)物体改到一个图层中去,而他的颜色要和以前图层的颜色相同

bloodtempt

Gu_xl 发表于 2011-3-12 21:08
回复 tm20038175 的帖子

在天正上使用显示"此类型的 LISP 值不能强制转换成 VARIANT:253"不知道是什么原因