大家好。
我用VBA创建了一个算法,可以绘制汽车并插入乘客、车轮等
我的问题是,我需要创建层,例如挡风玻璃的“透明玻璃”,另一层是RGB(249202165)颜色的“人类皮肤”,等等,但我只知道如何创建最简单的层,例如acBlue。
此外,我需要将视图设置为“无边缘”和“真实的脸样式”,但如何设置?
有人能引导我吗?有没有Maula或其他什么东西可以解释这些东西?
现在,我创建如下图层:
- Sub CreateLayers()
-
- LayerName = "Metalic Red"
- Set MetalLayer = ThisDrawing.Layers.Add(LayerName)
- MetalLayer.color = acBlue
- LayerName = "Glass Cyan"
- Set GlassLayer = ThisDrawing.Layers.Add(LayerName)
- GlassLayer.color = acCyan
- End Sub
|