Drawing Cylinder Color is not Applying . Any suggestion ?

[Anonymous]

Public Sub DrawCylinder()
Dim cen As Variant
Dim r As Double
Dim h As Double
Dim cyl As Acad3DSolid
cen = ThisDrawing.Utility.GetPoint(, "Specify center point:")
rad = ThisDrawing.Utility.GetDistance(cen, "Specify radius:")
ht = ThisDrawing.Utility.GetDistance(, "Specify height:")
Set cyl = ThisDrawing.ModelSpace.AddCylinder(cen, rad, ht)
ThisDrawing.SendCommand ("VPOINT -1,-1,1 SHADEMODE CONCEPTUAL")
ThisDrawing.SendCommand ("CHPROP")
ThisDrawing.SendCommand ("LAST")
ThisDrawing.SendCommand ("C RED")
ThisDrawing.SendCommand ("UCSICON")
ThisDrawing.SendCommand ("NOO")

End Sub

[Alfred.NESWADBA]

Hi,

you missed some <RETURN>s 😉

Public Sub DrawCylinder()
   Dim cen As Variant
   Dim r As Double
   Dim h As Double
   Dim cyl As Acad3DSolid
   cen = ThisDrawing.Utility.GetPoint(, "Specify center point:")
   rad = ThisDrawing.Utility.GetDistance(cen, "Specify radius:")
   ht = ThisDrawing.Utility.GetDistance(, "Specify height:")
   Set cyl = ThisDrawing.ModelSpace.AddCylinder(cen, rad, ht)
   ThisDrawing.SendCommand ("_VPOINT -1,-1,1" & vbCr)
   ThisDrawing.SendCommand ("_SHADEMODE _CONCEPTUAL" & vbCr)
   ThisDrawing.SendCommand ("_CHPROP" & vbCr)
   ThisDrawing.SendCommand ("_LAST" & vbCr & vbCr)
   ThisDrawing.SendCommand ("_C 1" & vbCr & vbCr)
   ThisDrawing.SendCommand ("_UCSICON" & vbCr)
   ThisDrawing.SendCommand ("_NOO" & vbCr)
End Sub

 HTH, - alfred -