请教有关对象捕捉的问题

lining

我想用对象捕捉命令捕捉到两条圆弧的交点，再以此交点为圆心画圆弧，该怎样用LISP实现呢？


谢谢各位指教！

xyp1964

2. (setq pt (vlax-safearray->list
3.        (vlax-variant-value
4.            (vla-intersectwith
5.                (vlax-ename->vla-object (car (entsel "\n选择圆弧1 : ")))
6.                (vlax-ename->vla-object (car (entsel "\n选择圆弧2 : ")))
7.                acExtendnone
8.            )
9.        )
10.    )
11. )

(setq pt (vlax-safearray->list        (vlax-variant-value            (vla-intersectwith                (vlax-ename->vla-object (car (entsel "\n选择圆弧1 : ")))                (vlax-ename->vla-object (car (entsel "\n选择圆弧2 : ")))                acExtendnone            )        )    ) )

lining

请问用osnap能实现上述功能吗？