WWW.CAD.PL -- VBA dla AutoCAD-a -- kurs podstawowy




TEXTAREA {
FONT-FAMILY: verdana; FONT-SIZE: 10pt
}
INPUT {
FONT-FAMILY: verdana; FONT-SIZE: 10pt
}
SELECT {
FONT-FAMILY: verdana; FONT-SIZE: 10pt
}
OPTION {
FONT-FAMILY: verdana; FONT-SIZE: 10pt
}
PRE {
FONT-FAMILY: Courier; FONT-SIZE: 8pt
}
H2 {
FONT-FAMILY: Verdana, sans-serif; FONT-SIZE: 13pt
}
H3 {
FONT-FAMILY: Verdana, sans-serif; FONT-SIZE: 12pt
}
H4 {
FONT-FAMILY: Verdana, sans-serif; FONT-SIZE: 10pt
}
P {
FONT-FAMILY: Verdana, sans-serif; FONT-SIZE: 9pt
}
TD {
FONT-FAMILY: Verdana, sans-serif; FONT-SIZE: 9pt
}
XMP {
FONT-FAMILY: monospace; FONT-SIZE: 8pt
}
.ks {
FONT-FAMILY: Verdana, sans-serif; FONT-SIZE: 9pt
}
P.user {
COLOR: black; FONT-FAMILY: Verdana, sans-serif; FONT-SIZE: 8pt; TEXT-ALIGN: center
}
P.user A {
COLOR: black; FONT-FAMILY: Verdana, sans-serif; FONT-SIZE: 8pt; TEXT-ALIGN: center
}
LI {
COLOR: black; FONT-FAMILY: Verdana, sans-serif; FONT-SIZE: 8pt
}
.ll {
FONT-FAMILY: Verdana, sans-serif; FONT-SIZE: 8pt; MARGIN-BOTTOM: 3pt
}
.lll {
FONT-FAMILY: Verdana, sans-serif; FONT-SIZE: 8pt; MARGIN-BOTTOM: 0pt
}
.llll {
COLOR: black; FONT-FAMILY: Verdana, sans-serif; FONT-SIZE: 8pt; MARGIN-BOTTOM: 0pt; TEXT-ALIGN: right
}
.lllll {
FONT-FAMILY: Verdana, sans-serif; FONT-SIZE: 8pt; MARGIN-BOTTOM: 0pt; MARGIN-LEFT: 15pt
}





























VBA dla AutoCAD-a -- kurs dla początkujących
Lekcja 11 -- Rysowanie stopy
fundamentowej





Metoda PROMPT - rysowanie stopy (linia)
Lekcja ta obrazuje, jak za pomocą kilku danych pobranych od
użytkownika narysować złożony obiekt rysunkowy. Funkcje wykorzystane
w bieżącym ćwiczeniu:
GetPoint do pobrania punktu początkowego -> varPtBazowy
GetDistance do pobrania szerokości rysowanego elementu
(dblSzerokosc) oraz jego wysokości (dblWysokosc)
PolarPoint do wyliczenia współrzędnych punktów P1, P2, P3, P4,
P5, P6, P7.
Pozostałe wymiary oraz punkty wyznaczymy, korzystając ze
zwymiarowanego rysunku zamieszczonego poniżej.
Rys. 1 Public Const dblcPI As Double = 3.1415923
Public Sub rys_stopy()
'Otwarcie procedury rys_stopy
Dim dblWidth As Double
'Deklaracja zmiennej do przechowywania szerokości
Dim dblHeight As Double
'Deklaracja zmiennej do przechowywania wysokości
Dim varBasePoint As Variant
'Deklaracja zmiennej do przechowywania pkt bazowego
Dim varPoints(0 To 7) As Variant
'Deklaracja zmiennych pozostałych punktów

varBasePoint = ThisDrawing.Utility.GetPoint
(, "Punkt wstawienia:")
'Pobranie od użytkownika punktu wstawienia,
'w linii poleceń zostaje wyświetlona
'zachęta do wskazania punktu na rysunku

varPoints(0) = varBasePoint
'Przypisanie pkt bazowego do zmiennej VarPoints(0)
dblWidth = ThisDrawing.Utility.GetDistance
(varBasePoint, "Podaj szerokosc:")
'Pobranie od użytkownika szerokości,
'w linii poleceń zostaje wyświetlona
'zachęta 'do podania szerokości
dblHeight = ThisDrawing.Utility.GetDistance
(varBasePoint, "podaj wysokosc:")
'Pobranie od użytkownika wysokości,
'w linii poleceń zostaje wyświetlona
'zachęta 'do podania wysokości

Wyliczenie pozostałych punktów przy pomocy metody PolarPoints
Składnia: Function PolarPoint(Punkt, Kąt As Double, Odległość
As Double)
With ThisDrawing.Utility
Rys. 2 varPoints(1) = .PolarPoint(varPoints(0), 0, dblWidth)
'Pkt odniesienia = varPoints(0), kąt = 0,
'odległość = dblSzerokość

Rys. 3 varPoints(2) = .PolarPoint(varPoints(1), dblcPI / 2, dblHeight)

'Pkt odniesienia = varPoints(1), kąt = PI/2 ,
'odległość = dblWysokosc

Rys. 4 varPoints(3) = .PolarPoint(varPoints(2), dblcPI, dblWidth / 3)
'Pkt odniesienia = varPoints(2), kąt = PI (180),
'odległość = dblSzerokość / 3

Rys. 5 varPoints(4) = .PolarPoint(varPoints(3), dblcPI * 3 / 2, dblHeight / 2)
'Pkt odniesienia = varPoints(3), kąt = (PI * 3) / 2,
'odległość = dblWysokość / 2

Rys. 6 varPoints(5) = .PolarPoint(varPoints(4), dblcPI, dblWidth / 3)

'Pkt odniesienia = varPoints(4), kąt = PI ,
'odległość = dblSzerokość / 3

Rys. 7 varPoints(6) = .PolarPoint(varPoints(5), dblcPI / 2, dblHeight / 2)
'Pkt odniesienia = varPoints(5), kąt = PI / 2,
'odległość = dblWysokość / 2

Rys. 8 varPoints(7) = .PolarPoint(varPoints(0), dblcPI / 2, dblHeight)
'Pkt odniesienia = varPoints(0), kąt = PI / 2,
'odległość = dblWysokość

End With
'Rysowanie stopy w oparciu o wyliczone punkty
With ThisDrawing.ModelSpace
Call .AddLine(varBasePoint, varPoints(1))
Call .AddLine(varPoints(1), varPoints(2))
Call .AddLine(varPoints(2), varPoints(3))
Call .AddLine(varPoints(3), varPoints(4))
Call .AddLine(varPoints(4), varPoints(5))
Call .AddLine(varPoints(5), varPoints(6))
Call .AddLine(varPoints(6), varPoints(7))
Call .AddLine(varPoints(7), varBasePoint)
End With
End Sub

[Poprzednia
lekcja] [Spis
treści] [Następna
lekcja][Przykłady w postaci
elektroniczej]
Piotr Głębicki, ©
Wydawnictwo Helion
2001.