请教带有透明效果的图层命令的插件编程

WP.Young

解释一下透明效果：当执行一个命令时能叠加另一个命令。

手上有CAD R16的一个图层插件，经常使用。

现在想自己做个图层插件VLX或ARX的以便支持CAD 高版本。



请教明经网友提供思路。

WP.Young

2. ;;; ------------------------------------------------------------------
   
3. ;;;  2.3.1 LayerOffOtherM 关闭物体以外的层（多选）
   
4. (Defun C:LayerOffOtherM (/ ss ct cl la old)
   
5.         (setvar "cmdecho" 0)
   
6.         (prompt "\nSelect entities on the layers you want to remain:")
   
7.         (setq ss (ssget))
   
8.         (setq ct 0
   
9.                                 len (sslength ss)
   
10.                                 cl (cdr (assoc 8 (entget (ssname ss 0))))
    
11.         )
    
12.         (setvar "clayer" cl)
    
13.         (while (< ct len)
    
14.                 (setq la (cdr (assoc 8 (entget (ssname ss ct)))))
    
15.                 (if (= old nil)
    
16.                         (setq OLD la)
    
17.                         (setq OLD (strcat OLD "," la))
    
18.                 )
    
19.                 (setq ct (1+ ct))
    
20.         )
    
21.         (command ".layer" "off" "*" "y" "")
    
22.         (command ".layer" "on" old "")
    
23.         (princ)
    
24. )

;;; ------------------------------------------------------------------<br /> ;;;  2.3.1 LayerOffOtherM 关闭物体以外的层（多选）<br /> (Defun C:LayerOffOtherM (/ ss ct cl la old)<br />         (setvar "cmdecho" 0)<br />         (prompt "\nSelect entities on the layers you want to remain:")<br />         (setq ss (ssget))<br />         (setq ct 0<br />                                 len (sslength ss)<br />                                 cl (cdr (assoc 8 (entget (ssname ss 0))))<br />         )<br />         (setvar "clayer" cl)<br />         (while (< ct len)<br />                 (setq la (cdr (assoc 8 (entget (ssname ss ct)))))<br />                 (if (= old nil)<br />                         (setq OLD la)<br />                         (setq OLD (strcat OLD "," la))<br />                 )<br />                 (setq ct (1+ ct))<br />         )<br />         (command ".layer" "off" "*" "y" "")<br />         (command ".layer" "on" old "")<br />         (princ)<br /> )

针对以上这段代码，如何进行改编

WP.Young

2. ;;;  2.3.1 LayerOffOtherM 关闭物体以外的层（多选）
   
3. (Defun LayerOffOtherM (/ ss ct cl la old)
   
4.         (setvar "cmdecho" 0)
   
5.         (prompt "\nSelect entities on the layers you want to remain:")
   
6.         (setq ss (ssget))
   
7.         (setq ct 0
   
8.                                 len (sslength ss)
   
9.                                 cl (cdr (assoc 8 (entget (ssname ss 0))))
   
10.         )
    
11.         (setvar "clayer" cl)
    
12.         (while (< ct len)
    
13.                 (setq la (cdr (assoc 8 (entget (ssname ss ct)))))
    
14.                 (if (= old nil)
    
15.                         (setq OLD la)
    
16.                         (setq OLD (strcat OLD "," la))
    
17.                 )
    
18.                 (setq ct (1+ ct))
    
19.         )
    
20.         (command ".layer" "off" "*" "y" "")
    
21.         (command ".layer" "on" old "")
    
22.         (princ "LayerOffOtherM")
    
23. )
    
24. (vlax-add-cmd "LayerOffOtherM" 'LayerOffOtherM "LayerOffOtherM" ACRX_CMD_TRANSPARENT)

;;;  2.3.1 LayerOffOtherM 关闭物体以外的层（多选）<br /> (Defun LayerOffOtherM (/ ss ct cl la old)<br />         (setvar "cmdecho" 0)<br />         (prompt "\nSelect entities on the layers you want to remain:")<br />         (setq ss (ssget))<br />         (setq ct 0<br />                                 len (sslength ss)<br />                                 cl (cdr (assoc 8 (entget (ssname ss 0))))<br />         )<br />         (setvar "clayer" cl)<br />         (while (< ct len)<br />                 (setq la (cdr (assoc 8 (entget (ssname ss ct)))))<br />                 (if (= old nil)<br />                         (setq OLD la)<br />                         (setq OLD (strcat OLD "," la))<br />                 )<br />                 (setq ct (1+ ct))<br />         )<br />         (command ".layer" "off" "*" "y" "")<br />         (command ".layer" "on" old "")<br />         (princ "LayerOffOtherM")<br /> )<br /> (vlax-add-cmd "LayerOffOtherM" 'LayerOffOtherM "LayerOffOtherM" ACRX_CMD_TRANSPARENT)

我尝试改成这个种还是没有用：CAD提示错误: invalid AutoCAD command: nil