[求助]：我的程序为什么使块带不上属性？

changyq

;;;利用entmake制作带属性图块
(defun c:tt ()
(entmake (list '(0 . "BLOCK")
'(2 . "iv")
'(70 . 2)
(cons 10 '(0 0 0))
)
)
(entmake (list '(0 . "line") (cons 10 '(0 0)) (cons 11 '(0 5))))
(entmake (list '(0 . "line") (cons 10 '(-0.5 3.5)) (cons 11 '(0 5))))
(entmake (list '(0 . "line") (cons 10 '(0.5 3.5)) (cons 11 '(0 5))))
(entmake '((0 . "endblk")))
(entmake (list
'(0 . "ATTRIB")
'(100 . "AcDbEntity")
(cons 8 "0")
'(100 . "AcDbText")
(cons 10 '(5 5))
(cons 40 4)
(cons 1 "qingxiang")
'(100 . "AcDbAttribute")
(cons 2 "QX")
'(70 . 0)
)
)
(entmake '((0 . "SEQEND")))
)

LUCAS

2. 
   
3. (defun C:TT ()
   
4.   (entmake (list '(0 . "BLOCK")
   
5.                  '(2 . "iv")
   
6.                  '(70 . 2)
   
7.                  (cons 10 '(0 0 0))
   
8.            )
   
9.   )
   
10.   (entmake
    
11.     (list '(0 . "line") (cons 10 '(0 0)) (cons 11 '(0 5)))
    
12.   )
    
13.   (entmake
    
14.     (list '(0 . "line") (cons 10 '(-0.5 3.5)) (cons 11 '(0 5)))
    
15.   )
    
16.   (entmake
    
17.     (list '(0 . "line") (cons 10 '(0.5 3.5)) (cons 11 '(0 5)))
    
18.   )
    
19.   (entmake (list
    
20.              '(0 . "ATTDEF")
    
21.              '(100 . "AcDbEntity")
    
22.              (cons 8 "0")
    
23.              '(100 . "AcDbText")
    
24.              (cons 10 '(5 5))
    
25.              (cons 40 4)
    
26.              (cons 1 "qingxiang")
    
27.              (cons 2 "QX")
    
28.              (cons 3 "QX")
    
29.              '(70 . 0)
    
30.            )
    
31.   )
    
32.   (entmake '((0 . "endblk")))
    
33. )
    

<br /> (defun C:TT ()<br />   (entmake (list '(0 . "BLOCK")<br />                  '(2 . "iv")<br />                  '(70 . 2)<br />                  (cons 10 '(0 0 0))<br />            )<br />   )<br />   (entmake<br />     (list '(0 . "line") (cons 10 '(0 0)) (cons 11 '(0 5)))<br />   )<br />   (entmake<br />     (list '(0 . "line") (cons 10 '(-0.5 3.5)) (cons 11 '(0 5)))<br />   )<br />   (entmake<br />     (list '(0 . "line") (cons 10 '(0.5 3.5)) (cons 11 '(0 5)))<br />   )<br />   (entmake (list<br />              '(0 . "ATTDEF")<br />              '(100 . "AcDbEntity")<br />              (cons 8 "0")<br />              '(100 . "AcDbText")<br />              (cons 10 '(5 5))<br />              (cons 40 4)<br />              (cons 1 "qingxiang")<br />              (cons 2 "QX")<br />              (cons 3 "QX")<br />              '(70 . 0)<br />            )<br />   )<br />   (entmake '((0 . "endblk")))<br /> )<br />

changyq

PHP码带有颜色，可读性强，但不知如何添加。请赐教。

aliu22

是增强属性编辑器吗？

changyq

最初由 aliu22 发布
[B]是增强属性编辑器吗？ [/B]

就是一般的属性。不是打开增强属性编辑器。
按二楼的修改已经成功解决了问题。
非常感谢。

雨箭风刀

属性紧跟块定义。。。。