[ anebojsa @ 11.03.2005. 19:57 ] @
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"

'cod za tacku

'cod za liniju

'cod za tekst


trazio sam na sajtovima:

www.vbcode.com
www.freevbcode.com
www.a1vbcode.com
www.codearchive.com

par kodova sam nasao i nista mi nije pomoglo.
[ cikiste @ 11.03.2005. 20:36 ] @
Citat:




trazio sam na sajtovima:

www.vbcode.com
www.freevbcode.com
www.a1vbcode.com
www.codearchive.com

par kodova sam nasao i nista mi nije pomoglo.



... ali nisi trazio u helpu. Uz Acad, da ne gresim dusu, verzija 14 ili 2k dolazi veoma dobar help u kome su obradjeni primeri koda u VBA pod Acadom ali i VB-om, Visual Lisp-om i sl. Deo mog diplomskog sam odradio pod VBA Acad 2k i to je sljakalo Ok.

Pozdrav,
Ivan.
[ anebojsa @ 12.03.2005. 21:11 ] @
Zar niko nije pravio vezu izmedju Visual Basic-a i AutoCAD-a?
[ izonic @ 12.03.2005. 23:25 ] @
Private Tacka As AcadPoint
Private Tekst As AcadText
Dim Podatak1(0 To 2) As Double
Dim Podatak2(0 To 2) As Double
'Podatak1(0)=x PODATAK
'Podatak1(1)=y PODATAK
'Podatak1(2)=0 -za 2d crtanje
Set Tacka = Dokument.ModelSpace.AddPoint(Podatak1)
Set Tekst = Dokument.ModelSpace.AddText(BrTacke, Podatak1, 1.5) ' 1.5 visina teksta,Brtacke-tekst
'valjda ce biti jasno.
'sretan rad
[ anebojsa @ 23.03.2005. 18:43 ] @
hvala ti
Prilikom dodavanja dva layera kako da u kodu
pozivam i popunjavam layer(1), odnosno layer(2)