Software de topografia - geodésia - georeferenciamento de imoveis ::: ActiveX

ActiveX do TopoHAM, dll's de importação de dados.

As classes de importação do TopoHAM é baseado em activex dll, é destinada para programadores e usuários de nível avançados. Podendo ser acessado em qualquer software da microsoft como: Word, Excel, Power Point, entre outros, inclusive da AutoDesk (AutoCAD), desde que as mesmas possua o Visual Basic Editor Instalado na aplicação.
A ferramenta de programação para acesso das bibliotecas (dll) é o Visual Basic, caso possua outra Ferramenta que aceite não testamos ainda. Utilize 'Regsrv32.exe ImportCadHAM.dll' em executar para registrar a dll.
  Veja Abaixo algumas funções:


As dll´s está disponível para dowload, Importação_TopoHAM_CAD.zip

Sub Inserir_Dados_TopoHAM_CAD()
Dim clsImp As clsImpTopoHAMCAD
  Set clsImp = New clsImpTopoHAMCAD
  Arquivo = App.Path
  If Right(Arquivo, 1) <> "\" Then Arquivo = Arquivo & "\"

  For i = 1 To 100
    nArq = Arquivo & "Arquivo Importado" & i & ".ham"
    If Dir$(nArq) = "" Then Exit For
  Next
  Arquivo = nArq

  clsImp.CriarBanco_Cad Arquivo

  clsImp.CamadaSalvar_CAD "CurvaMestra", 1, vbRed, 1, True, True
  clsImp.CamadaSalvar_CAD "Coord_Geograficas", 1, vbBlue, 1, True, True

  '--Carregar Pontos  Dim TotalPontos&, NomePto$(), DescPto$(), CamPto$(), EspPto#(), EstPto(), XPto#(), YPto#(), ZPto#()   ReDim NomePto$(3), DescPto$(3), CamPto$(3), EspPto#(3), EstPto(3), XPto#(3), YPto#(3), ZPto#(3)         TotalPontos& = TotalPontos& + 1   NomePto$(TotalPontos) = "E1": XPto(TotalPontos) = 566048.7185: YPto(TotalPontos) = 8173492.6843: ZPto(TotalPontos) = 551.0528:   DescPto(TotalPontos) = "Estação": CamPto(TotalPontos) = "Estação": EspPto#(TotalPontos) = 0: EstPto#(TotalPontos) = 3   TotalPontos& = TotalPontos& + 1   NomePto$(TotalPontos) = "1": XPto(TotalPontos) = 566160.88: YPto(TotalPontos) = 8173638.37: ZPto(TotalPontos) = 556#:   DescPto(TotalPontos) = "Detalhe": CamPto(TotalPontos) = "Detalhe": EspPto#(TotalPontos) = 0: EstPto#(TotalPontos) = 4   TotalPontos& = TotalPontos& + 1   NomePto$(TotalPontos) = "2": XPto(TotalPontos) = 566157.9614: YPto(TotalPontos) = 8173634.2562: ZPto(TotalPontos) = 556.3341:   DescPto(TotalPontos) = "Entrada": CamPto(TotalPontos) = "Entrada": EspPto#(TotalPontos) = 0: EstPto#(TotalPontos) = 5         For i = 1 To TotalPontos    clsImp.CamadaSalvar_CAD CamPto(i), 1, vbWhite, 1, True, True   Next         Call Pontos(TotalPontos&, NomePto$(), DescPto$(), CamPto$(), EspPto#(), EstPto(), XPto#(), YPto#(), ZPto#())   '---Salvar Pontos   For i = 1 To TotalPontos     Call clsImp.PontoSalvar_CAD(XPto(i), YPto(i), ZPto(i), DescPto(i), CamPto(i), NomePto(i), EstPto(i), EspPto(i))   Next      '---Carregar Spline   Call Spline(TotalSpline&, CamSpl$(), DescSpl$(), SegSpl(), XSpl#(), YSpl#(), ZSpl#())   '---Salvar Spline   For i = 1 To TotalSpline     Call clsImp.SplineSalvar_CAD(CamSpl(i), XSpl(i), YSpl(i), ZSpl(i), DescSpl(i), SegSpl(i))   Next      '---Carregar Linha   Call Linha(TotalLinha&, DescLnh$(), CamLnh$(), EstLnh(), EspLnh$(), SegLnh(), XLnh#(), YLnh#(), ZLnh#())   '---Salvar Linha   For i = 1 To TotalLinha     Call clsImp.LinhaSalvar_CAD(XLnh(i), YLnh(i), ZLnh(i), SegLnh(i), DescLnh(i), CamLnh(i), EspLnh(i), EstLnh(i))   Next      '---Carregar Texto   Call TextoS(TotalTexto&, CamTxt$(), Fonte(), DescTxt$(), XTxt#(), YTxt#(), AngTxt#(), Texto$(), AltTxt())   '---Salvar Texto   For i = 1 To TotalTexto     Call clsImp.TextoSalvar_CAD(Texto(i), CamTxt(i), Fonte(i), AltTxt(i), False, False, False, 0, XTxt(i), YTxt(i), AngTxt(i), DescTxt(i))   Next      '---Carregar Circulo   Call Circulo(TotalCirculo&, CamCirc$(), XCirc#(), YCirc#(), AICirc#(), AFCirc#(), RaioCirc#(), DescCirc())   '---Salvar Circulo   For i = 1 To TotalCirculo     Call clsImp.CirculoSalvar_CAD(CamCirc(i), XCirc(i), YCirc(i), RaioCirc(i), DescCirc(i), AICirc(i), AFCirc(i))   Next      clsImp.FecharBanco_CAD   Set clsImp = Nothing   MsgBox "Importação Terminada.", 64
End Sub

www.topoham.com.br®