No, there are no dll's created. I compile it to an executable (.exe).
VB6 is 32bit. Until version Civil2014 this worked fast enough (although I can see that in Civil2010 32bit the code acts faster), now in Civil2015 it is that slow, I'm currently advising not to update to this newer version.
In the code I use the GetObject function to get a COM-access with AutoCAD (there are no hard references, because we use version Acad2000 until the newest.)
Public AcadApp As Object 'The AutoCAD application object
Public AcadDoc As Object 'The AutoCAD document (drawing) object
Public AcadMod As Object 'The model space object collection
'v(i) is an array of Acad-versions
v(26) = "18.2" 'Acad2012
v(27) = "19" 'Acad2013
v(28) = "19.1" 'Acad2014
v(29) = "20" 'Acad2015
Set AcadApp = GetObject(, "AutoCad.Application." & v(i))
Set AcadDoc = AcadApp.ActiveDocument
Set AcadMod = AcadDoc.ModelSpace
For instance getting all the layernames in a Acad-document into an array takes much longer.
Public Function Check_Layer(ByVal LayerName As String)
'Check if Layer exists. If not: create
Dim i As Integer, Index As Integer
Dim L As String
If LayerName = "" Then Exit Function
Index = -1
For i = 0 To AcadDoc.Layers.Count - 1
L = LCase(AcadDoc.Layers(i).Name)
If L = LCase(LayerName) Then
Index = i
Exit For
End If
Next i
If Index = -1 Then
AcadDoc.Layers.Add (LayerName)
End If
End Function
I make routines that place Text-objects in the drawing that takes up 10times more time than before.
Public Function Draw_TextC(ByVal Coords3D, TextHeight as Double) as Object
Dim oText As Object
Dim c(0 To 2) As Double
Dim i As Integer
'Coords3D is an array of variants. It HAS to be Double
For i = 0 To 2
c(i) = Coords3D(i)
Next i
Set oText= AcadMod.AddText(Text, c, TextHeight)
Set Draw_TextC = oText
End Function
When put the upper draw-routine in a for-next it runs very very slow.
