[每日一码] UCS点是否在屏幕显示

admin

1. UCS不与屏幕平行时可以这样
4. BOOL ptInView(AcGePoint3d pt)
5. {
6.     resbuf rb;
7.      acedGetVar(采用T("SCREENSIZE"),&rb);
8.     CRect CADrect;
9.     acedGetAcadDwgView()->GetClientRect(CADrect);
10.     int num=acedGetWinNum(CADrect.left,CADrect.top);
11.     AcGeMatrix mat;
12.     acedGetCurrentUCS(mat);
13.     mat.inverse();
14.     pt.transformBy(mat);
16.     CPoint cp;
17.     acedCoordFromWorldToPixel(num,asDblArray(pt),cp);
18.       return (cp.x<0 | cp.y<0 | cp.x>rb.resval.rpoint[0] | cp.y>rb.resval.rpoint[1]) ? FALSE : TRUE;
19. }

复制代码