显示所有包含属性块的集合并且遍历属性该怎么写？

psyco

1. ;显示图块属性

复制代码

我上面的代码哪里出错了？求大神指教？

psyco

2. ;显示图块属性
   
3. (DEFUN C:PRTATTRIB ()
   
4. 
   
5.         (setq ss (ssget "x" '((0 . "INSERT") (66 . 1))))
   
6.         (setq N 0)
   
7.         (
   
8.                 repeat (sslength ss)
   
9. 
   
10.                 (
    
11.                         setq name (ssname ss N)
    
12.                 )
    
13.                
    
14.                 (
    
15.                         setq N( N + 1)
    
16.                 )
    
17. 
    
18.         )
    
19.         (
    
20.                 sslength ss
    
21.         )
    
22. 
    
23. )

;显示图块属性<br /> (DEFUN C:PRTATTRIB () <br /> <br />         (setq ss (ssget "x" '((0 . "INSERT") (66 . 1))))<br />         (setq N 0)<br />         (<br />                 repeat (sslength ss)<br /> <br />                 (<br />                         setq name (ssname ss N)<br />                 )<br />                 <br />                 (<br />                         setq N( N + 1)<br />                 )<br /> <br />         )<br />         (<br />                 sslength ss<br />         )<br /> <br /> )

psyco

怎么描述里面没有显示出代码呢。。
现在贴上去了。

psyco

@ZZXXQQ 修改之后，值AutoCad中执行，报错 “错误: 函数错误: 1” 为什么呢？

snddd2000

因为1和+之间多了空格

psyco

snddd2000 发表于 2013-1-25 16:27
因为1和+之间多了空格

恩果然是的。我用的notepad++写的代码，有空格才会高亮，所以。。。
现在可以了  3Q