环形文字

ssqdn

哪个高手或同仁给我传一个ug外挂环形文字工具，同时有要什么外挂工具的也可以说说我有我也会传给你，谢谢先了

1113824550

研究中
# p( b4 i9 g  R/ s3 p2 `: y
5 K5 o- y2 q! o我想 知道 在grip中 选择对象面 可得到 此面所在的对象实体 （这样选择面以后 就不用在选择该对象体了）

4 q7 V1 g$ M; O3 r' S如果 不是空心字体 可参考如下 代码

$$ 在一个圆弧上写字
ENTITY/ENT,CHAR,CH(80)  $$ 实体变量定义
STRING/BUF(80)          $$ 字符串变量定义
. v+ R. ?1 |5 ?& [4 a; J# ]( ?0 MNUMBER/MAT(12),MAT1(12)    $$ 数值变量定义
- u3 _/ T7 C3 i& t) s
0 Z5 `" A) t+ V+ F5 d7 Z# T
&ENSITE=&BOTL  $$字符相对位置(下左对齐)

L10:
MASK/5    $$只能选择圆弧
. k6 U7 B8 b7 M% \& w; xIDENT/'梅雷提示：请选择圆弧...',ENT,resp
JUMP/L10:,END:,,,L20:,resp
6 ?  ?# \9 U. ]( J. rL20:
+ H* U4 J4 c5 WPARAM/'梅雷提示：请定义字符尺寸...','字符尺寸=',C,resp
JUMP/L20:,END:,,,L30:,resp
L30:
! D1 k: q! X) [% ^& E' E&CSIZE=C
9 I, {. X1 h3 H# ^OBTAIN/ENT,XC,YC,ZC,R,A1,A2 $$提取圆弧参数
R=R-C/2
DANG=(C*198.0)/(R*3.14159)
+ E! X/ b/ p2 g/ v2 dANG=A1-DANG/2

L40:
TEXT/'梅雷提示:请输入参数...',BUF,resp
JUMP/L40:,END:,,,L50:,resp
3 @, ?2 C: W- d% R  a) F
L50:

DO/LOOP:,I,1,LENF(BUF)
" ]* J7 r9 g  n, OX=XC+R*COSF(A1)
3 u8 x, G7 I1 B* e2 N- n) i: G8 YY=YC+R*SINF(A1)
4 i2 m" f( t8 m1 ~  y/ y9 lMAT=MATRIX/XYROT,A1-90
6 u1 T. ?( l' ~9 \: _* A% tMAT1=MATRIX/MAT,(MATRIX/TRANSL,X,Y,ZC)
, P5 X2 O& o2 x7 UCHAR=NOTE/0,0,SUBSTR(BUF,I,1)  $$写字
CH(I)=TRANSF/MAT1,CHAR        $$放到圆弧上
9 _( C" U- W+ n  LANG=ANG-DANG
LOOP:
5 A0 S1 }7 `9 Z# p! E


9 C$ ~0 H: J' M: p, NEND: $$ 结束程序
1 n6 X/ e9 D1 `2 r( ^HALT $$ 停止

1113824550

& F2 F- z% P+ n% d! V如下效果 此外挂 可把【 实体或组】绕城圆形
6 [3 y7 G( l. l0 U/ D3 q, U4 x
9 I% m) H( \$ h5 ~, u$ |
字体变化.zip (570.09 KB, 下载次数: 157)

2011-7-20 11:31 上传

点击文件名下载附件

2 m& n( v+ c. B2 C
复杂字体 可能不行  间隔不是很完美
2 g  B3 k8 D! C" B  ~希望能解决你的问题 将就着用把

你有什么好的外挂 也发我用用
我的 QQ1113824550

zoudong

不知道 你要的是不是这个 但我想要个 曲面分割的 加工跑WCS 的外挂 谁有啊 请上传 我这里也收集了 不少外挂
希望 大家 多交流

liguangming

你这个环形文字是注释还是曲线？

szdong001

humin5202727

啥也不说了，楼主就是给力！