[]
      67-2287-80 

[]
1=
2=
3=

[]
Icon=__67-2287-80.GIF

[]
Icon=__67-2287-80-.GIF

[]
Icon=__67-2287-80-.GIF

[-LISP]
(defun $main$ ( / b h t1 r1 a r2 p p4 p5 p7 p11 ee ptr ptr1)
  (begin_vc++)
  (setq b (* $b$ $Scale$ 10))
  (setq s (* $s$ $Scale$ 10))
  (setq h (* $h$ $Scale$ 10))
  ;;;(if (< $s$ 0.7) (setq s (* 0.7 $Scale$ 10)))

  (setq r1 (* h 0.09))
  (setq a (+ s r1))
  (initget 1)
  (setq ptr (getpoint "\n  : "))
  (setvar "OSMODE" 0)
  (command "_.pline" (rc_vc++ ptr r1 0) "_w" 0 0
  (setq p (rc_vc++ ptr (- b r1) 0))
   "_arc" "_ce"
  (setq p (rc_vc++ p 0 r1))
  (setq p4 (rc_vc++ p r1 0))
  "_line"
  (setq p5 (rc_vc++ p4 0 (- h r1 r1)))
   "_arc" "_ce"
  (setq p (rc_vc++ p5 (* -1 r1) 0))
  (setq p4 (rc_vc++ p 0 r1))
  "_line"
  (setq p (rc_vc++ p4 (* -1 (- b r1 r1)) 0))
  "_arc" "_ce"
  (setq p (rc_vc++ p 0 (* -1 r1)))
  (setq p (rc_vc++ p (* -1 r1) 0))
  "_line"
  (setq p11 (rc_vc++ p 0 (* -1 (- h r1 r1))))
  "_arc" "_ce"
  (setq p (rc_vc++ p11 r1 0))
  (setq p (rc_vc++ p 0 (* -1 r1)))
  "")
  
  (setq ptr1 (rc_vc++ ptr s s))
  (setq r1 (- r1 s) h (- h s s) b (- b s s))
  (command "_.pline" (rc_vc++ ptr1 r1 0) "_w" 0 0
  (setq p (rc_vc++ ptr1 (- b r1) 0))
   "_arc" "_ce"
  (setq p (rc_vc++ p 0 r1))
  (setq p4 (rc_vc++ p r1 0))
  "_line"
  (setq p5 (rc_vc++ p4 0 (- h r1 r1)))
   "_arc" "_ce"
  (setq p (rc_vc++ p5 (* -1 r1) 0))
  (setq p4 (rc_vc++ p 0 r1))
  "_line"
  (setq p (rc_vc++ p4 (* -1 (- b r1 r1)) 0))
  "_arc" "_ce"
  (setq p (rc_vc++ p 0 (* -1 r1)))
  (setq p (rc_vc++ p (* -1 r1) 0))
  "_line"
  (setq p11 (rc_vc++ p 0 (* -1 (- h r1 r1))))
  "_arc" "_ce"
  (setq p (rc_vc++ p11 r1 0))
  (setq p (rc_vc++ p 0 (* -1 r1)))
  "")


  (setq ee (entlast))
  (prompt "\n : ")
  (command "_.rotate" ee "" ptr pause)
 
  (end_vc++)
  (princ)
)

[-LISP]
(defun $main$ ( / h tt ptr1 ptr2 pangle angp90 angm90 pl p1 p)
  (begin_vc++)
  (setq b (* $b$ $Scale$ 10))
  (setq s (* $s$ $Scale$ 10))
  (initget 1)
  (setq ptr1 (getpoint "\n : "))
  (initget 1)
  (setq ptr2 (getpoint ptr1 "\n : "))
  (setq pangle (angle ptr1 ptr2))
  (setq angp90 (+ pangle (/ pi 2)))
  (setq angm90 (- pangle (/ pi 2)))
  (setq pl (distance ptr1 ptr2))
  (setvar "OSMODE" 0)
  (command "_.pline"
  (setq p1 (polar ptr1 angm90 (/ b 2)))
   "_w" 0 0
  (setq p (polar p1 pangle pl))
  (setq p (polar p angp90 b))
  (polar p (+ pangle pi) pl)
   "_c")
  (setq p (polar ptr1 (- pangle (/ pi 2)) (- (/ b 2) s)))
  (command "_.pline" p (polar p pangle pl) "")
  (setq p (polar ptr1 (+ pangle (/ pi 2)) (- (/ b 2) s)))
  (command "_.pline" p (polar p pangle pl) "")
  (end_vc++)
  (princ)
)

[-LISP]
(defun $main$ ( / h tt ptr1 ptr2 pangle angp90 angm90 pl p1 p)
  (begin_vc++)
  (setq b (* $h$ $Scale$ 10))
  (setq s (* $s$ $Scale$ 10))
  (initget 1)
  (setq ptr1 (getpoint "\n : "))
  (initget 1)
  (setq ptr2 (getpoint ptr1 "\n : "))
  (setq pangle (angle ptr1 ptr2))
  (setq angp90 (+ pangle (/ pi 2)))
  (setq angm90 (- pangle (/ pi 2)))
  (setq pl (distance ptr1 ptr2))
  (setvar "OSMODE" 0)
  (command "_.pline"
  (setq p1 (polar ptr1 angm90 (/ b 2)))
   "_w" 0 0
  (setq p (polar p1 pangle pl))
  (setq p (polar p angp90 b))
  (polar p (+ pangle pi) pl)
   "_c")
  (setq p (polar ptr1 (- pangle (/ pi 2)) (- (/ b 2) s)))
  (command "_.pline" p (polar p pangle pl) "")
  (setq p (polar ptr1 (+ pangle (/ pi 2)) (- (/ b 2) s)))
  (command "_.pline" p (polar p pangle pl) "")
  (end_vc++)
  (princ)
)


[]
		h,	b,	s,	A,2	Iy,4		Wy,3	iy,	Iz,4		Wz,3	iz,	G,/
160x120x6	16.000	12.000	0.600	32.160	1178.300	147.200	6.050	750.400		125.100	4.830	0.025
180x140x5	18.000	14.000	0.500	31.000	1481.500	164.600	6.910	1003.600	143.400	5.690	0.024
180x140x6	18.000	14.000	0.600	36.960	1746.200	194.000	6.870	1180.000	168.600	5.650	0.029
180x140x7	18.000	14.000	0.700	42.840	2001.000	222.300	6.830	1348.800	192.700	5.610	0.034
200x160x5	20.000	16.000	0.500	35.000	2092.900	209.300	7.730	1482.900	185.400	6.510	0.027
200x160x6	20.000	16.000	0.600	41.760	2471.500	247.100	7.690	1747.800	218.500	6.470	0.033
200x160x7	20.000	16.000	0.700	48.440	2837.500	283.700	7.650	2002.800	250.400	6.430	0.038
200x160x8	20.000	16.000	0.800	55.040	3191.200	319.100	7.610	2248.100	281.000	6.390	0.043
