为什么插入属性块后cad里没有图显示？

simon8001

2. (defun c:swsb1()
   
3.   (setvar "cmdecho" 0)
   
4.   (setvar "osmode" 0)
   
5.   (setq z (list 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21))
   
6.   (command "insert" "C:\\Documents and Settings\\技术开发部专用1\\桌面\\进行中的工作\\QJ" (list 0 0) 1 1 0 z)
   
7.   )

(defun c:swsb1()<br />   (setvar "cmdecho" 0)<br />   (setvar "osmode" 0)<br />   (setq z (list 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21))<br />   (command "insert" "C:\\Documents and Settings\\技术开发部专用1\\桌面\\进行中的工作\\QJ" (list 0 0) 1 1 0 z)<br />   )

simon8001

我解决了这个问题！ 原来是我没有把Z的值赋给块里的属性！

2. (defun c:swsb1 ()
   
3.   (setvar "cmdecho" 0)
   
4.   (setvar "osmode" 0)
   
5.   (setq att-n 0)
   
6.   (setq z (list 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21))
   
7.   (command
   
8.     "insert"
   
9.     "C:\\Documents and Settings\\技术开发部专用1\\桌面\\进行中的工作\\QJ"
   
10.     (list 0 0)
    
11.     1
    
12.     1
    
13.     0
    
14.   )
    
15.   (repeat 21        
    
16.     (setq att-txt (nth att-n z))
    
17.     (command att-txt)
    
18.     (setq att-n (1+ att-n))
    
19.   )
    
20. )

(defun c:swsb1 ()<br />   (setvar "cmdecho" 0)<br />   (setvar "osmode" 0)<br />   (setq att-n 0)<br />   (setq z (list 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21))<br />   (command<br />     "insert"<br />     "C:\\Documents and Settings\\技术开发部专用1\\桌面\\进行中的工作\\QJ"<br />     (list 0 0)<br />     1<br />     1<br />     0<br />   )<br />   (repeat 21        <br />     (setq att-txt (nth att-n z))<br />     (command att-txt)<br />     (setq att-n (1+ att-n))<br />   )<br /> )

vlisp2012

哈哈！！！