几何尺寸与公差论坛------致力于产品几何量公差标准GD&T (GDT:ASME)|New GPS(ISO)研究/CAD设计/CAM加工/CMM测量

计算钣金件展开长度和冲裁力的程序
www.dimcax.com
计算钣金件展开长度和冲裁力的程序
我在网上下了一个计算钣金件展开长度的autocad.lisp小程序,经过二楼朋友的指点,我在上面加了算冲裁力(现在还只能算a3材料的冲裁力,其他材料因为我不常用所以我没加上去),另外根据材料厚度"t"和展开长度"tl"画展开图:
通过工具菜单->加载应用程序可加载该程序，然后可直接在命令行输入相关命令运行。如需要每次启动时均加载该程序，则可以将该文件放在启动组中。
文件预览:
d
估计是特征点捕捉打开闹的。将最后的函数更改如下：
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
( c:zk()
( "cmdecho" 0)
()
( " 1. 计算长度 " )
( " 2. 计算展开 " )
( ( 1 2 4))
( c ( "\n 请选择 ( 1 2 ) "))
( t ( "\n 请输入材料厚度 t = "))
( sst ())
( n ( sst))
( i 0)
( tl 0)
( l 0)
( ( i n)
( ety ( ( sst i)))
( name ( ( 0 ety)))
( (( c 1) (cl))
(( c 2) (zka))
)
( tl ( tl l))
)
( (( c 1) ( "\n 总长 l = ") ( tl) ( " ok "))
(( c 2)
( "\n 总长 l = ")
( tl)
( pa ( "\n 请输入点坐标:"))
( pb ( pa 0 tl))
( pc ( pb ( pi 2) t))
( pd ( pa ( pi 2) t))
( olsos ( "osmode"))
( "osmode" 0)
( "pline" pa pb pc pd "c")
( "osmode" oldos)
)
)
)
踅摸
d
谢谢你,我按你的意思改了程序,现在一却正常,
d
好!!顶你!!
d
偶顶
d