[求助]：在纯lisp中不用(command "change")如何修改层属性？

zhynt

由于在lisp中使用command 函数后程序不能透明使用，于是就问
如何用纯lisp且不用change命令修改图层，使之打开或关闭等。

lsjjm

Vlisp: (vla-put- 函数.

lt_zzy

(command "-layer" "off" ……)

LUCAS

2. 
   
3. ;;圖層打開/關閉切換
   
4. (defun C:TT ()
   
5.   (setq ENT (entget (tblobjname "LAYER" "DIM")))
   
6.   (setq
   
7.     ENT        (subst (cons 62 (* -1 (cdr (assoc 62 ENT))))
   
8.                (assoc 62 ENT)
   
9.                ENT
   
10.         )
    
11.   )
    
12.   (entmod ENT)
    
13.   (princ)
    
14. )
    

<br /> ;;圖層打開/關閉切換<br /> (defun C:TT ()<br />   (setq ENT (entget (tblobjname "LAYER" "DIM")))<br />   (setq<br />     ENT        (subst (cons 62 (* -1 (cdr (assoc 62 ENT))))<br />                (assoc 62 ENT)<br />                ENT<br />         )<br />   )<br />   (entmod ENT)<br />   (princ)<br /> )<br />

zhynt

明白了，关键是tblobjname函数。

coolzhb

最初由 LUCAS 发布
[B][CODE]
;;圖層打開/關閉切換
(defun C:TT ()
  (setq ENT (entget (tblobjname "LAYER" "DIM")))
  (setq
    ENT        (subst (cons 62 (* -1 (cdr (assoc 62 ENT))))
               (assoc 62 ENT)
               ENT
        )
... [/B]

这个好像可以，但是得运行layer刷新，点ok才行！
不满足要求！

zhynt

我试过了，好像不需要刷新嘛，能说一下你用在什么地方吗？
是不是这样啊：当我们画图时发现当前图层是关闭的，于是退出来，打开图层，然后再程序运行命令。有了这个程序后，就不需要退出来，而是直接用这个透明命令打开图层。
就象这样：

2. 
   
3. (defun C:TT ()
   
4.   (setq lay (getvar "CLAYER"))
   
5.   (setq ENT (entget (tblobjname "LAYER" lay)))
   
6.   (setq
   
7.     ENT        (subst (cons 62 (* -1 (cdr (assoc 62 ENT))))
   
8.                (assoc 62 ENT)
   
9.                ENT
   
10.         )
    
11.   )
    
12.   (entmod ENT)
    
13.   (princ)
    
14. )
    

<br /> (defun C:TT ()<br />   (setq lay (getvar "CLAYER"))<br />   (setq ENT (entget (tblobjname "LAYER" lay)))<br />   (setq<br />     ENT        (subst (cons 62 (* -1 (cdr (assoc 62 ENT))))<br />                (assoc 62 ENT)<br />                ENT<br />         )<br />   )<br />   (entmod ENT)<br />   (princ)<br /> )<br />

我认为在程序运行是打开或关闭所有的图层没有什么实际意义。

呵呵，刚刚在R14下试了一下，果然是这样的。

coolzhb

最初由 zhynt 发布
[B]我试过了，好像不需要刷新嘛，能说一下你用在什么地方吗？
是不是这样啊：当我们画图时发现当前图层是关闭的，于是退出来，打开图层，然后再程序运行命令。有了这个程序后，就不需要退出来，而是直接用这个透明命令... [/B]

用在如下情况，我选中某些需操作的层，其他的层关闭，然后move或copy，选中物体中，再需定基点是又需要打开所有图层捕捉相应的点，这时候就需要透明打开图层的命令，我经常需要用到。

在没有这个命令的情况下，我就是在选中物体后，按esc退出，再打开所有图层，再运行move或copy，选择p，选中刚才选中的目标操作，很麻烦！不知道版主明白我的要求了没有？

上面的程序在r2002中运行不需要刷新，在r14中需要刷新一下，奇怪！

LUCAS

在r14中需要刷新一下,那就做個按鍵讓它刷新一下
^P'tt;'-layer;;^P

coolzhb

最初由 LUCAS 发布
[B]在r14中需要刷新一下,那就做個按鍵讓它刷新一下
^P'tt;'-layer;;^P [/B]

怎么在上面的lisp程序中实现呢？

aeo

2. 
   
3. ;;;通过点一个实体，关掉实体在的层,可透明.
   
4. 
   
5. (defun C:TT ( / lay1 lay e ent)
   
6.   (setq lay1 (getvar "CLAYER"))
   
7. (if(and(setq e(car(entsel "\n点一个要关掉的层上的物体(不能当前层):")))
   
8.           (setq lay(cdr(assoc 8 (entget e))))
   
9.         (/= lay lay1)
   
10.    )(progn
    
11.   (setq ENT (entget (tblobjname "LAYER" lay)))
    
12.   (setq
    
13.     ENT        (subst (cons 62 (* -1 (cdr (assoc 62 ENT))))
    
14.                (assoc 62 ENT)
    
15.                ENT
    
16.         )
    
17.   )
    
18.   (entmod ENT)
    
19. ))
    
20.   (princ)
    
21. )
    
22. 
    

<br /> ;;;通过点一个实体，关掉实体在的层,可透明.<br /> <br /> (defun C:TT ( / lay1 lay e ent)<br />   (setq lay1 (getvar "CLAYER"))<br /> (if(and(setq e(car(entsel "\n点一个要关掉的层上的物体(不能当前层):")))<br />           (setq lay(cdr(assoc 8 (entget e))))<br />         (/= lay lay1)<br />    )(progn<br />   (setq ENT (entget (tblobjname "LAYER" lay)))<br />   (setq<br />     ENT        (subst (cons 62 (* -1 (cdr (assoc 62 ENT))))<br />                (assoc 62 ENT)<br />                ENT<br />         )<br />   )<br />   (entmod ENT)<br /> ))<br />   (princ)<br /> )<br /> <br />

coolzhb

最初由 aeo 发布
[B][code]
;;;通过点一个实体，关掉实体在的层,可透明.

(defun C:TT ( / lay1 lay e ent)
  (setq lay1 (getvar "CLAYER"))
(if(and(setq e(car(entsel "\n点一个要关掉的层上的物体(不能当前层):")))
        ... [/B]

版主，在R14中使用，要刷新才行，如运行layer点ok，能不能改一下程序呀！我最希望能运行一下就打开所有的图层，且可以在R14下透明使用，不知道可以不？