Hteo bih preko VB-a da unesem neki podatak u AutoCAD
potreban mi je kod za:
- tacku
- liniju
- tekst
'zakacena referenca AutoCAD Object Library
'Template Drawing.dwt
Option Explicit
Public acApp As Object 'Aplikacija
Public acDoc As Object 'Dokument
Public acPoi As AutoCAD.IAcadPoint 'tacka
Public acLin As AutoCAD.IAcadLine 'linija
Public acTex As AutoCAD.IAcadText 'tekst
Private Sub Form_Load()
Set acApp = CreateObject("Autocad.Application")
Set acDoc = acApp.ActiveDocument
acApp.Visible = False
acDoc.Open App.Path & "\Drawing.dwt"
'kod za tacku
'kod za liniju
'kod za tekst
...
potreban mi je kod za:
- tacku
- liniju
- tekst
'zakacena referenca AutoCAD Object Library
'Template Drawing.dwt
Option Explicit
Public acApp As Object 'Aplikacija
Public acDoc As Object 'Dokument
Public acPoi As AutoCAD.IAcadPoint 'tacka
Public acLin As AutoCAD.IAcadLine 'linija
Public acTex As AutoCAD.IAcadText 'tekst
Private Sub Form_Load()
Set acApp = CreateObject("Autocad.Application")
Set acDoc = acApp.ActiveDocument
acApp.Visible = False
acDoc.Open App.Path & "\Drawing.dwt"
'kod za tacku
'kod za liniju
'kod za tekst
...