APDL命令流挑战赛三——点到曲线的切线
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 编辑 ]
回复 #1 rodge 的帖子
不错,顶一下共同进步
回复 #2 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 很是幼稚，还应该好好学习
这个问题，如果知道圆弧的角度，就好办多了
这里设圆弧的角度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 要不要我也来贴个apdl.自己写的比较长。顶，我就发
回复 #6 xurs10 的帖子
如果知道圆弧的角度，那就不是做点到弧线的切线了，我当时想到的就是该如何在画某点到某一条弧线的切线，
因为感觉我们平时画这个蛮好画的，但ANSYS确没有提供这样的命令流，
因此，才想到把这个问题作为命令流挑战赛来做
回#rodge
呵呵，看来俺是误解此题的本意了:loveliness: 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 lang这个命令不就可以画点到圆弧的切线么
一种最简单的办法
!原理：现过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 编辑 ]
对"一种最简单的办法"的说明
本办法使用命令最少,不需要预先进行计算,而且可以处理为宏命令使用 画两圆（半径不等）的切线怎么画呢，l2tan好象生成的不是直线哦
页:
[1]