iCAx开思工具箱

标题: [转贴]UG一个标注的小程序〈源码〉 [打印本页]

作者: fys325aa 时间: 2006-12-8 20:45
标题: [转贴]UG一个标注的小程序〈源码〉
在别的地方找到的，希望对大家有用。

$$ Program: dim.grs
$$
$$
entity/dims,pnt(2),bpnt,dpnt
string/menu(2,24)
number/opnt(3)
$$  Mask for only lines, arcs, and solids
mask/3,72
crsmod=&vwcurs
&vwcurs=&any
$$ Prompt the user to select from Horizontal or Vertical
lab10:

k=0  $$ 确定标注是否偏移 0不偏移，<>0偏移
choose/'选择标注类型：',$
   '水平标注',$
   '垂直标注',dtyp
jump/lab10:,term:,,,,,dtyp
$$ dtyp=5,水平标注,dtyp=6 垂直标注

lab20:
param/'输入标注偏置距离:',$
   '偏置距离:',dis,resp
jump/lab10:,term:,,resp

ident/'选择基准线',bpnt,resp
jump/lab20:,term:,,resp
$$  Get view name of the last selection
menu(1)=&vwsel
lab30:

&vwcurs=&any
ident/'选择目标线',dpnt,resp
jump/lab20:,term:,,resp

$$  Get view name of the last selection

menu(2)=&vwsel
$$
if/k<>0,jump/lab40:

&vwcurs=&work
pos/'尺寸标注点：',opnt,resp
jump/rset:,term:,,resp
lab40:

ifthen/k<>0
ifthen/dtyp==5
  opnt(2)=opnt(2)+dis
else
  opnt(1)=opnt(1)+dis
endif
endif

xold=&txarr
&txarr=&auto
draw/on

$$
ifthen/dtyp==5
dims=ldim/HORIZ,opnt(1),opnt(2),$
YLARGE,bpnt,VIEW,menu(1),YLARGE,dpnt,VIEW,menu(2)
else
dims=ldim/VERT,opnt(1),opnt(2),$
XLARGE,bpnt,VIEW,menu(1),XLARGE,dpnt,VIEW,menu(2)
endif
k=1
jump/lab30:

rset:
   &vwcurs=&any
jump/lab30:

term:
   &txarr=xold
   &vwcurs=crsmod
halt

作者: gaoche 时间: 2007-6-17 18:33
谢谢了！

作者: milan07 时间: 2007-6-26 13:37
谢谢楼主分享

作者: 傲视_红尘 时间: 2009-5-16 08:22

谢谢了！

作者: qianwei11 时间: 2009-5-18 09:42
非常好，正是所需要的

作者: lluo 时间: 2009-5-18 14:22
谢谢楼主分享

作者: 120612060a 时间: 2009-6-16 22:13
谢谢楼主分享

作者: ffhi 时间: 2009-6-18 13:24
谢谢分享了！收藏了！能把源代码打包共享更好。

作者: zh_w 时间: 2009-6-18 13:51
谢谢分享

作者: huangjun2000 时间: 2009-8-11 18:22
谢谢，看看

作者: sumojinli 时间: 2009-9-9 22:37
路过.......看贴必回贴!!!!!!

作者: 傲视_红尘 时间: 2009-12-22 23:11
谢谢楼主分享

作者: lgmsddy 时间: 2009-12-22 23:49
顶一下,^^^&&&&&&

作者: wulkm 时间: 2009-12-23 11:25
谢谢分享，是否有坐标标注的实例？

作者: ltlsky 时间: 2009-12-23 22:14
这个不错，谢谢楼主了，我也来学习学习！

作者: weilanmin 时间: 2009-12-23 22:40
楼主如何使用啊
？

作者: WUHONGZHANG 时间: 2010-3-14 03:48
非常感谢楼主辛苦

作者: zhujinhui 时间: 2010-3-26 12:47
下来看看。顶了

作者: qqqq1398520 时间: 2010-4-30 20:32
谢谢楼主分享

作者: sz_dysh 时间: 2011-3-20 16:09
谢谢楼主分享

作者: navy102019 时间: 2011-3-24 10:45
是自动标注吗，GRIP没搞过
UFUN很容易！

作者: 285261377 时间: 2011-5-6 16:34

谢谢

作者: jxjk 时间: 2011-5-13 18:05

作者: 2830 时间: 2011-7-7 18:39
谢谢分享{:soso_e183:}

作者: 1linxiao1 时间: 2014-12-11 23:09
好东西丫顶了

作者: 我本农夫 时间: 2015-1-20 20:02
标注什么的？

作者: liang247466199 时间: 2015-3-28 15:49
顶一下了好好好

作者: mzhlk 时间: 2018-5-30 18:36

谢谢了！

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