Intersection of Arc and Line

Does anyone know how to calculate the intersection of an Arc and a Line,
Inters only works with 4 points

Cheers

Greg

 

IntersectWith method

Signature

RetVal = object.IntersectWith(IntersectObject, ExtendOption)

 

Stupid question, how do I make this happen with Lisp?

 

(defun C:TT (/ PT_LST)
(setq PT_LST (vlax-safearray->list
(vlax-variant-value
(vla-intersectwith
(vlax-ename->vla-object
(car (entsel "\nfirst object: "))
)
(vlax-ename->vla-object
(car (entsel "\nSecond object: "))
)
acextendnone ;Does not extend either object.
)
)
)
)
(if PT_LST
(XL-DIV PT_LST 3)
)
)

(defun XL-DIV (LST X / LST1 LST2)
(while LST
(setq LST1 NIL)
(repeat X
(setq LST1 (append LST1 (list (car LST))))
(setq LST (cdr LST))
)
(setq LST2 (cons LST1 LST2))
)
)

 

;;REPOST
(defun C:TT (/ PT_LST IPTS)
(setq IPTS (vlax-variant-value
(vla-intersectwith
(vlax-ename->vla-object
(car (entsel "\nfirst object: "))
)
(vlax-ename->vla-object
(car (entsel "\nSecond object: "))
)
acextendnone ;Does not extend either object.
)
)
)
(if (> (vlax-safearray-get-u-bound IPTS 1) 0)
(progn
(setq PT_LST (vlax-safearray->list IPTS))
(XL-DIV PT_LST 3)
)
)
)

 

Thank You

 

Hi Greg

Visit my homepage -> Free Stuff and search for 'VxGetInters'.

Cheers