为线条vb指定颜色。网络wi
嗨，我拼命想改变线条的颜色。。。。。。我在进程外环境中使用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（开始，结束）
'********** 你好
在使用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=颜色 谢谢一旦我明白了，解决方法就太简单了。。。。
再次感谢
页:
[1]