Scrigroup - Documente si articole

Username / Parola inexistente      

Home Documente Upload Resurse Alte limbi doc  
AeronauticaComunicatiiElectronica electricitateMerceologieTehnica mecanica


PROIECT LA AutoLISP

Tehnica mecanica



+ Font mai mare | - Font mai mic



UNIVERSITATEA "POLITEHNICA" BUCURESTI

FACULTATEA "INGINERIA SI MANAGEMENTUL SISTEMELOR TEHNOLOGICE"




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

)





Politica de confidentialitate | Termeni si conditii de utilizare



DISTRIBUIE DOCUMENTUL

Comentarii


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