求一个candence skill 米字标尺程序

fancysky · 发表于 2013-8-30 10:25:45

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？注册

x

求大神贴一个candence skill 米字标尺程序谢谢

mtpc · 发表于 2015-4-27 00:16:48

在哪儿看的米字尺？
看过谁在用？

hangji85 · 发表于 2015-8-24 13:37:47

procedure(CreateCrossRuler()

      leClearAllRuler(geGetEditRep())

      point=hiGetPoint(hiGetCurrentWindow())

      leCreateRuler( geGetEditRep() list(xCoord(point):yCoord(point) xCoord(point)+20:yCoord(point)))
      leCreateRuler( geGetEditRep() list(xCoord(point):yCoord(point) xCoord(point)-20:yCoord(point)))
      leCreateRuler( geGetEditRep() list(xCoord(point):yCoord(point) xCoord(point):yCoord(point)+20))
      leCreateRuler( geGetEditRep() list(xCoord(point):yCoord(point) xCoord(point):yCoord(point)-20))

;    leCreateRuler( geGetEditRep() list(point xCoord(point)+20:yCoord(point)))
;    leCreateRuler( geGetEditRep() list(point xCoord(point)-20:yCoord(point)))
;    leCreateRuler( geGetEditRep() list(point xCoord(point):yCoord(point)+20))
;    leCreateRuler( geGetEditRep() list(point xCoord(point):yCoord(point)-20))
      );procedure