[编程交流] 检查点是否为直线

(ST:Geo-Linear '(1.0 1.0 1.0) '(2.0 2.0 4.0) '(3.0 3.0 3.0))

(defun c:point@line (/AUX-PT E E-OBJ ENT PT PT-XYZ   )
 ;; Tharwat 13. 07. 2011
 ;; add by DEVITG 
(VL-LOAD-COM)
 (if
   (and
     (setq e (car (entsel "\n Select a Line :")))
     (eq (cdr (assoc 0 (setq ent (entget e)))) "LINE")
    (setq pt (car (entsel "\n Select a point :")))
    (eq (cdr (assoc 0 (setq ent (entget pt)))) "POINT")
   );_and
(progn
(setq e-obj (vlax-ename->vla-object e))
(setq pt-xyz (cdr (assoc 10 (setq ent (entget pt)))))
(setq aux-pt (vlax-curve-getclosestpointto e-obj pt-xyz t))
(if (equal aux-pt pt-xyz)
 (alert "point belong to line")
   (alert "point is out the  line")
)
     
);_ progn
   );_ if 
   
);_ end defun