Scrigroup - Documente si articole

Username / Parola inexistente      

Home Documente Upload Resurse Alte limbi doc  

CATEGORII DOCUMENTE





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

  )








Politica de confidentialitate

DISTRIBUIE DOCUMENTUL

Comentarii


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