如何获取一个layer shape的所有corner点坐标并计算该shape面积？求skill脚本

xuhongwei_li

回复 10# damonzhao

实在是看不下去了，贴上一个大神多年前写的脚本。

    /*
Synopsis    :   JW_Area()
Version     :   1.0
Create Date :   2006-03-28
Author      :   Justin Wang
E-Mail      :   justin727@gmail.com
*/
;hiSetBindKey("Layout" "<Key>3" "JW_Area()")
procedure(JW_Area()
   prog((cvId selObj area number shape Box points point1 point2 length width )
cvId = getEditRep(hiGetCurrentWindow())
selObj = geGetSelSet(cvId)
number = length(selObj)
if(zerop(number) then
  JWMessage("Error!!" 'Close "Please select a layer." )
  return()
)
geDeselectAll(hiGetCurrentWindow())
foreach(shape selObj
  area = 0
  case( shape~>objType
   ("rect"
    Box = shape~>bBox
    area = (car(cadr(Box)) - car(car(Box))) * (cadr(cadr(Box)) - cadr(car(Box)))
   )
   ("polygon"
    number = length(shape~>points)
    points = shape~>points
    points = append(points list(car(points)))
    while(!zerop(number)
     point1 = car(points)
     points = cdr(points)
     point2  = car(points)
     area = area + ( car(point1) * cadr(point2) )
     area = area - ( car(point2) * cadr(point1) )
     number--
    );while
    area = abs(area/2)
   )
   ("path"
    number = shape~>nPoints
    points = shape~>path
    width = shape~>width
    while(!zerop(number-1)
     point1 = car(points)
     points = cdr(points)
     point2 = car(points)
     if(equal(car(point1) car(point2))
      length = abs(cadr(point1) - cadr(point2))
      length = abs( car(point1) -  car(point2))
     );if
     area = area + length * width
     number--
    );while
    case(shape~>pathStyle
       ("extendExtend" area = area + width*width )
       ("varExtendExtend" area = area + (shape~>beginExt+shape~>endExt)*width )
       ("roundRound" area = area +  4/9.0 * width * width ) ;(w/3^2) * 4
       (t    );truncateExtend
    );case
   )
   (t
    area = 0.0
   )
  );case
  
  geSelectObject(shape)
  if(zerop(area) then
   JWMessage("Error!!" 'Close "This is not a layer.")
   sprintf(area "Area = unknown")
  else
   sprintf(area "Area = %f" area)
  )
  JWMessage("Layer Area" 'Close area)
  geDeselectFig(shape)
);foreach
   );prog
);procedure
;-------------------------------------------------------
procedure(JWMessage(title button message)
    prog( ()
hiDisplayAppDBox(
  ?name  'JWDBox
  ?dboxBanner title
  ?buttonLayout button
  ?dboxText message
)
    );prog
);procedure

damonzhao

回复 11# xuhongwei_li


   多谢啦！

mingzhesong

贴上看看，希望有用

dabing

回复 11# xuhongwei_li


   感谢无私的分享

YEZI_1996

回复 10# damonzhao


    请问你是已经成功获得计算多边形面积的SKILL脚本了吗？可以分享一下吗？

damonzhao

回复 15# YEZI_1996

IC616里自带这个功能，放心用吧

YEZI_1996

回复 16# damonzhao

你好，可以具体一点在自带的功能在哪里吗？表示找不到，或者有IC616的使用文档也可以分享一下的，谢谢

浪漫的雨

谢谢分享！

不吃鱼的猫

   

YEZI_1996 发表于 2016-5-5 17:28
回复 16# damonzhao

你好，可以具体一点在自带的功能在哪里吗？表示找不到，或者有IC616的使用文档也可以 ...

tools->Area and Density ...

hccaiwh

我挺好奇  知道Corner点那怎么算面积呢