如何用ENTMAKE制作增强属性快？

树櫴希德

如何用ENTMAKE制作增强属性快？假设原主块已经存在 为INSERT 加入ATTDEF 要求要在CAD2007以上版本测试通过

2. ;;;插入块
   
3.   (entmake (list
   
4.       
   
5.              '(0 . "INSERT")
   
6.              '(100 . "AcDbEntity")
   
7.              '(100 . "AcDbBlockReference")
   
8.              '(66 . 1);;;属性跟随标志,1跟随，0不跟随
   
9.               (cons 2 "GC200")
   
10.               (cons 10 inspt)
    
11.               (cons 41 scale)
    
12.               (cons 42 scale)
    
13.               (cons 43 scale)
    
14.               (list -3 '("SOUTH" (1000 . "951495418")))
    
15.            )
    
16.   )
    
17.   ;;;插入属性
    
18.   (entmake (list
    
19.              '(0 . "ATTdef")
    
20.              '(100 . "AcDbEntity")
    
21.              '(100 . "AcDbText")
    
22.               (cons 10 (setq pt (polar inspt 0 (* 1.2 scale))))
    
23.               (cons 40 (* 2.0 scale))
    
24.               (cons 50 0)
    
25.               (cons 41 0.8)
    
26.               (cons 51 0)
    
27.               (cons 1 height)
    
28.               (cons 7 "HZ")
    
29.               (cons 72 2)
    
30.               (cons 11 pt)
    
31.               '(100 . "AcDbAttributeDefinition")
    
32.        (cons 3 "height")
    
33.               (cons 2 height)
    
34.               (cons 70  0)
    
35.               (cons 74 1)
    
36.            )
    
37.    )
    
38. ;;;;;;;;
    
39.   (entmake (list
    
40.              '(0 . "ATTdef")
    
41.              '(100 . "AcDbEntity")
    
42.              '(100 . "AcDbText")
    
43.         (cons 62 2)
    
44.               (cons 10 pt)
    
45.               (cons 40 (* 2.0 scale))
    
46.               (cons 50 0)
    
47.               (cons 41 0.8)
    
48.               (cons 51 0)
    
49.               (cons 1 height2)
    
50.               (cons 7 "HZ")
    
51.               (cons 72 0)
    
52.               (cons 11 pt)
    
53.               '(100 . "AcDbAttributeDefinition")
    
54.               (cons 3 "height2")
    
55.        (cons 2 height2)
    
56.               (cons 70  0)
    
57.               (cons 74 3)
    
58.            ))
    
59.   ;;;;;;;;;;;;
    
60.   (entmake (list
    
61.              '(0 . "ATTdef")
    
62.              '(100 . "AcDbEntity")
    
63.              '(100 . "AcDbText")
    
64.        (cons 62 3)
    
65.               (cons 10 pt)
    
66.               (cons 40 (* 2.0 scale))
    
67.               (cons 50 0)
    
68.               (cons 41 0.8)
    
69.               (cons 51 0)
    
70.               (cons 1 height3)
    
71.               (cons 7 "HZ")
    
72.               (cons 72 0)
    
73.         (cons 73 2)
    
74.               (cons 11 pt)
    
75.               '(100 . "AcDbAttributeDefinition")
    
76.               (cons 3 "height3")
    
77.        (cons 2 height3)
    
78.               (cons 70  0)
    
79.               (cons 74 1)
    
80.            ))
    
81.   ;;;;;;
    
82. (entmake (list
    
83.              '(0 . "ATTdef")
    
84.              '(100 . "AcDbEntity")
    
85.              '(100 . "AcDbText")
    
86.        (cons 62 3)
    
87.               (cons 10 (setq pzx0 (polar pt (* 1.5 pi) (* 2 scale))))
    
88.               (cons 40 (* 2.0 scale))
    
89.               (cons 50 0)
    
90.               (cons 41 0.8)
    
91.               (cons 51 0)
    
92.               (cons 1 height4)
    
93.               (cons 7 "HZ")
    
94.               (cons 72 0)
    
95.         (cons 73 2)
    
96.               (cons 11 pzx0)
    
97.               '(100 . "AcDbAttributeDefinition")
    
98.        (cons 3 "height4")
    
99.               (cons 2 height4)
    
100.               (cons 70  0)
     
101.               (cons 74 3)
     
102.            ))
     
103.    ;;;结束标志

;;;插入块<br />   (entmake (list<br />        <br />              '(0 . "INSERT")<br />              '(100 . "AcDbEntity")<br />              '(100 . "AcDbBlockReference")<br />              '(66 . 1);;;属性跟随标志,1跟随，0不跟随<br />               (cons 2 "GC200")<br />               (cons 10 inspt)<br />               (cons 41 scale)<br />               (cons 42 scale)<br />               (cons 43 scale)<br />               (list -3 '("SOUTH" (1000 . "951495418")))<br />            )<br />   )<br />   ;;;插入属性<br />   (entmake (list<br />              '(0 . "ATTdef")<br />              '(100 . "AcDbEntity")<br />              '(100 . "AcDbText")<br />               (cons 10 (setq pt (polar inspt 0 (* 1.2 scale))))<br />               (cons 40 (* 2.0 scale))<br />               (cons 50 0)<br />               (cons 41 0.8)<br />               (cons 51 0)<br />               (cons 1 height)<br />               (cons 7 "HZ")<br />               (cons 72 2)<br />               (cons 11 pt)<br />               '(100 . "AcDbAttributeDefinition")<br />        (cons 3 "height")<br />               (cons 2 height)<br />               (cons 70  0)<br />               (cons 74 1)<br />            )<br />    )<br /> ;;;;;;;;<br />   (entmake (list<br />              '(0 . "ATTdef")<br />              '(100 . "AcDbEntity")<br />              '(100 . "AcDbText")<br />         (cons 62 2)<br />               (cons 10 pt)<br />               (cons 40 (* 2.0 scale))<br />               (cons 50 0)<br />               (cons 41 0.8)<br />               (cons 51 0)<br />               (cons 1 height2)<br />               (cons 7 "HZ")<br />               (cons 72 0)<br />               (cons 11 pt)<br />               '(100 . "AcDbAttributeDefinition")<br />               (cons 3 "height2")<br />        (cons 2 height2)<br />               (cons 70  0)<br />               (cons 74 3)<br />            ))<br />   ;;;;;;;;;;;;<br />   (entmake (list<br />              '(0 . "ATTdef")<br />              '(100 . "AcDbEntity")<br />              '(100 . "AcDbText")<br />        (cons 62 3)<br />               (cons 10 pt)<br />               (cons 40 (* 2.0 scale))<br />               (cons 50 0)<br />               (cons 41 0.8)<br />               (cons 51 0)<br />               (cons 1 height3)<br />               (cons 7 "HZ")<br />               (cons 72 0)<br />         (cons 73 2)<br />               (cons 11 pt)<br />               '(100 . "AcDbAttributeDefinition")<br />               (cons 3 "height3")<br />        (cons 2 height3)<br />               (cons 70  0)<br />               (cons 74 1)<br />            ))<br />   ;;;;;;<br /> (entmake (list<br />              '(0 . "ATTdef")<br />              '(100 . "AcDbEntity")<br />              '(100 . "AcDbText")<br />        (cons 62 3)<br />               (cons 10 (setq pzx0 (polar pt (* 1.5 pi) (* 2 scale))))<br />               (cons 40 (* 2.0 scale))<br />               (cons 50 0)<br />               (cons 41 0.8)<br />               (cons 51 0)<br />               (cons 1 height4)<br />               (cons 7 "HZ")<br />               (cons 72 0)<br />         (cons 73 2)<br />               (cons 11 pzx0)<br />               '(100 . "AcDbAttributeDefinition")<br />        (cons 3 "height4")<br />               (cons 2 height4)<br />               (cons 70  0)<br />               (cons 74 3)<br />            ))<br />    ;;;结束标志

上面代码不行，求修改

77077

哥们，不知道能不能帮到你~！

2. (defun Make-Block-SY1001( / )
   
3.         (if (not (tblsearch "block" "1001-索引符号"))
   
4.                 (progn
   
5.     (entmake (list  (cons 0 "BLOCK") (cons 2 "1001-索引符号") '(70 . 2) '(10 0 0)))
   
6.           (entmake (list '(0 . "CIRCLE") '(8 . "0") '(10 0 0) '(40 . 2)))
   
7.           (entmake (list '(0 . "LINE") '(8 . "0") '(10 -2 0) '(11 2 0)))
   
8.     (entmake (list '(0 . "ATTDEF") '(1 . "1") '(2 . "图号") '(3 . "图号") '(70 . 0) '(7 . "仿宋 1") '(8 . "0")
   
9.                             '(10 0 1.0) '(11 0 1.0) '(40 . 1.5) '(41 . 0.7)  '(50 . 0.0) '(51 . 0.0)  '(71 . 0) '(72 . 4)   '(73 . 0)
   
10.                          )
    
11.              )
    
12.           (entmake (list '(0 . "ATTDEF") '(1 . "-") '(2 . "页次") '(3 . "页次") '(70 . 0) '(7 . "仿宋 1") '(8 . "0")
    
13.                             '(10 0 -1.0) '(11 0 -1.0) '(40 . 1.5) '(41 . 0.7)  '(50 . 0.0) '(51 . 0.0)  '(71 . 0) '(72 . 4)   '(73 . 0)
    
14.                          )
    
15.              )
    
16.     (entmake '((0 . "endblk")))
    
17.     )
    
18.   )
    
19. )

(defun Make-Block-SY1001( / )<br />         (if (not (tblsearch "block" "1001-索引符号"))<br />                 (progn<br />     (entmake (list  (cons 0 "BLOCK") (cons 2 "1001-索引符号") '(70 . 2) '(10 0 0)))<br />           (entmake (list '(0 . "CIRCLE") '(8 . "0") '(10 0 0) '(40 . 2)))<br />           (entmake (list '(0 . "LINE") '(8 . "0") '(10 -2 0) '(11 2 0)))<br />     (entmake (list '(0 . "ATTDEF") '(1 . "1") '(2 . "图号") '(3 . "图号") '(70 . 0) '(7 . "仿宋 1") '(8 . "0")<br />                             '(10 0 1.0) '(11 0 1.0) '(40 . 1.5) '(41 . 0.7)  '(50 . 0.0) '(51 . 0.0)  '(71 . 0) '(72 . 4)   '(73 . 0)<br />                          )<br />              )<br />           (entmake (list '(0 . "ATTDEF") '(1 . "-") '(2 . "页次") '(3 . "页次") '(70 . 0) '(7 . "仿宋 1") '(8 . "0")<br />                             '(10 0 -1.0) '(11 0 -1.0) '(40 . 1.5) '(41 . 0.7)  '(50 . 0.0) '(51 . 0.0)  '(71 . 0) '(72 . 4)   '(73 . 0)<br />                          )<br />              )<br />     (entmake '((0 . "endblk")))<br />     )<br />   )<br /> )

77077

当然了，如果要插入该块，用(command "_insert" "1001-索引符号" pt 1 1 1  index page)