求一段代码，获取某点周围的图元名!

cchessbd

ssyfeng 发表于 2023-3-15 16:08
你可以把文字包围盒函数换成图元的包围盒函数

我又读了几遍您的代码，终于获得了4个角点。经过综合比较，还是在您的程序基础上再来修改算了，不然工程量太大。
我打算4个角点和中心点，与块心距离来综合比较。这样在钻孔和文字比较密集时，假设有7-800个孔和文字的话，应该能对90-98左右。
等我写出来，再多次测试一下正确率。程序调试就是比较麻烦啊。毕竟是业余的。

(setq
                        ptb0 (list (car (nth 0 box)) (cadr (nth 0 box)) 0)
                        ptb1 (list (car (nth 1 box)) (cadr (nth 1 box)) 1)
                        ptb2 (list (car (nth 2 box)) (cadr (nth 2 box)) 2)
                        ptb3 (list (car (nth 3 box)) (cadr (nth 3 box)) 3)
)