如何获取标尺的中间坐标

前进4

youxing 发表于 2023-10-19 17:09
在个人目录下。没有就自己建一个。

你好，有没有获取中间得坐标

lingchention

youxing 发表于 2023-10-19 17:09
在个人目录下。没有就自己建一个。

那请问617的话， .cdsenv里面怎么添加语句呢？谢谢

前进4

不知道这个代码你能不能用，点击你需要的器件或者ruler使用
  procedure(CreateMidRuler()
let((cv bbox xBegin yBegin xEnd yEnd midx midy xy)
    cv=geGetEditCellView()
    bbox=geGetSelSet()~>bBox
    xBegin=caaar(bbox)
    yBegin=cadaar(bbox)
    xEnd=caadar(bbox)   
    yEnd=car(cdadar(bbox))
    midx=(xEnd+xBegain)/2
    midy=(yEnd+yBegain)/2
    xy=list(midx midy)
    dbCreateRuler(cv list(xy car(xy):cadr(xy)+10))
    dbCreateRuler(cv list(xy car(xy):cadr(xy)-10))
    dbCreateRuler(cv list(xy car(xy)+10:cadr(xy)))
    dbCreateRuler(cv list(xy car(xy)-10:cadr(xy)))
))