端子模展开系数

kaffeo

很好的端子模展开系数。很准很全不错

书巷里的门

最好贴个效果图，让大家也看看啊。

这次帮您贴出来  


;當內角為零的90度折彎且料厚小于或等于1.2時折彎系數是0.4t
;當內角為零的90度折彎且料厚小于1.5大于1.2時折彎系數是0.45t
;當內角為零的90度折彎且料厚大于1.5時折彎系數是0.5t
;當內角為零的非90度折彎且料厚小于或等于1.2時中型層的半徑為外圓弧由外向內偏移0.75t
;當內角為零的非90度折彎且料厚小于1.5大于1.2時中型層的半徑為外圓弧由外向內偏移0.71t
;當內角為零的非90度折彎且料厚大于1.5時中型層的半徑為外圓弧由外向內偏移0.68t
;r/t為內圓弧的半徑與料厚的比值
;*****************************************************;

;*****************************************************;
;;不鏽鋼內角為零的90度折彎系數表
;*****************************************************;
(defun [email=flyco@factor11]flyco@factor11[/email]()
  (if (and (> t 0) (<= t 1.2)) (setq k 0.4))
  (if (and (> t 1.2) (< t 1.5)) (setq k 0.45))
  (if (and (>= t 1.5) (<= t 10)) (setq k 0.5))
)
;*****************************************************;
;;不鏽鋼內角為零的非90度折彎系數表
;*****************************************************;
(defun [email=flyco@factor12]flyco@factor12[/email]()
  (if (and (> t 0) (<= t 1.2)) (setq k 0.75))
  (if (and (> t 1.2) (< t 1.5)) (setq k 0.71))
  (if (and (>= t 1.5) (<= t 10)) (setq k 0.68))
)
;*****************************************************;
;;不鏽鋼內角非零的折彎系數表
;*****************************************************;
(defun [email=flyco@factor13]flyco@factor13[/email]()
  (if (and (> r/t 0.0) (<= r/t 0.3)) (setq k 0.3))
  (if (and (> r/t 0.3) (<= r/t 0.4)) (setq k 0.35))
  (if (and (> r/t 0.4) (<= r/t 0.5)) (setq k 0.37))
  (if (and (> r/t 0.5) (<= r/t 0.6)) (setq k 0.38))
  (if (and (> r/t 0.6) (<= r/t 0.7)) (setq k 0.39))
  (if (and (> r/t 0.7) (<= r/t 0.8)) (setq k 0.40))
  (if (and (> r/t 0.8) (<= r/t 0.9)) (setq k 0.405))
  (if (and (> r/t 0.9) (<= r/t 1.0)) (setq k 0.41))
  (if (and (> r/t 1.0) (<= r/t 1.1)) (setq k 0.42))
  (if (and (> r/t 1.1) (<= r/t 1.2)) (setq k 0.424))
  (if (and (> r/t 1.2) (<= r/t 1.3)) (setq k 0.429))
  (if (and (> r/t 1.3) (<= r/t 1.4)) (setq k 0.433))
  (if (and (> r/t 1.4) (<= r/t 1.5)) (setq k 0.436))
  (if (and (> r/t 1.5) (<= r/t 1.6)) (setq k 0.439))
  (if (and (> r/t 1.6) (<= r/t 1.7)) (setq k 0.44))
  (if (and (> r/t 1.7) (<= r/t 1.8)) (setq k 0.445))
  (if (and (> r/t 1.8) (<= r/t 1.9)) (setq k 0.447))
  (if (and (> r/t 1.9) (<= r/t 2.0)) (setq k 0.449))
  (if (and (> r/t 2.0) (<= r/t 2.5)) (setq k 0.458))
  (if (and (> r/t 2.5) (<= r/t 3.0)) (setq k 0.464))
  (if (and (> r/t 3.0) (<= r/t 3.5)) (setq k 0.468))
  (if (and (> r/t 3.5) (<= r/t 3.75)) (setq k 0.47))
  (if (and (> r/t 3.75) (<= r/t 4.0)) (setq k 0.472))
  (if (and (> r/t 4.0) (<= r/t 4.5)) (setq k 0.474))
  (if (and (> r/t 4.5) (<= r/t 5.0)) (setq k 0.477))
  (if (and (> r/t 5.0) (<= r/t 6.0)) (setq k 0.48))
  (if (and (> r/t 6.0) (<= r/t 10.0)) (setq k 0.49))
  (if (and (> r/t 10.0) (<= r/t 15.0)) (setq k 0.5))
  (if (> r/t 15.0) (setq k 0.5))
)
;*****************************************************;
;;磷銅內角為零的90度折彎系數表
;*****************************************************;
(defun [email=flyco@factor21]flyco@factor21[/email]()
  (if (and (> t 0) (<= t 1.2)) (setq k 0.4))
  (if (and (> t 1.2) (< t 1.5)) (setq k 0.45))
  (if (and (>= t 1.5) (<= t 10)) (setq k 0.5))
)
;*****************************************************;
;;磷銅內角為零的非90度折彎系數表
;*****************************************************;
(defun [email=flyco@factor22]flyco@factor22[/email]()
  (if (and (> t 0) (<= t 1.2)) (setq k 0.75))
  (if (and (> t 1.2) (< t 1.5)) (setq k 0.71))
  (if (and (>= t 1.5) (<= t 10)) (setq k 0.68))
)
;*****************************************************;
;;磷銅內角非零的折彎系數表
;*****************************************************;
(defun [email=flyco@factor23]flyco@factor23[/email]()
  (if (and (> r/t 0.0) (<= r/t 0.3)) (setq k 0.3))
  (if (and (> r/t 0.3) (<= r/t 0.4)) (setq k 0.355))
  (if (and (> r/t 0.4) (<= r/t 0.5)) (setq k 0.37))
  (if (and (> r/t 0.5) (<= r/t 0.6)) (setq k 0.385))
  (if (and (> r/t 0.6) (<= r/t 0.7)) (setq k 0.395))
  (if (and (> r/t 0.7) (<= r/t 0.8)) (setq k 0.405))
  (if (and (> r/t 0.8) (<= r/t 0.9)) (setq k 0.405))
  (if (and (> r/t 0.9) (<= r/t 1.0)) (setq k 0.41))
  (if (and (> r/t 1.0) (<= r/t 1.1)) (setq k 0.425))
  (if (and (> r/t 1.1) (<= r/t 1.2)) (setq k 0.426))
  (if (and (> r/t 1.2) (<= r/t 1.3)) (setq k 0.43))
  (if (and (> r/t 1.3) (<= r/t 1.4)) (setq k 0.433))
  (if (and (> r/t 1.4) (<= r/t 1.5)) (setq k 0.438))
  (if (and (> r/t 1.5) (<= r/t 1.6)) (setq k 0.442))
  (if (and (> r/t 1.6) (<= r/t 1.7)) (setq k 0.442))
  (if (and (> r/t 1.7) (<= r/t 1.8)) (setq k 0.445))
  (if (and (> r/t 1.8) (<= r/t 1.9)) (setq k 0.45))
  (if (and (> r/t 1.9) (<= r/t 2.0)) (setq k 0.452))
  (if (and (> r/t 2.0) (<= r/t 2.5)) (setq k 0.458))
  (if (and (> r/t 2.5) (<= r/t 3.0)) (setq k 0.464))
  (if (and (> r/t 3.0) (<= r/t 3.5)) (setq k 0.468))
  (if (and (> r/t 3.5) (<= r/t 3.75)) (setq k 0.47))
  (if (and (> r/t 3.75) (<= r/t 4.0)) (setq k 0.472))
  (if (and (> r/t 4.0) (<= r/t 4.5)) (setq k 0.474))
  (if (and (> r/t 4.5) (<= r/t 5.0)) (setq k 0.477))
  (if (and (> r/t 5.0) (<= r/t 6.0)) (setq k 0.48))
  (if (and (> r/t 6.0) (<= r/t 10.0)) (setq k 0.485))
  (if (and (> r/t 10.0) (<= r/t 15.0)) (setq k 0.5))
  (if (> r/t 15.0) (setq k 0.5))
)
;*****************************************************;
;;鐵板類內角為零的90度折彎系數表
;*****************************************************;
(defun [email=flyco@factor31]flyco@factor31[/email]()
  (if (and (> t 0) (<= t 0.5)) (setq k 0.4))
  (if (and (> t 0.5) (< t 0.8)) (setq k 0.45))
  (if (and (>= t 0.8) (<= t 10)) (setq k 0.5))
)
;*****************************************************;
;;鐵板類內角為零的非90度折彎系數表
;*****************************************************;
(defun [email=flyco@factor32]flyco@factor32[/email]()
  (if (and (> t 0) (<= t 0.5)) (setq k 0.75))
  (if (and (> t 0.5) (< t 0.8)) (setq k 0.71))
  (if (and (>= t 0.8) (<= t 10)) (setq k 0.68))
)
;*****************************************************;
;;鐵板類內角非零的折彎系數表
;*****************************************************;
(defun [email=flyco@factor33]flyco@factor33[/email]()
  (if (and (> r/t 0.0) (<= r/t 0.3)) (setq k 0.3))
  (if (and (> r/t 0.3) (<= r/t 0.4)) (setq k 0.37))
  (if (and (> r/t 0.4) (<= r/t 0.5)) (setq k 0.38))
  (if (and (> r/t 0.5) (<= r/t 0.6)) (setq k 0.39))
  (if (and (> r/t 0.6) (<= r/t 0.7)) (setq k 0.40))
  (if (and (> r/t 0.7) (<= r/t 0.8)) (setq k 0.408))
  (if (and (> r/t 0.8) (<= r/t 0.9)) (setq k 0.414))
  (if (and (> r/t 0.9) (<= r/t 1.0)) (setq k 0.42))
  (if (and (> r/t 1.0) (<= r/t 1.1)) (setq k 0.425))
  (if (and (> r/t 1.1) (<= r/t 1.2)) (setq k 0.43))
  (if (and (> r/t 1.2) (<= r/t 1.3)) (setq k 0.433))
  (if (and (> r/t 1.3) (<= r/t 1.4)) (setq k 0.436))
  (if (and (> r/t 1.4) (<= r/t 1.5)) (setq k 0.44))
  (if (and (> r/t 1.5) (<= r/t 1.6)) (setq k 0.443))
  (if (and (> r/t 1.6) (<= r/t 1.7)) (setq k 0.446))
  (if (and (> r/t 1.7) (<= r/t 1.8)) (setq k 0.45))
  (if (and (> r/t 1.8) (<= r/t 1.9)) (setq k 0.452))
  (if (and (> r/t 1.9) (<= r/t 2.0)) (setq k 0.455))
  (if (and (> r/t 2.0) (<= r/t 2.5)) (setq k 0.46))
  (if (and (> r/t 2.5) (<= r/t 3.0)) (setq k 0.47))
  (if (and (> r/t 3.0) (<= r/t 3.5)) (setq k 0.473))
  (if (and (> r/t 3.5) (<= r/t 3.75)) (setq k 0.475))
  (if (and (> r/t 3.75) (<= r/t 4.0)) (setq k 0.476))
  (if (and (> r/t 4.0) (<= r/t 4.5)) (setq k 0.478))
  (if (and (> r/t 4.5) (<= r/t 5.0)) (setq k 0.48))
  (if (and (> r/t 5.0) (<= r/t 6.0)) (setq k 0.485))
  (if (and (> r/t 6.0) (<= r/t 10.0)) (setq k 0.5))
  (if (and (> r/t 10.0) (<= r/t 15.0)) (setq k 0.5))
  (if (> r/t 15.0) (setq k 0.5))
)
;*****************************************************;
;;紅銅,鋁內角為零的90度折彎系數表
;*****************************************************;
(defun [email=flyco@factor41]flyco@factor41[/email]()
  (if (and (> t 0) (<= t 1.2)) (setq k 0.4))
  (if (and (> t 1.2) (< t 1.5)) (setq k 0.45))
  (if (and (>= t 1.5) (<= t 10)) (setq k 0.5))
)
;*****************************************************;
;;紅銅,鋁內角為零的非90度折彎系數表
;*****************************************************;
(defun [email=flyco@factor42]flyco@factor42[/email]()
  (if (and (> t 0) (<= t 1.2)) (setq k 0.75))
  (if (and (> t 1.2) (< t 1.5)) (setq k 0.71))
  (if (and (>= t 1.5) (<= t 10)) (setq k 0.68))
)
;*****************************************************;
;;紅銅,鋁內角非零的折彎系數表
;*****************************************************;
(defun [email=flyco@factor43]flyco@factor43[/email]()
  (if (and (> r/t 0.0) (<= r/t 0.3)) (setq k 0.3))
  (if (and (> r/t 0.3) (<= r/t 0.4)) (setq k 0.365))
  (if (and (> r/t 0.4) (<= r/t 0.5)) (setq k 0.375))
  (if (and (> r/t 0.5) (<= r/t 0.6)) (setq k 0.39))
  (if (and (> r/t 0.6) (<= r/t 0.7)) (setq k 0.4))
  (if (and (> r/t 0.7) (<= r/t 0.8)) (setq k 0.408))
  (if (and (> r/t 0.8) (<= r/t 0.9)) (setq k 0.41))
  (if (and (> r/t 0.9) (<= r/t 1.0)) (setq k 0.42))
  (if (and (> r/t 1.0) (<= r/t 1.1)) (setq k 0.424))
  (if (and (> r/t 1.1) (<= r/t 1.2)) (setq k 0.428))
  (if (and (> r/t 1.2) (<= r/t 1.3)) (setq k 0.432))
  (if (and (> r/t 1.3) (<= r/t 1.4)) (setq k 0.436))
  (if (and (> r/t 1.4) (<= r/t 1.5)) (setq k 0.44))
  (if (and (> r/t 1.5) (<= r/t 1.6)) (setq k 0.443))
  (if (and (> r/t 1.6) (<= r/t 1.7)) (setq k 0.445))
  (if (and (> r/t 1.7) (<= r/t 1.8)) (setq k 0.45))
  (if (and (> r/t 1.8) (<= r/t 1.9)) (setq k 0.452))
  (if (and (> r/t 1.9) (<= r/t 2.0)) (setq k 0.455))
  (if (and (> r/t 2.0) (<= r/t 2.5)) (setq k 0.46))
  (if (and (> r/t 2.5) (<= r/t 3.0)) (setq k 0.468))
  (if (and (> r/t 3.0) (<= r/t 3.5)) (setq k 0.47))
  (if (and (> r/t 3.5) (<= r/t 3.75)) (setq k 0.472))
  (if (and (> r/t 3.75) (<= r/t 4.0)) (setq k 0.474))
  (if (and (> r/t 4.0) (<= r/t 4.5)) (setq k 0.478))
  (if (and (> r/t 4.5) (<= r/t 5.0)) (setq k 0.48))
  (if (and (> r/t 5.0) (<= r/t 6.0)) (setq k 0.485))
  (if (and (> r/t 6.0) (<= r/t 10.0)) (setq k 0.5))
  (if (and (> r/t 10.0) (<= r/t 15.0)) (setq k 0.5))
  (if (> r/t 15.0) (setq k 0.5))
)
;*****************************************************;
;;其它內角為零的90度折彎系數表
;*****************************************************;
(defun [email=flyco@factor51]flyco@factor51[/email]()
  (if (and (> t 0) (<= t 1.2)) (setq k 0.4))
  (if (and (> t 1.2) (< t 1.5)) (setq k 0.45))
  (if (and (>= t 1.5) (<= t 10)) (setq k 0.5))
)
;*****************************************************;
;;其它內內角為零的非90度折彎系數表
;*****************************************************;
(defun [email=flyco@factor52]flyco@factor52[/email]()
  (if (and (> t 0) (<= t 1.2)) (setq k 0.75))
  (if (and (> t 1.2) (< t 1.5)) (setq k 0.71))
  (if (and (>= t 1.5) (<= t 10)) (setq k 0.68))
)
;*****************************************************;
;;其它內內角非零的折彎系數表
;*****************************************************;
(defun [email=flyco@factor53]flyco@factor53[/email]()
  (if (and (> r/t 0.0) (<= r/t 0.3)) (setq k 0.3))
  (if (and (> r/t 0.3) (<= r/t 0.4)) (setq k 0.365))
  (if (and (> r/t 0.4) (<= r/t 0.5)) (setq k 0.375))
  (if (and (> r/t 0.5) (<= r/t 0.6)) (setq k 0.39))
  (if (and (> r/t 0.6) (<= r/t 0.7)) (setq k 0.4))
  (if (and (> r/t 0.7) (<= r/t 0.8)) (setq k 0.408))
  (if (and (> r/t 0.8) (<= r/t 0.9)) (setq k 0.41))
  (if (and (> r/t 0.9) (<= r/t 1.0)) (setq k 0.42))
  (if (and (> r/t 1.0) (<= r/t 1.1)) (setq k 0.424))
  (if (and (> r/t 1.1) (<= r/t 1.2)) (setq k 0.428))
  (if (and (> r/t 1.2) (<= r/t 1.3)) (setq k 0.432))
  (if (and (> r/t 1.3) (<= r/t 1.4)) (setq k 0.436))
  (if (and (> r/t 1.4) (<= r/t 1.5)) (setq k 0.44))
  (if (and (> r/t 1.5) (<= r/t 1.6)) (setq k 0.443))
  (if (and (> r/t 1.6) (<= r/t 1.7)) (setq k 0.445))
  (if (and (> r/t 1.7) (<= r/t 1.8)) (setq k 0.45))
  (if (and (> r/t 1.8) (<= r/t 1.9)) (setq k 0.452))
  (if (and (> r/t 1.9) (<= r/t 2.0)) (setq k 0.455))
  (if (and (> r/t 2.0) (<= r/t 2.5)) (setq k 0.46))
  (if (and (> r/t 2.5) (<= r/t 3.0)) (setq k 0.468))
  (if (and (> r/t 3.0) (<= r/t 3.5)) (setq k 0.47))
  (if (and (> r/t 3.5) (<= r/t 3.75)) (setq k 0.472))
  (if (and (> r/t 3.75) (<= r/t 4.0)) (setq k 0.474))
  (if (and (> r/t 4.0) (<= r/t 4.5)) (setq k 0.478))
  (if (and (> r/t 4.5) (<= r/t 5.0)) (setq k 0.48))
  (if (and (> r/t 5.0) (<= r/t 6.0)) (setq k 0.485))
  (if (and (> r/t 6.0) (<= r/t 10.0)) (setq k 0.5))
  (if (and (> r/t 10.0) (<= r/t 15.0)) (setq k 0.5))
  (if (> r/t 15.0) (setq k 0.5))
)
;*****************************************************;
;;內角為零的反折折彎系數表如:a+b+1.6t
;*****************************************************;
(defun flyco@factorfz]()
  (setq k 1.6)
)
;*********************修改系數區域終點**************************

xmzy-960

很好的端子模展开系数。很准很全不错

520wxy

楼主，这些有没有验证过啊，再说怎么加载的也是个门路啊

LIAOYAO

不鏽鋼內角為零的90度折彎系數表
;*****************************************************;
(defun [email=flyco@factor11]flyco@factor11[/email]()  ---- 郵箱--有誤
  (if (and (> t 0) (<= t 1.2)) (setq k 0.4))   ------------------板厚0~1.2    系數=0.4
  (if (and (> t 1.2) (< t 1.5)) (setq k 0.45))   ------------------板厚大于1.2~1.5    系數=0.45
  (if (and (>= t 1.5) (<= t 10)) (setq k 0.5))   ------------------板厚大于1.5~10    系數=0.5
)
;不鏽鋼內角為零的非90度折彎系數表
;*****************************************************;
(defun [email=flyco@factor12]flyco@factor12[/email]()  ---- 郵箱--有誤
  (if (and (> t 0) (<= t 1.2)) (setq k 0.75))  ------------------板厚0~1.2    系數=0.75       ~~=0.25
  (if (and (> t 1.2) (< t 1.5)) (setq k 0.71))  ------------------板厚大于1.2~1.5    系數=0.71      ~~=0.29
  (if (and (>= t 1.5) (<= t 10)) (setq k 0.68))  ------------------板厚大于1.5~10    系數=0.68      ~~=0.32
)

happy168

很准很全不错

林海88

很好的端子模展开系数

63526181

楼主加载后怎么用呀

mjwloveboy

很好很好很好.....................

LIKUNPENG321

不错。。。。。

zhuyeru

怎么加载啊

lihy168

多谢楼主的分享，谢谢了

lihy168

多谢楼主的分享，谢谢了

zhanghui75126

請問如何加載到CAD里，運行命令是什么？

SONGZHAO

請問如何加載到CAD里，運行命令是什么？

cuble1234

学习啊！挺不错的！

gedong

下来先学习学习，顶一个

long9988

几个月没上过线了。。。。。顶一个。。。。。

cadyh

学习了   好东西

ch00666240

学习了,谢了LA