Why Gemfury?
Push, build, and install
RubyGems
npm packages
Python packages
Maven artifacts
PHP packages
Go Modules
Debian packages
RPM packages
NuGet packages
bee
bee / draftsight deb
Repository URL to install this package:
|
Version:
2016.3.0.4050 ▾
|
draftsight
/
opt
/
dassault-systemes
/
DraftSight
/
APISDK
/
Create_and_Change_Trace_Example_VBNET.htm
|
|---|
<html>
<head>
<title>Create and Change Trace 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,Trace">
</head>
<body>
<h1>Create and Change Trace Example (VB.NET)</h1>
<p>This example shows how to create a Trace and change its vertex coordinates
and thickness.</p>
<pre style="font-family: Consolas; font-size: 13; color: black; background: white"><span style="color:green;">'--------------------------------------------------------------</span>
<span style="color:green;">' Preconditions:</span>
<span style="color:green;">' 1. Create a VB.NET Windows console project.</span>
<span style="color:green;">' 2. Copy and paste this code into the VB.NET project.</span>
<span style="color:green;">' 3. Add a reference to</span>
<span style="color:green;">' <i>install_dir</i>\<b>APISDK\tlb\DraftSight.Interop.dsAutomation.dll</b>.</span>
<span style="color:green;">' 4. Add a reference to <b>System.Windows.Forms</b>.</span>
<span style="color:green;">' 5. Start DraftSight.</span>
<span style="color:green;">' 6. Press F5.</span>
<span style="color:green;">'</span>
<span style="color:green;">' Postconditions: </span>
<span style="color:green;">' 1. Connects to DraftSight.</span>
<span style="color:green;">' 2. Gets the active document.</span>
<span style="color:green;">' 3. Creates a Trace.</span>
<span style="color:green;">' 4. Sets the vertex coordinates of the Trace.</span>
<span style="color:green;">' 5. Sets the thickness of the Trace.</span>
<span style="color:green;">' 6. Gets the vertex coordinates of the Trace.</span>
<span style="color:green;">' Click <b>OK</b> to close each message box.</span>
<span style="color:green;">' 7. Gets the thickness of the Trace.</span>
<span style="color:green;">' Click <b>OK</b> to close the message box.</span>
<span style="color:green;">'----------------------------------------------------------------</span>
<span style="color:blue;">Imports</span> System
<span style="color:blue;">Imports</span> DraftSight.Interop.dsAutomation
<span style="color:blue;">Imports</span> System.Runtime.InteropServices
<span style="color:blue;">Imports</span> System.Windows.Forms
<span style="color:blue;">Module</span> <span style="color:#2b91af;">Module1</span>
<span style="color:blue;">Sub</span> Main()
<span style="color:blue;">Dim</span> dsApp <span style="color:blue;">As</span> DraftSight.Interop.dsAutomation.<span style="color:#2b91af;">Application</span>
<span style="color:green;">'Connects to DraftSight application</span>
dsApp = GetObject(, <span style="color:#a31515;">"DraftSight.Application"</span>)
<span style="color:blue;">If</span> dsApp <span style="color:blue;">Is</span> <span style="color:blue;">Nothing</span> <span style="color:blue;">Then</span>
<span style="color:blue;">Return</span>
<span style="color:blue;">End</span> <span style="color:blue;">If</span>
<span style="color:green;">'Aborts any command currently running in DraftSight</span>
<span style="color:green;">'to avoid nested commands</span>
dsApp.<b>AbortRunningCommand</b>()
<span style="color:green;">'Gets active document</span>
<span style="color:blue;">Dim</span> dsDoc <span style="color:blue;">As</span> <span style="color:#2b91af;">Document</span> = dsApp.<b>GetActiveDocument</b>()
<span style="color:blue;">If</span> dsDoc <span style="color:blue;">Is</span> <span style="color:blue;">Nothing</span> <span style="color:blue;">Then</span>
<span style="color:#2b91af;">MessageBox</span>.Show(<span style="color:#a31515;">"There are no open documents in DraftSight."</span>)
<span style="color:blue;">Return</span>
<span style="color:blue;">End</span> <span style="color:blue;">If</span>
<span style="color:green;">'Gets Sketch Manager</span>
<span style="color:blue;">Dim</span> dsSketchMgr <span style="color:blue;">As</span> <span style="color:#2b91af;">SketchManager</span> = dsDoc.GetModel().GetSketchManager()
<span style="color:green;">'Creates array for Trace vertex coordinates</span>
<span style="color:blue;">Dim</span> CoordinatesArray <span style="color:blue;">As</span> <span style="color:blue;">Double</span>() = {0, 0, 0, 5, 5, 0, _
-1, 10, 0, 4, 8, 0}
<span style="color:green;">'Creates Trace</span>
<span style="color:blue;">Dim</span> dsTrace <span style="color:blue;">As</span> <span style="color:#2b91af;">Trace</span> = dsSketchMgr.<b>InsertTrace</b>(CoordinatesArray)
<span style="color:green;">'Sets the Trace vertex coordinates </span>
dsTrace.<b>SetVertex1Coordinate</b>(1.2, 2.0, 0.0)
dsTrace.<b>SetVertex2Coordinate</b>(1.1, 2.3, 0.0)
dsTrace.<b>SetVertex3Coordinate</b>(2.2, 1.0, 0.0)
dsTrace.<b>SetVertex4Coordinate</b>(2.2, 3.0, 0.0)
<span style="color:green;">'Sets Trace thickness</span>
dsTrace.<b>Thickness</b> = 2.0
<span style="color:green;">'Gets Trace vertex coordinates </span>
<span style="color:blue;">Dim</span> X <span style="color:blue;">As</span> <span style="color:blue;">Double</span>, Y <span style="color:blue;">As</span> <span style="color:blue;">Double</span>, Z <span style="color:blue;">As</span> <span style="color:blue;">Double</span>
dsTrace.<b>GetVertex1Coordinate</b>(X, Y, Z)
<span style="color:#2b91af;">MessageBox</span>.Show(<span style="color:#a31515;">"GetVertex1Coordinate: ("</span> + <span style="color:blue;">CType</span>(X, <span style="color:blue;">String</span>) + <span style="color:#a31515;">", "</span> + <span style="color:blue;">CType</span>(Y, <span style="color:blue;">String</span>) + <span style="color:#a31515;">", "</span> + <span style="color:blue;">CType</span>(Z, <span style="color:blue;">String</span>) + <span style="color:#a31515;">")"</span>)
dsTrace.<b>GetVertex2Coordinate</b>(X, Y, Z)
<span style="color:#2b91af;">MessageBox</span>.Show(<span style="color:#a31515;">"GetVertex2Coordinate: ("</span> + <span style="color:blue;">CType</span>(X, <span style="color:blue;">String</span>) + <span style="color:#a31515;">", "</span> + <span style="color:blue;">CType</span>(Y, <span style="color:blue;">String</span>) + <span style="color:#a31515;">", "</span> + <span style="color:blue;">CType</span>(Z, <span style="color:blue;">String</span>) + <span style="color:#a31515;">")"</span>)
dsTrace.<b>GetVertex3Coordinate</b>(X, Y, Z)
<span style="color:#2b91af;">MessageBox</span>.Show(<span style="color:#a31515;">"GetVertex3Coordinate: ("</span> + <span style="color:blue;">CType</span>(X, <span style="color:blue;">String</span>) + <span style="color:#a31515;">", "</span> + <span style="color:blue;">CType</span>(Y, <span style="color:blue;">String</span>) + <span style="color:#a31515;">", "</span> + <span style="color:blue;">CType</span>(Z, <span style="color:blue;">String</span>) + <span style="color:#a31515;">")"</span>)
dsTrace.<b>GetVertex3Coordinate</b>(X, Y, Z)
<span style="color:#2b91af;">MessageBox</span>.Show(<span style="color:#a31515;">"GetVertex4Coordinate: ("</span> + <span style="color:blue;">CType</span>(X, <span style="color:blue;">String</span>) + <span style="color:#a31515;">", "</span> + <span style="color:blue;">CType</span>(Y, <span style="color:blue;">String</span>) + <span style="color:#a31515;">", "</span> + <span style="color:blue;">CType</span>(Z, <span style="color:blue;">String</span>) + <span style="color:#a31515;">")"</span>)
<span style="color:green;">'Gets Trace thickness</span>
<span style="color:blue;">Dim</span> traceThickness <span style="color:blue;">As</span> <span style="color:blue;">Double</span> = 0
traceThickness = dsTrace.<b>Thickness</b>
<span style="color:#2b91af;">MessageBox</span>.Show(<span style="color:#a31515;">"Thickness: "</span> + <span style="color:blue;">CType</span>(traceThickness, <span style="color:blue;">String</span>))
<span style="color:blue;">End</span> <span style="color:blue;">Sub</span>
<span style="color:blue;">End</span> <span style="color:blue;">Module</span>
</pre>
</body>
</html>