[编程交流] 在AeccSurfa上调用方法

 
(defun c:day ()
 ;Please note that there is not any error trapping
 ;Load Visual Lisp Extensions
 (vl-load-com)
 ;Prompt User for the Line Object
 (setq line-obj (vlax-ename->vla-object (car (entsel "\nSelect Line Object: "))))
 ;Prompt User for the Surface Object
 (setq surface-obj (vlax-ename->vla-object (car (entsel "\nSelect Surface Object: "))))
 ;Define the Point to Vector function
 (defun pnt->vec (p1 p2 / vx vy vz)
   (if (equal p1 p2)
     (list 0 0 0)
     (progn
(setq dist (distance p1 p2))
       (setq vx (/ (- (nth 0 p2)(nth 0 p1)) dist))
       (setq vy (/ (- (nth 1 p2)(nth 1 p1)) dist))
       (setq vz (/ (- (nth 2 p2)(nth 2 p1)) dist))
       (list vx vy vz))
     )
   )
 ;Return the StartPoint of the Line
 (setq p1 (vlax-safearray->list (vlax-variant-value (vla-get-startpoint line-obj))))
 ;Return the Vector using the Start and End Point of the Line
 (setq vec
 (pnt->vec
   (vlax-safearray->list (vlax-variant-value (vla-get-startpoint line-obj)))
   (vlax-safearray->list (vlax-variant-value (vla-get-endpoint line-obj)))
   )
)
 ;Invoke the IntersectPointWithSurface Method
 (setq p (vlax-invoke surfobj 'IntersectPointWithSurface p1 vec))
 )