使用vla-GetAttributes出现的问题

changyiran

我用（vla-GetAttributes  vla）为什么返回的是   错误: ActiveX 服务器返回错误: 未知名称: GetAttributes。真是奇怪！

cabinsummer

(vl-load-com)预先加了没有？

changyiran

cabinsummer 发表于 2012-3-30 20:17
(vl-load-com)预先加了没有？

加了啊，真不知道是为什么？

Gu_xl

changyiran 发表于 2012-3-31 16:04
加了啊，真不知道是为什么？

vla不是块对象！

e2002

（vla-GetAttributes  vla）
这里的 vla 类型应该是一个 Object ,而不是 EntityName , 你在此之前应

2. 
   
3. (if (setq esl (entsel))
   
4. (progn
   
5.     (setq en (cdr esl)
   
6.               vla (vlax-ename->vla-object en)
   
7.               bHasAttribs (if (= :VLAX-TRUE (vla-get-HasAttributes vla))  T nil)
   
8.     )
   
9.     (if bHasAttribs
   
10.            ......
    
11. ...
    

<br /> (if (setq esl (entsel))<br /> (progn<br />     (setq en (cdr esl)<br />               vla (vlax-ename->vla-object en)<br />               bHasAttribs (if (= :VLAX-TRUE (vla-get-HasAttributes vla))  T nil)<br />     )<br />     (if bHasAttribs <br />            ......<br /> ...<br />

changyiran

Gu_xl 发表于 2012-3-31 16:53
vla不是块对象！

vla是块对象啊，是我用(vlax-ename->vla-object en)转换过来的。

snddd2000

检测vla看看有什么内容

changyiran

我现在用(vla-GetAttributes  vla)又返回#<variant 8201 ...>，真是太奇怪了。