用户登陆
站点日历
站点统计
最新评论
VBA 在CAD中使用RGB颜色 [ 日期：2009-02-17 ] [ 来自：
Sub DrawLine()
Dim Color As AcadAcCmColor
Set Color = AcadApplication.GetInterfaceObject("AutoCAD.AcCmColor.16")
Dim L As AcadLine
Dim P1(2) As Double
Dim P2(2) As Double
P1(0) = 0: P1(1) = 0: P1(2) = 0
P2(0) = 100: P2(1) = 100: P2(2) = 0
Set L = ThisDrawing.ModelSpace.AddLine(P1, P2)
Color.SetRGB 200, 100, 100
L.TrueColor = Color
End Sub
Dim Color As AcadAcCmColor
Set Color = AcadApplication.GetInterfaceObject("AutoCAD.AcCmColor.16")
Dim L As AcadLine
Dim P1(2) As Double
Dim P2(2) As Double
P1(0) = 0: P1(1) = 0: P1(2) = 0
P2(0) = 100: P2(1) = 100: P2(2) = 0
Set L = ThisDrawing.ModelSpace.AddLine(P1, P2)
Color.SetRGB 200, 100, 100
L.TrueColor = Color
End Sub
|
|
暂时没有评论
| 发表评论 - 不要忘了输入验证码哦！ |