Nazwa forum

Poprawiony program:

(defun sworzen ()
(setq d1 40)
(setq d2 60)
(setq d3 16)
(setq l1 90)
(setq l2 65)
(setq l3 25)
(setq n 5)
(setq p0 (getpoint "\nZazanaczyć pierwszy punkt:"))
(setq p1 (list (car p0) (+ (cadr p0) (- (/ d2 2) n))))
(setq p2 (list (+ (car p1) n) (+ (cadr p1) n)))
(setq p3 (list (+ (car p2) (- l1 (+ l2 n))) (cadr p2) ))
(setq p4 (list (car p3) (cadr p1) ))
(setq p5 (list (+ (car p4) (- l2 n)) (cadr p4)))
(setq p6 (list (+ (car p5) n) (- (cadr p5) n)))
(setq p7 (list (car p6) (- (cadr p6) (/ d1 2))))
(setq p8 (list (car p7) (- (cadr p7) (/ d1 2))))
(setq p9 (list (- (car p8) n) (- (cadr p8) n)))
(setq p10 (list (car p4) (cadr p9)))
(setq p11 (list (car p10) (- (cadr p10) n)))
(setq p12 (list (car p2) (cadr p11)))
(setq p13 (list (car p0) (cadr p10)))
(setq p14 (list (- (car p7) l3) (cadr p7)))
(command "_layer" "_s" "0" "")
(command "_pline" p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p1 "")
(command "_line" p2 p12 "")
(command "_line" p4 p10 "")
(command "_line" p5 p9 "")
(command "_circle" p14 "_d" d3)

)
(sworzen)

Wieczorem zrobie wymiarowanie, warstwy itp.


...

Kurwa, nie zauwazylem tego drugiego pliku na mailu.

Ostatnio edytowany przez pitrzak (2009-11-25 20:43:06)

(defun warstwy ()
(command "_layer" "_new" "0" "_new" "TL1" "_new" "TL2" "_new" "TL3" "_new" "TL4" "_new" "TL5" "")
(command "_layer" "_ltype" "continuous" "0" "")
(command "_layer" "_ltype" "center" "TL1" "")
(command "_layer" "_ltype" "continuous" "TL2" "")
(command "_layer" "_ltype" "continuous" "TL3" "")
(command "_layer" "_ltype" "dashed" "TL4" "")
(command "_layer" "_ltype" "continuous" "TL5" "")
(command "_layer" "_color" "_blue" "TL1" "")
(command "_layer" "_color" "_red" "TL2" "")
(command "_layer" "_color" "_green" "TL3" "")
(command "_layer" "_color" "_yellow" "TL4" "")
(command "_layer" "_color" "_green" "TL5" "")
             
(defun sworzen ()
(setq d1 40)
(setq d2 60)
(setq d3 16)
(setq l1 90)
(setq l2 65)
(setq l3 25)
(setq n 5)
(setq p0 (getpoint "\nZazanaczyć pierwszy punkt:"))
(setq p1 (list (car p0) (+ (cadr p0) (- (/ d2 2) n))))
(setq p2 (list (+ (car p1) n) (+ (cadr p1) n)))
(setq p3 (list (+ (car p2) (- l1 (+ l2 n))) (cadr p2)))
(setq p4 (list (car p3) (- (cadr p3) (- (/ d2 2) (/ d1 2)))))
(setq p5 (list (+ (car p4) (- l2 n)) (cadr p4)))
(setq p6 (list (+ (car p5) n) (- (cadr p5) n)))
(setq p7 (list (car p6) (cadr p0)))
(setq p8 (list (car p7) (- (cadr p7) (- (/ d1 2) n))))
(setq p9 (list (- (car p8) n) (- (cadr p8) n)))
(setq p10 (list (car p4) (cadr p9)))
(setq p11 (list (car p10) (- (cadr p10) (- (/ d2 2) (/ d1 2)))))
(setq p12 (list (car p2) (cadr p11)))
(setq p13 (list (car p0) (+ (cadr p12) n)))
(setq p14 (list (- (car p7) l3) (cadr p7)))

(setq p15 (list (- (car p0) 5) (cadr p0)))
(setq p16 (list (+ (car p7) 5) (cadr p7)))
(setq p17 (list (car p14) (- (cadr p14) (+ (/ d3 2) 5))))
(setq p18 (list (car p14) (+ (cadr p14) (+ (/ d3 2) 5))))

(setq p30 (list (+ (car p7) 11) (cadr p7)))
(setq p31 (list (- (car p0) 11) (cadr p0)))
(setq p32 (list (car p9) (- (cadr p0) 48)))
(setq p33 (list (car p9) (- (cadr p0) 55)))
(setq p34 (list (car p9) (- (cadr p0) 62)))
(setq p35 (list (car p9) (- (cadr p0) 41)))
(setq p36 (list (car p12) (- (cadr p12) 11)))
(setq p37 (list (- (car p14) (/ d3 2)) (cadr p14)))
(setq p38 (list (+ (car p14) (/ d3 2)) (cadr p14)))

(setq pk1 (list (car p3) (cadr p3)))

;gabaryty
(command "_layer" "_s" "0" "")
(command "_pline" p11 p12  p2 pk1 "_cl")
(command "_line" p4 p5 p6 p8 p9 p10 "" )
(command "_circle"  p14 "_d" d3 )
(command "_line" p12 p13 p1 p2 "")
(command "_line" p5 p9 "" )

;osie
(command "_layer" "_s" "TL1" "")
(command "_line" p15 p16 "")
(command "_line" p17 p18 "")

;wymiary
(command "_layer" "_s" "TL2" "")
(command "_.DIM" "_VER" p9 p5 p30 (strcat "%%c"(rtos d1 2 2)) "_exit")
(command "_.DIM" "_VER" p12 p2 p31 (strcat "%%c"(rtos d2 2 2)) "_exit")
(command "_.DIM" "_HOR" p8 p14 p32 (rtos l3 2 2) "_exit")
(command "_.DIM" "_HOR" p8 p11 p33 (rtos l2 2 2) "_exit")
(command "_.DIM" "_HOR" p8 p13 p34 (rtos l1 2 2) "_exit")
(command "_.DIM" "_HOR" p8 p9 p35 (strcat (rtos n 2 2) "x45%%d") "_exit")
(command "_.DIM" "_HOR" p13 p12 p36 (strcat (rtos n 2 2) "x45%%d") "_exit")
(command "_.DIM" "_HOR" p38 p37 p14 (strcat "%%c"(rtos d3 2 2)) "_exit")

;kreskowanie
(command "_layer" "_s" "TL3" "")
(command "_hatch" "_u" 45 3 "_n" pk1 "")

)
)
(warstwy)
(sworzen)