Ojala y pueda Ayudarte¡
disculpa por mi mal inglés. Soy de México
Code:
(defun CON (a)
(* PI (/ a 180.0))
);defun
(defun C:Huel (/ p1 rd1 rd2 rd3 rd4 rd5 rd6 rd6 rd8 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12
Old_Snap Old_Blip Old_Light)
(setq Old_Snap (getvar "osmode")
Old_Blip (getvar "blipmode")
Old_Light (getvar "higlight")
);setq
(setvar "cmdecho" 0)
(setvar "blipmode" 0)
(setq p1 (getpoint "\nInsertion Point: "))
(setvar "OSMODE" 0)
(setq rd1 (getdist "\nEnter the Web Width: ")
rd2 (getdist "\nEnter the Left Flange Height: ")
rd3 (getdist "\nEnter the Right Flange Height: ")
rd4 (getdist "\nEnter the Right Drop Length: ")
rd5 (getdist "\nEnter the Left Drop Length: ")
rd6 (getdist "\nEnter Right Flange Thickness T1: ")
rd7 (getdist "\nEnter the Web Thickness T2: ")
rd8 (getdist "\nEnter the Left Flange Thicknes T3: ")
);setq
(setq p2 (polar p1 (CON 270.0) rd8)
p3 (polar p2 (CON 0.0) rd5)
p4 (polar p3 (CON 270.0) (- rd1 rd8 rd6))
p5 (polar p4 (CON 180.0) rd4)
p6 (polar p5 (CON 270.0) rd6)
p7 (polar p6 (CON 0.0) rd3)
p8 (polar p7 (CON 90.0) rd6)
p9 (polar p8 (CON 180.0) (- rd3 rd4 rd7))
p10 (polar p9 (CON 90.0) (- rd1 rd8 rd6))
p11 (polar p10 (CON 0.0) (- rd2 rd5 rd7))
p12 (polar p11 (CON 90.0) rd8)
);setq
(command "PLINE" p1 "W" "" "" p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 "C")
(prompt "\nRotation Angle: ")
(command "rotate" "last" "" p1 pause)
(setvar "OSMODE" Old_Snap)
(setvar "BLIPMODE" Old_Blip)
(setvar "HIGHLIGHT" Old_Light)
(princ)
);defun