改变颜色

yanasdf789

如何改变一条直线颜色？
我找不到Color 属性，只有Truecolor属性？
我的开发环境是CAD 04 +VB
Dim WS(0 To 2) As Double
WS(0) = 0
WS(1) = 0
WS(2) = 0
Dim EN(0 To 2) As Double
EN(0) = 100
EN(1) = 200
EN(2) = 0

Dim linObj As AcadLine
linObj.Color  ......// 找不到Color 属性啊 ，添加上去就报错？？？？？？？为什么啊
Set linObj = cadapp.ActiveDocument.ModelSpace.AddLine(WS, EN)

yjr111

Sub tt()
Dim linObj As AcadLine
Set linObj = AcadApplication.ActiveDocument.ModelSpace.AddLine _
(AcadApplication.ActiveDocument.Utility.GetPoint(, "第一点"), AcadApplication.ActiveDocument.Utility.GetPoint(, "第二点"))
linObj.color = 1
End Sub