2013-06-22 明经AutoCAD.VBA编程(45054712) 群聊记录：acad-vb运行时加载错误-2147722005(800401f3) 什么

明经快报

Sunshine 13:44:46

acad-vb运行时加载错误-2147722005(800401f3)
什么原因

明经快报

小学生 13:59:22

这个除你，只有神仙才知道

明经快报

一缕阳光 17:29:47

Sunshine 17:35:20

plineObj.Color = acRed 定义之后怎么还是填充黑色

Sunshine 17:35:59

什么原因，有知道的吗

明经快报

一缕阳光 17:46:53

这个对象是填充对象吗

Sunshine 17:47:07

对

一缕阳光 17:47:08

怎么像多段线

Sunshine 17:47:26

是多段线，围城的区域

怎么给这个区域上色

一缕阳光 17:47:46

唉

一缕阳光 17:48:17

多段线和图案填充2个不同对象

没一点关系

Sunshine 17:48:52

你会不会填？

一缕阳光 17:49:09

我什么都会

Sunshine 17:49:24

我用addhatch，填充成实体

Sunshine 17:49:54

就是里面颜色都是黑色的，怎么改成其他颜色

Set hatch = ThisDrawing.ModelSpace.AddHatch(acHatchPatternTypePreDefined, "Solid", True)

一缕阳光 17:50:20

hatchObj.GradientColor1 = col1

范例是这么设置颜色的

Sunshine 17:50:50

好的明白了，我看看

谢谢啦

一缕阳光 17:50:53

Dim col1 As AcadAcCmColor, col2 As AcadAcCmColor
    Set col1 = AcadApplication.GetInterfaceObject("AutoCAD.AcCmColor.16")
    Set col2 = AcadApplication.GetInterfaceObject("AutoCAD.AcCmColor.16")
    Call col1.SetRGB(255, 0, 0)
    Call col2.SetRGB(0, 255, 0)
    hatchObj.GradientColor1 = col1
    hatchObj.GradientColor2 = col2