grip 在图纸视图中给实体对象尺寸注释

尺寸标注

entity /obj(2)
number /posl(3),resp
string /vieww(2,30)

l10:
&vwcurs=&any
mask/3
ident/'梅雷提示！请选择第1条直线',obj(1),resp
jump/l10:,end:,,,resp
vieww(1)=&vwsel

l20:
ident/'梅雷提示！请选择第2条直线',obj(2),resp
jump/l10:,end:,,,resp
vieww(2)=&vwsel

l30:
&vwcurs=&work
pos/'梅雷提示！请选择参考点。',posl(1..3),resp
jump/l20:,end:,,,resp

ifthen/vieww(1)==vieww(2) and vieww(1)==&workvw
$$在工作视图上作注释
ldim/horiz,posl(1),posl(2),ysmall,obj(1),ysmall,obj(2)
else
$$在图纸视图中给实体对象注释
ldim/horiz,posl(1),posl(2),ysmall,obj(1),view,vieww(1),$
ysmall,obj(2),view,vieww(2)
endif

end:
halt
_____________________________________________________________________________ _

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