环形文字

ssqdn

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

1113824550

研究中

我想 知道 在grip中 选择对象面 可得到 此面所在的对象实体 （这样选择面以后 就不用在选择该对象体了）
: p9 {5 ^2 N& ^* n) l0 N7 C. B; t
如果 不是空心字体 可参考如下 代码

$$ 在一个圆弧上写字
ENTITY/ENT,CHAR,CH(80)  $$ 实体变量定义
/ E; y" ^9 l- M  @* v, Q: dSTRING/BUF(80)          $$ 字符串变量定义
NUMBER/MAT(12),MAT1(12)    $$ 数值变量定义


) z/ B; Z8 g8 h% D0 p' t! n&ENSITE=&BOTL  $$字符相对位置(下左对齐)
2 `/ h6 r! b/ N7 C) {; }
: i$ u( ]6 t' H! L+ \' T' {2 SL10:
MASK/5    $$只能选择圆弧
( }! f2 I9 v$ d% ^- t$ a% _/ Q9 IIDENT/'梅雷提示：请选择圆弧...',ENT,resp
) j) ~" {' q1 T& K. i0 p% ZJUMP/L10:,END:,,,L20:,resp
L20:
3 \6 K  |1 t! y; _0 ~* E; w( pPARAM/'梅雷提示：请定义字符尺寸...','字符尺寸=',C,resp
# }& l+ B5 ]* a) gJUMP/L20:,END:,,,L30:,resp
6 g; v# ]+ z- NL30:
&CSIZE=C
OBTAIN/ENT,XC,YC,ZC,R,A1,A2 $$提取圆弧参数
R=R-C/2
1 ~; W( T. o- ^& VDANG=(C*198.0)/(R*3.14159)
ANG=A1-DANG/2
$ }( b4 c5 {2 S( A
9 L2 T5 d! J) |8 n9 Y3 eL40:
TEXT/'梅雷提示:请输入参数...',BUF,resp
+ W0 d* m! z9 r, [- iJUMP/L40:,END:,,,L50:,resp
* j: L+ U  _" m, b1 C8 ^6 [
: E, i, k0 L  U( a0 \L50:
2 @: F. a( U* i6 Q# R+ K4 y
DO/LOOP:,I,1,LENF(BUF)
X=XC+R*COSF(A1)
& ]5 t9 a% w1 Z2 OY=YC+R*SINF(A1)
MAT=MATRIX/XYROT,A1-90
4 n0 A: r& }& h# U) H9 |MAT1=MATRIX/MAT,(MATRIX/TRANSL,X,Y,ZC)
CHAR=NOTE/0,0,SUBSTR(BUF,I,1)  $$写字
$ v! k# f; X" p% U2 h! LCH(I)=TRANSF/MAT1,CHAR        $$放到圆弧上
# w# f! i* d2 t' mANG=ANG-DANG
LOOP:
! h4 ~. H( N6 u- r  X6 d

5 K, Y$ \3 @* p; Z! k
- U$ {% Z1 |7 E& |5 O& ^END: $$ 结束程序
HALT $$ 停止

1113824550

如下效果 此外挂 可把【 实体或组】绕城圆形
& v$ j. i% A" H' v
) O" Q! Q# M. U( O( B
2 m. `. y# Y$ b4 q/ V$ t% [+ ? 字体变化.zip (570.09 KB, 下载次数: 157)

2011-7-20 11:31 上传

点击文件名下载附件

( w+ R0 K6 ~/ O% A( E9 n  {* w复杂字体 可能不行  间隔不是很完美
希望能解决你的问题 将就着用把
8 ~$ t3 Z/ {  c3 r4 J
你有什么好的外挂 也发我用用
我的 QQ1113824550
) T( [2 [( V1 F2 Z3 y8 j

zoudong

不知道 你要的是不是这个 但我想要个 曲面分割的 加工跑WCS 的外挂 谁有啊 请上传 我这里也收集了 不少外挂
' Q& H( \, a# U% E希望 大家 多交流

liguangming

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

szdong001

humin5202727

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