距离文字最近的文字（第二版）

dyjwyqz5221 · 发表于 2020-4-24 17:38:24

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 dyjwyqz5221 于 2020-8-13 15:54 编辑

2020.08.13api修改了函数xdrx-getnearpt,可以采用(xdrx-getnearpt (getpoint) (ssget))了。
此函数也适应于查找距离点最近的文字。
2020.08.13

api函数修改了，本函数修改如下：

[Actionscript3] 纯文本查看 复制代码

(defun xd::getneartxt(e lst / pt pts-e e1)
        (if (= (type lst) 'pickset)
                (setq lst (xdrx-pickset->ents lst))
        );;;if
        (setq pt (xdrx-propertyvalue e "centroid")
                pts-e
                (mapcar
                        '(lambda(x)
                                (list (xdrx-propertyvalue x "centroid") x)
                        );;;lambda
                        lst
                );;;mapcar
                pt-near (xdrx-points-minmaxpoint (cons pt (mapcar 'car pts-e)))
                e1 (cadr (assoc pt-near pts-e))
        );;;setq
        (list e e1)
)

xk15c · 发表于 2020-4-24 18:19:07

支持你，愿你发布更优秀的作品

相信自己666 · 发表于 2020-4-24 23:58:09

厉害厉害向高手学习

kmliro_2017 · 发表于 2020-4-27 07:08:36

学习学习！！！！！

Tony1943 · 发表于 2021-1-6 21:38:51

支持技术达人分享经验

账号		自动登录	找回密码
密码			立即注册

[其他] 距离文字最近的文字（第二版）

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分