16horse
9th Jan 2011, 03:47 pm
Hello everybody.
I have created an algorithm with VBA that draws a automobile and inserts passengers, wheels etc etc
My problem is that i need to create layers for example "Transparent Glass" for the windshields, another layer "Human skin" with color RGB(249,202,165) etc but i have figured out only how to create the simplest of layers such as acBlue.
Moreover i need to set the view to "No edges" and "Realistic Face Style" but how?
Can anybody guide me? Is there a maual or something that explains these stuff?
For now i create layers like this:
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
I have created an algorithm with VBA that draws a automobile and inserts passengers, wheels etc etc
My problem is that i need to create layers for example "Transparent Glass" for the windshields, another layer "Human skin" with color RGB(249,202,165) etc but i have figured out only how to create the simplest of layers such as acBlue.
Moreover i need to set the view to "No edges" and "Realistic Face Style" but how?
Can anybody guide me? Is there a maual or something that explains these stuff?
For now i create layers like this:
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