点沿矢量到线的距离

xialiang · 发表于 2005-7-3 00:37:00

求救！

怎么求点沿一矢量到各种线的距离啊？？

请大侠指教！！！

王咣生 · 发表于 2005-7-3 01:57:00

看一下vlax-curve-getClosestPointTo 函数

xialiang · 发表于 2005-7-3 10:27:00

不明白？？

vlax-curve-getClosestPointTo 是求垂足的！！！

而我说的是点沿一angle与曲线的交点啊！！

王咣生 · 发表于 2005-7-3 12:52:00

那你说求距离不太确切,

可以考虑先画一短线(polar函数),然后求它与已知曲线的交点

xialiang · 发表于 2005-7-3 22:53:00

我点沿angle延伸的距离可是个变量!!!不是个固定值!!这个方法好象有点勉强!!!

yshf · 发表于 2005-7-3 22:54:00

;请试用以下程序
;点沿矢量到线的距离
(defun c:ddxjl()
(setq xtblm '("cmdecho" "osmode")
xtblz (mapcar 'getvar xtblm)
)
(mapcar 'setvar xtblm '(0 0))
(while (setq p1 (getpoint "\n请指定点<回车结束>:"))
(setq an (getangle p1 "\n请手指定矢量方向:")
en (car (entsel "\n请选择线:"))
)
(command "_line" p1 (setq p2 (polar p1 an 0.5)) ""
"_extend" en "" (list (setq en1 (entlast)) p2) ""
)
(setq dis (rtos (distance p1 (cdr (assoc 11 (entget (entlast))))) 2 6))
(entdel (entlast))
(alert (strcat "点到沿矢量线的距离为：" dis))
(princ (strcat "\n点到沿矢量线的距离为：" dis))
)
(mapcar 'setvar xtblm xtblz)(princ)
)

xialiang · 发表于 2005-7-9 23:56:00

如果0.5的距离太长!则用extend就不行了!!!所以此程序有bug!!!!!

xyp1964 · 发表于 2005-7-10 00:54:00

(defun c:test ()
;(CMDLA0)
(setq pt1 (getpoint "\n点 : ")
pt2 (getpoint pt1 "\n方向 : ")
s1 (car (entsel "\n选择实体"))
)
(command "line" pt1 pt2 "")
(setq s2 (entlast))
(setq pt (vlax-safearray->list
(vlax-variant-value
(vla-intersectwith
(vlax-ename->vla-object s2)
(vlax-ename->vla-object s1)
acExtendthisentity
)
)
)
pt (list (car pt)(cadr pt))
)
(entdel s2)
(grdraw pt1 pt 1)
(princ "\距离＝ ")
(princ (distance pt1 pt))
;(command "line" pt1 pt "")
;(CMDLA1)
)

xialiang · 发表于 2005-7-10 10:15:00

8楼真是高手!!可惜我有几个函数看不懂!!!!比如:vlax-safearray->list、vlax-variant-value
等！能帮忙解释一下吗？？谢谢！！万分感谢！！！

xialiang · 发表于 2005-7-10 10:17:00

我的VLISP函数集中你写的函数好多都没有！！！

这是怎么会事？

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