Hi,
Thank you for your help.
I want to use vb.net because I am used to it.
I'm going to make a simple example.
However, I would like to ask for help because there is a problem.
It's possible through vbs, but an error occurs in vb.net.
I want to know what the problem is.
To create a simple line, I was using the example code below
vbs Code:
'%RunPerInstance
'@ DESCRIPTION
'@ Macro recorded by Synergy on 03-9-2020 at 14:23:08
SetLocale("en-us")
Dim SynergyGetter, Synergy
On Error Resume Next
Set SynergyGetter = GetObject(CreateObject("WScript.Shell").ExpandEnvironmentStrings("%SAInstance%"))
On Error GoTo 0
If (Not IsEmpty(SynergyGetter)) Then
Set Synergy = SynergyGetter.GetSASynergy
Else
Set Synergy = CreateObject("synergy.Synergy")
End If
Synergy.SetUnits "Metric"
Set Vector = Synergy.CreateVector()
Set Vector_1 = Synergy.CreateVector()
Set Modeler = Synergy.Modeler()
Modeler.FindProperty 0, 0
Vector.SetXYZ 56.5, -51.15, -2.5
Vector_1.SetXYZ 0, 4, 0
Set EntList = Modeler.CreateLine(Vector, Vector_1, True, Nothing, False)
vb.net Code :
Public Class Form1
Private MFA As Object
Private MFAProject As Object
Private MFADoc As Object
Private oModeler As Object
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
MFA = CreateObject("synergy.synergy")
Dim Vector = MFA.CreateVector()
Dim Vector_1 = MFA.CreateVector()
oModeler = MFA.Modeler()
oModeler.FindProperty(0, 0)
Vector.SetXYZ(0, 0, 0)
Vector_1.SetXYZ(100, 200, 0)
Dim EntList = oModeler.CreateLine(Vector, Vector_1, False, Nothing, True) ----> Error
End Sub
End
Thanks,
Sung-Jun Lee
