Pisanje dodatnih potprograma i alatki za AutoCAD pomocu VBA…

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Zeleo bih da napravim neke dodatne alatke koje AutoCAD nema a meni bi bile od koristi. To su alatke tipa, recimo:
- Da na crtezu pored pocetne i krajnje tacke linije napise njihove koordinate
- Da sracuna duzinu linije i napise je na liniji
- Da sracuna duzinu polilinije po segmentima I to zapise u vidu stacionaze



Trazeci na netu nasao sam da to moze da se uradi u raznim programima a najpogodniji su VBA i LISP (u LIPS-u je valjda AutoCAD i napisan)…
VBA koristi uglavnom kodove kao i VB a sa njim imam uskustva, poznat mi je kod, pa bi mi on vise odgovarao…

Da li ima neko ko je pravio slicne dodatne alatke, onosno aplikacije za AutoCAD…?
Potreban mi je samo pocetak, tj. Kako da uspostavim vezu izmedju AutoCAd-a i tog programcica koji napisem, kako da ga pozivam, posle cu ja sam “provaljivati” kako stvari funkcionisu…

Neka literatura ili tutorijali na srpskom za takve probleme bi bili od koristi…?

Hvala unapred…

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Uloguj se preko Facebooka da bi skinuo fajl:

Možda je malo kasno da odgovaram, ali...

Ja sam svojevremeno ispitivao mogučnosti povezivanja AutoCADa i VisualBasica (VB6), i uspio sam uraditi neke stvari.

Postoje dva načina, prvi da koristiš VBA ugrađen u samom autocadu a drugi je da direktno iz svoje visualbasic aplikacije upravljaš sa radom autocada.

U svojoj arhivi pronasao sam ovo uputstovo:
[Link mogu videti samo ulogovani korisnici]

Ja sam radio na drugi nacin i evo sada jednog primjera jednostavnog koji radi iz VB6 i AutoCad2000
Postavis formu sa tri tekst polja, i jednim dugmetom:

Private Sub Command1_Click()   Dim acad As New AcadApplication     acad.Visible = True     '     Dim circleObj As AcadCircle     Dim centerPoint(0 To 2) As Double     Dim radius As Double     '     centerPoint(1) = Val(Text1.Text)     centerPoint(1) = Val(Text2.Text)     centerPoint(2) = 0#     radius = Val(Text3.Text)     '     Set circleObj = acad.ActiveDocument.ModelSpace.AddCircle(centerPoint, radius)     ZoomAll ' End Sub
Naravno potrebno je da na racunaru imas instalisan ACAD 2000 i da projektu dodas referencu na AcadApplication.

Ovaj primjer nisam provjeravao za novije verzije autocada.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Naravno da nije kasno...

Ovih dana cu malo prouciti ovu skripticu i ovaj primer koji si okacio, samo da dobijem malo slobodnog vremena pored faxa... Pa se javljam ukoliko budem imao nekih vecih problema...

Zahvaljujem se na pomoci...