中的实体图案填充颜色更改

K Baden · 发表于 2022-7-5 16:06:00

大家早上好
我正在寻找如何让这段代码工作，我需要它。现在，它只是在块外选择实体图案填充，并寻找更多选择。

我想要它做的是自动选择模型空间中的所有实体图案填充，无论其是否在块中，并将颜色更改为True color 255255

我对编码很陌生，但我认为我的思路是对的，尽管我不知道如何调用truecolor，而且代码目前还不起作用。

我已经做了一些相当广泛的搜索，这就是我到目前为止所做的。下面的代码最初是用来更改模式类型的，恐怕我的修改没有达到我想要的效果。它也不包括任何设置其仅搜索模型空间的内容。

提前谢谢你的帮助，我真的很感激。

copy

(defun c:sol2white ( / doc )
   (vlax-for blk (vla-get-blocks (setq doc (vla-get-activedocument (vlax-get-acad-object))))
       (if (= :vlax-false (vla-get-isxref blk))
           (vlax-for obj blk
               (if
                   (and
                       (= "AcDbHatch" (vla-get-objectname obj))
                       (= "SOLID" (strcase (vla-get-patternname obj)))
                       (vlax-write-enabled-p obj)
                   )
                   (progn
                       ((vla-put-color obj 255,255,255))
                       ;(vla-put-patternscale obj 1000.0)
                   )
               )
           )
       )
   )
   (vla-regen doc acallviewports)
   (princ)
)
(vl-load-com) (princ)

hanhphuc · 发表于 2022-7-5 16:17:28

根据文件，
对象颜色属性aci索引0-256整数

copy


(vla-put-color obj [color="blue"]AcWhite[/color])
[color="green"];1=red 2=yellow 3=green 4=cyan 5=blue 6=magenta 7=white[/color]

有用的链接颜色转换

K Baden · 发表于 2022-7-5 16:20:07

有没有办法将这类代码与这类代码混合在一起？

copy

(setq sset (ssget "x" '((0 . "HATCH") (2 . "SOLID"))))
(command ".chprop" sset "" "c" "T" "255,255,255" "")

我只是不知道如何让排序，看看内部块和外部的固体阴影块。

ronjonp · 发表于 2022-7-5 16:29:18

试试这个：

copy

(defun c:sol2white (/ doc)
 (or *colorobject*
     (setq *colorobject*
     (vla-getinterfaceobject
       (vlax-get-acad-object)
       (strcat "AutoCAD.AcCmColor." (substr (getvar "acadver") 1 2))
     )
     )
 )
 (if
   (null (vl-catch-all-error-p (vl-catch-all-apply 'vla-setrgb (list *colorobject* 255 255 255))))
    (progn (vlax-for blk (vla-get-blocks (setq doc (vla-get-activedocument (vlax-get-acad-object))))
      (if (= :vlax-false (vla-get-isxref blk))
        (vlax-for obj blk
          (if (and (= "AcDbHatch" (vla-get-objectname obj))
                   (= "SOLID" (strcase (vla-get-patternname obj)))
                   (vlax-write-enabled-p obj)
              )
            (vl-catch-all-apply 'vla-put-truecolor (list obj *colorobject*))
          )
        )
      )
    )
    (vla-regen doc acallviewports)
    )
 )
 (princ)
)
(vl-load-com)
(princ)

K Baden · 发表于 2022-7-5 16:31:40

这太棒了。非常感谢！！我不知道如何使用255255255作为颜色。不幸的是，对于团队来说，这是一个相当重要的变量，而不是白人。我真的很感激你在这方面的帮助！！！

K Baden · 发表于 2022-7-5 16:36:18

我可以告诉你怎么让它只在一个选择窗口内工作吗？而不是整个图纸？（我对这种代码很不熟悉）

BIGAL · 发表于 2022-7-5 16:44:20

不是块的对象只需从代码中删除“X”。“X”表示所有。ssget将等待您以通常支持的方式拾取对象。

K Baden · 发表于 2022-7-5 16:53:13

好的，我今天回到这里。我发现它可以按我希望的方式工作，但我需要它只能在模型空间中运行。目前，它还将更改所有图纸空间选项卡上的实心图案填充，这会导致标题栏出现问题。有什么解决方案可以让它只在模型中运行吗？我将在下面发布我最新最棒的代码。

copy


(defun c:hw (/ doc)
 (or *colorobject*
     (setq *colorobject*
     (vla-getinterfaceobject
       (vlax-get-acad-object)
       (strcat "AutoCAD.AcCmColor." (substr (getvar "acadver") 1 2))
     )
     )
 )
 (if
   (null (vl-catch-all-error-p (vl-catch-all-apply 'vla-setrgb (list *colorobject* 255 255 255))))
    (progn (vlax-for blk (vla-get-blocks (setq doc (vla-get-activedocument (vlax-get-acad-object))))
      (if (= :vlax-false (vla-get-isxref blk))
        (vlax-for obj blk
          (if (and (= "AcDbHatch" (vla-get-objectname obj))
                   (= "SOLID" (strcase (vla-get-patternname obj)))
                   (vlax-write-enabled-p obj)
              )
            (vl-catch-all-apply 'vla-put-truecolor (list obj *colorobject*))
          )
        )
      )
    )
    (vla-regen doc acallviewports)
    )
 )
 (princ)
)
(vl-load-com)
(princ)

K Baden · 发表于 2022-7-5 16:56:48

我添加了突出显示的行，出现了以下错误：
命令：HW；错误：ActiveX服务器返回错误：未知名称：块

copy


(defun c:hw (/ doc)
 (or *colorobject*
     (setq *colorobject*
     (vla-getinterfaceobject
       (vlax-get-acad-object)
       (strcat "AutoCAD.AcCmColor." (substr (getvar "acadver") 1 2))
     )
     )
 )
 (if
   (null (vl-catch-all-error-p (vl-catch-all-apply 'vla-setrgb (list *colorobject* 255 255 255))))
    (progn (vlax-for blk (vla-get-blocks (setq doc [color="red"](vla-get-ModelSpace[/color] (vla-get-ActiveDocument (vlax-get-acad-object)))))
      (if (= :vlax-false (vla-get-isxref blk))
        (vlax-for obj blk
          (if (and (= "AcDbHatch" (vla-get-objectname obj))
                   (= "SOLID" (strcase (vla-get-patternname obj)))
                   (vlax-write-enabled-p obj)
              )
            (vl-catch-all-apply 'vla-put-truecolor (list obj *colorobject*))
          )
        )
      )
    )
    (vla-regen doc acallviewports)
    )
 )
 (princ)
)
(vl-load-com)
(princ)

devitg · 发表于 2022-7-5 17:01:11

块不是“生活”在模型空间中。医生现场直播。
Blocks ref现场直播模型或任何东西。
模型和所有布局都是它自己的。
如果你在块名处有公共字母，可以设置通配符来选择它，但我重复一遍，你在空格处看到的是
块参照。不阻塞自身。

因此，可以循环到块引用，并获取块名称。然后在块集合中检查名称，并在块内更改。

[编程交流] 中的实体图案填充颜色更改

发表回复

精选推荐