CADhr

Hrvatski CAD portal

 
 
 
 

Uvod u Visual Basic

Poštovani posjetitelji.

Kod nas inženjera postoji problematika prilikom naručivanja pojedinih strojarskih ili građevinskih programa. Često puta se susrećemo sa potrebom da ubrzamo svoj rad pomoću određenih programa prilagođenih našim potrebama. U ovakvoj situaciji mogli bi angažirati vrhunskog informatičara, međutim da bi informatičar udovoljio našim uvijetim potrebno mu je specifično znanje iz područja strojarstva i građevine. Autodesk (AutoCAD) je razvio za potrebe programiranja Visual Lisp i Visual Basic programe te si sami možemo pomoći korištenjem ovih programa. Visual Lisp isključivo je vezan za AutoCAD i kompatibilan je s ACAD naredbama. Visual Basic ne komunicira s Acadom pomoću njegovih naredbi nego koristi naredbu "SendCommand" kako bi pozvao ACAD naredbu. Bez obzira na ove poteškoće u idućih nekoliko članaka posvetit ćemo pažnju Visual Basic-u jer je ovo programski jezik koji pored ACAD-a podržavaju i mnogi drugi programi kao Word; Excel; Access. Mnogi od Vas često koriste Excel kao računski program i kao baza podataka. Danas bih vam pokazao kako pomoću Visual basic povezati Acad i Excel. Ja ovo često činim kod mojih programa jer mi excel služi kao baza podataka za izradu jednostavnih nacrta u AutoCAD-u. Ovo je kod za povezivanje pa ga možemo pojasniti u nekom od sljedećih članaka a također odgovoriti na eventualna pitanja.

Dim MyXL As Object
Dim objWorksheet As Object
Dim TableData As Variant
Dim excel As Object
' Ovo je priprema za Excel i ulazak u odabrani File.
Set MyXL = GetObject("C:\Program Files\SOFTKOD\Tablica.xls")

'Otvaranje datoteke i prikazivanje kao vidljive.
MyXL.Application.Visible = True
MyXL.Parent.Windows(1).Visible = True
If ExcelWasNotRunning = True Then
MyXL.Application.Quit
End If
'Otvaranje odgovarajućeg radnog lista u Excel-u i uzimanje podataka iz Excel-a.
Set excelsheet = MyXL.Sheets("List1")

Postavio urednik 13.08.2007 23:56:24

Naredbe pomoću tastature 2

Poštovni!
U nastavku na prethodni članak "Naredbe pomoću tastature" predstavljam vam još neke kratice koje najčešće koristim.

CTRL+A Prekidač-Označavanje grupe On/Off
CTRL+B F9 Prekidač-Uključivanje Snap moda On/Off
CTRL+C Copira objekt u WindowsClipboard
CTRL+D F6 Prekidač-Uključuje prikazivanje koordinata
CTRL+E Prekidač-Prebacivanje između različitih izometrijskih ravnina
(Izometrijsko crtanje mora biti uključeno)
CTRL+G Prekidač-Uključuje prikaz mreže On/Off
CTRL+K Pokreće HYPERLINK naredbu
CTRL+L F8 Prekidač-Uključuje orto On/Off
CTRL+O Otvara File-Open dijalog
CTRL+P Otvara Plot dijalog
CTRL+R Prekidač između različitih Wiewports
CTRL+S Spašava trenutni nacrt
CTRL+T F4 Prekidač-Uključuje Tablet mod-On/Off
CTRL+V Lijepi (Paste) sadržaj iz Clipboarda u nacrt
CTRL+X Uklanja selektirani dio(Cut) iz nacrta i kopira u Clipboard.
CTRL+U Kratica za naredbu Undo


Ugodan rad s AutoCADhr.

Postavio urednik 13.08.2007. 23:54:55

Naredbe pomoću tastature

Poštovani, koliko puta Vam se dogodilo da sjednete za drugi computer i ustanovite da su ikonice (naredbe) Auto Cad-a posložene na sasvim drugačiji način od onoga na koji ste navikli. Nakon toga gubite dragocjeno vrijeme da te iste ikonice posložite onako kako Vama odgovara. Novije verzije također nude spremanje vlastitog profila sučelja u /Tools/Options/Profiles.
Ni ovo Vam neće puno pomoći ukoliko ne planirate duži rad na Autocad-u.
Meni se kao najbrži i najučinkovitiji način učinio pozivanje naredbi preko tastature.
Vrlo je jednostavno, lako je naučiti napamet petnaestak naredbi koje najčešće koristite.
Prednosti ovog pozivanja naredbi:

1. Na ovaj način svaki Autocad vam je isti. Praktično sve verzije od Acad14 do Acad2008 prihvaćaju ove naredbe.
2. Možete izbaciti ikone koje poznajete i time povećati radnu plohu.
3. Brži ste u radu jer ne morate tražiti ikonu na monitoru.

Popis komandi i njihovih kratica pomoću kojih se naredba poziva preko tastature nalzi se u datoteki (acad.pgp) koju možete otvoriti pomoću Notepad-a.
Ovdje Vam je prikazan sadržaj acad.pgp

; These examples include most frequently used commands.

3A, *3DARRAY
3DO, *3DORBIT
3F, *3DFACE
3P, *3DPOLY
A, *ARC
ADC, *ADCENTER
AA, *AREA
AL, *ALIGN
AP, *APPLOAD
AR, *ARRAY
-AR, *-ARRAY
ATT, *ATTDEF
-ATT, *-ATTDEF
ATE, *ATTEDIT
-ATE, *-ATTEDIT
ATTE, *-ATTEDIT
B, *BLOCK
-B, *-BLOCK
BH, *BHATCH
BO, *BOUNDARY
-BO, *-BOUNDARY
BR, *BREAK
C, *CIRCLE
CH, *PROPERTIES
-CH, *CHANGE
CHA, *CHAMFER
COL, *COLOR
COLOUR, *COLOR
CO, *COPY
D, *dist
DAL, *DIMALIGNED
DAN, *DIMANGULAR
DBA, *DIMBASELINE
DBC, *DBCONNECT
DCE, *DIMCENTER
DCO, *DIMCONTINUE
DDA, *DIMDISASSOCIATE
DDI, *DIMDIAMETER
DED, *DIMEDIT
DI, *DIST
DIV, *DIVIDE
DLI, *DIMLINEAR
DO, *DONUT
DOR, *DIMORDINATE
DOV, *DIMOVERRIDE
DR, *DRAWORDER
DRA, *DIMRADIUS
DRE, *DIMREASSOCIATE
DS, *DSETTINGS
DST, *DIMSTYLE
DT, *DTEXT
DV, *DVIEW
E, *ERASE
ED, *DDEDIT
EL, *ELLIPSE
EX, *EXTEND
EXIT, *QUIT
EXP, *EXPORT
EXT, *EXTRUDE
F, *FILLET
FI, *FILTER
G, *GROUP
-G, *-GROUP
GR, *DDGRIPS
H, *BHATCH
-H, *HATCH
HE, *HATCHEDIT
HI, *HIDE
I, *INSERT
-I, *-INSERT
IAD, *IMAGEADJUST
IAT, *IMAGEATTACH
ICL, *IMAGECLIP
IM, *IMAGE
-IM, *-IMAGE
IMP, *IMPORT
IN, *INTERSECT
INF, *INTERFERE
IO, *INSERTOBJ
L, *LINE
LA, *LAYER
-LA, *-LAYER
LE, *QLEADER
LEN, *LENGTHEN
LI, *LIST
LINEWEIGHT, *LWEIGHT
LO, *-LAYOUT
LS, *LIST
LT, *LINETYPE
-LT, *-LINETYPE
LTYPE, *LINETYPE
-LTYPE, *-LINETYPE
LTS, *LTSCALE
LW, *LWEIGHT
M, *MOVE
MA, *MATCHPROP
ME, *MEASURE
MI, *MIRROR
ML, *MLINE
MO, *PROPERTIES
MS, *MSPACE
MT, *MTEXT
MV, *MVIEW
O, *OFFSET
OP, *OPTIONS
ORBIT, *3DORBIT
OS, *OSNAP
-OS, *-OSNAP
P, *PAN
-P, *-PAN
PA, *PASTESPEC
PARTIALOPEN, *-PARTIALOPEN
PE, *PEDIT
PL, *PLINE
PO, *POINT
POL, *POLYGON
PR, *OPTIONS
PRCLOSE, *PROPERTIESCLOSE
PROPS, *PROPERTIES
PRE, *PREVIEW
PRINT, *PLOT
PS, *PSPACE
PTW, *PUBLISHTOWEB
PU, *PURGE
-PU, *-PURGE
R, *REDRAW
RA, *REDRAWALL
RE, *REGEN
REA, *REGENALL
REC, *RECTANGLE
REG, *REGION
REN, *RENAME
-REN, *-RENAME
REV, *REVOLVE
RM, *DDRMODES
RO, *ROTATE
RPR, *RPREF
RR, *RENDER
S, *STRETCH
SC, *SCALE
SCR, *SCRIPT
SE, *DSETTINGS
SEC, *SECTION
SET, *SETVAR
SHA, *SHADE
SL, *SLICE
SN, *SNAP
SO, *SOLID
SP, *SPELL
SPL, *SPLINE
SPE, *SPLINEDIT
ST, *STYLE
SU, *SUBTRACT
T, *trim
-T, *-MTEXT
TA, *TABLET
TH, *THICKNESS
TI, *TILEMODE
TO, *TOOLBAR
TOL, *TOLERANCE
TOR, *TORUS
TR, *TRIM
UC, *DDUCS
UCP, *DDUCSP
UN, *UNITS
-UN, *-UNITS
UNI, *UNION
V, *VIEW
-V, *-VIEW
VP, *DDVPOINT
-VP, *VPOINT
W, *WBLOCK
-W, *-WBLOCK
WE, *WEDGE
X, *EXPLODE
XA, *XATTACH
XB, *XBIND
-XB, *-XBIND
XC, *XCLIP
XL, *XLINE
XR, *XREF
-XR, *-XREF
Z, *ZOOM

Znači dovoljno je da utipkate kraticu naredbe i stisnete tipku Enter ili desni miš.
Npr. Za krug naredba –CYRCLE- dovoljno je da otipkate slovo C i stisnete tipku Enter ili desni miš.
Ukoliko želite sami kreirati kraticu ili izmjeniti postojeću sve ovo možete naći u Acad naredbi „Command Alias Editor „ koja se nalazi u /Express/Tools/ Command Alias Editor.

Ugodan rad.

Postavio urednik 13.08.2007 23:55:45

Definiranje linija pomoću VBA

Jedan jednostavan kod za definiranje linija pomoću Visual Basic-a ukoliko želite da u sekundi imate kreiran svoj vlastiti nacrt podlogu.

Ovo postaje interesantno otkad je Auto CAD uveo naredbu: Layer Translator (nalazi se u Tools\CAD Standards\) jer omogućava da svaki nacrt bez obzira na zahtjev kupca crtate prema svojoj podlozi te na kraju preimenujete linije prema zahtjevima kupca.
Dakle evo koda:

Sub Izrada_linije()
Dim layerObj As Object
Set layerObj = ThisDrawing.Layers.Add("LAYER1")
layerObj.color = acMagenta
MsgBox "LAYER1 set to Magenta"
End Sub

Opis procedure:
Naziv procedure je Izrada_linije
drugi red proglašava layerObj kao objekt
treći red postavlja layerObj to jest s izjavom ThisDrawing.Layers.Add("LAYER1")
dodaje (stvara) novu liniju u acadu pod imenom LAYER1
četvrti red  (layerObj.color = acMagenta) novostvorenoj liniji LAYER1 dodjeljuje  
boju Magenta
peti red postavlja tekstualnu poruku na ekran "LAYER1 set to Magenta"
šesti red je izlaz iz procedure.

Sada možete vidjeti u ACADu da je stvorena nova linija LAYER1.
Da bi učitali proceduru možete jednostavno postupiti na sljedeći način:
Otvorite prazan Autu cad. U Tools\Macro\Visual Basic Editor (kratica Alt+F11) otvorite Visual basic editor. U njemu stisnite Insert\Module. Ovdje jednostavno kopirajte gornji kod te sa plavim trokutom u paleti s alatima ili F5 startajte proceduru i to je to.
Ugodan rad.

Postavio urednik 15.10.2007 23:03:47

Asuni CAD - Bubble 2.9

Kako dobiti niz informacija o nekom detalju u crtežu. Možda Vam može pomoći ovaj program Bubble (dodatak AutoCAD-u).
To je program koji se može pokrenuti skoro u svim verzijama AutoCAD-a (AutoCAD 14, 2000, 2000i, 2002, 2004, 2005, 2006, 2007, 2008 i AutoCAD LT 2000, LT 2000i, LT 2002, LT 2004, LT 2005, LT 2006, LT 2007 and LT 2008). Kao što vidite nije moguće pokrenuti jedino u jako starim varzijama AutoCAD-a.

Bubble 2.9

Bubble for AutoCAD je programčić kojeg su napisali u Asuni CAD . Kada se pokrene ovaj programčić (ja sam ga pokrenuo preko komandne linije), daje niz informacija o označenom detalju na crtežu. Svakako ga isprobajte.

Pokretanje programa - Bubble

Možete ga skinuti direktno s stranice http://www.bubblecad.com/en/bubble.htm

Postavio admin 06.11.2007. 23:48:25