Scrigroup - Documente si articole

Username / Parola inexistente      

Home Documente Upload Resurse Alte limbi doc  

CATEGORII DOCUMENTE




loading...



AeronauticaComunicatiiElectronica electricitateMerceologieTehnica mecanica


PROIECT LA AutoLISP

Tehnica mecanica

+ Font mai mare | - Font mai mic








DOCUMENTE SIMILARE

Trimite pe Messenger
Tipuri noi de angrenaje
Tensiuni electromotoare induse
FENOMENE ACUSTICE – PROCESUL DE EVACUARE
Masini unelte - Introducere. Definirea Masinilor Unelte
Descrierea si functiomarea pompei de injectie
UTILAJE PENTRU REDUCEREA DIMENSIUNILOR MATERIALELOR - PROCESUL DE MARUNTIRE
Proiectarea pieselor de contact
Pornirea motorului pet imp de iarna - Cum conducem daca motorul e Diesel
Tehnologia operatiei de ambutisare a pieselor pentru caroserii auto
Asamblari cu pene si caneluri

UNIVERSITATEA “POLITEHNICA” BUCURESTI

FACULTATEA “INGINERIA SI MANAGEMENTUL SISTEMELOR TEHNOLOGICE”




PROIECT
LA
AutoLISP


Structura proiectului:

Desenul de ansamblu al piesei;

Calculul coordonatelor punctelor;

Variante constructive;

Pasii necesari algoritmului (programului);

Programul propriu-zis.

DESENUL DE ANSAMBLU AL PIESEI


CALCULUL COORDONATELOR PUNCTELOR

Xi

COORDONATE

Xi

Yi

X1

0

E/2

X2

0

F/2

X3

A

F/2

X4

A

H/2

X5

A+B

I/2

X6

A+B+C

I/2

X7

A+B+C

G/2

X8

D-(A+B+C)

G/2

X9

D-(A+B+C)

I/2

X10

D-(A+B)

I/2

X11

D-A

H/2

X12

D-A

F/2

X13

D

F/2

X14

D

E/2

VARIANTE CONSTRUCTIVE

A

B

C

D

E
F
G
H
I
I

100




50

125

800

150

180

250

400

600

II

75

120

105

950

75

120

180

300

500

III

60

90

100

750

120

200

300

450

650

PASII NECESARI ALGORITMULUI

Introducere de date (dimensiunile A-I)

Orientare UCS UCS piesa

Calculul punctelor propriu-zise (X1 – X14)

Desenare piesa

Refacere puncte initiale

ALGORITMUL PROPRIU-ZIS

(defun C:Lidia()

(date)

(orientare)

(puncte)

(desen)

(pa)

)

(defun date()

(setq A (getreal 'nDati cota A: '))

(setq B (getreal 'nDati cota B: '))

(setq C (getreal 'nDati cota C: '))

(setq D (getreal 'nDati cota D: '))

(setq E (getreal 'nDati cota E: '))

(setq F (getreal 'nDati cota F: '))

(setq G (getreal 'nDati cota G: '))

(setq H (getreal 'nDati cota H: '))

(setq I (getreal 'nDati cota I: '))

)

(defun orientare()

(setq PS(getpoint 'nPunct de inserare: '))

(setq OR(getorient PS 'nOrientare: '))

(setq OC(* OR (/ 180 pi)))

(command 'UCS' 'S' 'Baza')

(command 'UCS' 'o' PS)

(command 'UCS' 'z' OC)

(command 'UCSICON' 'OR')

)

(defun puncte()

(setq X1 (list 0 (/ E 2)))

(setq X2 (list 0 (/ F 2)))

(setq X3 (list A (/ F 2)))

(setq X4 (list A (/ H 2)))

(setq X5 (list (+ A B )(/ I 2)))

(setq X6 (list (+ A (+ B C ))(/ I 2)))

(setq X7 (list (+ A (+ B C))(/ G 2)))

(setq X8 (list (- D (+ A B C))(/ G 2)))

(setq X9 (list (- D (+ A B C))(/ I 2)))

(setq X10 (list (- D (+ A B))(/ I 2)))

(setq X11 (list (- D A) (/ H 2)))

(setq X12 (list (- D A) (/ F 2)))

(setq X13 (list D (/ F 2)))

(setq X14 (list D (/ E 2)))

)

(defun desen()

(command 'pline' X1 X2 X3 X4 X5 X6 X7 X8 X9 X10 X11 X12 X13 X14 'C')

(setq pl1(entlast))

(command 'mirror' pl1 '' '(0 0) '(1 0) 'n')

(setq pl2(entlast))

(command 'line' X1 (list (car X1 - (cadr X1))) '')

(command 'line' X14 (list (car X14 - (cadr X14))) '')

(command 'hatch' 'U' '45' 18 'N' pl1 pl2 '')

)

(defun pa()

(command 'UCS' 'R' 'Baza')

(command 'UCS' 'D' 'Baza')

)



loading...






Politica de confidentialitate

DISTRIBUIE DOCUMENTUL

Comentarii


Vizualizari: 555
Importanta: rank

Comenteaza documentul:

Te rugam sa te autentifici sau sa iti faci cont pentru a putea comenta

Creaza cont nou

Termeni si conditii de utilizare | Contact
© SCRIGROUP 2020 . All rights reserved

Distribuie URL

Adauga cod HTML in site