为什么这个函数总显示 错误: 参数类型错误: VLA-OBJECT nil

lucas3

eachy 站长的函数
为什么总是 错误: 参数类型错误: VLA-OBJECT nil   CAD2007测试

2. (defun ybvl-Clearcset (/ cset)
   
3.   (if (not (vl-catch-all-error-p
   
4.              (setq cset
   
5.                     (vl-catch-all-apply
   
6.                       'vla-item
   
7.                       (list
   
8.                         (vlax-get-property
   
9.                           *AcDocumnet*
   
10.                           'selectionsets
    
11.                         )
    
12.                         "CURRENT"
    
13.                       )
    
14.                     )
    
15.              )
    
16.            )
    
17.       )
    
18.     (vla-delete cset)
    
19.   )
    
20.   (princ)
    
21. )

(defun ybvl-Clearcset (/ cset)<br />   (if (not (vl-catch-all-error-p<br />              (setq cset<br />                     (vl-catch-all-apply<br />                       'vla-item<br />                       (list<br />                         (vlax-get-property<br />                           *AcDocumnet*<br />                           'selectionsets<br />                         )<br />                         "CURRENT"<br />                       )<br />                     )<br />              )<br />            )<br />       )<br />     (vla-delete cset)<br />   )<br />   (princ)<br /> )

newer

你把屏幕内的实体夹点显示出来，在运行这个函数看看。

lucas3

newer 发表于 2014-11-18 16:39
你把屏幕内的实体夹点显示出来，在运行这个函数看看。

回版主， 是选中一个对象后再运行吗？ 选择了一条line ,测试结果一样 错误: 参数类型错误: VLA-OBJECT nil

newer

lucas3 发表于 2014-11-18 16:42
回版主， 是选中一个对象后再运行吗？ 选择了一条line ,测试结果一样 错误: 参数类型错误: VLA-OBJECT ni ...

他这个应该是其他程序的一部分，这个里面用了 *AcDocumnet* 这个变量，没赋值，你把它赋值就行了，文档对象。

st788796

(vlax-get-property   *AcDocumnet*      'selectionsets         )
=>
(vla-get-selectionsets (vla-get-activedocurment (vlax-get-acad-object)))

lucas3

st788796 发表于 2014-11-18 17:07
(vlax-get-property   *AcDocumnet*      'selectionsets         )
=>
(vla-get-selectionsets (vla-ge ...

st 大师， vla-get-activedocurment 里多了一个字母r 吧 ，去掉r 可以运行，但是没有效果啊

st788796

lucas3 发表于 2014-11-18 17:17
st 大师， vla-get-activedocurment 里多了一个字母r 吧 ，去掉r 可以运行，但是没有效果啊

这个本来运行就没有效果，只有你后面使用 ActiveSelectionSet 才有效果

1. (defun Clearcset (/ cset)
   
2.   (if (not (vl-catch-all-error-p
   
3.              (setq cset
   
4.                     (vl-catch-all-apply
   
5.                       'vla-item
   
6.                       (list
   
7.                         (vla-get-selectionsets
   
8.                           (vla-get-activedocument
   
9.                             (vlax-get-acad-object)
   
10.                           )
    
11.                         )
    
12.                         "CURRENT"
    
13.                       )
    
14.                     )
    
15.              )
    
16.            )
    
17.       )
    
18.     (vla-delete cset)
    
19.   )
    
20.   t
    
21. )
    

(defun Clearcset (/ cset)<br />   (if (not (vl-catch-all-error-p<br />              (setq cset<br />                     (vl-catch-all-apply<br />                       'vla-item<br />                       (list<br />                         (vla-get-selectionsets<br />                           (vla-get-activedocument<br />                             (vlax-get-acad-object)<br />                           )<br />                         )<br />                         "CURRENT"<br />                       )<br />                     )<br />              )<br />            )<br />       )<br />     (vla-delete cset)<br />   )<br />   t<br /> )<br />

lucas3

st788796 发表于 2014-11-18 17:25
这个本来运行就没有效果，只有你后面使用 ActiveSelectionSet 才有效果

回st大师，看看下面这个, 运行Ea:GroupMake 还是不成功呢？

1. (vl-load-com)
   
2. ;;清除前一选择集
   
3. (defun ybvl-Clearcset (/ cset)
   
4.   (if (not (vl-catch-all-error-p
   
5.              (setq cset
   
6.                     (vl-catch-all-apply
   
7.                       'vla-item
   
8.                       (list
   
9.                         (vla-get-selectionsets
   
10.                           (vla-get-activedocument
    
11.                             (vlax-get-acad-object)
    
12.                           )
    
13.                         )
    
14.                         "CURRENT"
    
15.                       )
    
16.                     )
    
17.              )
    
18.            )
    
19.       )
    
20.     (vla-delete cset)
    
21.   )
    
22.   t
    
23. )
    
24. 
    
25. (defun c:Ea:GroupMake (/ ss gname gn)
    
26.   (ybvl-clearcset)
    
27.   (prompt "\n请选取要组成组的实体<退出>:")
    
28.   (if (setq ss (ssget))
    
29.     (progn
    
30.       (setq gName (getstring "\n请输入组名<制匿名组>:"))
    
31.       (if (not (setq gn        (ybvl-MkGroup
    
32.                           ss
    
33.                           (if (or (= gname "")
    
34.                                   (= gname "*")
    
35.                               )
    
36.                             "*"
    
37.                             gname
    
38.                           )
    
39.                         )
    
40.                )
    
41.           )
    
42.         (prompt        (strcat        "\n已经把选择的实体制成组，组名是 "
    
43.                         gn
    
44.                         "."
    
45.                 )
    
46.         )
    
47.         (princ (strcat "\n所选实体已经属于 " gName " 组."))
    
48.       )
    
49.     )
    
50.   )
    
51.   (princ)
    
52. )
    
53. 
    
54. (defun ybvl-MkGroup (ss gname / group lst group_obj)
    
55.   (setq group (ybvl-addgroup gname))
    
56.   (if (/= (vla-get-count group) 0)
    
57.     (progn
    
58.       (vlax-for        i group
    
59.         (setq group_obj (cons i group_obj))
    
60.       )
    
61.       (setq group_obj (reverse group_obj))
    
62.     )
    
63.   )
    
64.   (vlax-for ent        (activesset)
    
65.     (if        group_obj
    
66.       (if (not (member ent group_obj))
    
67.         (setq lst (cons ent lst))
    
68.       )
    
69.       (setq lst (cons ent lst))
    
70.     )
    
71.   )
    
72.   (if lst
    
73.     (progn
    
74.       (vla-AppendItems
    
75.         group
    
76.         (vlax-safearray-fill
    
77.           (vlax-make-safearray
    
78.             vlax-vbObject
    
79.             (cons 0 (1- (length lst)))
    
80.           )
    
81.           lst
    
82.         )
    
83.       )
    
84.       (vla-get-name group)
    
85.     )
    
86.   )
    
87. )
    
88. 
    
89. (defun ybvl-addgroup (groupname)
    
90.   (if (not
    
91.         (vl-catch-all-error-p
    
92.           (setq        tf (vl-catch-all-apply
    
93.                      'vla-item
    
94.                      (list (vla-get-groups *AcDocument*) groupname)
    
95.                    )
    
96.           )
    
97.         )
    
98.       )
    
99.     tf
    
100.     (vla-add
     
101.       (vla-get-groups *AcDocument*)
     
102.       groupname
     
103.     )
     
104.   )
     
105. )
     

(vl-load-com)<br /> ;;清除前一选择集<br /> (defun ybvl-Clearcset (/ cset)<br />   (if (not (vl-catch-all-error-p<br />              (setq cset<br />                     (vl-catch-all-apply<br />                       'vla-item<br />                       (list<br />                         (vla-get-selectionsets<br />                           (vla-get-activedocument<br />                             (vlax-get-acad-object)<br />                           )<br />                         )<br />                         "CURRENT"<br />                       )<br />                     )<br />              )<br />            )<br />       )<br />     (vla-delete cset)<br />   )<br />   t<br /> )<br /> <br /> (defun c:Ea:GroupMake (/ ss gname gn)<br />   (ybvl-clearcset)<br />   (prompt "\n请选取要组成组的实体<退出>:")<br />   (if (setq ss (ssget))<br />     (progn<br />       (setq gName (getstring "\n请输入组名<制匿名组>:"))<br />       (if (not (setq gn        (ybvl-MkGroup<br />                           ss<br />                           (if (or (= gname "")<br />                                   (= gname "*")<br />                               )<br />                             "*"<br />                             gname<br />                           )<br />                         )<br />                )<br />           )<br />         (prompt        (strcat        "\n已经把选择的实体制成组，组名是 "<br />                         gn<br />                         "."<br />                 )<br />         )<br />         (princ (strcat "\n所选实体已经属于 " gName " 组."))<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br /> <br /> (defun ybvl-MkGroup (ss gname / group lst group_obj)<br />   (setq group (ybvl-addgroup gname))<br />   (if (/= (vla-get-count group) 0)<br />     (progn<br />       (vlax-for        i group<br />         (setq group_obj (cons i group_obj))<br />       )<br />       (setq group_obj (reverse group_obj))<br />     )<br />   )<br />   (vlax-for ent        (activesset)<br />     (if        group_obj<br />       (if (not (member ent group_obj))<br />         (setq lst (cons ent lst))<br />       )<br />       (setq lst (cons ent lst))<br />     )<br />   )<br />   (if lst<br />     (progn<br />       (vla-AppendItems<br />         group<br />         (vlax-safearray-fill<br />           (vlax-make-safearray<br />             vlax-vbObject<br />             (cons 0 (1- (length lst)))<br />           )<br />           lst<br />         )<br />       )<br />       (vla-get-name group)<br />     )<br />   )<br /> )<br /> <br /> (defun ybvl-addgroup (groupname)<br />   (if (not<br />         (vl-catch-all-error-p<br />           (setq        tf (vl-catch-all-apply<br />                      'vla-item<br />                      (list (vla-get-groups *AcDocument*) groupname)<br />                    )<br />           )<br />         )<br />       )<br />     tf<br />     (vla-add<br />       (vla-get-groups *AcDocument*)<br />       groupname<br />     )<br />   )<br /> )<br />

iLisp

有什么情况

lucas3

st788796 发表于 2014-11-18 17:25
这个本来运行就没有效果，只有你后面使用 ActiveSelectionSet 才有效果

st大师，调试时中断在这个函数这里，又是跟*AcDocument* 有关， 这里该怎么改呢？

2. (defun ybvl-addgroup (groupname)
   
3.   (if (not
   
4.         (vl-catch-all-error-p
   
5.           (setq        tf (vl-catch-all-apply
   
6.                      'vla-item
   
7.                      (list (vla-get-groups *AcDocument*) groupname)
   
8.                    )
   
9.           )
   
10.         )
    
11.       )
    
12.     tf
    
13.     (vla-add
    
14.       (vla-get-groups *AcDocument*)
    
15.       groupname
    
16.     )
    
17.   )
    
18. )

(defun ybvl-addgroup (groupname)<br />   (if (not<br />         (vl-catch-all-error-p<br />           (setq        tf (vl-catch-all-apply<br />                      'vla-item<br />                      (list (vla-get-groups *AcDocument*) groupname)<br />                    )<br />           )<br />         )<br />       )<br />     tf<br />     (vla-add<br />       (vla-get-groups *AcDocument*)<br />       groupname<br />     )<br />   )<br /> )

st788796

(setq *AcDocument* (vla-get-activedocument (vlax-get-acad-object)))

用 xdrx_group_make 吧，省事

功      能： 创建组
调用格式：  (xdrx_group_make <"组名"> <实体名 or 选择集>...<实体名 or 选择集>)
返      回： 成功返回组名
说      明： 若“组名”是"*",则创建匿名组

lucas3

st788796 发表于 2014-11-18 18:58
(setq *AcDocument* (vla-get-activedocument (vlax-get-acad-object)))

用 xdrx_group_make 吧，省事

先newer版主说的给*AcDocument* 赋值，应改就是这个意思， 这样函数ybvl-Clearcset 里的就不用替换了！
谢谢ST大师的无私帮助！！！

Free-Lancer

lucas3 发表于 2014-11-18 19:13
先newer版主说的给*AcDocument* 赋值，应改就是这个意思， 这样函数ybvl-Clearcset 里的就不用替换了！
...

这应该是截取的片段，每个写就太累了

(setq *AcDocument* (vla-get-activedocument (vlax-get-acad-object))) <=> (fy:acdoc)

lucas3

Free-Lancer 发表于 2014-11-18 19:17
这应该是截取的片段，每个写就太累了

(setq *AcDocument* (vla-get-activedocument (vlax-get-acad- ...

大师的意是这个跟您的(fy:acdoc) 函数功能一样吧

Free-Lancer

lucas3 发表于 2014-11-18 19:28
大师的意是这个跟您的(fy:acdoc) 函数功能一样吧

一试便知