AutoLISP

 

Structura

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

VARIANTE CONSTRUCTIVE

PASII NECESARI ALGORITMULUI

Introducere de date (dimensiunile A-I)

Orientare UCS UCS piesa

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

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

)