[Описание]
Уголок неравнополочный по ГОСТ 8510-86* 

[Виды]
1=Сечение
2=Сбоку
3=Сверху

[Сечение]
Icon=Уголок_8510-86.GIF

[Сбоку]
Icon=Уголок_8510-86-П.GIF

[Сверху]
Icon=Уголок_8510-86-В.GIF


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

  (setq r1 (* h 0.09) r2 (* h 0.03))
  (setq a (- t1 r2))
  (initget 1)
  (setq ptr (getpoint "\nТочка вставки : "))
  (setvar "OSMODE" 0)
  (command "_.pline" ptr "_w" 0 0
  (setq p (rc_vc++ ptr b 0))
  (setq p (rc_vc++ p 0 (- t1 r2)))
   "_arc" "_ce"
  (setq p (rc_vc++ p (* -1 r2) 0))
  (setq p4 (rc_vc++ p 0 r2))
  "_line"
  (setq p5 (rc_vc++ ptr (+ t1 r1) t1))
  "_arc"
  (setq p7 (rc_vc++ p5 (* -1 r1) r1))
  "_line"
  (setq p (rc_vc++ ptr t1 (- h r2)))
  "_arc" "_ce"
  (setq p (rc_vc++ p (* -1 r2) 0))
  (setq p (rc_vc++ p 0 r2))
  "_line"
  (setq p11 (rc_vc++ ptr 0 h))
  "_c")
  (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 (* $t$ $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) "")
  (end_vc++)
  (princ)
)

[Сверху-LISP]
(defun $main$ ( / b s ptr1 ptr2 pangle angp90 angm90 pl p1 p)
  (begin_vc++)
  (setq b (* $h$ $Scale$ 10))
  (setq s (* $t$ $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) "")
  (end_vc++)
  (princ)
)


[Размеры]
№		h,см	b,см	t,см	r1,см	r2,см	A,см2	Iy,см4	Wy,см3	iy,см	Iz,см4	Wz,см3	iz,см	Iv,см4	Wv,см3	iv,см	yo,см	zo,см	Iyz,см4	tg a	P,Т/м
L50x32x4	5.000	3.200	0.400	0.550	0.180	3.170	7.980	2.380	1.590	2.560	1.050	0.900	1.520	0.880	0.690	0.760	1.650	2.590	0.401	0.002
L75x50x5	7.500	5.000	0.500	0.800	0.270	6.110	34.810	6.810	2.390	12.470	3.250	1.430	7.240	2.730	1.090	1.170	2.390	12.000	0.436	0.005
L100x63x8	10.000	6.300	0.800	1.000	0.330	12.570	126.960	19.010	3.180	39.210	8.170	1.770	23.380	6.820	1.360	1.500	3.320	40.500	0.391	0.010
L125x80x8	12.500	8.000	0.800	1.100	0.370	15.980	225.620	30.260	4.000	80.950	13.470	2.280	48.820	11.250	1.750	1.840	4.050	84.100	0.406	0.013
L125x80x10	12.500	8.000	1.000	1.100	0.370	19.700	311.610	37.270	3.980	100.470	16.520	2.260	59.330	13.740	1.740	1.920	4.140	102.000	0.404	0.015
