[讨论]APDL命令流挑战赛三——点到曲线的切线

[windows251]

问题：ANSYS中好像没有画点到圆弧线的切线这样的命令流，因此以这个原型汇出如下图形
图片1中标有的尺寸是要给定的
（下面给出一些命令流，仅供参考和交流）（摘自振动论坛）

[windows251]

fini
/cle
/prep7
rect,0,6,0,8,
cyl4,2.5,5,1.5
cyl4,3.5,5,1.5
asba,1,2
asba,4,3
wpoffs,,2,
wpro,,90,
asbw,all
wpcsys,-1,0
cyl5,0.5,2,2.5,5
cyl5,5.5,2,3.5,5
asba,3,1
asba,6,4
a,25,26,23,24
a,18,17,7,8
l2tan,-28,18
asbl,7,21
wpro,,,90
wpoffs,,,0.5
asbw,2
wpoffs,,,5
asbw,10
adel,3,8,5
adel,11
aadd,all

[windows251]

finish
/clear,nostart
/prep7
k,,
k,,0.5
k,,0.5,2
k,,,2
k,,1.0189505,5.237397
k,,,5.237397
k,,2.5,6.5
k,,3,6.5
k,,,6.5
k,,,8
k,,3,8
cyl4,2.5,5,1.5
a,1,2,3,4
a,3,5,6,4
a,5,7,9,6
a,9,10,11,8,7
asba,4,1
aadd,all

wpoffs,3,6.5
cswpla,11
csys,11
ARSYM,,all
aadd,all

[windows251]

这里设圆弧的角度theat=60度

finish
/clear
*AFUN,DEG
a=6
r=3
b=1
h=2
theat=60
/prep7
k,1,0,0
k,2,-a/2,0
wpoffs,-a/2,-r
wprota,theat
csys,4
k,3,0,r
k,4,-3,r
l,1,2
larc,2,3,4,r
wpoffs,-3,r
wprota,-theat
k,5,0,-1
k,6,-b,-1
csys,0
*get,ux,kp,6,loc,x
k,7,ux,h
k,8,0,h
num=1
*do,num,3,7,1
l,num,num+1
*enddo
l,8,1
al,all
arsym,x,1
aadd,all
finish

[han912xue]

强人那:tongue: