iCAx开思网

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

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

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


[ 本帖最后由 dcomui 于 2006-8-20 14:06 编辑 ]
作者: 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://www.icax.org/) Powered by Discuz! X3.3