findss_from_one_echosome```以图元边界偏移搜索【仅适用WCS】

masterlong

编程时经常遇到以下需求
先指定一个图元 a
在 a 的某个方位搜索另一个图元 b
再在 b 的附近找 c
编程难度不大就是挺啰嗦
为减少主程序的代码量
特别建立了这个函数
用于【以图元边界偏移搜索】


;999以指定图元为边界偏移后寻找特定图元【仅适用WCS】
;|
one    为指定图元or选择集or图元列表
ida    整数1~4，分别代表onerec的4角点之1。
outpa  ida代表的点坐标的偏移量（2元实数表）
idb    整数1~4，分别代表onerec的4角点之2
outpb  idb代表的点坐标的偏移量（2元实数表）
mode   捕捉模式"W、C"或"WP、CP"或"F"
fi     过滤器
范例：
(findss_from_one ent 1 '(2000 0) 2 '(0 0) "c" '((0 . "TEXT") (8 . "F__辅助线__temp")))   ;;以ent边界为基础，偏移1pt、2pt点后，寻找辅助文字
|;

;999以指定图元为边界偏移后寻找特定图元【仅适用WCS】。与上一个函数的区别是，当未找到对象时，按再偏移量pydis继续寻找，直至达到最大重复次数times
;|
one    为指定图元or选择集or图元列表
ida    整数1~4，分别代表onerec的4角点之1
outpa  ida代表的点坐标的偏移量（2元实数表）
idb    整数1~4，分别代表onerec的4角点之2
outpb  idb代表的点坐标的偏移量（2元实数表）
mode   捕捉模式"W、C"或"WP、CP"或"F"
fi     过滤器
times  最大重复次数
pydis  重复寻找时的再偏移量（2元实数表）
范例：
(findss_from_one_echosome ent 1 '(2000 0) 2 '(0 0) "c" '((0 . "TEXT") (8 . "F__辅助线__temp")) 3 '(-2000 0)) ;;以ent边界为基础，偏移1pt、2pt点后，寻找辅助文字。允许重复3次再偏移寻找
|;

中国梦

谢谢楼主分享

yaojing38

谢谢楼主分享

loveu515

这么好的程序，谢谢分享

ziyouwzb

这个非常有用。

bai2000

举个实际的应用例子