[求助]：怎样表达可以打印的白色

黄玉宏

请问斑主或各位高手：CAD的VBA中不采用0图层默认白色或赋值为acWhite怎样表达可以打印的白色？以下是摘自CAD2006帮助文件中的示例
Sub Ch4_NewLayer()
' 创建圆
Dim circleObj As AcadCircle
Dim center(0 To 2) As Double
Dim radius As Double
center(0) = 2: center(1) = 2: center(2) = 0
radius = 100
Set circleObj = ThisDrawing.ModelSpace.AddCircle(center, radius)
' 创建颜色对象
Dim col As New AcadAcCmColor
col.ColorMethod = AutoCAD.acColorMethodForeground
' 设置图层的颜色为白色
Dim layColor As AcadAcCmColor
Set layColor = AcadApplication.GetInterfaceObject("AutoCAD.AcCmColor.16")
Call layColor.SetRGB(255, 255, 255)
'上句：查阅CAD调色板中白色的RGB值为：255,255,255，但此种“白色”打印看不见!我现在解决方法：①不设，让其为默认的0图层颜色；②直接将图层颜色赋值为acWhite。请问：不采用我现在的2种方法而用上述AcCmColor如何解决“打印白色”问题？
'Call layColor.SetRGB(255, 0, 0)   　　 '设为红色,除白色之外其它所有颜色均不存在无法打印问题
ThisDrawing.ActiveLayer.TrueColor = layColor
col.ColorMethod = AutoCAD.acColorMethodByLayer
' 将圆的颜色指定为"随层"
' 以便圆自动拾取所在图层的
' 颜色
circleObj.color = acByLayer
circleObj.Update
End Sub

黄玉宏　2005.5.14

雪山飞狐(lzh)

一般的方法就是直接将图层颜色赋值为acWhite，AcCmColor很少有人用的：）

黄玉宏

斑主您好，感谢回复，我是用Excel来查询并读取数据，acWhite在Excel中必须引用CAD类型库。看了本坛有关不需要引用CAD类型库的文章(申明为Object)，这样Excel软件通用性比较好点。
今天我用Excel编程时调用intersectwith方法时，现出了一个奇怪现象：在CAD的VBA中和在Excel引用CAD类型库的情况下，该方法中参数为acExtendBoth应该使两对象均延伸，但如果在Excel中不引用CADAD类型库的情况下，它并未延伸。不知这是不是Excel两软件的接口问题。
　　另：请教一个不该的问题，怎样求两多段线所构成的面积，它们有如下特点：①它们可能相在首尾两点相交，如不相交则将首尾向两侧(外侧)延伸必相交；②它们之间的交点只有两个且只能在首尾两端；③如果求出交点超过2个(有路基挖方)则退出程序给出一个提示即可。
　　这个问题我现在是在Excel中解决的，读取两线坐标，画多段线，求交点，用两交点的横坐标筛选重新复制并读取再生成一个闭合多段线。不知在CAD中版解决这个问题？
黄玉宏　2006.5.19