制作ATTDEF属性块

树櫴希德

2. (setq blc (getint "\n请输入比例尺1:"))
   
3.   (setvar 'userr1 blc);设置比例尺
   
4.   ;(setq zg (* 0.002 blc));字高
   
5.   (setq scale (* 0.001 blc));缩放比例
   
6. 
   
7. ;16、将选择集做成属性块(选择集中单行文本作为属性)
   
8. (defun emkattblk (inspt scale height height2 height3 height4 / ent i pt pzx0)
   
9.   (entmake (list '(0 . "block") (cons 2 "gc1200") '(70 . 2) (cons 10 inspt)))
   
10.    (entmake (list '(0 . "circle") '(8 . "0")  (cons 10 inspt) '(40 .  1)))
    
11. (setq ss (ssadd (entlast)))
    
12.   (repeat (setq i (sslength ss))
    
13.     (setq ent (entget (ssname ss (setq i (1- i)))))
    
14.     (if (= (cdr (assoc 0 ent)) "circle")
    
15.       ;(entmake (list '(0 . "ATTDEF") (assoc 10 ent) (assoc 40 ent) (assoc 1 ent) (cons 3 (cdr (assoc 1 ent))) (cons 2 (cdr (assoc 1 ent))) '(70 . 0)))
    
16.       ;(entmake (cdr ent))
    
17.       (progn
    
18. ;;;插入属性
    
19.   (entmake (list
    
20.              '(0 . "ATTdef")
    
21.              '(100 . "AcDbEntity")
    
22.              '(100 . "AcDbText")
    
23.               (cons 10 (setq pt (polar inspt 0 (* 1.2 scale))))
    
24.               (cons 40 (* 2.0 scale))
    
25.               (cons 50 0)
    
26.               (cons 41 0.8)
    
27.               (cons 51 0)
    
28.               (cons 1 height)
    
29.               (cons 7 "HZ")
    
30.               (cons 72 2)
    
31.               (cons 11 pt)
    
32.               '(100 . "AcDbAttributeDefinition")
    
33.        (cons 3 "height")
    
34.               (cons 2 height)
    
35.               (cons 70  0)
    
36.               (cons 74 1)
    
37.            )
    
38.    )
    
39. ;;;;;;;;
    
40.   (entmake (list
    
41.              '(0 . "ATTdef")
    
42.              '(100 . "AcDbEntity")
    
43.              '(100 . "AcDbText")
    
44.         (cons 62 2)
    
45.               (cons 10 pt)
    
46.               (cons 40 (* 2.0 scale))
    
47.               (cons 50 0)
    
48.               (cons 41 0.8)
    
49.               (cons 51 0)
    
50.               (cons 1 height2)
    
51.               (cons 7 "HZ")
    
52.               (cons 72 0)
    
53.               (cons 11 pt)
    
54.               '(100 . "AcDbAttributeDefinition")
    
55.               (cons 3 "height2")
    
56.        (cons 2 height2)
    
57.               (cons 70  0)
    
58.               (cons 74 3)
    
59.            ))
    
60.   ;;;;;;;;;;;;
    
61.   (entmake (list
    
62.              '(0 . "ATTdef")
    
63.              '(100 . "AcDbEntity")
    
64.              '(100 . "AcDbText")
    
65.        (cons 62 3)
    
66.               (cons 10 pt)
    
67.               (cons 40 (* 2.0 scale))
    
68.               (cons 50 0)
    
69.               (cons 41 0.8)
    
70.               (cons 51 0)
    
71.               (cons 1 height3)
    
72.               (cons 7 "HZ")
    
73.               (cons 72 0)
    
74.         (cons 73 2)
    
75.               (cons 11 pt)
    
76.               '(100 . "AcDbAttributeDefinition")
    
77.               (cons 3 "height3")
    
78.        (cons 2 height3)
    
79.               (cons 70  0)
    
80.               (cons 74 1)
    
81.            ))
    
82.   ;;;;;;
    
83. (entmake (list
    
84.              '(0 . "ATTdef")
    
85.              '(100 . "AcDbEntity")
    
86.              '(100 . "AcDbText")
    
87.        (cons 62 3)
    
88.               (cons 10 (setq pzx0 (polar pt (* 1.5 pi) (* 2 scale))))
    
89.               (cons 40 (* 2.0 scale))
    
90.               (cons 50 0)
    
91.               (cons 41 0.8)
    
92.               (cons 51 0)
    
93.               (cons 1 height4)
    
94.               (cons 7 "HZ")
    
95.               (cons 72 0)
    
96.         (cons 73 2)
    
97.               (cons 11 pzx0)
    
98.               '(100 . "AcDbAttributeDefinition")
    
99.        (cons 3 "height4")
    
100.               (cons 2 height4)
     
101.               (cons 70  0)
     
102.               (cons 74 3)
     
103.            ))
     
104.    ;;;结束标志
     
105.   )
     
106.     )
     
107.   )
     
108.   (entmake '((0 . "ENDBLK")))
     
109. 
     
110.   (entmake (list '(0 . "INSERT") (cons 2 "gc1200") (cons 10 inspt) (cons 41 scale)(cons 42 scale)(cons 43 scale)))
     
111.   (command "_.erase" ss "")
     
112. 
     
113. )
     
114. 
     
115. (setq inspt (getpoint ""))
     
116. (setq height "12345")
     
117. (setq height2 "hhhh")
     
118. (setq height3 "ggggfd")
     
119. (setq height4 "ghggg")
     
120. (emkattblk inspt scale height height2 height3 height4 )

(setq blc (getint "\n请输入比例尺1:"))<br />   (setvar 'userr1 blc);设置比例尺<br />   ;(setq zg (* 0.002 blc));字高<br />   (setq scale (* 0.001 blc));缩放比例<br /> <br /> ;16、将选择集做成属性块(选择集中单行文本作为属性)<br /> (defun emkattblk (inspt scale height height2 height3 height4 / ent i pt pzx0)<br />   (entmake (list '(0 . "block") (cons 2 "gc1200") '(70 . 2) (cons 10 inspt)))<br />    (entmake (list '(0 . "circle") '(8 . "0")  (cons 10 inspt) '(40 .  1)))<br /> (setq ss (ssadd (entlast)))<br />   (repeat (setq i (sslength ss))<br />     (setq ent (entget (ssname ss (setq i (1- i)))))<br />     (if (= (cdr (assoc 0 ent)) "circle")<br />       ;(entmake (list '(0 . "ATTDEF") (assoc 10 ent) (assoc 40 ent) (assoc 1 ent) (cons 3 (cdr (assoc 1 ent))) (cons 2 (cdr (assoc 1 ent))) '(70 . 0)))<br />       ;(entmake (cdr ent))<br />       (progn<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 />    ;;;结束标志<br />   )<br />     )<br />   )<br />   (entmake '((0 . "ENDBLK")))<br /> <br />   (entmake (list '(0 . "INSERT") (cons 2 "gc1200") (cons 10 inspt) (cons 41 scale)(cons 42 scale)(cons 43 scale)))<br />   (command "_.erase" ss "")<br /> <br /> )<br /> <br /> (setq inspt (getpoint ""))<br /> (setq height "12345")<br /> (setq height2 "hhhh")<br /> (setq height3 "ggggfd")<br /> (setq height4 "ghggg")<br /> (emkattblk inspt scale height height2 height3 height4 )

1993063

上图

lingfeng82

感谢楼主无私奉献，受益匪浅！

gzbccy

上个图看看，如何使用和效果