- 积分
- 15346
- 明经币
- 个
- 注册时间
- 2002-2-4
- 在线时间
- 小时
- 威望
-
- 金钱
- 个
- 贡献
-
- 激情
-
|
发表于 2003-11-29 16:56:00
|
显示全部楼层
;;From a Tony Tanzillo suggestion, see
;; John Uhden's @cv_inside function thread.
;; minimal, dirty, etc...
;;
(defun ALE_ISINSIDE (IMPPNT ENTNAM / NEWENT ENTARE)
(command "_.AREA" "_O" ENTNAM)
(setq ENTARE (getvar "AREA"))
(command
"_.OFFSET"
(/ ENTARE 10000)
ENTNAM
IMPPNT
""
"_.AREA"
"_O"
(setq NEWENT (entlast))
)
(entdel NEWENT)
(> ENTARE (getvar "AREA"))
)
;;command: pline 0.0 100,0 100,50 0,50 c
;;command: (ALE_IsInside '(-0.00000000001 -0.00000000001) (entlast))
;;nil
;;command: (ALE_IsInside '(0.00000000001 0.00000000001) (entlast))
;;T |
|