Scrigroup - Documente si articole

Username / Parola inexistente      

Home Documente Upload Resurse Alte limbi doc  

CATEGORII DOCUMENTE





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

  )








Politica de confidentialitate

DISTRIBUIE DOCUMENTUL

Comentarii


Vizualizari: 505
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 2019 . All rights reserved

Distribuie URL

Adauga cod HTML in site