获取图块上离指定点最近的点？

小菜123 · 发表于 2004-2-11 21:29:00

如何获取图块上离指定点最近的点？

meflying · 发表于 2004-2-12 08:15:00

(vlax-curve-getClosestPointTo (car (entsel)) (getpoint))

小菜123 · 发表于 2004-2-12 12:20:00

这个函数只对曲线有效，对块不行

meflying · 发表于 2004-2-12 13:32:00

这个块总是由一些曲线组成的，通过分别对块中的对象使用如上代码，然后通过坐标转换，得到在WCS中的坐标，当然，最后还要求出最小距离坐标

小菜123 · 发表于 2004-2-12 16:24:00

太难了，我用nentsel选中块内实体试了一下，当把点从实体坐标系转到WCS，总是不成功，不知道怎么回事
(setq ent1 (car(nentsel)))
(setq pt1 (cdr (assoc 10 (entget ent1))))
(setq pt2 (trans pt1 ent1 0))

meflying · 发表于 2004-2-12 17:49:00

这和你说的最近点好象不是一回事吧

小菜123 · 发表于 2004-2-12 18:57:00

上面那个是没关系:)不知道那个坐标是不是可以转换成WCS？
我没有遍历块内实体的函数，哪位能提供一下呀？
另：对于一个图中位于不同位置的同名块，如下的实体表是相同的，能用vlax-curve-getClosestPointTo 针对块内实体进行计算吗？

无痕 · 发表于 2004-2-12 19:38:00

(setq pt2 (trans ent1 ent1 0))
vlax-curve-*　只能对曲线,对块要炸开
(setvar "qaflags" 1)
(vl-cmdf ".explode" blk "")
(setq ss (ssget "p"))
....

小菜123 · 发表于 2004-2-12 21:11:00

那个qaflags好象看到过是个隐藏变量，忘了干什么的了 setq pt2 (trans ent1 ent1 0)) ?也不对啊
有些块炸开后会多出一些文字、属性什么的，处理起来不方便

小菜123 · 发表于 2004-2-14 18:03:00

试了一下飞版主说的办法，对块内的每个对象用vlax-curve-getClosestPointTo后得到的点不正确，我没办法把它转成WCS，就象我在5楼说的那个一样。

获取图块上离指定点最近的点？

发表回复

精选推荐