iCAx开思工具箱

标题: UG_grip用note写字后，用什么命令可以取消？ [打印本页]

作者: dcomui 时间: 2006-8-19 16:29
标题: UG_grip用note写字后，用什么命令可以取消？
请问各位grip的高手。
UG_grip用note写字后，用什么命令可以取消已写入图面的文字？

问题已解决，谢谢icaxhjy88 的帖子，我原来用过delete，但是删的是
STRING,现在知道delete删的是entity，谢谢！

作者: icaxhjy88 时间: 2006-8-19 19:56
delete 删掉不就好了吗？

作者: dcomui 时间: 2006-8-19 22:40
需要用编译成功的grx程序完成以下步骤：
1。用choose命令选择需输入的文字，用note命令写字。
2.跳下个命令后，ok键继续执行下段程序，back键返回上个choose命令，并删除
已用note命令写入的字符。

谢谢！

作者: icaxhjy88 时间: 2006-8-19 23:47
$$
$$ 胡鹏  写于2006年5月12日
$$ QQ：597341973
$$ 读取C：\MESSAGE.DAT文件里的信息。
$$ 写字
$$

ENTITY/NT(10)
NUMBER/re(10),XC,YC,ZC,DS,i,j,k
STRING/STR(10,80),TX(10,80),SH(30)
$$读取message.txt致到工作区1，错误转向MESS1
FETCH/TXT,1,'c:\message.dat' ,iferr,err1:
RESET/1
READ/1,str
H=&CSIZE
D=&ENSITE
&ENSITE=4
SH=&CURDRW
DS=LENF(SH)
IFTHEN/DS==0
JUMP/MESSG:
ENDIF
L1:
mchoose/'SELECT  OPTIONS',str,re,ALTACT,'删除备注',resp
JUMP/halt:,halt:,,l9:,resp
i=1
j=1
l2:
ifthen/re(i)<>0
tx(j)=str(i)
j=j+1
endif
i=i+1
if/i<=10,jump/l2: $$直到型循环
L3:
GPOS/'SEL POINT',XC,YC,ZC,RPS
JUMP/L3:,L9:,,,RSP

NT(1)=NOTE/XC,YC,tx(1)
NT(2)=NOTE/XC+6,YC-6,tx(2)
NT(3)=NOTE/XC+6,YC-12,tx(3)
NT(4)=NOTE/XC+6,YC-18,tx(4)
NT(5)=NOTE/XC+6,YC-24,tx(5)
NT(6)=NOTE/XC+6,YC-30,tx(6)
NT(7)=NOTE/XC+6,YC-36,tx(7)
NT(8)=NOTE/XC+6,YC-42,tx(8)
jump/l1:

L9:
DELETE/NT
jump/l1:

halt:
&CSIZE=H
&ENSITE=D
halt
MESSG:
MESSG/'切换到制图!'
JUMP/HALT:
err1:
MESSG/'message.dat文件损坏或不存在 !!!'
   jump/halt:

这是我刚学时参照CAM-YP(好像是吧，记不太清楚了)的程序写的，不太完备，可以参考。因现在你问的主要问题在于删字符。我就不改了.你自己加上读文本的结束语句和STR变量的下标变量，用起来就好了。

  嘿！！有些东西要自己想出来才有意思嘛。什么都问的话就不好玩了！！

作者: dcomui 时间: 2006-8-20 06:33
谢谢。今天我再看看。

作者: cam-yp 时间: 2006-8-20 09:45
不错

作者: danyfer 时间: 2009-10-28 23:33
今天又学习了

欢迎光临 iCAx开思工具箱 (https://t.icax.org/)