[求助]vla-intersectwith函数的问题

tchen

下面这段代码是我转贴自MCCAD的 但是发现里面有些函数看不懂象vla-intersectwith这些函数,我的VLISP函数参考中没有

找到.我想请问谁有VLA全部函数,能否传上来共享一下 谢谢!!

(defun c:test ()
  (vl-load-com)
  (setq a(car(entsel "\nSelect First Object: ")))
  (setq b(car(entsel "\nSelect Second Object: ")))
  (setq pts (vla-IntersectWith
   (vlax-ename->vla-object a)
   (vlax-ename->vla-object b)
   acExtendnone
   ))
  (setq ins(not(minusp(vlax-safearray-get-u-bound(vlax-variant-value pts) 1))))
  (cond
   ((ins
   (setq plist(vlax-safearray->list(vlax-variant-value pts)))
   (repeat(/(length plist) 3)
   (setq pl(cons(list(car plist) (cadr plist) (caddr plist)) pl)
   plist (cdddr plist))
   );r
   ))
   );c
   ins
);

祥子

在帮助中有相关解释,只是英文的, 如查 vla-IntersectWith 函数可以直接输入 IntersectWith 就可以了

只是帮助的用法是VBA用法,如IntersectWith 的VBA用法: RetVal = object.IntersectWith (IntersectObject, ExtendOption)

VLISP用法: (vla-IntersectWith OBJ1 OBJ2 ExtendOption)

仔细对比一下,就能看出方法来了．其中的函数基本上　VLISP 都可以使用的,

一般要加前辍如: VLA-,   VLAX-, VLA-GET, VLA-PUT, 等等.