[求助][LISP]帮忙查错

popsun

2. (defun foo_main()
3.    (setq s (car(entsel)))
4.    (setq layname (vla-get-layer (vlax-ename->vla-object s)))
5.    (setq layobj (vla-item layers layname))
6.    (vla-put-layeron layobj :vlax-false)
7. )

(defun foo_main()    (setq s (car(entsel)))    (setq layname (vla-get-layer (vlax-ename->vla-object s)))    (setq layobj (vla-item layers layname))    (vla-put-layeron layobj :vlax-false) )

layobj返回值不对，是vla-item的用法错了吗？

王咣生

layers 还没定义呢?

popsun

vla-item的函数型式是怎么样的？layers应该定义成什么样？我从哪里才能找到这类函数的帮助文件啊？在AutoCAD的帮助里面只有VBA的，参数形式不太一样。

王咣生

(defun c:foo_main()
(setq s (car(entsel)))
(setq layname (vla-get-layer (vlax-ename->vla-object s)))

(setq activeDoc (vla-get-activedocument (vlax-get-acad-object)))
(setq layers (vlax-get-property activeDoc 'Layers))

(setq layobj (vla-item layers layname))
(vla-put-layeron layobj :vlax-false)
)

meflying

popsun发表于2004-12-15 23:16:00vla-item的函数型式是怎么样的？layers应该定义成什么样？我从哪里才能找到这类函数的帮助文件啊？在AutoCAD的帮助里面只有VBA的，参数形式不太一样。

看看VLISP帮助中开发者手册中的ACTIVEX部分，有介绍怎么根据VBA的参考使用VLISP函数

popsun

谢谢指导，总觉得VLISP的调试不够体贴，还有Autodesk似乎对VLIP的重视不如VBA，帮助文件还是借用的，VBA的调用又比VLISP麻烦一些，真是没有十全十美的。以后还得多多练习才行啊。