求标数的小挂

401422 · 发表于 2012-6-23 13:35

就和此表数一样，根据点标Z坐标的小挂！！源代码更好！！嘿嘿！！！小弟不胜感激

ugcad@123 · 发表于 2013-12-25 23:05

E:\

代码来了

$$$$$$$$$$$$$$$$$$$$$$$$$$
$$ 程序名:pointlabel
$$ 功能:标注点坐标
$$ 目的:标注点位置值
$$$$$$$$$$$$$$$$$$$$$$$$$$
entity/cr(2),l(2)
number/sz

ifthen/&ACTPRT==1
   messg/'请在运行程序之前先新建或打开一个部件 ! '
   jump/end:
endif

str:

rpaint

cr(1)=&wcs
sz=&csize

gpos/'指定点位置:',x,y,z,resp
jump/str:,end:,,,resp

draw/off

l(1)=line/x,y,z,x+5,y,z
l(2)=line/x,y,z,x,y+5,z

cr(2)=csys/l(1..2)

&wcs=cr(2)

delete/l(1..2)

draw/on

&csize=1

ifthen/x>=0 and y>=0
      label/5,5,0,0,'X='+fstrl(x),'Y='+fstrl(y),'Z='+fstrl(z)
elseif/x>=0 and y<0
      label/5,-5,0,0,'X='+fstrl(x),'Y='+fstrl(y),'Z='+fstrl(z)
elseif/x<0 and y>=0
      label/-5,5,0,0,'X='+fstrl(x),'Y='+fstrl(y),'Z='+fstrl(z)
elseif/x<0 and y<0
      label/-5,-5,0,0,'X='+fstrl(x),'Y='+fstrl(y),'Z='+fstrl(z)
else
      label/0,0,0,0,'X='+fstrl(x),'Y='+fstrl(y),'Z='+fstrl(z)
endif

&csize=sz
&wcs=cr(1)

rpaint

end:
halt

haohao666 · 发表于 2012-6-30 05:52

偶有，只标Z值是吗？

宁海阿杰 · 发表于 2012-7-11 14:28

你会了没有

jun182 · 发表于 2012-7-15 15:52

这可以不用外挂的

401422 · 发表于 2012-9-13 00:06

编程人员程序单上一个非常实用的标坐标小挂
http://bbs.uggd.com/forum.php?mo ... &fromuid=252753
本人已作出特此共享

dhdfsjnsdnjsns · 发表于 2015-4-26 12:43

谢谢5楼工具真的很好特别是改进版 http://bbs.uggd.com/forum.php?mo ... page%3D1#pid6791746

弘宜74 · 发表于 2015-4-28 10:12

好帖要顶,楼主的头像还是不错滴

		自动登录	找回密码
密码			注册

[讨论] 求标数的小挂

浏览过的版块