检验一个点是否在闭合平面曲线内.
(dos_isinsidecurve curve point)
curve
闭合二维曲线.
point
用于测试的点.
T 如果成功.
nil 失败时.
Command: (setq ent (car (entsel "\nSelect closed curve:")))
<Entity name: 7ef8d048>
Command: (setq pt (getpoint "\nPick a test point:"))
(31.6951 25.9553 0.0)
Command: (dos_isinsidecurve ent pt)
T