Gemfury

bee / draftsight deb

Repository URL to install this package:
Details
draftsight / opt / dassault-systemes / DraftSight / APISDK / Construct_RichLine_Example_VBA.htm
<html>

<head>
<title>Construct RichLine Example Example (VBA)</title>
<meta http-equiv="Content-Language" content="en-us">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<link rel="stylesheet" type="text/css" href="ApiHelp.css">
<meta name=MS-HKWD content="VBA examples">
<meta name=MS-HKWD content="VBA examples,RichLines">
</head>


<body>
<h1>Construct RichLine Example Example (VBA)</h1>
<p>This example shows how to construct a RichLine.</p>
<pre>'--------------------------------------------------------------
' Preconditions:
' 1. Create a VBA macro in a software product in which VBA is
'    embedded.
' 2. Copy and paste this example into the Visual Basic IDE.
' 3. Add a reference to the DraftSight type library,
'    install_dir\bin\dsAutomation.dll.
' 4. Start DraftSight and open a document.
' 5. Run the macro.
'
' Postconditions: A message box pops up when a RichLine is
' constructed in the drawing document.
'----------------------------------------------------------------</pre>
<pre>Option Explicit</pre>
<pre>Sub main()</pre>
<pre>    Dim dsApp As DraftSight.Application
    Dim dsDoc As DraftSight.Document
    Dim dsModel As DraftSight.Model
    Dim dsSketchManager As DraftSight.SketchManager
    Dim dsRichLine As DraftSight.RichLine
    Dim coordinates(0 To 5) As Double
    Dim justification As DraftSight.dsRichLineJustification_e
    Dim closed As Boolean
    Dim scaleValue As Double
    Dim styleName As String
    </pre>
<pre>    'Connect to DraftSight
    Set dsApp = GetObject(, &quot;DraftSight.Application&quot;)
    'Abort any command currently running in DraftSight 
    'to avoid nested commands
    dsApp.<b>AbortRunningCommand</b></pre>
<pre>    'Get active document
    Set dsDoc = dsApp.<b>GetActiveDocument</b>()
    If Not dsDoc Is Nothing Then
        </pre>
<pre>        'Get model space
        Set dsModel = dsDoc.<b>GetModel</b>()
        </pre>
<pre>        'Get Sketch Manager
        Set dsSketchManager = dsModel.<b>GetSketchManager</b>()
        </pre>
<pre>        'RichLine parameters
        coordinates(0) = 0: coordinates(1) = 0: coordinates(2) = 0
        coordinates(3) = 7: coordinates(4) = 7: coordinates(5) = 0
        justification = dsRichLineJustification_Bottom
        scaleValue = 1#
        styleName = &quot;Standard&quot;
        closed = False
        </pre>
<pre>        'Add a RichLine
        Set dsRichLine = dsSketchManager.<b>InsertRichLine</b>(coordinates, justification, scaleValue, styleName, closed)
        </pre>
<pre>        If Not dsRichLine Is Nothing Then
            MsgBox &quot;RichLine was added to drawing.&quot;
        End If
        </pre>
<pre>    Else
        </pre>
<pre>        MsgBox &quot;There are no open documents in DraftSight.&quot;
        </pre>
<pre>    End If</pre>
<pre>End Sub</pre>
<p>&nbsp;</p>
<p>&nbsp;</p>

</body>

</html>
bee / draftsight deb

Products

About

Resources

Contact Gemfury
