Scrigroup - Documente si articole

Username / Parola inexistente      

Home Documente Upload Resurse Alte limbi doc  

CATEGORII DOCUMENTE




loading...



AeronauticaComunicatiiElectronica electricitateMerceologieTehnica mecanica


PROIECT AutoLISP

Tehnica mecanica

+ Font mai mare | - Font mai mic







DOCUMENTE SIMILARE

Trimite pe Messenger
Notiuni generale despre instalatia de alimentare a motorului cu aprindere prin compresie
MASINA CU FLUX TRANSVERSAL
METODE DE OBTINERE A ZAHARULUI
Pornirea stea - triunghi a motorului asincron trifazat
Intretinerea planificata a utilajelor
SUDAREA IN MEDIU DE GAZE (SG)
PROIECT TEHNICIAN ELECTROMECANIC - ACTIONARI HIDRAULICE SI PNEUMATICE
Reglare IJ
Metode metalografice pentru determinari cantitative
Proiectarea tehnologiei de executie a unui cutit pentru canelat interior - Tipuri de cutite

UNIVERSITATEA “POLITEHNICA” BUCURESTI

FACULTATEA “INGINERIA SI MANAGEMENTUL SISTEMELOR TEHNOLOGICE”




PROIECT
AutoLISP

Proiect AutoLISP

Structura proiectului:

Desenul de ansamblu al piesei;

Calculul coordonatelor punctelor;

Variante constructive;

Pasii necesari algoritmului (programului);

Programul propriu-zis;

Observatii si concluzii.

DESENUL    DE ANSAMBLU AL PIESEI



CALCULUL COORDONATELOR PUNCTELOR

(IN PROIECTIE PLANA)

Xi

COORDONATE

Xi

Yi

X1

A

G/2

X2

A

K/2

X3

0

K/2

X4

0

L/2

X5

A+B

L/2

X6

A+B

J/2

X7

A+B+C

J/2

X8

A+B+C

I/2

X9

A+B+C+D

I/2

X10

A+B+C+D

H/2

X11

A+B+C+D+E

H/2

X12

A+B+C+D+E

I/2

X13

F

I/2

X14

F

G/2

VARIANTE CONSTRUCTIVE

A

B

C

D

E
F
I

50

100

700

200

150

1500



II

0

250

550

100

300

1750

III

100

150

750

150

0

1400

G

H

I

J

K
L

200

350

500

650

750

900

 

150

200

400

550

700

850

 

100

200

350

550

725

1000

PASII    NECESARI ALGORITMULUI

Introducere de date (dimensiunile A-L)

Orientare UCS UCS piesa

Calculul punctelor propriu-zise (X1 – X14)

Desenare piesa

Refacere puncte initiale

ALGORITMUL PROPRIU-ZIS

(defun C:CRISTI()

(date)

(orientare)

(puncte)

(desen)

(final)

(defun date()

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

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

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

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

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

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

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

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

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

(setq J (getreal 'nIntroduceti cota J: '))

(setq K (getreal 'nIntroduceti cota K: '))

(setq L (getreal 'nIntroduceti cota L: '))

)

(defun orientare()

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

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

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

(command 'UCS' 'S' 'BAZA')

(command 'UCS' 'o' PS)

(command 'UCS' 'z' OC)

(command 'UCSICON' 'OR')

)

(defun puncte()

(setq X1 (list A (/ G 2)))

(setq X2 (list A (/ K 2)))

(setq X3 (list 0 (/ K 2)))

(setq X4 (list 0 (/ L 2)))

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

(setq X6 (list (+ A B )(/ J 2)))

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

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

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

(setq X10 (list (+ A B C D)(/ H 2)))

(setq X11 (list (+ A B C D E)(/ H 2)))

(setq X12 (list (+ A B C D E)(/ I 2)))

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

(setq X14 (list F(/ G 2)))

(defun desen()

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

(setq pol1(entlast))

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

(setq pol2(entlast))

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

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

(command 'revolve' pol1 pol2 '' 'x' '360' '')

(command '_vpoint' '1,1,1')

(command 'hide')

)

(defun final()

(command 'UCS' 'R' 'BAZA')

(command 'UCS' 'D' 'BAZA')

)



loading...







Politica de confidentialitate

DISTRIBUIE DOCUMENTUL

Comentarii


Vizualizari: 527
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