Pricing Learn
Why Gemfury? Push, build, and install  RubyGems npm packages Python packages Maven artifacts PHP packages Go Modules Debian packages RPM packages NuGet packages

bee / draftsight deb

Repository URL to install this package:

Version: 
2016.3.0.4050  ▾
Details    
draftsight / opt / dassault-systemes / DraftSight / APISDK / Create_Highlight_Selection_Set_Example_VBNET.htm
Size: Mime: 
<html>

<head>
<title>Create Highlight Selection Set 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,highlight selection set">

</head>


<body>
<h1>Create Highlight Selection Set Example (VB.NET)</h1>
<p>This example shows how to create a highlight selection set.</p>
<pre style="font-family: Consolas; font-size: 13; color: black; background: white"><span style="color: green">'--------------------------------------------------------------</span>
<span style="color: green">'&nbsp;Preconditions:</span>
<span style="color: green">'&nbsp;&nbsp;1.&nbsp;Create&nbsp;a&nbsp;VB.NET&nbsp;Windows&nbsp;console&nbsp;project.</span>
<span style="color: green">'&nbsp;&nbsp;2.&nbsp;Copy&nbsp;and&nbsp;paste&nbsp;this&nbsp;example&nbsp;into&nbsp;the&nbsp;VB.NET&nbsp;IDE.</span>
<span style="color: green">'&nbsp;&nbsp;3.&nbsp;Add&nbsp;a&nbsp;reference&nbsp;to:</span>
<span style="color: green">'&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<i>install_dir</i><b>\APISDK\tlb\DraftSight.Interop.dsAutomation.dll</b>.</span>
<span style="color: green">'&nbsp;&nbsp;4.&nbsp;Add&nbsp;a&nbsp;reference&nbsp;to&nbsp;<b>System.Windows.Forms</b>.</span>
<span style="color: green">'&nbsp;&nbsp;5.&nbsp;Start&nbsp;DraftSight.</span>
<span style="color: green">'&nbsp;&nbsp;6.&nbsp;Press&nbsp;F5.</span>
<span style="color: green">'</span>
<span style="color: green">'&nbsp;Postconditions:</span>
<span style="color: green">'&nbsp;&nbsp;1.&nbsp;Connects&nbsp;to&nbsp;DraftSight.</span>
<span style="color: green">'&nbsp;&nbsp;2.&nbsp;Gets&nbsp;active&nbsp;document.</span>
<span style="color: green">'&nbsp;&nbsp;3.&nbsp;Gets&nbsp;Sketch&nbsp;Manager.</span>
<span style="color: green">'&nbsp;&nbsp;4.&nbsp;Inserts&nbsp;a&nbsp;Circle&nbsp;and&nbsp;an&nbsp;Arc.</span>
<span style="color: green">'&nbsp;&nbsp;5.&nbsp;Creates&nbsp;an&nbsp;instance&nbsp;of&nbsp;a&nbsp;highlight&nbsp;selection&nbsp;set.</span>
<span style="color: green">'&nbsp;&nbsp;6.&nbsp;Adds&nbsp;Arc&nbsp;to&nbsp;the&nbsp;highlight&nbsp;selection&nbsp;set.</span>
<span style="color: green">'&nbsp;&nbsp;7.&nbsp;Move&nbsp;the&nbsp;pointer&nbsp;over&nbsp;both&nbsp;the&nbsp;Arc&nbsp;and&nbsp;Circle.&nbsp;Only&nbsp;the&nbsp;Arc</span>
<span style="color: green">'&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;is&nbsp;highlighted. Press F5 to continue.</span>
<span style="color: green">'&nbsp;&nbsp;8.&nbsp;Removes&nbsp;Arc&nbsp;from&nbsp;highlight&nbsp;selection&nbsp;set.</span>
<span style="color: green">'&nbsp;&nbsp;9.&nbsp;Adds&nbsp;Circle&nbsp;to&nbsp;highlight&nbsp;selection&nbsp;set.</span>
<span style="color: green">'&nbsp;10.&nbsp;Move&nbsp;the&nbsp;pointer&nbsp;over&nbsp;both&nbsp;the&nbsp;Arc&nbsp;and&nbsp;Circle.&nbsp;Only</span>
<span style="color: green">'&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;the&nbsp;Circle&nbsp;is&nbsp;highlighted.</span>
<span style="color: green">'--------------------------------------------------------------</span>

<span style="color: blue">Imports</span>&nbsp;System
<span style="color: blue">Imports</span>&nbsp;DraftSight.Interop.dsAutomation
<span style="color: blue">Imports</span>&nbsp;System.Runtime.InteropServices
<span style="color: blue">Imports</span>&nbsp;System.Windows.Forms

<span style="color: blue">Module</span>&nbsp;<span style="color: #2b91af">Module1</span>

&nbsp;&nbsp;&nbsp;&nbsp;<span style="color: blue">Sub</span>&nbsp;Main()

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color: blue">Dim</span>&nbsp;dsApp&nbsp;<span style="color: blue">As</span>&nbsp;DraftSight.Interop.dsAutomation.<span style="color: #2b91af">Application</span>

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color: green">'Connect&nbsp;to&nbsp;DraftSight&nbsp;application</span>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;dsApp&nbsp;=&nbsp;<span style="color: blue">DirectCast</span>(<span style="color: #2b91af">Marshal</span>.GetActiveObject(<span style="color: #a31515">&quot;DraftSight.Application&quot;</span>),&nbsp;DraftSight.Interop.dsAutomation.<span style="color: #2b91af">Application</span>)

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color: blue">If</span>&nbsp;dsApp&nbsp;<span style="color: blue">Is</span>&nbsp;<span style="color: blue">Nothing</span>&nbsp;<span style="color: blue">Then</span>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color: blue">Return</span>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color: blue">End</span>&nbsp;<span style="color: blue">If</span>

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color: green">'Abort&nbsp;any&nbsp;command&nbsp;currently&nbsp;running&nbsp;in&nbsp;DraftSight&nbsp;to&nbsp;avoid&nbsp;nested&nbsp;commands</span>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;dsApp.<b>AbortRunningCommand</b>()

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color: green">'Get&nbsp;active&nbsp;document</span>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color: blue">Dim</span>&nbsp;dsDoc&nbsp;<span style="color: blue">As</span>&nbsp;<span style="color: #2b91af">Document</span>&nbsp;=&nbsp;dsApp.<b>GetActiveDocument</b>()
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color: blue">If</span>&nbsp;dsDoc&nbsp;<span style="color: blue">Is</span>&nbsp;<span style="color: blue">Nothing</span>&nbsp;<span style="color: blue">Then</span>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color: #2b91af">MessageBox</span>.Show(<span style="color: #a31515">&quot;There&nbsp;are&nbsp;no&nbsp;open&nbsp;documents&nbsp;in&nbsp;DraftSight.&quot;</span>)
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color: blue">Return</span>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color: blue">End</span>&nbsp;<span style="color: blue">If</span>

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color: green">'Get&nbsp;Sketch&nbsp;Manager</span>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color: blue">Dim</span>&nbsp;dsSketchMgr&nbsp;<span style="color: blue">As</span>&nbsp;<span style="color: #2b91af">SketchManager</span>&nbsp;=&nbsp;dsDoc.<b>GetModel</b>().<b>GetSketchManager</b>()

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color: green">'Draw&nbsp;a&nbsp;Circle&nbsp;and&nbsp;Arc</span>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color: blue">Dim</span>&nbsp;dsCircle&nbsp;<span style="color: blue">As</span>&nbsp;<span style="color: #2b91af">Circle</span>&nbsp;=&nbsp;dsSketchMgr.<b>InsertCircle</b>(5.0,&nbsp;5.0,&nbsp;0.0,&nbsp;10.0)
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color: blue">Dim</span>&nbsp;dsCircleArc&nbsp;<span style="color: blue">As</span>&nbsp;<span style="color: #2b91af">CircleArc</span>&nbsp;=&nbsp;dsSketchMgr.<b>InsertArc</b>(7.5,&nbsp;7.5,&nbsp;0.0,&nbsp;10.0,&nbsp;2.5,&nbsp;5.0)
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;dsApp.<b>Zoom</b>(<span style="color: #2b91af">dsZoomRange_e</span>.dsZoomRange_Bounds,&nbsp;<span style="color: blue">Nothing</span>,&nbsp;<span style="color: blue">Nothing</span>)

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color: green">'Create&nbsp;highlight&nbsp;selection set</span>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color: blue">Dim</span>&nbsp;dsEntities&nbsp;<span style="color: blue">As</span>&nbsp;<span style="color: #2b91af">DispatchWrapper</span>()&nbsp;=&nbsp;<span style="color: blue">New</span>&nbsp;<span style="color: #2b91af">DispatchWrapper</span>(0)&nbsp;{}
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;dsEntities(0)&nbsp;=&nbsp;<span style="color: blue">New</span>&nbsp;<span style="color: #2b91af">DispatchWrapper</span>(dsCircleArc)

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color: blue">Dim</span>&nbsp;dsHighlightSet&nbsp;<span style="color: blue">As</span>&nbsp;<span style="color: #2b91af">HighlightSet</span>&nbsp;=&nbsp;dsDoc.<b>CreateHighlightSet</b>(dsEntities)
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;dsHighlightSet.<b>Highlight</b>&nbsp;=&nbsp;<span style="color: blue">True</span>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;dsDoc.<b>Rebuild</b>(<span style="color: #2b91af">dsRebuildType_e</span>.dsRebuildType_AllViewports)


&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;System.Diagnostics.<span style="color: #2b91af">Debugger</span>.Break()
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color: green">'Move&nbsp;pointer&nbsp;over&nbsp;the&nbsp;Arc&nbsp;and&nbsp;Circle</span>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color: green">'Only&nbsp;the&nbsp;Arc&nbsp;is&nbsp;highlighted
        'Press F5 to continue</span>

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color: green">'Remove&nbsp;entities&nbsp;from&nbsp;highlight selection&nbsp;set</span>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;dsHighlightSet.<b>RemoveEntities</b>(dsEntities)
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;dsDoc.<b>Rebuild</b>(<span style="color: #2b91af">dsRebuildType_e</span>.dsRebuildType_AllViewports)


&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color: green">'Add&nbsp;Circle&nbsp;to&nbsp;highlight selection&nbsp;set</span>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;dsEntities.<b>Initialize</b>()
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;dsEntities(0)&nbsp;=&nbsp;<span style="color: blue">New</span>&nbsp;<span style="color: #2b91af">DispatchWrapper</span>(dsCircle)
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;dsHighlightSet.<b>AddEntities</b>(dsEntities)
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;dsHighlightSet.<b>Highlight</b>&nbsp;=&nbsp;<span style="color: blue">True</span>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;dsDoc.<b>Rebuild</b>(<span style="color: #2b91af">dsRebuildType_e</span>.dsRebuildType_AllViewports)

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color: green">'Move&nbsp;pointer&nbsp;over&nbsp;the&nbsp;Arc&nbsp;and&nbsp;Circle</span>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color: green">'Only&nbsp;the&nbsp;Circle&nbsp;is&nbsp;highlighted</span>

&nbsp;&nbsp;&nbsp;&nbsp;<span style="color: blue">End</span>&nbsp;<span style="color: blue">Sub</span>
<span style="color: blue">End</span>&nbsp;<span style="color: blue">Module</span>
</pre>

</body>

</html>

Products

About

Resources

Contact Gemfury