为线条vb指定颜色。网络wi

geogiac · 发表于 2022-7-6 23:00:38

嗨，我拼命想改变线条的颜色。。。。。。
我在进程外环境中使用visual studio和autocad 2009

现在我用这段代码创建一行

它工作得很好（我没有引用代码来指定点的坐标）

但现在我似乎无法更改我创建的对象（acadline）的颜色。。。。。。。

有什么帮助吗！！！！！？！？？

'*******
导入Autodesk。AutoCAD。互操作。acaddocumentclass
导入autodesk。AutoCAD。互操作。常见的
CONNETTI_AUTOCAD模块

作为Autodesk的公共acad。AutoCAD。互操作。AcadApplication公司
将acaddoc作为Autodesk公开。AutoCAD。互操作。AcadDocument公司
PublicSub CONNETTI_AUTOCAD_COM（）
暗线作为AcadLine
acad=GetObject（，“AUTOCAD.APPLICATION”）
acaddoc=acad。活动文档

linea=阿卡多克。模型空间。AddLine（开始，结束）
'**********

gile · 发表于 2022-7-6 23:55:19

你好

在使用COM API时，可以查看《AutoCAD开发人员指南》中的ACtiveX和VBA参考。

对于索引颜色，可以使用颜色属性，该属性的值必须是0到256之间的整数或以下常数之一：
acByBlock（0）
acByLayer（256）
acRed（1）
acYellow（2）
acGreen（3）
阿克扬（4）
acBlue（5）
acMagenta（6）
acWhite（7）

我对VB语法不是很熟悉，但应该是这样的

linea。颜色=acRed或linea。颜色=1

对于“true Color”，您必须使用ACADACMCMColor对象：

Dim col作为新的AcadAcCmColor
红色列=28
列绿色=111
蓝色列=225
linea。TrueColor=颜色

geogiac · 发表于 2022-7-7 00:18:50

谢谢一旦我明白了，解决方法就太简单了。。。。
再次感谢

[编程交流] 为线条vb指定颜色。网络wi

发表回复

精选推荐