VBA AutoCAD-excell

izizek 05-10-2007 11:50
Dakle,

uzeo sam kod iz vašeg članka vezano za baratanje podacima između AutoCAD-a i excella i napravio 2 VBA makroa koja mi pozivaju 2 exell fajla na hard disku s obzirom da VBA makro tu i staje.
Kroz podešavanje sučelja autocad-a napravil sam si i 2 gumba od kojih svaki poziva excell i učitava pojedini excell fajl.
Prvi problem je taj da kad kliknem na prvi gum diže se excell i fajl koji je definiran tim gumbom, te kad kliknem na 2. gumb opet se prikaže exell ali s fajlom od prvog gumba, dakle ako kliknem na bilo koji gumb za pozivanje excell-a i uvjek kad kliknem na drugi gumb, prikazuje se exell ali s učitanim fajlom od 1. gumba, tak da nebrem nikak dobit onaj "drugi" excelov fajl da se otvori u excell-u. Malo je nespretno objašnjeno ali mislim da se može skužit.

Druga stvar je da bi mi bilo zanimljivo da se objasni kak se nekaj uz pomoć VBA može crtat u AutoCAD-u, npr. imaš neki proračun u excell-u iz kojeg generiraš podatke koje će VBA makro uzimat i nekaj crtat u AutoCAD-u, ili čak punit neke atribute nekih blokova...

Eto, to bi bilo za početak.
Z

urednik 05-10-2007 19:09
Kao što rekoh u poruci imam jedan mali program koji crta pripremu krajeva cijevi prema DIN 2559 uzimajući podatke iz excel-a.
Crta na način da uvjek počima crtanje u ishodištu u mjerilu 1:1, kotira zajedno sa tolerancijama. Na kraju je potrebno vrlo malo prilagođavanje.
Pomoću VBA je također moguće definiranje linija, stilova i ostalog u ACADu.
Ovo ću vam dati tokom sljedećeg tjedna pa kad vidite ukoliko bude trebalo što objasniti slobodno pitajte.
Također imam jedan program koji uzima podatke iz excel-a i u 3D (u prostoru)na pritisak prvog gumba crta simetrale cjevi te pomoću drugog gumba extrudira cijev kao solid, ali već dugo imam problem kako napraviti matematički model da program crta svaku moguću situaciju. Ovo ću i u krnjem obliku objaviti u budućnosti.
Izmjene atributa dobijete sa ACAD software-om, vidi C:\Program Files\AutoCAD 2005\Sample\ActiveX\ExtAttr

Što se tiće spajanja s dva excel fajla ja to nisam radio ali sam otvarao jedan excel fajl i u njemu skakao na više njegovih listova (worksheet) i uzimao podatke i znam da to može.
Nedavno sam također sa VBA u excel- u pomoću gumba automatski otvarao preko 20 excel fajlova i uzimao podatke iz njih. Tada me nije interesiralo da vidim svaki pojedini fajl nego samo da pokupim podatke, i u excelu radi savršeno.

urednik 15-10-2007 22:06
Za izizek.
Pokušajte download rar File pod imenom SOFTKOD te otpakiranu mapu spremite u "C:\Program Files\". Ovako spremljenu mapu možete sačuvati jer ćemo u budućnosti dopunjavati mapu s ostalim *.dvb kodovima.

Sadržaj mape SOFTKOD:
PODLOGA.dwg - je samo prazan nacrt podloga s definiranim crtama za simetralu,
punu, kotnu itd. jer to nije napisano u kodu. U člancima od danas možete naći
jednostavan kod za definiranje linija u acadu.
DET_CIJ_CIJEV.dvb- je kod koji izvlači podatke iz excela i crta pripremu za
zavarivanje cijev-cijev prema detalju A u točki 0,0,0 u omjeru 1:1, zatim kotira i
izvlači pozicije. da bi crtež bio ispravno nacrtan u excelu u želiji
"Potrebno izraditi po detalju" treba pisati oznaka A
DETALJI.xls - je excel koji sadrži podatke iz DIN2559 i potrebno je samo ispuniti 4
čelije označene bojom "Polje za unos". Unešene vrijednosti moraju biti u skladu
s podacima na listu DIN 2559. To znači da nemožete upisati bilo koju vrijednost
za promjer cijevi i debljinu stjenke nego stvarnu cijev koja se može naći na
tržištu.
Još jednom za ovu vježbu vodite računa da u čelije B8 mora pisati oznaka A jer ova vježba crta samo detalj A.