求教08的vla问题~~~

firewind0

(vla-get-name ss_layer)
; 错误: ActiveX 服务器返回错误: 未知名称: Name


这是在vlisp的控制台里运行的结果 (vl-load-com)已经载入
结果发现vla系的命令都用不了
检查08的帮助文件也没有找到vla系的代码。。。难道08不支持vla？？？？

sunny20102

不要怀疑Autodesk公司, 2008肯定支持ActiveX
如要获得层名,试下如下代码:

2. (vl-load-com)
   
3. (defun c:tt (/ acad layers tmp res)
   
4.   (setq acad (vla-get-ActiveDocument (vlax-get-acad-object)))
   
5.   (setq layers (vla-get-Layers acad))
   
6.   (vlax-for tmp        layers
   
7.     (setq res (append res (list (vla-get-Name tmp))))
   
8.   )
   
9.   (princ res)
   
10.   (princ)
    
11. )

(vl-load-com)<br /> (defun c:tt (/ acad layers tmp res)<br />   (setq acad (vla-get-ActiveDocument (vlax-get-acad-object)))<br />   (setq layers (vla-get-Layers acad))<br />   (vlax-for tmp        layers<br />     (setq res (append res (list (vla-get-Name tmp))))<br />   )<br />   (princ res)<br />   (princ)<br /> )

firewind0

sunny20102 发表于 2013-1-21 11:56
不要怀疑Autodesk公司, 2008肯定支持ActiveX
如要获得层名,试下如下代码:

其实吧 就是类似的代码执行不了。。。。。我重装了cad 然后把vba部分也重装了 可以用了～～～谢谢你啦

firewind0

ActiveX 服务器返回错误:name


表示很纠结。。。。。最近cad又不知道哪里出问题了  vla的函数大人们全都失效了。。。。。lvl-load-com有好好加载的说....