回复 25# 彳亍0226
;;;;procedure() 定义函数 主要包含函数名 参数列表 procedure(CrossRuler() vr = 200 //定义参数vr=200, 自己随便修改的一个自定义的rule长度
p0 = enterPoint() //enterPoit() 获取鼠标左键点击的point点坐标
p1 = geWindowToEditPoint(hiGetCurrentWindow(),p0) 0点是相对于当前最高窗口的 坐标 但不是x进去的 当前窗口内的坐标系坐标
使用gewindowtoeditPoint()函数可以将坐标转换成当前编辑窗口的坐标系内的坐标位置。geWindowToEditPoint(cvId ,point1);cvId 当前窗口的 dbId px = xCoord(p1), py = yCoord(p1) xCoord yCood()适用于获取point1 的x坐标和y坐标 dx = px+vr, dy = py+vr sx = px-vr, sy = py-vr //以你点击的点位中心原点,计算上下左右方向的x、y的数值 leCreateRuler(geGetEditRep() list(px:pypx:dy)) leCreateRuler(geGetEditRep() list(px:pydx:py)) leCreateRuler(geGetEditRep() list(px:pysx:py)) leCreateRuler(geGetEditRep() list(px:pypx:sy)) |