求解 activex服务器返回错误问题

firewind0

程序很简单就是检测 M-AUX-INF-AREA 这个图层  用一个命令开关

1. (defun c:mm(/ mm_layer mm_a mm_sw)
   
2.    (vl-load-com)
   
3.     (vlax-for mm_layer (vla-get-Layers
   
4.                        (vla-get-ActiveDocument
   
5.                          (vlax-get-acad-object)
   
6.                        )
   
7.                      )
   
8.       (setq mm_a (vla-get-name mm_layer))
   
9.       (if (= mm_a "M-AUX-INF-AREA")
   
10.           (progn
    
11.             (setq mm_sw (vla-get-layeron mm_layer))
    
12.             (cond (= mm_sw :vlax-true) (command "layer" "off" "M-AUX-INF-AREA" "")
    
13.                   (= mm_sw :vlax-false) (command "layer" "on" "M-AUX-INF-AREA" ""))
    
14.           )
    
15.         )
    
16.       )
    
17. 
    
18.   )
    

(defun c:mm(/ mm_layer mm_a mm_sw)<br />    (vl-load-com)<br />     (vlax-for mm_layer (vla-get-Layers<br />                        (vla-get-ActiveDocument<br />                          (vlax-get-acad-object)<br />                        )<br />                      )<br />       (setq mm_a (vla-get-name mm_layer))<br />       (if (= mm_a "M-AUX-INF-AREA")<br />           (progn<br />             (setq mm_sw (vla-get-layeron mm_layer))<br />             (cond (= mm_sw :vlax-true) (command "layer" "off" "M-AUX-INF-AREA" "")<br />                   (= mm_sw :vlax-false) (command "layer" "on" "M-AUX-INF-AREA" ""))<br />           )<br />         )<br />       )<br /> <br />   )<br />

一开始用的是vla-put-layeron 这个命令 整体运行能行 但是图层无反应     逐条运行寻错的时候    vla-get-name和vla-put-layeron这两个命令的时候就会出现 activex 服务器返回错误:未知名称  这个问题

firewind0

木有测试图纸 就是随便建立了个名字叫M-AUX-INF-AREA的图层直接试验的....

firewind0

木人能解么。。。亲们

yjr111

(cond ((= mm_sw :vlax-true) (command "layer" "off" "M-AUX-INF-AREA" ""))
                  ((= mm_sw :vlax-false) (command "layer" "on" "M-AUX-INF-AREA" ""))
          )