huright 发表于 2007-6-21 16:38

做出来当然感觉就没什么了。

gaussion 发表于 2008-11-2 20:54

回复 9楼 mengjigang 的帖子

不知道这个命令流现在还有么
想学习下，能否发到网上来，或者我的邮箱呢？
邮箱：gssh8302@163.com

lvgang637 发表于 2009-12-28 21:29

回复 15楼 dgc5112 的帖子

正确，指点思路很好，建议加分！

lvgang637 发表于 2009-12-28 21:47

回复 12楼 rodge 的帖子

定义了pi怎么没用上啊？

lvgang637 发表于 2009-12-28 22:04

回复 12楼 rodge 的帖子

wpave,7,8,9-h*n0/2 !!!!设置弹簧的中心坐标为(7,8,9)
9-h*n0/2 ---------是什么意思？

yfsh 发表于 2011-5-1 00:12

回复 12 # rodge 的帖子

{:{23}:}{:{23}:}{:{23}:}{:{23}:}{:{23}:}，我新手，这个例子你给我借鉴么？

qq358213231 发表于 2011-5-2 22:07

向高手学习

yfsh 发表于 2011-5-4 23:26

{:{39}:}{:{39}:}{:{39}:}{:{39}:}{:{39}:}{:{39}:}

yfsh 发表于 2011-5-5 22:55

本帖最后由 yfsh 于 2011-5-5 22:58 编辑

回复 15 # dgc5112 的帖子

{:{39}:}file:///C:/Users/asus/AppData/Local/Temp/msohtml1/01/clip_image002.jpg

yfsh 发表于 2011-5-12 23:36

回复 12 # rodge 的帖子

很牛啊
{:{39}:}

zp4655958 发表于 2011-10-28 08:46

这是王新敏的命令流
!整圈数圆柱形螺旋弹簧的几何建模
FINISH
/CLEAR
/PREP7
!1.定义弹簧参数
D=4
C=8
N=10
DZ=C*D
T=DZ/2.5
*IF,T,LT,D,THEN
T=D
*ENDIF
!2.创建一圈螺旋线
CSYS,1
K,1,DZ/2,0,-T/2
K,2,DZ/2,180
L,1,2
CSYS,0
LSYMM,Z,1
LSYMM,Y,2,,,,,1
NUMMRG,ALL
CM,L1,LINE
!3.在螺旋线端部创建簧丝截面
KWPAVE,1
WPROTA,,90
CYL4,,,D/2
!4.沿L1路径拖拉圆面创建体、复制体等
VDRAG,1,,,,,,L1
VGEN,N,ALL,,,,,T
NUMMRG,KP
WPCSYS

!任意圈数圆柱形螺旋弹簧的几何建模
FINISH
/CLEAR
/PREP7
!1.定义弹簧参数（同上）
D=4
C=8
DZ=C*D
T=DZ/6
N=4.7
*IF,T,LT,D,THEN
T=D
*ENDIF
TKPD=90
!2.创建全部螺旋线
CSYS,1
TDEG=N*360
TDEG1=MOD(TDEG,TKPD)
N0=(TDEG-TDEG1)/TKPD+1
*AFUN,DEG
*DO,I,1,N0
CTA=(I-1)*TKPD
Z=T/360*CTA
K,I,DZ/2,CTA,Z
*ENDDO
*IF,TDEG1,LT,1.0E-2,THEN
*ELSE
N0=N0+1
CTA=CTA+TDEG1
Z=T/360*CTA
K,N0,DZ/2,CTA,Z
*ENDIF
*DO,I,1,N0-1
L,I,I+1
*ENDDO
CM,L1,LINE
!3.在螺旋线端部创建簧丝截面
CSYS,0
WPOFF,DZ/2
WPROTA,,90
CYL4,,,D/2
VDRAG,1,,,,,,L1
CMSEL,S,L1
LDELE,ALL,,,1
ALLSEL
WPCSYS
页: 1 [2]
查看完整版本: APDL命令流挑战赛二——弹簧的参数化绘制