Scrigroup - Documente si articole

Username / Parola inexistente      

Home Documente Upload Resurse Alte limbi doc  
AeronauticaComunicatiiElectronica electricitateMerceologieTehnica mecanica


PROIECT AutoLISP

Tehnica mecanica



+ Font mai mare | - Font mai mic



UNIVERSITATEA "POLITEHNICA" BUCURESTI

FACULTATEA "INGINERIA SI MANAGEMENTUL SISTEMELOR TEHNOLOGICE"



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')

)





Politica de confidentialitate | Termeni si conditii de utilizare



});

DISTRIBUIE DOCUMENTUL

Comentarii


Vizualizari: 936
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 2024 . All rights reserved