Create layers and change style in VBA

[16horse]

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

[pethichammer]

Thanks for sharing nice information about create layers and change style in vba..

 

 

 

Animation Institute in Chandigarh

Edited January 17, 2011 by pethichammer