Gemfury

bee / draftsight deb

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

<head>
<title>Construct Circle 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,Circles">
</head>


<body>
<h1>Construct Circle Example (VB.NET)</h1>
<p>This example shows how to construct a Circle.</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>\<b>APISDK\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 Circle is
' constructed in the drawing document.
'----------------------------------------------------------------
Imports DraftSight.Interop.dsAutomation</pre>
<pre>Module Module1</pre>
<pre>    Sub Main()</pre>
<pre>        Dim dsApp As Application
        Dim dsDoc As Document
        Dim dsModel As Model
        Dim dsSketchManager As SketchManager
        Dim dsCircle As Circle
        Dim centerX, centerY, centerZ, radius 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>            'Circle parameters
            centerX = 1.0#
            centerY = 2.0#
            centerZ = 0.0#
            radius = 5.0#</pre>
<pre>            'Construct a Circle
            dsCircle = dsSketchManager.<b>InsertCircle</b>(centerX, centerY, centerZ, radius)</pre>
<pre>            If Not dsCircle Is Nothing Then
                MsgBox(&quot;Circle 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>
<pre>End Module</pre>

</body>

</html>
bee / draftsight deb

Products

About

Resources

Contact Gemfury
