Potrebno je samo da u VBA u ekselu, odes na tools, pa references i da dodas autoked library i tako iz VBA u ekselu mozes pristupati autokedovim objektima i jedino jos sto je potrebno je da u samom u kodu definises autoked aplikaciju, evo kako:
Dim Autoked As AcadApplication
Dim acadCrtez As AcadDocument
Set Autoked = GetObject(, "AutoCAD.Application") 'ovako je u slucaju da je ked vec pokrenut
Set acadCrtez = Autoked.ActiveDocument 'ovo je crtez (drawing) u kome se radi
'u slucaju da ked nije pokrenut onda je ovako
'ovako se pokrece ked automatski
Dim Autoked As AcadApplication
Dim acadCrtez As AcadDocument
On Error Resume Next
Set Autoked = GetObject(, "AutoCAD.Application")
If Err.Number = 429 Then
Application.StatusBar = "Pokrecem Autoked, sacekaj..." 'obavestavanje u status baru o trenutnom radu koda
Set Autoked = New AcadApplication
Autoked.Documents.Add
Autoked.Visible = True 'definisanje da se ked vidi
Else
End If
Set acadCrtez = Autoked.ActiveDocument
Application.StatusBar = "" 'praznis status bar
Posle ovoga mozes da crtas objekte u kedu u zavisnosti od vrednosti u odredjenim celijama u ekselu. Pokreni u VBA object browser (F2) i oznaci samo kedovu biblioteku i vidi kako se dodaju objekti u kedu.
[Excel] Povezivanje Excela sa AutoCAD ?
eto malo i egzibicija
Re: [Excel] Povezivanje Excela sa AutoCAD ?