一个关于VLA- 、VLAX- 这类函数的问题

syf · 发表于 2002-9-28 12:23:00

陈老师：我遇到一个问题，我在程序中使用了类似 VLA- VLAX- 前缀的函数
但是在程序运行时出现 vla- 或 vlax- 类的函数位定义的错误。请问是什么原因。
请指教。谢谢。

syf · 发表于 2002-9-29 09:38:00

是这个函数：
(defun intersect(obj1 obj2)
(setq obj1 (vlax-ename->vla-object obj1))
(setq obj2 (vlax-ename->vla-object obj2))
(setq intpt (vla-intersectwith obj1 obj2))
(setq intpt (vla-variant-value intpt))
(setq intpt (vlax-safearray->list intpt))
)
我想得到 obj1 和 obj2 的交点。
运行会出现 vla-ename->vla-object 函数位定义的提示
另：请问如何引用vlisp标准函数，或其他类库创建的函数
是否和C一样有类似 include ******* 的语句呢？
请指教，谢谢。

陈伯雄 · 发表于 2002-9-29 12:39:00

至于其他问题，我的《Visual LISP程序设计——技巧与范例》中都详细说明了，请参考...

syf · 发表于 2002-9-29 16:22:00

陈老师：
我没有这本书，请问能详细讲一下如何实现。
还有那里有这本书卖，新华书店有吗？

龙龙仔 · 发表于 2002-9-30 09:29:00

(vl-load-com)
(defun INTERSECT ();(OBJ1 OBJ2)
  (setq OBJ1 (car (entsel)))
  (setq OBJ2 (car (entsel)))
  (setq OBJ1 (vlax-ename->vla-object OBJ1))
  (setq OBJ2 (vlax-ename->vla-object OBJ2))
  (setq       INTPT (vlax-safearray->list
            (vlax-variant-value
               (vla-intersectwith OBJ1 OBJ2 acextendnone)
            )
            )
  )
)

一个关于VLA- 、VLAX- 这类函数的问题

发表回复

精选推荐

浏览过的版块