根据连个坐标生成一条直线
Set Vector = Synergy.CreateVector()
Set Vector_1 = Synergy.CreateVector()
Set Modeler = Synergy.Modeler()
Vector.SetXYZ -2.4850687, 1.1859515, 10
Vector_1.SetXYZ -10.890643, -0.60335484, 28.193132
Set EntList = Modeler.CreateLine(Vector, Vector_1, False, Nothing, True)