vlax-curve-getclosestpointto函数获取直线段上距指定点最近的点有时不在直线上

dnbcgrass

;;用以下程序获取直线段上距指定点最近的点，但有时这个最
;;近点并不在直线段上，用它求距直线段起点的距离为nil,
;;是不是vlax-curve-getclosestpointto函数有问题。

2. (defun c:tt()
   
3.      (vl-load-com)
   
4.      (setq ent (car (entsel "\n选取直线段:")))
   
5.      (setq dxf (entget ent))
   
6.      (if (= (cdr (assoc 0 dxf)) "LINE")
   
7.          (progn
   
8.              ;直线段的起点
   
9.              (setq p10 (cdr (assoc 10 dxf)))
   
10.              ;直线段的起点
    
11.              (setq p11 (cdr (assoc 11 dxf)))
    
12.       (while (setq pt (getpoint "\n直线段外一点:"))
    
13.                  ;直线段上距pt点最近的点ptt
    
14.                  (setq ptt (vlax-curve-getclosestpointto ent pt))
    
15.           (setq pdl (trans (mapcar '- ptt p10) 1 (mapcar '- p11 p10)))
    
16.                  ;点ptt距直线段起点p10的距离
    
17.           (setq cdz (vlax-curve-getdistatpoint ent ptt))
    
18.           (princ "\nptt距直线段上垂足的距离=") (princ (car pdl))
    
19.           (princ ",  距直线段起点的距离=") (princ (last pdl))
    
20.           (princ "\nvlax-curve-getdistatpoint求得的距直线段起点的距离=") (princ cdz)
    
21.      )
    
22.   )
    
23.      )
    
24.      (princ)     
    
25. )

(defun c:tt()<br />      (vl-load-com)<br />      (setq ent (car (entsel "\n选取直线段:")))<br />      (setq dxf (entget ent))<br />      (if (= (cdr (assoc 0 dxf)) "LINE")<br />          (progn<br />              ;直线段的起点<br />              (setq p10 (cdr (assoc 10 dxf)))<br />              ;直线段的起点<br />              (setq p11 (cdr (assoc 11 dxf)))<br />       (while (setq pt (getpoint "\n直线段外一点:"))<br />                  ;直线段上距pt点最近的点ptt<br />                  (setq ptt (vlax-curve-getclosestpointto ent pt))<br />           (setq pdl (trans (mapcar '- ptt p10) 1 (mapcar '- p11 p10)))<br />                  ;点ptt距直线段起点p10的距离<br />           (setq cdz (vlax-curve-getdistatpoint ent ptt))<br />           (princ "\nptt距直线段上垂足的距离=") (princ (car pdl))<br />           (princ ",  距直线段起点的距离=") (princ (last pdl))<br />           (princ "\nvlax-curve-getdistatpoint求得的距直线段起点的距离=") (princ cdz)<br />      )<br />   )<br />      )<br />      (princ)     <br /> )

;|
测试如下：
其中第1点为直线段起点，第2点为直线段止点，第3点为直线段中点，第4点为直线段外任一点。
命令: tt
选取直线段:
直线段外一点:
ptt距直线段上垂足的距离=0.0,  距直线段起点的距离=0.0
vlax-curve-getdistatpoint求得的距直线段起点的距离=0.0
直线段外一点:
ptt距直线段上垂足的距离=-7.10543e-015,  距直线段起点的距离=105.665
vlax-curve-getdistatpoint求得的距直线段起点的距离=105.665
直线段外一点:
ptt距直线段上垂足的距离=-5.14476e-010,  距直线段起点的距离=52.8327
vlax-curve-getdistatpoint求得的距直线段起点的距离=nil
直线段外一点:
ptt距直线段上垂足的距离=4.79154e-010,  距直线段起点的距离=33.9108
vlax-curve-getdistatpoint求得的距直线段起点的距离=nil
直线段外一点:
|;

iLisp

最好转成 param ，这个保险

waterchen

后面最好用上参数t,如(setq ptt (vlax-curve-getclosestpointto ent pt t))

f4800

你好大师，权限太低，不能留言，不能发消息。
之前给你邮发过部分源代码，看有空能修改完善为新的格式定义的数据么？多谢了。。新的定义已发送到邮箱