[求助]：这个LISP缺少什么？

hf423

代码如下：

2. 
   
3.   [FONT=courier new]
   
4. ;;另类图元隐藏/显示，通过建立组隐藏实体
   
5. ;|
   
6. visible
   
7. 
   
8. object.Visible
   
9. 
   
10. object
    
11.       All Drawing objects, Application, AttributeReference, Group, Toolbar
    
12.       The object or objects this property applies to.
    
13. 
    
14. Boolean; read-write (write-only for the Group object)
    
15. TRUE:    The object or application is visible.
    
16. FALSE:   The object or application is not visible.
    
17. 
    
18. Remarks
    
19. If you specify an object to be invisible, it will be invisible regardless of
    
20. the application visible setting. Other factors can also cause an object to be
    
21. invisible; for example, an objectwill not be displayed if its layer is off or
    
22. frozen.
    
23. Specifying the application to be invisible allows you to run tasks in the
    
24. background without having to see the component.
    
25. Specifies the visibility of an object or the application.
    
26. All Drawing objects, Application, AttributeReference, Group, Toolbar
    
27. |;
    
28. (defun ea:SSonoff (tf s mode / groups gl)
    
29.   (setvar "cmdecho" 0)
    
30.   ;;检测是否有特定组
    
31.   (if (vl-catch-all-error-p
    
32.         (vl-catch-all-apply
    
33.           'vla-item
    
34.           (list
    
35.             (setq
    
36.               groups
    
37.                (vla-get-groups
    
38.                  (vla-get-activedocument (vlax-get-acad-object))
    
39.                )
    
40.             )
    
41.             "ea_hide_object"
    
42.           )
    
43.         )
    
44.       )
    
45.     (progn
    
46.       (setq gr (vla-add groups "ea_hide_object"));添加组
    
47.       (setq gl (entget (vlax-vla-object->ename gr)))
    
48.       (entmod (subst '(71 . 0)
    
49.                      (assoc 71 gl)
    
50.                      gl
    
51.               )
    
52.       );不可选择
    
53.     );end progn
    
54.   );end if
    
55.   (if (not tf)
    
56.     (progn
    
57.       (command ".select" "all" "r" s "")
    
58.       (command ".group" "a" "ea_hide_object" "p" "")
    
59.     );隔离隐藏用
    
60.     (command ".group" "a" "ea_hide_object" s "")
    
61.   )
    
62.   (vla-put-visible
    
63.     (vla-item groups "ea_hide_object")
    
64.     mode
    
65.   );隐藏组，实体将不拥有 62 组码
    
66.   (princ)
    
67. )
    
68. ;;隐藏选择实体
    
69. (defun c:Hideobj (/ ss)
    
70.   (if (progn (princ "\n选择要隐藏的实体...")
    
71.              (setq ss (ssget))
    
72.       )
    
73.     (ea:SSonoff t ss :vlax-false)
    
74.   )
    
75.   (princ)
    
76. )
    
77. ;;显示全部实体
    
78. (defun c:Showall (/ ss)
    
79.   (setvar "pickstyle" 0)
    
80.   (if (not (vl-catch-all-error-p
    
81.              (vl-catch-all-apply
    
82.                'vla-item
    
83.                (list
    
84.                  (setq
    
85.                    groups
    
86.                     (vla-get-groups
    
87.                       (vla-get-activedocument (vlax-get-acad-object))
    
88.                     )
    
89.                  )
    
90.                  "ea_hide_object"
    
91.                )
    
92.              )
    
93.            )
    
94.       )
    
95.     (progn
    
96.       (vla-put-visible
    
97.         (vla-item groups "ea_hide_object")
    
98.         :vlax-true
    
99.       )
    
100.       (command ".group" "e" "ea_hide_object");清除组
     
101.     )
     
102.   )
     
103.   (princ)
     
104. )
     
105. ;;隐藏非选择实体
     
106. (defun c:ISOobj        (/ ss)
     
107.   (if (progn (princ "\n选择隔离实体....")
     
108.              (setq ss (ssget))
     
109.       )
     
110.     (ea:ssonoff nil ss :vlax-false)
     
111.   )
     
112.   (princ)
     
113. )
     
114. (princ "\n\t命令: HideObj ShowAll IsoObj.")
     
115.   [/FONT]
     

<br />   [FONT=courier new]<br /> ;;另类图元隐藏/显示，通过建立组隐藏实体<br /> ;|<br /> visible<br /> <br /> object.Visible <br /> <br /> object<br />       All Drawing objects, Application, AttributeReference, Group, Toolbar<br />       The object or objects this property applies to. <br /> <br /> Boolean; read-write (write-only for the Group object) <br /> TRUE:    The object or application is visible. <br /> FALSE:   The object or application is not visible.<br /> <br /> Remarks <br /> If you specify an object to be invisible, it will be invisible regardless of<br /> the application visible setting. Other factors can also cause an object to be<br /> invisible; for example, an objectwill not be displayed if its layer is off or<br /> frozen. <br /> Specifying the application to be invisible allows you to run tasks in the<br /> background without having to see the component. <br /> Specifies the visibility of an object or the application.<br /> All Drawing objects, Application, AttributeReference, Group, Toolbar<br /> |;<br /> (defun ea:SSonoff (tf s mode / groups gl)<br />   (setvar "cmdecho" 0)<br />   ;;检测是否有特定组<br />   (if (vl-catch-all-error-p<br />         (vl-catch-all-apply<br />           'vla-item<br />           (list<br />             (setq<br />               groups<br />                (vla-get-groups<br />                  (vla-get-activedocument (vlax-get-acad-object))<br />                )<br />             )<br />             "ea_hide_object"<br />           )<br />         )<br />       )<br />     (progn<br />       (setq gr (vla-add groups "ea_hide_object"));添加组<br />       (setq gl (entget (vlax-vla-object->ename gr)))<br />       (entmod (subst '(71 . 0)<br />                      (assoc 71 gl)<br />                      gl<br />               )<br />       );不可选择<br />     );end progn<br />   );end if<br />   (if (not tf)<br />     (progn<br />       (command ".select" "all" "r" s "")<br />       (command ".group" "a" "ea_hide_object" "p" "")<br />     );隔离隐藏用<br />     (command ".group" "a" "ea_hide_object" s "")<br />   )<br />   (vla-put-visible<br />     (vla-item groups "ea_hide_object")<br />     mode<br />   );隐藏组，实体将不拥有 62 组码<br />   (princ)<br /> )<br /> ;;隐藏选择实体<br /> (defun c:Hideobj (/ ss)<br />   (if (progn (princ "\n选择要隐藏的实体...")<br />              (setq ss (ssget))<br />       )<br />     (ea:SSonoff t ss :vlax-false)<br />   )<br />   (princ)<br /> )<br /> ;;显示全部实体<br /> (defun c:Showall (/ ss)<br />   (setvar "pickstyle" 0)<br />   (if (not (vl-catch-all-error-p<br />              (vl-catch-all-apply<br />                'vla-item<br />                (list<br />                  (setq<br />                    groups<br />                     (vla-get-groups<br />                       (vla-get-activedocument (vlax-get-acad-object))<br />                     )<br />                  )<br />                  "ea_hide_object"<br />                )<br />              )<br />            )<br />       )<br />     (progn<br />       (vla-put-visible<br />         (vla-item groups "ea_hide_object")<br />         :vlax-true<br />       )<br />       (command ".group" "e" "ea_hide_object");清除组<br />     )<br />   )<br />   (princ)<br /> )<br /> ;;隐藏非选择实体<br /> (defun c:ISOobj        (/ ss)<br />   (if (progn (princ "\n选择隔离实体....")<br />              (setq ss (ssget))<br />       )<br />     (ea:ssonoff nil ss :vlax-false)<br />   )<br />   (princ)<br /> )<br /> (princ "\n\t命令: HideObj ShowAll IsoObj.")<br />   [/FONT]<br />

运行后说“错误: no function definition: VLAX-GET-ACAD-OBJECT"
`请问怎样解决啊？

eachy

你用的什么版本CAD？2000 和2002 先执行 (vl-load-com)  后再试

hf423

多谢斑竹，搞定了。
但关闭了CAD2002，再启动后又要输入(vl-load-com)
有没有办法一次解决？
顺便问下(vl-load-com)是什么意思？

neuwzy

你调用的那些函数vl-catch-all-error-p。。。。。。
都是在一个函数库中的，所以先加载函数库