IDZ DO
IDZ DO
PRZYKŁADOWY ROZDZIAŁ
PRZYKŁADOWY ROZDZIAŁ
AutoCAD. Automatyzacja zadań
SPIS TRER
CI
SPIS TRER
CI
grafiki za pomocą Delphi
KATALOG KSIĄŻEK
KATALOG KSIĄŻEK
Autorzy: Wojciech Czyżycki, Edward Lisowski
ISBN: 83-7197-682-8
Format: B5, stron: 254
KATALOG ONLINE
KATALOG ONLINE
Zawiera CD-ROM
ZAMÓW DRUKOWANY KATALOG
ZAMÓW DRUKOWANY KATALOG
TWÓJ KOSZYK
TWÓJ KOSZYK
Obecnie dokumentacja techniczna jest używana i przetwarzana najczęS
ciej w formie
DODAJ DO KOSZYKA elektronicznej. Do zapisu konstrukcji stosuje się różnorodne programy CAD. MożliwoS
ci
DODAJ DO KOSZYKA
wyboru jednego spoS
ród nich są duże, jednakże dla osiągnięcia wydajnej pracy
programy te trzeba odpowiednio dostosować do okreS
lonych potrzeb. Jednym ze
sposobów takiego dostosowania jest opracowanie specjalistycznych aplikacji
CENNIK I INFORMACJE
CENNIK I INFORMACJE
pozwalających na automatyzację procesu projektowania, np. w AutoCAD-zie. Program
ten ma wbudowany interfejs automatyzacji OLE, który pozwala oddziaływać w sposób
ZAMÓW INFORMACJE
ZAMÓW INFORMACJE
programowy na proces tworzenia rysunku.
O NOWOR
CIACH
O NOWOR
CIACH
Książka powstała w wyniku opracowania przez autorów (na potrzeby własne i innych
użytkowników) aplikacji do wspomagania projektowania w AutoCAD-zie. Jest ona
ZAMÓW CENNIK
ZAMÓW CENNIK
adresowana do inżynierów, studentów i innych użytkowników tego programu. Książka
zawiera wiele kodów, które można bezpoS
rednio uruchomić i wykorzystać w swojej
pracy projektowej. Użycie większoS
ci kodów znajdujących się na płycie CD wymaga
CZYTELNIA
CZYTELNIA
jedynie przeprowadzenia instalacji. Użytkownik posiadający pewne umiejętnoS
ci
programowania w Delphi może je rozbudować lub adaptować do swoich celów.
FRAGMENTY KSIĄŻEK ONLINE
FRAGMENTY KSIĄŻEK ONLINE
Nawet zaawansowane aplikacje przedstawione w książce są łatwe do uruchomienia
i bezpoS
redniego użycia. Bardzo przydatne dla projektanta mogą być programy do
automatycznego rysowania połączeń wpustowych w połączeniu z automatycznymi
obliczeniami, wspomagające rysowanie oznaczeń połączeń spawanych czy
automatyzujące generowanie elementów połączeń S
rubowych.
Książka adresowana jest do inżynierów, studentów i innych użytkowników
posiadających wiedzę na temat programu AutoCAD. Użycie wielu programów
załączonych na płycie CD wymaga jedynie przeprowadzenia instalacji. Praca zawiera
kod wielu programów do bezpoS
redniego wykorzystania. Użytkownik posiadający
pewne umiejętnoS
ci programowania w Delphi może programy te rozbudować lub
adaptować do swoich celów.
Wydawnictwo Helion
W podręczniku zamieszczono te fragmenty kodów programów, które wymagają
ul. Chopina 6
wyjaS
nień (komentarza), kompletny kod przedstawionych programów znajduje się na
44-100 Gliwice
załączonej do pracy płycie CD.
tel. [phone]
e-mail: [e-mail]
Przedmowa ......................................................................................5
Rozdział 1. Wstęp ...............................................................................................7
Automatyzacja........................................................................................................... 7
Struktura klienta automatyzacji................................................................................. 8
Klasy i obiekty .......................................................................................................... 9
Rozdział 2. Interfejs automatyzacji OLE programu AutoCAD 2000 .................. 11
Obiekty interfejsu automatyzacji OLE.................................................................... 13
Kolekcja Blocks ...................................................................................................... 13
Obiekt Block ........................................................................................................... 14
Obiekt ModelSpace ................................................................................................. 15
Nawiązanie połączenia z serwerem OLE i ustawienia początkowe ................................17
Translacja współrządnych................................................................................................18
Metody generowania podstawowych elementów rysunku...............................................18
Wybrane metody modyfikacji obiektów................................................................. 38
Wybrane składniki obiektu Document i kolekcji Documents ................................ 48
Kolekcja Dictionaries, obiekty Dictionary i XRecord .....................................................53
Kolekcja DimStyles i obiekt DimStyle ............................................................................57
Kolekcja Layers i obiekt Layer ........................................................................................58
Kolekcja Linetypes i obiekt Linetype ..............................................................................60
Kolekcje Groups i SelectionSets oraz obiekty Group i SelectionSet...............................61
Kolekcja TextStyles i obiekt TextStyle............................................................................65
Kolekcja UserCoordinateSystems i obiekt UCS..............................................................68
Obiekt Utility...................................................................................................................69
Ustalanie aktywnych właściwości obiektu Document.....................................................75
Paski menu i paski narządziowe ............................................................................. 76
Kolekcja MenuGroups i obiekt MenuGrup......................................................................76
Kolekcje MenuBar i PopUpMenu oraz obiekt PopUpMenuItem ....................................76
Kolekcja Toolbars oraz obiekty Toolbar i ToolbarItem...................................................78
Rozdział 3. Przykłady aplikacji ......................................................................... 83
Przygotowanie dokumentu  dodawanie warstw i typów linii ............................. 83
Generowanie składników rysunkowych ................................................................. 86
Rysowanie otworów według zadanych współrządnych...................................................86
Umieszczanie składników na ustalonej warstwie ............................................................89
Bloki składników..................................................................................................... 92
Atrybuty bloków ..................................................................................................... 97
Kreskowania............................................................................................................ 98
Działania na obiektach rysunku ............................................................................ 103
Rysunki 3D............................................................................................................ 109
4 AutoCAD. Automatyzacja zadań grafiki za pomocą Delphi
Linia śrubowa  krzywe sklejane........................................................................ 117
Generowanie powierzchni 3D............................................................................... 121
Rozdział 4. Zdarzenia ..................................................................................... 127
Dostąp do obsługi zdarzeń  biblioteki typów.................................................... 127
Importowane biblioteki typów .......................................................................................127
Nawiązanie połączenia z obiektami interfejsu OLE
przy użyciu modułu importowego ...............................................................................129
Obsługa zdarzeń programu AutoCAD .................................................................. 130
Rozdział 5. Aplikacje dla mechaników............................................................ 139
Oznaczenia połączeń spawanych .......................................................................... 139
Elementy połączeń śrubowych.............................................................................. 157
Obliczenia i rysowanie połączenia wpustowego .................................................. 179
Dobór i generowanie rysunków profili zamkniątych prostokątnych
na podstawie obliczeń wytrzymałościowych...................................................... 190
Przetwarzanie informacji zapisanych w tabelce rysunku ..................................... 194
Automatyzacja rysowania schematów pneumatycznych i hydraulicznych .......... 196
Literatura......................................................................................................... 201
Polskie Normy....................................................................................................... 202
Dodatek A Wykaz metod, zdarzeń i właściwości interfejsu
automatyzacji OLE programu AutoCAD 2000............................... 203
Dodatek B Programy na płycie CD................................................................... 24
Skorowidz......................................................................................................... 251
W tym rozdziale przedstawiono zaawansowane programy wykorzystujące techniki pro-
gramowania obiektowego, korzystające z klas i dziedziczenia, posługujące sią relacyj-
nymi bazami danych i jązykiem SQL. Podjąte zadania dotyczą automatyzacji:
f& oznaczania i generowania symboli połączeń spawanych,
f& połączeń śrubowych przy zastosowaniu dziedziczenia do opisu rodzin elementów,
f& obliczenia i rysowania połączenia wpustowego,
f& doboru i generowania rysunków profili zamkniątych prostokątnych na podstawie
obliczeń wytrzymałościowych, wyznaczanie linii wpływowej ugiąć dla dobranej belki,
f& przetwarzania informacji zapisanych w tabelce rysunku z automatycznym przesłaniem
ich do arkusza kalkulacyjnego MS Excel,
f& rysowania schematów pneumatycznych i hydraulicznych.
Oznaczenia połączeń spawanych
Przy projektowaniu konstrukcji spawanych niezbądne jest określenie wielu parametrów
dla złącza oraz narysowanie odpowiedniego symbolu na rysunku. W konstrukcji, w której
wystąpuje wiele różnego typu spoin, zautomatyzowanie procesu opisu złącza spawanego
może znacznie ułatwić wykonanie dokumentacji rysunkowej. Symbol oznaczenia bu-
duje sią z różnych składników zdefiniowanych w przedmiotowej normie. Zautomaty-
zowanie opisu spoin zrealizowano programowo w ten sposób, że użytkownik w oknie
dialogowym wybiera właściwości i parametry spoiny. W trakcie tej czynności w oknie
pojawia sią automatycznie rysunek symbolu spoiny z oznaczeniami, które użytkownik
wprowadza. Po interaktywnym uzgodnieniu oznaczenia złącza spawanego skompono-
wany symbol jest generowany w programie AutoCAD we wskazanym miejscu na ak-
tywnym rysunku. Symbole oznaczeń mogą być również wyeksportowane do pliku wmf.
Program nazwano PolSpaw, formatką tego programu przedstawiono na rysunku 5.1.
Umieszczono na niej nastąpujące komponenty:
f& przyciski z ikonami ,
f& grupy przycisków ,
f& znaczniki ,
f& okienka edycji ,
f& przyciski zmiany wartości ,
140 AutoCAD. Automatyzacja zadań grafiki za pomocą Delphi
Etykieta wymiaru
Formatka
poprzecznego spoiny
(Form1:TForm)
(Label1:TLabel)
Etykieta Okienko edycji Okienko edycji
Obramowanie wymiaru wymiaru wymiaru
Podgląd spoiny
podglądu spoiny wzdłużnego wzdłużnego poprzecznego
(Image1:TImage)
(Panel1:TPanel) spoiny spoiny spoiny
(Label2:TLabel) (Edit2:TEdit) (Edit1:TEdit)
Wybór położenia linii
identyfikacyjnej
Wybór położenia wymiaru
(RadioButton1:
(RadioGroup2:
TRadioButton)
TRadioGroup)
Obramowanie
Wybór kształtu lica spoiny
elementów wyboru
(RadioGroup3:
znaków dodatkowych
TRadioGroup3)
Wybór spoiny dookólnej
(GroupBox:
(CheckBox1:TCheckBox)
TGroupBox)
Wybór spoiny
wyk. w montażu
(CheckBox2:TCheckBox)
Wybór znaku
dodatkowego dolnego
(RadioGroup4:
TRadioGroup4)
Okienko wprowadzania nr
pozycji
(Edit3:TEdit)
Przyciski zmiany nr poz.
(UpDown1:TUpDown)
Przycisk zapisu
do pliku WMF
(Button3:TButton)
Przycisk
zamknięcia
programu
(Button2:TButton)
Obramowanie
Etykieta okienka Etykieta okienka
Dialog zapisu pliku WMF
obszaru wyboru
technologii nr poz.
(SaveDialog1:TSaveDialog)
rodzaju spoiny
(Label4:TLabel) (Label3:TLabel)
(Form1:TForm)
Przyciski wyboru
Wybór programu CAD Przycisk uruchamiania procedury
rodzaju spoiny Okienko wyboru technologii
(RadioGroup5: rysowania w programie CAD
SpeedButton1..15: (ComboBox1:TComboBox)
TRadioGroup) (Button1:TButton)
TSpeedButton
Rysunek 5.1. Formatka programu PolSpaw
f& obramowania grup ,
f& ramką ,
f& etykiety tekstowe ,
f& ilustracją ,
f& dialog zapisu ,
f& przyciski bez ikon .
Opracowano także wymienione niżej moduły:
f& OznaczFrm do obsługi formatki i interaktywnego ustawiania właściwości spoiny,
Rozdział 5. Aplikacje dla mechaników 141
f& SpoinaSpaw do przechowywania ustawień spoiny i aktualizacji podglądu oznaczenia
na formatce,
f& RysSpoina do zgromadzenia procedur rysowania oznaczenia spoiny w programach
CAD.
Komponentom zgromadzonym na formatce programu PolSpaw nadano odpowiednie
ustawienia. Tabela 5.1 zawiera zestawienie tych ustawień, które są różne od ustawień
domyślnych komponentów.
Tabela 5.1.
Ustawienia komponentów programu PolSpaw
Właściwości Zdarzenia
Obiekt
Nazwa Wartość Nazwa Metoda
Caption Oznaczenie spoiny OnCreate FormCreate
BorderStyle bsSingle OnDestroy FormDestroy
Form1
biMaximize False
Autosize False
Panel1 BevelOuter byLowered
Image1 Align alClient
Wymiar
charakterystyczny
Label1 Caption
przekroju
poprzecznego spoiny
Wymiar
charakterystyczny
Label2 Caption
przekroju wzdłużnego
spoiny
Label3 Caption Nr pozycji
Label4 Caption Metoda spawania
Text OnChange Edit1Change
Edit1
MaxLength 3
Text OnChange Edit2Change
Edit2
MaxLength 5
Edit3 Text 0
Associate Edit3 OnChange Edit3Change
UpDown1
Max 999
Button1 Caption Rysuj OnClick Button1Click
Button2 Caption Zakończ OnClick Button2Click
142 AutoCAD. Automatyzacja zadań grafiki za pomocą Delphi
Tabela 5.1.
Ustawienia komponentów programu PolSpaw  ciąg dalszy
Właściwości Zdarzenia
Obiekt
Nazwa Wartość Nazwa Metoda
Button3 Caption Zapisz WMF OnClick Button3Click
CheckBox1 Caption Dookólna
CheckBox2 Caption W montażu
Text OnChange Edit3Change
ComboBox1
Style csDropDownList
GroupBox1 Caption Znaki dodatkowe
GroupBox2 Caption Rodzaj spoiny
RadioGroup1 Caption Linia identyfikacyjna OnClick RadioGroup1Click
powyżej linii odn.
Items.Strings
poniżej linii odn.
ItemIndex 0
Caption Położenie znaku OnClick RadioGroup2Click
powyżej linii odn.
RadioGroup2 Items.Strings
poniżej linii odn.
ItemIndex 0
Caption Kształt lica OnClick RadioGroup3Click
brak
płaska
wkląsła
RadioGroup3 Items.Strings
wypukła
usuniącie nadlewu
usuniącie karbów
ItemIndex 0
Caption Znaki dodatkowe OnClick RadioGroup4Click
brak
RadioGroup4 Items.Strings
pełny przetop
podkładka
ItemIndex 0
Rozdział 5. Aplikacje dla mechaników 143
Tabela 5.1.
Ustawienia komponentów programu PolSpaw  ciąg dalszy
Właściwości Zdarzenia
Obiekt
Nazwa Wartość Nazwa Metoda
Caption Wybierz program OnClick RadioGroup5Click
AutoCAD
RadioGroup5 Items.Strings
interCAD
ItemIndex 0
DefaultExt wmf
SaveDialog1
Filter *.wmf|*.wmf
Spoina brzeżna  OnClick SpeedButton1Click
Hint
przetop całkowity
SpeedButton1
GroupIndex 1
Spoina brzeżna  OnClick SpeedButton1Click
Hint
przetop cząściowy
SpeedButton2
GroupIndex 1
Hint Spoina I OnClick SpeedButton1Click
SpeedButton3
GroupIndex 1
Hint Spoina grzbietowa OnClick SpeedButton1Click
SpeedButton4
GroupIndex 1
Hint Spoina V OnClick SpeedButton1Click
SpeedButton5
GroupIndex 1
Hint Spoina 1/2 V OnClick SpeedButton1Click
SpeedButton6
GroupIndex 1
Hint Spoina Y OnClick SpeedButton1Click
SpeedButton7
GroupIndex 1
Hint Spoina 1/2 Y OnClick SpeedButton1Click
SpeedButton8
GroupIndex 1
Hint Spoina U OnClick SpeedButton1Click
SpeedButton9
GroupIndex 1
Hint Spoina 1/2 U (J) OnClick SpeedButton1Click
SpeedButton10
GroupIndex 1
144 AutoCAD. Automatyzacja zadań grafiki za pomocą Delphi
Tabela 5.1.
Ustawienia komponentów programu PolSpaw  ciąg dalszy
Właściwości Zdarzenia
Obiekt
Nazwa Wartość Nazwa Metoda
Hint Spoina pachwinowa OnClick SpeedButton1Click
SpeedButton11
GroupIndex 1
Spoina otworowa OnClick SpeedButton1Click
Hint
podłużna
SpeedButton12
GroupIndex 1
Spoina otworowa OnClick SpeedButton1Click
Hint
okrągła
SpeedButton13
GroupIndex 1
Bezotworowa OnClick SpeedButton1Click
Hint
punktowa
SpeedButton14
GroupIndex 1
Hint Bezotworowa liniowa OnClick SpeedButton1Click
SpeedButton15
GroupIndex 1
Obsługa elementów formatki umieszczona jest w module OznaczFrm.




























Rozdział 5. Aplikacje dla mechaników 145




























































146 AutoCAD. Automatyzacja zadań grafiki za pomocą Delphi


























































Rozdział 5. Aplikacje dla mechaników 147


























































148 AutoCAD. Automatyzacja zadań grafiki za pomocą Delphi





Ustawienia uproszczonego symbolu spoiny przechowywane są w polach klasy
zdefiniowanej w module SpoinySpaw. Klasa zawiera również metody automa-
tycznego rysowania podglądu symbolu spoiny. Sekcja modułu SpoinySpaw
przedstawia sią nastąpująco:















































Rozdział 5. Aplikacje dla mechaników 149
































Procedury rysowania symbolu spoiny w programie AutoCAD zgromadzone są w klasie
zdefiniowanej w module RysSpoina.






















150 AutoCAD. Automatyzacja zadań grafiki za pomocą Delphi


























































Rozdział 5. Aplikacje dla mechaników 151


























































152 AutoCAD. Automatyzacja zadań grafiki za pomocą Delphi


























































Rozdział 5. Aplikacje dla mechaników 153


























































154 AutoCAD. Automatyzacja zadań grafiki za pomocą Delphi


























































Rozdział 5. Aplikacje dla mechaników 155


























































156 AutoCAD. Automatyzacja zadań grafiki za pomocą Delphi





































Rysunek 5.2.
Okno programu
PolSpaw przy pracy
w programie AutoCAD
Rozdział 5. Aplikacje dla mechaników 157
Elementy połączeń śrubowych
Przy projektowaniu urządzeń cząsto stosuje sią połączenia gwintowe. Istnieje wiele ich
odmian przystosowanych do różnych zastosowań. Korzystna jest automatyzacja wyko-
nywania rysunków i doboru tych elementów. Mając na uwadze określoną firmą czy też
projektowanie konkretnych urządzeń, można programowo przygotować selekcją ele-
mentów, preferując ich unifikacją. Przedstawiony w tym punkcie przykład dotyczy au-
tomatycznego generowania rysunków elementów połączeń śrubowych wraz z atrybu-
tami przechowującymi informacje o ich oznaczeniach.
Przy budowie programu PolaczGwint do opisu elementów połączeń śrubowych zasto-
sowano podejście obiektowe z wykorzystaniem dziedziczenia i metod abstrakcyjnych.
Dziąki tym technologiom uzyskano wiąksze możliwości programu w zakresie komple-
tacji połączenia.
Przedstawiony przykład dotyczy elementów połączeń śrubowych, takich jak:
f& śruby z łbem sześciokątnym z gwintem na całej długości lub cząściowym opisanych
w normach [33], [32],
f& śruby z łbem walcowym opisane w normie [34],
f& nakrątki zwykłe i zmniejszone opisane w normach [35], [36],
f& podkładki okrągłe zgrubne i dokładne opisane w normach [38], [39],
f& podkładki sprążyste zwykłe i lekkie opisane w normach [40], [41],
f& gwinty zewnątrzne i wewnątrzne opisane w normie [37].
Przedstawiony program może być rozszerzany o inne elementy i modyfikowany do współ-
pracy z różnymi programami CAD.
Program do połączeń śrubowych nazwano PolaczGwint i zbudowano go z nastąpujących
modułów: PGwintFrm, RysSruby, RysNakr, RysGwint, RysPodkl, które opracowano do
rysowania danego typu elementu.
Formatką programu PolaczGwint przedstawiono na rysunku 5.3. Umieszczono na niej
komponent , w którym zdefiniowano odpowiednio cztery zakładki dla wy-
różnienia grup elementów. Rysunek 5.3 przedstawia zakładką dla elementów typu śruba
i zgromadzone odpowiednie komponenty, jak , , itp., służące do wy-
selekcjonowania elementu o określonych wymiarach. Dla pozostałych elementów przy-
gotowano analogiczne zakładki i umieszczono na nich odpowiednie komponenty.
W dolnej cząści formatki poza obszarem komponentu umieszczono kom-
ponenty oraz , i wspólne dla wszystkich zakładek,
pozwalające na wybór sposobu rysowania elementu.
Wymiary i inne dane elementów zgromadzono w plikach relacyjnych baz danych z roz-
szerzeniem db (Paradox), natomiast dostąp do tych danych zrealizowano za pomocą ją-
zyka SQL obsługiwanego przez komponent .
158 AutoCAD. Automatyzacja zadań grafiki za pomocą Delphi
Tabela z nazwami elementów
(DBTable1:TDBTable)
Karty z zakładkami
Etykieta wyboru długości
(PageControl1: Panel, obramowanie rysunku Etykieta tabeli
(Label2:TLabel)
TPageControl) (Panel1:TPanel) (Label1:TLabel)
Grupa przycisków
Formatka Grupa przycisków radiowych
rad. wyboru elementu
(Form1:TForm) wyboru rodzaju gwintu
(RadioGroup3:
(RadioGroup2:TRadioGroup)
TRadioGroup)
Element pośredniczący
w przekazywaniu danych
Okno wyboru
(DataSource1:TDataSource)
długości
(ComboBox1:
Okno wyświetlania
TComboBox)
rysunku elementu
(Image1:TImage)
Etykieta wyboru
wytrzymałości
Element pobierający dane
(Label4:TLabel)
o elemencie z tabeli BD
(Query1:TQuery)
Etykieta wyboru Rysowanie
Okno wyboru
powłoki wskazanego elementu
wytrzymałości
Element pobierający
(Label3:TLabel) (Button1:TButton)
(ComboBox3:
dane
TComboBox)
o elemencie z tabeli
BD (Query2:TQuery)
Wybór widoku elementu Rysowanie osi Okno wyboru powłoki Wybór klasy dokładności
(RadioGroup1:TRadioGroup) (CheckBox1:TCheckBox) (ComboBox2:TComboBox) (RadioGroup4:TRadioGroup)
Rysunek 5.3. Formatka programu PolaczGwint
Tabela 5.2.
Ustawienia komponentów umieszczonych na zakładce Śruby formatki programu PolaczGwint
Właściwości Zdarzenia
Obiekt
Nazwa Wartość Nazwa Metoda
Button2 Caption &Zakończ OnClick Button2Click
CheckBox1 Caption &Rysuj osie
ComboBox1
ComboBox2 Text
Fe-Zn
Fe-Cd
Items.Strings
Fe-Fg
Fe-Ox
ComboBox3
Caption Widok
z &góry
RadioGroup1 Items.Strings
z &boku
ItemIndex 0
Rozdział 5. Aplikacje dla mechaników 159
Tabela 5.2.
Ustawienia komponentów umieszczonych na zakładce Śruby formatki programu PolaczGwint
 ciąg dalszy
Właściwości Zdarzenia
Obiekt
Nazwa Wartość Nazwa Metoda
Caption Rodzaj gwintu OnClick RadioGroup3Click
&zwykły
RadioGroup2 Items.Strings
&drobnozwojowy
ItemIndex 0
Caption Rodzaj śruby OnClick RadioGroup4Click
A
eb
&sześciokątny
RadioGroup3 Items.Strings &Cała
gwintowana
A
eb &walcowy
ItemIndex 0
Caption Klasa dokł. OnClick RadioGroup5Click
I
Items.Strings II
RadioGroup4
III
ItemIndex 0
Columns 3
Columns[0].FieldName Nazwa OnClick DBGrid1CellClick
DataSource DataSource1
DBGrid1
dgEditing False
dgColumn- Resize False
Query1
Query2
DataSource1 DataSet Query1
Obsługą formatki programu PolaczGwint i dostąp do zgromadzonych danych zrealizo-
wano w module PGwintFrm. Procedury do wykonywania rysunków śrub, nakrątek,
gwintów i podkładek umieszczono odpowiednio w modułach: RysSruby, RysNakr,
RysGwint i RysPodkl. Przedstawione zostaną przykładowe moduły PolaczGwint i Rys
Sruby. Moduły dotyczące rysowania pozostałych elementów zbudowano podobnie jak
moduł RysSruby; dostąpne są one na płycie CD załączonej do książki.
160 AutoCAD. Automatyzacja zadań grafiki za pomocą Delphi
Kod modułu PGwintFrm:
























































Rozdział 5. Aplikacje dla mechaników 161

























































162 AutoCAD. Automatyzacja zadań grafiki za pomocą Delphi


























































Rozdział 5. Aplikacje dla mechaników 163


























































164 AutoCAD. Automatyzacja zadań grafiki za pomocą Delphi



























































Rozdział 5. Aplikacje dla mechaników 165


























































166 AutoCAD. Automatyzacja zadań grafiki za pomocą Delphi


























































Rozdział 5. Aplikacje dla mechaników 167


























































168 AutoCAD. Automatyzacja zadań grafiki za pomocą Delphi


























































Rozdział 5. Aplikacje dla mechaników 169
























































170 AutoCAD. Automatyzacja zadań grafiki za pomocą Delphi

























































Rozdział 5. Aplikacje dla mechaników 171

























































172 AutoCAD. Automatyzacja zadań grafiki za pomocą Delphi







W module RysSruby umieszczono definicją klasy zawierającą pola i metody
wspólne dla wszystkich obiektów opisujących elementy połączeń śrubowych użytych
w programie PolaczGwint, dziedziczącą po nim klasą , opisującą cechy wspólne
dla śrub i wyprowadzone z niej klasy , i określające odpo-
wiednio śruby z łbem sześciokątnym, śruby z łbem sześciokątnym z gwintem na całej
długości i śruby z łbem walcowym. Strukturą dziedziczenia dla obiektów elementów
połączeń gwintowych przedstawiono na rysunku 5.4.
TElGwint
(pola, właściwości i metody wspólne dla wszystkich
obiektów gwintowanych)
TSr82x TNakr TGwint TPodkl
(śruby) (nakrętki) (gwinty metryczne) (podkładki)
TSr82101 TPod82005
TNak82144 TGwinWewn
(śruby z łbem (podkładki okrągłe
(nakrętki sześciokątne) (gwinty wewnętrzne)
sześciokątnym) zgrubne)
TSr82105 TPod82006
TGwinZewn
(śruby z łbem (podkładki okrągłe
(gwinty zewnętrzne)
sześciokątnym i gwintem dokładne)
na całej długości)
TPod82008
(podkładki
TSr82302
sprężyste)
(śruby z łbem walcowym)
Rysunek 5.4. Hierarchia obiektów opisujących elementy połączeń gwintowych
Kod modułu RysSruby przedstawia sią nastąpująco:














Rozdział 5. Aplikacje dla mechaników 173



























































174 AutoCAD. Automatyzacja zadań grafiki za pomocą Delphi
























































Rozdział 5. Aplikacje dla mechaników 175
























































176 AutoCAD. Automatyzacja zadań grafiki za pomocą Delphi



























































Rozdział 5. Aplikacje dla mechaników 177


























































178 AutoCAD. Automatyzacja zadań grafiki za pomocą Delphi




























Okno programu PolaczGwint pokazano na rysunku 5.5. W oknie widać wybór śruby
M16 wraz z jej właściwościami (wykonanie, wytrzymałość, powłoka itp.). Natomiast na
rysunku 5.6 pokazano okno tego programu otrzymane po wstawieniu uprzednio wybranej
śruby i przełączeniu na zakładką o nazwie Nakrętki. Program automatycznie zapamiątał
ostatni wybór śruby i wyselekcjonował wstąpnie do tej śruby odpowiednią nakrątką.
Rysunek 5.5.
Okno programu
PolaczGwint podczas
wyboru ruby
Rysunek 5.6.
Okno programu
PolaczGwint podczas
wyboru nakr tki
Rozdział 5. Aplikacje dla mechaników 179
Rysunek 5.7.
Przykłady elementów
wygenerowanych
za pomocą programu
PolaczGwint w oknie
programu AutoCAD