Arial
Symbol
Times New Roman
MS LineDraw
Brush Script MT
Century Gothic
Wingdings
Monotype Sorts
hp deskjet 845c series
winspool
USB002
UUUUU
UUUUU5
CAD Drawing CAD Drawing
Black fill
White fill
Blue fill
Red fill
Green fill
Cyan fill
Yellow fill
Magenta fill
Gray fill
10% Gray fill
White line
30% Gray fill
Long dashed line
Blue dark fill
Cyan dark fill
Green dark fill
Magenta dark fill
Red dark fill
Yellow dark fill
50% Gray fill
70% Gray fill
90% Gray fill
1pxl line
3pxl line
9pxl line
Hairline
Short dashed line
Arial centered
Arial top left
Arial top
Times centered
Times top
Times top left
Dimension
CONTINUOUS
BORDER
BORDER2
BORDERX2
CENTER
CENTER2
CENTERX2
DASHDOT
DASHDOT2
DASHDOTX2
DASHED
DASHED2
DASHEDX2
DIVIDE
DIVIDE2
DIVIDEX2
DOT2
DOTX2
HIDDEN
HIDDEN2
HIDDENX2
PHANTOM
PHANTOM2
PHANTOMX2
DEFAULT LINE STYLE
DEFAULT FONT
GREEKC
GREEKS
ITALICC
ITALICT
ROMAND
ROMANC
GOTHICE
GOTHICG
GOTHICI
Guide
Gesture Format
ROMANS
ROMANT
SCRIPTS
SCRIPTC
CYRILLIC
CYRILTLC
SYASTRO
SYMATH
SYMUSIC
SYMAP
SYMETEO
CITYBLUEPRINT
COUNTRYBLUEPRINT
EUROROMAN
EUROROMANOBLIQUE
PANROMAN
ROMANTIC
ROMANTICBOLD
ROMANTICITALIC
SANSSERIF
SANSSERIFBOLD
SANSSERIFBOLDOBLIQUE
SANSSERIFOBLIQUE
SUPERFRENCH
TECHNIC
TECHNICBOLD
TECHNICLIGHT
MONOTXT
Extras
Tail Brace fittings
Rudder Fittings
Upper Motor Mount
Cabane Fitting
Rudder Fittings +
Motor & Drag Mounts
Cabane/Transport Fitting
Tail Wheel
Aileron Horn
Aileron Control Horn
Quick Connect
Toe Brakes
Rudder Post
Rudder Post/Engine Mount
Undercarriage
Undercarriage Front
Undercarriage Rear
Elevator Pulley
Struts
AcadExport
Elevator Horn Mk 2
Attribut
e VB_Nam
e = "Use
rForm1"
D29F753A
6C-BBF6-
580DE1B9
DCF5}{3D
-AB86-D6
39FBC108
dGlob
Spac
o False
Cr@eatabl
redecla
BE`xpose
emplateD
eriv
Cus tomiz
" Sub
Command
Button1_
Click()
Begin
CAD drawing conversion option has not been installed.
ConvertCADDrawing
ConvertCADLibrary
\Solutions\Visio Extras
\dwgcnvt.dll
LocalizeEnd
Create a new document to import into
based on this vst if available
_dwgcnvt.vst
Import the drawing into current Visio file (the one just opened)
Change file to .VSD extension and save the current document
.VSD
The save might fail, in which case we'll just go on
Now get the next filename and repeat
ConvertCADFiles Error:
e = "Thi
sDocumen
|Global
dCreat
Pred
ecla
BExpo
Templ
ateDeriv
Bustomi
calizeBe
st strEr
rorMsg AHs S
AD drawi
convers
ion opt
has not @been i
$a`lled.
lgTitleDw
ibrary
Path
Solu
i@0 Extra
File
\dwgcnvt0.dll@
FOEn
:cdl
OFNAllow
MultiselHect
R&pH200E[C
orerJ
HideRead
Func
<(ByV
User
Form1.Co
mmonDial
og1.f
`Flags
OO|r #
howOpe b!
aCy.s
:Max
7getp`
ltdDim
next
vbNullC
har)
0) ThES
=@ Empty
Left
Righg
Localize
aremo
~I7Sub
To ERR_H
ANDLER
IMd3)
eD a0Pw d
to impor
Re2s
if ava
s.Add(|"_%
<>a .Num
t$he
cu4rr
one j
0ened
G2Shapes>
.VSD )
Inte
ystem
.Dir(
3 which
we'll3
On Error
Resume
Next
Visio.Ac
tiveDoc
nt.SaveA
s (filen0ame)
' Now
get the
T and
repea
{(path
Wend
exit_(pt:
S<ub
gBox "Co
nvertCAD
.Descr
iption
Private
DWG2Sha(pes
St0ring
rev = Ap plica
ndoEnabl
Fals
'If Le
\A{Dim
"Cnvt
nEngin
= Nxew
Import
Draw@>G
#.OpenF|or
Sel>e
Librpary(
s(st
rDlgTitl
xXrC
Wh i 0(Not
pty)*
Lg@oAX
Qng{QK
lock
Visio
Win16
Win32
VBA6
Project_dwgcnvti0
stdole
DWG32Lib*
MSFormsC
ThisDocument<
_Evaluate
strErrorMsg
strDlgTitleDrawingZy
strDlgTitleLibraryi
strPathl
strFileName
cdlOFNAllowMultiselect
cdlOFNExplorer
cdlOFNHideReadOnly
cdlOFNLongNamesP
GetFileName
strDlgTitle[
UserForm1)
CommonDialog1
filenamej
DialogTitle
Flags
ShowOpen
GetFileNamesS
MaxFileSizeT
getpathT
names
nextpos
vbNullChar
Right
removeext
getname
path2
nextname
DoConvertCADDrawings
ERR_HANDLERl
filenames
Documentj
Documents
Erro
Number
DWG2Shapes(
savenameH
versJ6
FileSystem
ActiveDocument
SaveAsf;
exit_pt?j
MsgBox
Description
bprev
Application
UndoEnabled
CnvtConversionEngine
CnvtImportDrawing
OpenForImport
slctv
SelectionZ
ConvertToShapes
DoConvertCADLibrary
blocks
CnvtBlocksWC
block
CnvtBlock
Count0v
Master
ConvertToMaster,
OpenStencilWindowkN
HaveDwgConverterY
vbCritical+}
ConvertCADDrawings9
strFile X
CommandButton1_Click
lenames
Project_
dwgcnvti
9st dole>
:\NT40\S
ystem32\
STDOLE2.
TLB#
tomation!
G32Lib>
3F425-DC
GA02@495E31
GF:\ICAD
\PRJ\MAK
E\DEBUG\
7CNVT.DLDL#
^ Type
MSForms>
D452EE1
608C4D0B
WINNT!GIFM20B#Mi
crosoft 3
CDB33C52
C1-B4BF-
0EB4AFA4
-DOW
S\TEMP\V
G.exd
ThisDocu
mentG
u@ae
ID="{014F503C-46D4-11D3-8D49-00C04F6B8351}"
Document=ThisDocument/&H00000000
BaseClass=UserForm1
Name="Project_dwgcnvti"
HelpContextID="0"
VersionCompatible32="393222000"
CMG="C0C25C5A605A605A605A60"
DPB="DAD8466E616F616F61"
GC="F4F6688898A399A3995C"
[Host Extender Info]
&H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000
[Workspace]
ThisDocument=0, 0, 0, 0, C
UserForm1=0, 0, 0, 0, C, 22, 22, 982, 679, C
ThisDocument
UserForm1
CommonDialog1?
Microsoft Forms 2.0 Form
Embedded Object
Forms.Form.1
VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserForm1
Caption = "UserForm1"
ClientHeight =
ClientLeft = 45
ClientTop = 330
ClientWidth = 1725
StartUpPosition = 1 'CenterOwner
TypeInfoVer = 3
@yo C
Zun(
Mastenr
i)Gb
Stencil
nPub
Dwgd
er)m
, vbCr
l, ot
xoUoFun%BX m
()Q)Bo
olea
uDir3