请问如何用程序自动捕捉,求距离

王咣生

我想求一个块符号(INSERT)到附近线的距离,怎样用程序自动捕捉,自动计算距离

3kd

王咣生

我想求一个块Insert的插入点到它附近的POLYLINE的最短距离，应该怎么求?

龙龙仔

;|
传回曲线上最接近指定点的点 (使用 WCS)
(vlax-curve-getClosestPointTo curve-obj givenPnt [extend])
自变量
curve-obj
测量 VLA 物件。
givenPnt
要寻找曲线上最近点的点 (使用 WCS)。
extend
如果有指定，且不为 nil，vlax-curve-getClosestPointTo 当搜寻最近点时，会延伸曲线。
传回值
如果成功的话，传回代表曲线上点的 3D 点串行，否则为 nil。|;
(defun TT ()
  (setvar "osmode" 0)
  (setq QQ (vlax-ename->vla-object (car (entsel "\nSelect curve"))))
  (setq PT (cdr (assoc 10 (entget (car (entsel "\nSelect block"))))))
  (setq PT1 (vlax-curve-getclosestpointto QQ PT t))
)

王咣生

谢谢,我试一下。以后还要多麻烦龙斑竹.

LONGXIN

龙兄，为什么有时会返回nil值呢？

LONGXIN

“自动延伸”的概念是不是指曲线在起点或者终点在曲线的方向上会无限延长？