How do get "view free" feature tube solid?

I have made procedure by recording, But It make solid depen on the View.

How can I get the good solution to make feature tube soild.

(I'm piping engineer, so I need "clean" looking soild.: No hair mesh line through the solid.... like "solid By extrusion")

Here is My code ... please help. It work, if there are no solids a lot.

OR Is there good way to make tube "Clean Solid?

'■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
'' TubeFeature
''■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■

Sub TubeFeature(pntLine As Point3d, pntArc As Point3d, dbR As Double)

Dim oArc As ArcElement

'Start a command
CadInputQueue.SendCommand "MODELER TUBE"

'Set a variable associated with a dialog box
SetCExpressionValue "tubeSavedSettingsData.shellThickness", (ActiveModelReference.UORsPerMasterUnit * 0), "FEATURESOLID"
SetCExpressionValue "tubeSavedSettingsData.keepOriginal", 1, "FEATURESOLID"

Set oArc = MakeArc(pntArc, dbR)                        ' Draw ARC
ActiveModelReference.AddElement oArc      

'Send a data point to the current command
CadInputQueue.SendDataPoint pntLine, 2     '<----- here is View select
CadInputQueue.SendDataPoint pntArc, 2       '<----- here is View select
CadInputQueue.SendDataPoint pntArc, 2       '<----- here is View select


ActiveModelReference.RemoveElement oArc  '<----- Delete Temp. Arc.
 

End Sub