APDL命令流挑战赛三——点到曲线的切线

rodge

APDL命令流挑战赛本是很不错的活动，出了2期之后就没见再出过，
最近刚碰到这样的问题，索性就当作这次命令流挑战赛吧

问题：ANSYS中好像没有画点到圆弧线的切线这样的命令流，因此以这个原型汇出如下图形
图片1中标有的尺寸是要给定的
我先给出我自己的
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

[ 本帖最后由 xuruikl 于 2007-6-10 17:15 编辑 ]

mdj219

不错,顶一下
共同进步

mdj219

明天给我的答案

mdj219

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

mdj219

很是幼稚，还应该好好学习

xurs10

这里设圆弧的角度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

panwang

要不要我也来贴个apdl.自己写的比较长。顶，我就发

rodge

如果知道圆弧的角度，那就不是做点到弧线的切线了，
我当时想到的就是该如何在画某点到某一条弧线的切线，
因为感觉我们平时画这个蛮好画的，但ANSYS确没有提供这样的命令流，
因此，才想到把这个问题作为命令流挑战赛来做

xurs10

呵呵，看来俺是误解此题的本意了:loveliness:

zwx313

finish
/clear
/prep7

k,1,-50
circle,1,10,,,180
ldel,1
k,5,0,10
l,3,5
k,6,-100,-50
k,7,-100,-70
k,8,-120,-70
l,6,7
l,7,8
lang,2,6,0
k,10,-120,20
k,11,0,20
l,8,10
l,10,11
l,11,5
ldel,5
al,7,4,3,6,2,1,9,8
arsym,x,1

zwx313

lang这个命令不就可以画点到圆弧的切线么

jxxansys

!原理：现过A点作弧L的切线。
!     先作出弧的圆心O点，以AO连线的中点为圆心、过A、O点作圆，
!设该圆与弧L的交点是B，则线AB垂直于线OB，因为OB为弧L的半径，所以线AB是切线


fini
/clear
/filnam,tan
/prep7
k,100
circle,100,1,,,90
k,101,1.5   !现过点101作弧1的切线
KCENTER,line, 1,,,, 102   !在弧1的圆心处创建关键点102
kfill,101,102,1,103     !点102、101连线中点处创建点103
CIRCLE,103,,,101    !以点103为圆心过点101作圆
LOVLAP, all     !搭接求交点
l,7,101   
fini

[ 本帖最后由 jxxansys 于 2009-6-2 19:03 编辑 ]

jxxansys

本办法使用命令最少,不需要预先进行计算,而且可以处理为宏命令使用

whk123

画两圆（半径不等）的切线怎么画呢，l2tan好象生成的不是直线哦