Gemfury

bee / draftsight deb

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

<head>
<title>Insert Point Example (VB.NET)</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="VB.NET examples">
<meta name=MS-HKWD content="VB.NET examples,points">
</head>


<body>
<h1>Insert Point Example (VB.NET)</h1>
<p>This example shows how to insert a point in a drawing.</p>
<pre>'--------------------------------------------------------------
' Preconditions:
' 1. Create a VB.NET Windows console project.
' 2. Copy and paste this example into the VB.NET IDE.
' 3. Add a reference to:
'    <i>install_dir</i>\A<b>PISDK\tlb\DraftSight.Interop.dsAutomation.dll</b>.
' 4. Start DraftSight and open a document.
' 5. Start debugging the project.
'
' Postconditions: A message box pops up when a point is
' inserted in the drawing document. A SimpleNote is also
' added to the drawing that identifies where the point was inserted.
'----------------------------------------------------------------
Imports DraftSight.Interop.dsAutomation</pre>
<pre>Module Module1</pre>
<pre>    Sub Main()
        Dim dsApp As Application
        Dim dsDoc As Document
        Dim dsModel As Model
        Dim dsSketchManager As SketchManager
        Dim dsPoint As Point
        Dim x, y, z As Double
        Dim dsSimpleNote As SimpleNote
        Dim noteValue As String
        Dim angle, height As Double

</pre>
<pre>        'Connect to DraftSight
        dsApp = GetObject(, &quot;DraftSight.Application&quot;)
	dsApp.<b>AbortRunningCommand</b>() ' abort any command currently running in DraftSight to avoid nested commands</pre>
<pre>        'Get active document
        dsDoc = dsApp.<b>GetActiveDocument</b>()
        If Not dsDoc Is Nothing Then</pre>
<pre>            'Get model space
            dsModel = dsDoc.<b>GetModel</b>()</pre>
<pre>            'Get Sketch Manager
            dsSketchManager = dsModel.<b>GetSketchManager</b>()</pre>
<pre>            'Point parameters
            x = 5.0#
            y = 5.0#
            z = 0.0#</pre>
<pre>            'Add a point
            dsPoint = dsSketchManager.<b>InsertPoint</b>(x, y, z)</pre>
<pre>            'SimpleNote parameters (angle value should be passed in radians)
            noteValue = &quot;Sample text&quot;
            angle = 3.14159265358979 / 4 '45 degrees in radians
            height = 1.0#

            'Add a SimpleNote
            dsSimpleNote = dsSketchManager.<b>InsertSimpleNote</b>(x, y, z, height, angle, noteValue)</pre>
<pre>            If Not dsPoint Is Nothing Then
                MsgBox(&quot;Point was added to drawing where SimpleNote was added.&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>
<pre>End Module</pre>
<p>&nbsp;</p>

</body>

</html>
bee / draftsight deb

Products

About

Resources

Contact Gemfury
