请问vla-intersectwith是哪里的函数

soly2006

dcg553496180 发表于 2013-10-11 10:25
我编了一个测试的lisp程序：
(defun c:qdz ()
    (setq se_1 (entsel "\n 选择第一条曲线:"))

(defun c:qdz ()
    (setq se_1 (vlax-ename->vla-object(car (entsel "\n 选择第一条曲线:"))))
    (setq se_2 (vlax-ename->vla-object(car (entsel "\n 选择第二条曲线:"))))
    (vl-load-com)
    (setq pt (vla-intersectwith se_1 se_2 acextendboth))
)

dcg553496180

soly2006 发表于 2013-10-11 13:42
(defun c:qdz ()
    (setq se_1 (vlax-ename->vla-object(car (entsel "\n 选择第一条曲线:"))))
     ...

#<variant 8197 ...>
运行出来的结果怎么是怎么？应该是一个点呀

WXCBC

(defun c:qdz ()
    (setq se_1 (vlax-ename->vla-object(car (entsel "\n 选择第一条曲线:"))))
    (setq se_2 (vlax-ename->vla-object(car (entsel "\n 选择第二条曲线:"))))
    (vl-load-com)
    (setq pt (vla-intersectwith se_1 se_2 acextendboth))
    ;;;;;;或者 (setq pt (vla-intersectwith se_1 se_2 3))
    (setq ptlist (vlax-safearray->list (vlax-variant-value pt)))
    (princ "\n交点坐标是：")(princ ptlist)
)