Programiranje Autocad VBA

[Jože]

Zanima če obstaja kakšna firma v Sloveniji ki izvaja tečaja iz programiranja Autocad VBA? Rad bi se naučil osnov programiranja.
Ali obstaja kakšna literatura v Slovenščini ali Angleščini, ki bi se dala dobit?
Ali kdo ve za kakšen dober link do vaj in primerov programiranja?

LP
Jože

[gregorci]

Če se ne motim obstaja knjiga v angleščini...

naslova se ne spomnim, videl pa sem jo v CTK-ju

Kratka šola VBA-ja za Acad je izhajala v eni od specializiranih revij za kreativno računalništvo ( nič reklame)

v slovenčšini pa take knjige še nisem zasledil...do sedaj!

LP

[gost]

Zdravo

Sem nakljucni obiskovalec foruma tko da...
Jest sm uporabljal za res zacetek VBA AutoCAd. Knjigo ne vem če bos najdu v CTK ali v Ljubljan, jest sm jo narocu iz Maribora.
Je pa res da je VBA skrajsana razlicica Visal Basica.
VB podpira programiranje v Acadu, tko da ce hoces stvari spreminjat v aplikacije ti svetujem da se naucis VB.
Andrej

[Rok]

Jaz sem se začel nekaj matrati v VBA pa imam eno vprašanje - če kdo ve...

Imam eno rutino ki se avtomatsko zažene pred printanjem:

Koda: Izberi vse

 Sub AcadDocument_BeginPlot(ByVal DrawingName As String)

  Dim varAttributes As Variant
'bla bla
  varAttributes(Ii).TextString = "nek text"
'bla bla

end sub

Ko dam plotat se zažene ta rutina, ki nekaj napiše v glavo risbe. Problem je v tem, da na printu ni celotne risbe. Manjkajo posamezni elementi (standardni elementi kot so vijaki iz knjižnice, navojne izvrtine ,...) Če ji explodam, potem dela v redu. Pravtako jih ni na print preview.
Problem je v vrstici varAttributes(Ii).TextString = "nek text". Če to vrstico izločim iz rutine, potem printa normalno.
VarAtributes so v tem primeru atributi glave. Zakaj do tega pride?


Druga stvar pa je, kako dve črti in dva loka združiti v polyline? Verjetno enostavno, samo jaz najdem samo metodo AddLine, ne pa tudi AddArc.

Tnx.

[gregorci]

Črtovje ( črte in loke, krivulje) združiš v polilinijo z ukazom:

PEDIT

Primer:

Command: pedit
Select polyline or [Multiple]: ...( pokažeš črto)
Object selected is not a polyline
Do you want to turn it into one? <Y> y ...(če ni črta polyline)

Enter an option [Close/Join/Width/Edit vertex/Fit/Spline/Decurve/Ltype
gen/Undo]: j ...( napišeš J - join)

Select objects: 1 found ... (pokažeš objekte ki jih želiš združit)

Select objects: 1 found, 2 total

Select objects: 1 found, 3 total ... (enter)


Pa imaš polylinijo...pa debelino lahko določiš z Pedit - Width

Preprosto..

LP

[Rok]

Črtovje ( črte in loke, krivulje) združiš v polilinijo z ukazom:

Ja, to je že res, samo mene zanima, kako to narest iz VBAja (Visual Basic za Acad).

[Gost]

na www.augi.com imajo zelo kvalitetne forume in bos siher kaj najdo(registracija je zastonj).....sicer so vcasih imeli online free course tudi na to temo in ce hoces ti lahko posljem par seminarjev (denis.kabaklic@turboinstitut.si). pa se poglej v Acad na HELP-DEVELOPER HELP (Pomoč razvijalcu).......

lp

denis