环形文字

ssqdn

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

1113824550

研究中

9 _/ ^4 `& m* a% N* C, q我想 知道 在grip中 选择对象面 可得到 此面所在的对象实体 （这样选择面以后 就不用在选择该对象体了）
' B. I' Y; o7 L) w/ I. Y$ l" W
如果 不是空心字体 可参考如下 代码

$$ 在一个圆弧上写字
  u7 M+ U8 @; H# N- T$ jENTITY/ENT,CHAR,CH(80)  $$ 实体变量定义
STRING/BUF(80)          $$ 字符串变量定义
) j5 r' S, S7 {, u/ y: L: N- TNUMBER/MAT(12),MAT1(12)    $$ 数值变量定义
% k1 i2 O4 I+ x$ \" T' V
2 O$ V7 c9 B1 l2 m
% p9 ?( L' X$ A&ENSITE=&BOTL  $$字符相对位置(下左对齐)

L10:
. x, D$ g* Y# h- k& M& k$ V  eMASK/5    $$只能选择圆弧
7 @9 o% s7 @7 m7 c+ V3 p6 A3 TIDENT/'梅雷提示：请选择圆弧...',ENT,resp
* h. S3 |: P1 p( c( {JUMP/L10:,END:,,,L20:,resp
0 k0 a8 k5 H+ X9 H) b. _L20:
/ B7 S  S+ q& pPARAM/'梅雷提示：请定义字符尺寸...','字符尺寸=',C,resp
5 B3 J: Q3 \0 @- t5 R1 j* }JUMP/L20:,END:,,,L30:,resp
L30:
, F( C) x' z/ O" ]8 C&CSIZE=C
  Q: m( L' U6 v, A/ u6 e: GOBTAIN/ENT,XC,YC,ZC,R,A1,A2 $$提取圆弧参数
R=R-C/2
: z# v3 ?; G& u& @- X$ o2 _DANG=(C*198.0)/(R*3.14159)
$ U& Q6 X, Q1 i, I5 O. bANG=A1-DANG/2

8 b8 ]' L* W3 |6 M) X) dL40:
7 M/ S6 @( w- ]  f% W  ?0 kTEXT/'梅雷提示:请输入参数...',BUF,resp
9 C2 ^! e/ H/ }6 v# I1 Q% UJUMP/L40:,END:,,,L50:,resp
% ^: B; \; X2 b# q3 R
4 Q3 v  ?7 _, S8 e* I0 ?5 `: ZL50:

DO/LOOP:,I,1,LENF(BUF)
X=XC+R*COSF(A1)
# K" {- J7 c9 p5 B# x! o+ zY=YC+R*SINF(A1)
1 y1 K& c- r8 D' u7 {9 Q/ v  ^MAT=MATRIX/XYROT,A1-90
MAT1=MATRIX/MAT,(MATRIX/TRANSL,X,Y,ZC)
CHAR=NOTE/0,0,SUBSTR(BUF,I,1)  $$写字
CH(I)=TRANSF/MAT1,CHAR        $$放到圆弧上
) L! `7 B$ m& A6 F5 N& \ANG=ANG-DANG
LOOP:


3 F; s; \3 s, M& m  e1 ]+ W
5 P. r3 x/ W$ T- mEND: $$ 结束程序
HALT $$ 停止

1113824550

$ q8 o" {$ u  `: F6 a- ~- s
如下效果 此外挂 可把【 实体或组】绕城圆形


字体变化.zip (570.09 KB, 下载次数: 157)

2011-7-20 11:31 上传

点击文件名下载附件

  B. J# M: p; f+ [8 l- d( o
9 B+ b  H2 g# T5 V复杂字体 可能不行  间隔不是很完美
2 x6 {, c' s: U6 G: l希望能解决你的问题 将就着用把
7 L) }  E* U9 ]
你有什么好的外挂 也发我用用
我的 QQ1113824550

zoudong

不知道 你要的是不是这个 但我想要个 曲面分割的 加工跑WCS 的外挂 谁有啊 请上传 我这里也收集了 不少外挂
# |( q5 I: D( O# O, i' M& J希望 大家 多交流

liguangming

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

szdong001

humin5202727

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