T-FLEX Parametric CAD. Fundamentals. 2D Design

Fundamentals. Two-Dimensional Design
754
After that, let's create a module, in which two functions are to be written. The function «ShowDialog» (a
standard function of the development environment) will be displaying the
screen form upon launching the macro. The previously defined function
«CreateLine» creates 2D nodes, whose coordinates are the values specified
by the user via the «FormLine» form dialog, and the segment between those
nodes. The module’s source code is shown below.
‘Declaring references
Imports System
Imports TFlex
Imports TFlex.Model
Imports TFlex.Model.Model2D
‘Declaring namespace
Namespace NewMacroNamespace
‘Declaring class
Public Class NewMacroClass
‘The function, which will display the screen form «form» when executed
Public Shared Sub ShowDialog()
Dim form As LineForm
form = new LineForm()
form.ShowDialog()
End Sub
‘The function with parameters (the macro), which creates a graphic line between two 2D
nodes.
‘Coordinates of those nodes are input in the function as the dialog parameters
Public Shared Sub CreateLine(ByVal NodeX1 As String, ByVal NodeY1 As String,
ByVal NodeX2 As String, ByVal NodeY2 As String)
Dim document As Document
document = TFlex.Application.ActiveDocument