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_Attach_Hyperlink_Example_VBNET.htm
|
|---|
<html>
<head>
<title>Create and Attach HyperLink 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,HyperLinks">
<meta name=MS-HKWD content="VB.NET examples,Circles">
</head>
<body>
<h1>Create and Attach HyperLink Example (VB.NET)</h1>
<p>This example shows how to create and attach a HyperLink to a Circle.</p>
<p> </p>
<div style="font-family:Monospace; font-size: 10pt; background-color: white;">
<p class="APICODE"><span style="color:Green">
'--------------------------------------------------------------<br>
' Preconditions:<br>
' 1. Create a VB.NET Windows console project.<br>
' 2. Copy and paste this example into the VB.NET IDE.<br>
' 3. Add a reference to:<br>
' <i>install_dir</i>\<b>APISDK\tlb\DraftSight.Interop.dsAutomation.dll</b>.<br>
' 4. Add references to <b>System</b> and <b>System.Windows.Forms</b>.<br>
' 5. Start DraftSight and open a drawing document.<br>
' 6. Click Start Debugging.<br>
'<br>
' Postconditions:<br>
' 1. A Circle is constructed in the drawing document.<br>
' 2. A HyperLink is created and attached to the Circle.<br>
' 3. In DraftSight, put the cursor on the Circle to see the<br>
' the hyperlink and Ctrl+click to open DraftSight's website.<br>
'----------------------------------------------------------------<br>
</span><span style="color:Blue">Imports</span><span style="color:Black">
System.Collections.Generic<br>
</span><span style="color:Blue">Imports</span><span style="color:Black">
System.Text<br>
</span><span style="color:Blue">Imports</span><span style="color:Black">
DraftSight.Interop.dsAutomation<br>
</span><span style="color:Blue">Imports</span><span style="color:Black">
System.Runtime.InteropServices<br>
</span><span style="color:Blue">Imports</span><span style="color:Black">
System.Windows.Forms<br>
</span><span style="color:Blue">Imports</span><span style="color:Black">
System.Diagnostics<br>
<br>
<br>
</span><span style="color:Blue">Module</span><span style="color:Black">
Module1<br>
<br>
</span><span style="color:Blue">Sub</span><span style="color:Black">
Main()<br>
<br>
</span><span style="color:Blue">Dim</span><span style="color:Black">
dsDoc </span><span style="color:Blue">As</span><span style="color:Black">
Document<br>
</span><span style="color:Blue">Dim</span><span style="color:Black">
dsModel </span><span style="color:Blue">As</span><span style="color:Black">
Model<br>
</span><span style="color:Blue">Dim</span><span style="color:Black">
dsSketchManager </span><span style="color:Blue">As</span><span style="color:Black">
SketchManager<br>
</span><span style="color:Blue">Dim</span><span style="color:Black">
dsCircle </span><span style="color:Blue">As</span><span style="color:Black">
Circle<br>
</span><span style="color:Blue">Dim</span><span style="color:Black">
centerX, centerY, centerZ, radius </span><span style="color:Blue">As</span><span style="color:Black">
</span><span style="color:Blue">Double<br>
<br>
</span><span style="color:Black"> </span><span style="color:Green">'Connect
to DraftSight<br>
</span><span style="color:Black"> </span><span style="color:Blue">Dim</span><span style="color:Black">
dsApp = GetObject(, </span><span style="color:#a31515">"DraftSight.Application"</span><span style="color:Black">)<br>
dsApp.AbortRunningCommand() ' </span>
abort any command currently running in DraftSight to avoid nested commands<span style="color:Black"><br>
<br>
</span><span style="color:Green">'Get active document<br>
</span><span style="color:Black"> dsDoc = dsApp.<b>GetActiveDocument</b>()<br>
</span><span style="color:Blue">If</span><span style="color:Black">
</span><span style="color:Blue">Not</span><span style="color:Black"> dsDoc
</span><span style="color:Blue">Is</span><span style="color:Black"> </span>
<span style="color:Blue">Nothing</span><span style="color:Black"> </span>
<span style="color:Blue">Then<br>
<br>
</span><span style="color:Black"> </span><span style="color:Green">'Get
model space<br>
</span><span style="color:Black"> dsModel = dsDoc.<b>GetModel</b>()<br>
<br>
</span><span style="color:Green">'Get Sketch Manager<br>
</span><span style="color:Black"> dsSketchManager = dsModel.<b>GetSketchManager</b>()<br>
<br>
</span><span style="color:Green">'Circle parameters<br>
</span><span style="color:Black"> centerX = 1.0#<br>
centerY = 2.0#<br>
centerZ = 0.0#<br>
radius = 5.0#<br>
<br>
</span><span style="color:Green">'Construct a Circle<br>
</span><span style="color:Black"> dsCircle = dsSketchManager.<b>InsertCircle</b>(centerX,
centerY, centerZ, radius)<br>
<br>
</span><span style="color:Green">'Create and attach HyperLink to
Circle<br>
</span><span style="color:Black"> </span><span style="color:Blue">Dim</span><span style="color:Black">
startCornerX </span><span style="color:Blue">As</span><span style="color:Black">
</span><span style="color:Blue">Double<br>
</span><span style="color:Black"> startCornerX = 0.0#<br>
</span><span style="color:Blue">Dim</span><span style="color:Black">
startCornerY </span><span style="color:Blue">As</span><span style="color:Black">
</span><span style="color:Blue">Double<br>
</span><span style="color:Black"> startCornerY = 0.0#<br>
</span><span style="color:Blue">Dim</span><span style="color:Black">
startCornerZ </span><span style="color:Blue">As</span><span style="color:Black">
</span><span style="color:Blue">Double<br>
</span><span style="color:Black"> startCornerZ = 0.0#<br>
</span><span style="color:Blue">Dim</span><span style="color:Black">
oppositeCornerX </span><span style="color:Blue">As</span><span style="color:Black">
</span><span style="color:Blue">Double<br>
</span><span style="color:Black"> startCornerX = 0.0#<br>
</span><span style="color:Blue">Dim</span><span style="color:Black">
oppositeCornerY </span><span style="color:Blue">As</span><span style="color:Black">
</span><span style="color:Blue">Double<br>
</span><span style="color:Black"> startCornerY = 0.0#<br>
</span><span style="color:Blue">Dim</span><span style="color:Black">
oppositeCornerZ </span><span style="color:Blue">As</span><span style="color:Black">
</span><span style="color:Blue">Double<br>
</span><span style="color:Black"> startCornerZ = 0.0#<br>
</span><span style="color:Blue">Dim</span><span style="color:Black">
hyperLinkAddress </span><span style="color:Blue">As</span><span style="color:Black">
</span><span style="color:Blue">String<br>
</span><span style="color:Black"> hyperLinkAddress = </span>
<span style="color:#a31515">"http://www.3ds.com/products/draftsight/free-cad-software/"<br>
</span><span style="color:Black"> </span><span style="color:Blue">Dim</span><span style="color:Black">
description </span><span style="color:Blue">As</span><span style="color:Black">
</span><span style="color:Blue">String<br>
</span><span style="color:Black"> description = </span>
<span style="color:#a31515">"DraftSight's website"<br>
</span><span style="color:Black"> </span><span style="color:Blue">Dim</span><span style="color:Black">
ds3DPolyLine </span><span style="color:Blue">As</span><span style="color:Black">
PolyLine3D<br>
</span><span style="color:Blue">Dim</span><span style="color:Black">
dsHyperLink </span><span style="color:Blue">As</span><span style="color:Black">
HyperLink<br>
<br>
dsHyperLink = dsSketchManager.<b>AttachLinkToArea</b>(startCornerX,
startCornerY, startCornerZ, oppositeCornerX, oppositeCornerY,
oppositeCornerZ, hyperLinkAddress, description, ds3DPolyLine)<br>
dsCircle.<b>SetHyperLink</b>(dsHyperLink)<br>
<br>
</span><span style="color:Blue">Else<br>
<br>
</span><span style="color:Black"> MsgBox(</span><span style="color:#a31515">"There
are no open documents in DraftSight."</span><span style="color:Black">)<br>
<br>
</span><span style="color:Blue">End</span><span style="color:Black">
</span><span style="color:Blue">If<br>
</span><span style="color:Black"> </span><span style="color:Blue">End</span><span style="color:Black">
</span><span style="color:Blue">Sub<br>
<br>
<br>
End</span><span style="color:Black"> </span><span style="color:Blue">Module<br>
</span></div>
<p> </p>
</body>
</html>