图元组码表(60 . 1)适用的对象

BenjaminXM

图元组码表(60 . 1)属于共同群码代号中的一项，是否对所有采用(ssget)得到的实体都有效？
这个组码表(60 . 1)似乎对于锁定图层上的实体没有反应，这块应该在哪里去了解？
这个组码表(60 . 1)似乎也对于天正建筑产生的轴号没有反应，还会闪退，天正建筑产生的轴号应该算哪种实体？

原代码如下：

2. (defun c:hee ( / ss  i en el )
   
3. (setq
   
4.     ss (ssget)
   
5.     i 0
   
6. )
   
7. (while (setq en (ssname ss i))
   
8.   (setq el (entget en))
   
9.   (if (assoc 60 el)
   
10.     (setq el (subst (cons 60 1) (assoc 60 el) el))
    
11.     (setq el (append el (list (cons 60 1))))
    
12.   )  
    
13. (entmod el)
    
14. (setq i (1+ i))
    
15. )
    
16. )
    
17. 
    
18. (defun c:de ( / ss  i en el)
    
19. (setq
    
20.     ss (ssget "X" '((60 . 1)))
    
21.     i 0
    
22. )
    
23. (while (setq en (ssname ss i))
    
24.   (setq el (entget en))
    
25.   (setq el (subst (cons 60 0) (assoc 60 el) el))
    
26.   (entmod el)
    
27.   (setq i (1+ i))
    
28. )
    
29. )

(defun c:hee ( / ss  i en el )<br /> (setq<br />     ss (ssget) <br />     i 0<br /> ) <br /> (while (setq en (ssname ss i))<br />   (setq el (entget en))<br />   (if (assoc 60 el)<br />     (setq el (subst (cons 60 1) (assoc 60 el) el))<br />     (setq el (append el (list (cons 60 1))))<br />   )  <br /> (entmod el) <br /> (setq i (1+ i))<br /> )<br /> )<br /> <br /> (defun c:de ( / ss  i en el)<br /> (setq<br />     ss (ssget "X" '((60 . 1))) <br />     i 0<br /> ) <br /> (while (setq en (ssname ss i))<br />   (setq el (entget en))<br />   (setq el (subst (cons 60 0) (assoc 60 el) el))<br />   (entmod el) <br />   (setq i (1+ i))<br /> )<br /> )

请求帮助，谢谢~

edata

(vla-put-Visible (vlax-ename->vla-object (car(entsel))) 0)
;;;Visible 属性
;;;指定对象或应用程序的可见性.
;;;object.Visible
;;;Object
;;;所有图形对象, Application, AttributeReference, Group, Toolbar
;;;使用该属性的对象。
;;;Visible
;;;Boolean[布尔值]; 可读写 (对Group对象为只读)
;;;TRUE: 对象或应用程序可见。
;;;FALSE: 对象或应用程序不可见。

以上说明对所以图形有效。

至于你说的锁定图层，因为图层锁定，无法编辑图元，系统优先级高，所以不能修改可见性。
天正高版本的大部分都是自定义实体，并且有很多lisp接口没有开放，获得的组码有限，所以这个不一定对其有效。

BenjaminXM

edata 发表于 2015-9-9 20:29
(vla-put-Visible (vlax-ename->vla-object (car(entsel))) 0)
;;;Visible 属性
;;;指定对象或应用程序的 ...

谢谢你的回复。
vla-put-Visible这个函数在http://bbs.mjtd.com/thread-92768-1-1.html这里二楼G版写的代码里了解到了。
对二楼G版写的程序有几个疑问想请教，疑问写在123#楼，不知你是否方便看一下？
谢谢~