AutoLISP

 

 

 

 

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)

VARIANTE CONSTRUCTIVE

PASII    NECESARI ALGORITMULUI

Introducere de date (dimensiunile A-L)

Orientare UCS UCS piesa

Calculul punctelor propriu-zise (X₁ - X₁₄)

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

)