grip 进入制图模式

进入制图模式


grip 和api我目前没找到模式切换函数   
   
但可以通过 创建一张图纸再删除这张图纸 来进入制图模式

在grip里设置模式 只是临时的 grip束运行时会回到原来的模式

以下grip源代码：

$$ 显示图纸 查看当前是否存在图纸 即判断是否制图模式
$$ 不是制图模式 就进入制图模式
$$ 如果在制图模式无图纸就创建一张图纸 前缀名为MeiLei的图纸 规格为8000*8000
$$ 如果在制图模式有图纸就返回这张图纸名
$$ 选择一个点
gripsw / declrv    $$ 表示变量必须定义不然无法编译
number / st_i,tz_x,tz_y
string / myname(80)


tz_x=8000
tz_y=8000

&dstate=2   $$显示图纸
myname=&curdrw          $$ 反回当前图纸名
ifthen/myname==''
drawd/'drawing_name_meilei',iferr,dr_1: $$删除图纸
dr_1:
drawc/'drawing_name_meilei',mmeter,100,100,iferr,dr_2: $$创建图纸
dr_2:
drawd/'drawing_name_meilei',iferr,dr_3:
dr_3:
myname=&curdrw          $$ 反回当前图纸名
ifthen/myname==''       $$ 如果图纸不存在就创建一张图纸
st_i=0
labe2:
st_i=st_i+1
myname='MeiLei'+istr(st_i)
drawc/myname,mmeter,tz_x,tz_y,iferr,labe2: $$创建图纸
endif
endif
&curdrw =myname


end:
halt

_____________________________________________________________________________ _

中磊UG二次开发教程 梅雷著 qq1821117007
学UG就上UG网 http://www.9sug.com/