没有仔细整理,还是用sweep扫略的,昨天没保存新写的一个。其实很简单的问题。不知道你怎么划不出来。贴给你。
- /clear,nostart
- /prep7
- et,1,45
- mp,ex,1,200E9
- mp,nuxy,1,0.3
- blc4,,,100,100,400
- cyl4,50,50,40,,,,360
- vgen,,2,,,,,20,,,1
- vsbv,1,2
- cm,v1,volu
- k,100,50,50
- k,101,
- k,102,,,400
- l,101,102
- *get,lnum,line,,num,max,
- lsel,none
- circle,100,40
- cm,l1,line
- lsel,all
- asel,none
- adrag,l1,,,,,,lnum
- cm,a1,area
- allsel,all
- vsba,v1,a1
- wpoff,0,0,20
- vsbw,all
- wpoff,0,0,360
- vsbw,all
- wpoff,0,50,0
- wpro,,90
- vsbw,all
- wpoff,50,0,-50
- wpro,,,90
- vsbw,all
- type,1
- mat,1
- esize,10
- vsweep,all
复制代码 |