[求助]如何实现这一功能？（献花致谢）

xhq1954425

11楼的朋友连程序都帮我写出来了，真不知如何感谢？我这水平有的地方是看不懂的，我要送花两朵致谢，我运行了一下11楼朋友的程序没运行了？提示为：

命令: tst ; 错误: no function definition: VLAX-GET-ACAD-OBJECT

Andyhon

(defun c:tst ()
   (VL-LOAD-COM)      ; add this line
   (setq cad (vlax-get-acad-object)
 .....
 
 Ref link: http://usa.autodesk.com/adsk/servlet/item?siteID=123112&id=3197964

xgr

我把11楼的程序做些修改

3. (defun c:tst ()
4.   (setq cad (vlax-get-acad-object)
5. Ad  (vla-get-ActiveDocument cad)
6. mS  (vla-get-ModelSpace Ad)
7.   )
8.   (setq Ls (vla-get-Layers Ad))
9.   (setq cnt (vla-get-count ls))
10.   (setq n 0 m 0);计算off层个数m
11.   (repeat cnt
12.     (if (= (vla-get-layeron (vla-item ls n)) :vlax-false)
13.       (progn
14. (setq m (1+ m))
15. (setq n (1+ n))
16.       )
17.       (setq n (1+ n))
18.     )
19.   )
20.   (if (= m 0)(progn (alert "所有图层都已打开，程序退出！")(exit)));强制程序退出
21.   (if (< (getvar "useri1") cnt)
22.     (progn
23.       ;;如图层为开，继续判断下一图层，直到找到关闭的图层
24.       (while (= (vla-get-layeron (vla-item ls (getvar "useri1"))):vlax-true)
25. (setvar "useri1" (1+ (getvar "useri1")))
26.       )
27.       ;;当图层为关闭时，则打开图层
28.       (if (= (vla-get-layeron (vla-item ls (getvar "useri1"))):vlax-false)
29. (vla-put-layeron (vla-item ls (getvar "useri1")) :vlax-true)
30. (setvar "useri1" (1+ (getvar "useri1")))
31.       )
32.     )
33.   )
34.   (if (= (getvar "useri1") cnt)
35.     (progn
36.       (alert "所有图层已打开！")
37.     )
38.   )
39.   (princ)
40. )

(defun c:tst ()   (setq cad (vlax-get-acad-object) Ad  (vla-get-ActiveDocument cad) mS  (vla-get-ModelSpace Ad)   )   (setq Ls (vla-get-Layers Ad))   (setq cnt (vla-get-count ls))   (setq n 0 m 0);计算off层个数m   (repeat cnt     (if (= (vla-get-layeron (vla-item ls n)) :vlax-false)       (progn (setq m (1+ m)) (setq n (1+ n))       )       (setq n (1+ n))     )   )   (if (= m 0)(progn (alert "所有图层都已打开，程序退出！")(exit)));强制程序退出   (if (< (getvar "useri1") cnt)     (progn       ;;如图层为开，继续判断下一图层，直到找到关闭的图层       (while (= (vla-get-layeron (vla-item ls (getvar "useri1"))):vlax-true) (setvar "useri1" (1+ (getvar "useri1")))       )       ;;当图层为关闭时，则打开图层       (if (= (vla-get-layeron (vla-item ls (getvar "useri1"))):vlax-false) (vla-put-layeron (vla-item ls (getvar "useri1")) :vlax-true) (setvar "useri1" (1+ (getvar "useri1")))       )     )   )   (if (= (getvar "useri1") cnt)     (progn       (alert "所有图层已打开！")     )   )   (princ) )