globals
private real x0
private real y0
private real f0
private real w0
private real r0
endglobals
private function Sector takes nothing returns boolean
local unit u=GetFilterUnit()
local real x= GetUnitX(u)
local real y= GetUnitY(u)
local real f
local real d=r0*TanBJ(w0)
set u=null
set f=bjf(x0, y0, x, y)
if RAbsBJ(AngleBetweenAngles(f0,f))<=90 then
set f=bjf(x0+d*CosBJ(f+180), y0+d*SinBJ(f+180), x, y)
if AngleBetweenAngles(f0,f)<w0 then
return true
endif
endif
return false
endfunction
//扇形范围单位
function SectorArea takes real x,real y,real f,real r,real halfanger returns boolexpr
set x0=x
set y0=y
set f0=f
set w0=halfanger
set r0=r/2
set FilterBxp= Filter(function Sector)
return FilterBxp
endfunction
其中xy为起点，f为方向角度，halfanger=0时为直线>0为扇形，r为直线宽度 用于扇形时是扩展宽度

不看不看

这画的啥玩意儿

会的根本不看，不会的看了也不懂

灵魂画师

ck厉害

不明觉厉

补充一个自定义代码
function AngleBetweenAngles takes real angle1, real angle2 returns real
local real r = ModuloReal( angle1 - angle2, 360.0 )
if r <= 180.0 then
return r
endif
return 360.0 - r
endfunction
然后上面第二个判断夹角 也需要取绝对值

CK说帮他顶贴，我来帮忙顶一顶

bjf也提供下大佬

function bjf takes real x, real y, real x2, real y2 returns real//(x, y)朝向(x1, y1)的角度
return(bj_RADTODEG * Atan2(y2 - y, x2 - x))
endfunction

放弃了,返回的boolexpr不会用

支持 ，多谢分享

我也想和什么东西合♂为一体

ck还在薇吧战斗啊。