这段entmake指令为什么不能把图块$DorLib2D$00000009插入到新的cad文件？

_rocky

1. 
   
2. (entmake
   
3.   (list
   
4.     (cons 0 "LAYER")
   
5.     (cons 100 "AcDbSymbolTableRecord")
   
6.     (cons 100 "AcDbLayerTableRecord")
   
7.     '(2 . "WINDOW")
   
8.     '(70 . 0)
   
9.     '(62 . 4)
   
10.     '(6 . "Continuous")
    
11.   )
    
12. )
    
13. (entmake (list (cons 0 "BLOCK") '(2 . "$DorLib2D$00000009") '(70 . 0) '(4 . "") '(10 0.0 0.0 0.0)))
    
14. (entmake
    
15.   (list
    
16.     (cons 0 "ARC")
    
17.     (cons 100 "AcDbEntity")
    
18.     (cons 67 0)
    
19.     (cons 8 "0")
    
20.     (cons 370 13)
    
21.     (cons 100 "AcDbCircle")
    
22.     (cons 10 '(0.37165 0.0817319 0.0))
    
23.     (cons 40 0.824561)
    
24.     (cons 210 '(0.0 0.0 1.0))
    
25.     (cons 100 "AcDbArc")
    
26.     (cons 50 1.52077)
    
27.     (cons 51 3.14284)
    
28.   )
    
29. )
    
30. (entmake
    
31.   (list
    
32.     (cons 0 "LINE")
    
33.     (cons 100 "AcDbEntity")
    
34.     (cons 67 0)
    
35.     (cons 8 "0")
    
36.     (cons 100 "AcDbLine")
    
37.     (cons 10 '(0.454107 0.0807006 0.0))
    
38.     (cons 11 '(0.454107 0.905262 0.0))
    
39.     (cons 210 '(0.0 0.0 1.0))
    
40.   )
    
41. )
    
42. (entmake
    
43.   (list
    
44.     (cons 0 "LINE")
    
45.     (cons 100 "AcDbEntity")
    
46.     (cons 67 0)
    
47.     (cons 8 "0")
    
48.     (cons 100 "AcDbLine")
    
49.     (cons 10 '(0.412878 0.905262 0.0))
    
50.     (cons 11 '(0.412878 0.0807006 0.0))
    
51.     (cons 210 '(0.0 0.0 1.0))
    
52.   )
    
53. )
    
54. (entmake
    
55.   (list
    
56.     (cons 0 "LINE")
    
57.     (cons 100 "AcDbEntity")
    
58.     (cons 67 0)
    
59.     (cons 8 "0")
    
60.     (cons 100 "AcDbLine")
    
61.     (cons 10 '(0.412878 0.0807006 0.0))
    
62.     (cons 11 '(0.454107 0.0807006 0.0))
    
63.     (cons 210 '(0.0 0.0 1.0))
    
64.   )
    
65. )
    
66. (entmake
    
67.   (list
    
68.     (cons 0 "LINE")
    
69.     (cons 100 "AcDbEntity")
    
70.     (cons 67 0)
    
71.     (cons 8 "0")
    
72.     (cons 100 "AcDbLine")
    
73.     (cons 10 '(0.495335 -0.00175559 0.0))
    
74.     (cons 11 '(0.495335 0.0807006 0.0))
    
75.     (cons 210 '(0.0 0.0 1.0))
    
76.   )
    
77. )
    
78. (entmake
    
79.   (list
    
80.     (cons 0 "LINE")
    
81.     (cons 100 "AcDbEntity")
    
82.     (cons 67 0)
    
83.     (cons 8 "0")
    
84.     (cons 100 "AcDbLine")
    
85.     (cons 10 '(0.495335 0.0807006 0.0))
    
86.     (cons 11 '(0.454107 0.0807006 0.0))
    
87.     (cons 210 '(0.0 0.0 1.0))
    
88.   )
    
89. )
    
90. (entmake
    
91.   (list
    
92.     (cons 0 "LINE")
    
93.     (cons 100 "AcDbEntity")
    
94.     (cons 67 0)
    
95.     (cons 8 "0")
    
96.     (cons 100 "AcDbLine")
    
97.     (cons 10 '(0.454107 0.0807006 0.0))
    
98.     (cons 11 '(0.454107 0.0394725 0.0))
    
99.     (cons 210 '(0.0 0.0 1.0))
    
100.   )
     
101. )
     
102. (entmake
     
103.   (list
     
104.     (cons 0 "LINE")
     
105.     (cons 100 "AcDbEntity")
     
106.     (cons 67 0)
     
107.     (cons 8 "0")
     
108.     (cons 100 "AcDbLine")
     
109.     (cons 10 '(0.454107 0.0394725 0.0))
     
110.     (cons 11 '(0.412878 0.0394725 0.0))
     
111.     (cons 210 '(0.0 0.0 1.0))
     
112.   )
     
113. )
     
114. (entmake
     
115.   (list
     
116.     (cons 0 "LINE")
     
117.     (cons 100 "AcDbEntity")
     
118.     (cons 67 0)
     
119.     (cons 8 "0")
     
120.     (cons 100 "AcDbLine")
     
121.     (cons 10 '(0.412878 -0.00175559 0.0))
     
122.     (cons 11 '(0.495335 -0.00175559 0.0))
     
123.     (cons 210 '(0.0 0.0 1.0))
     
124.   )
     
125. )
     
126. (entmake
     
127.   (list
     
128.     (cons 0 "LINE")
     
129.     (cons 100 "AcDbEntity")
     
130.     (cons 67 0)
     
131.     (cons 8 "0")
     
132.     (cons 100 "AcDbLine")
     
133.     (cons 10 '(0.495335 -0.00175559 0.0))
     
134.     (cons 11 '(0.495335 -0.00175559 0.0))
     
135.     (cons 210 '(0.0 0.0 1.0))
     
136.   )
     
137. )
     
138. (entmake
     
139.   (list
     
140.     (cons 0 "LINE")
     
141.     (cons 100 "AcDbEntity")
     
142.     (cons 67 0)
     
143.     (cons 8 "0")
     
144.     (cons 100 "AcDbLine")
     
145.     (cons 10 '(0.412878 0.0394725 0.0))
     
146.     (cons 11 '(0.412878 -0.00175559 0.0))
     
147.     (cons 210 '(0.0 0.0 1.0))
     
148.   )
     
149. )
     
150. (entmake
     
151.   (list
     
152.     (cons 0 "LINE")
     
153.     (cons 100 "AcDbEntity")
     
154.     (cons 67 0)
     
155.     (cons 8 "0")
     
156.     (cons 370 13)
     
157.     (cons 100 "AcDbLine")
     
158.     (cons 10 '(0.378004 0.782157 0.0))
     
159.     (cons 11 '(0.378004 0.623508 0.0))
     
160.     (cons 210 '(0.0 0.0 1.0))
     
161.   )
     
162. )
     
163. (entmake
     
164.   (list
     
165.     (cons 0 "LINE")
     
166.     (cons 100 "AcDbEntity")
     
167.     (cons 67 0)
     
168.     (cons 8 "0")
     
169.     (cons 370 13)
     
170.     (cons 100 "AcDbLine")
     
171.     (cons 10 '(0.488981 0.782157 0.0))
     
172.     (cons 11 '(0.488981 0.623508 0.0))
     
173.     (cons 210 '(0.0 0.0 1.0))
     
174.   )
     
175. )
     
176. (entmake
     
177.   (list
     
178.     (cons 0 "LINE")
     
179.     (cons 100 "AcDbEntity")
     
180.     (cons 67 0)
     
181.     (cons 8 "0")
     
182.     (cons 100 "AcDbLine")
     
183.     (cons 10 '(0.454107 0.905262 0.0))
     
184.     (cons 11 '(0.412878 0.905262 0.0))
     
185.     (cons 210 '(0.0 0.0 1.0))
     
186.   )
     
187. )
     
188. (entmake
     
189.   (list
     
190.     (cons 0 "LINE")
     
191.     (cons 100 "AcDbEntity")
     
192.     (cons 67 0)
     
193.     (cons 8 "0")
     
194.     (cons 100 "AcDbLine")
     
195.     (cons 10 '(-0.494139 -0.00175559 0.0))
     
196.     (cons 11 '(-0.494139 -0.00175559 0.0))
     
197.     (cons 210 '(0.0 0.0 1.0))
     
198.   )
     
199. )
     
200. (entmake
     
201.   (list
     
202.     (cons 0 "LINE")
     
203.     (cons 100 "AcDbEntity")
     
204.     (cons 67 0)
     
205.     (cons 8 "0")
     
206.     (cons 100 "AcDbLine")
     
207.     (cons 10 '(-0.411683 -0.00175559 0.0))
     
208.     (cons 11 '(-0.494139 -0.00175559 0.0))
     
209.     (cons 210 '(0.0 0.0 1.0))
     
210.   )
     
211. )
     
212. (entmake
     
213.   (list
     
214.     (cons 0 "LINE")
     
215.     (cons 100 "AcDbEntity")
     
216.     (cons 67 0)
     
217.     (cons 8 "0")
     
218.     (cons 100 "AcDbLine")
     
219.     (cons 10 '(-0.411683 0.0394725 0.0))
     
220.     (cons 11 '(-0.411683 -0.00175559 0.0))
     
221.     (cons 210 '(0.0 0.0 1.0))
     
222.   )
     
223. )
     
224. (entmake
     
225.   (list
     
226.     (cons 0 "LINE")
     
227.     (cons 100 "AcDbEntity")
     
228.     (cons 67 0)
     
229.     (cons 8 "0")
     
230.     (cons 100 "AcDbLine")
     
231.     (cons 10 '(-0.452911 0.0394725 0.0))
     
232.     (cons 11 '(-0.411683 0.0394725 0.0))
     
233.     (cons 210 '(0.0 0.0 1.0))
     
234.   )
     
235. )
     
236. (entmake
     
237.   (list
     
238.     (cons 0 "LINE")
     
239.     (cons 100 "AcDbEntity")
     
240.     (cons 67 0)
     
241.     (cons 8 "0")
     
242.     (cons 100 "AcDbLine")
     
243.     (cons 10 '(-0.452911 0.0807006 0.0))
     
244.     (cons 11 '(-0.452911 0.0394725 0.0))
     
245.     (cons 210 '(0.0 0.0 1.0))
     
246.   )
     
247. )
     
248. (entmake
     
249.   (list
     
250.     (cons 0 "LINE")
     
251.     (cons 100 "AcDbEntity")
     
252.     (cons 67 0)
     
253.     (cons 8 "0")
     
254.     (cons 100 "AcDbLine")
     
255.     (cons 10 '(-0.494139 0.0807006 0.0))
     
256.     (cons 11 '(-0.452911 0.0807006 0.0))
     
257.     (cons 210 '(0.0 0.0 1.0))
     
258.   )
     
259. )
     
260. (entmake
     
261.   (list
     
262.     (cons 0 "LINE")
     
263.     (cons 100 "AcDbEntity")
     
264.     (cons 67 0)
     
265.     (cons 8 "0")
     
266.     (cons 100 "AcDbLine")
     
267.     (cons 10 '(-0.494139 -0.00175559 0.0))
     
268.     (cons 11 '(-0.494139 0.0807006 0.0))
     
269.     (cons 210 '(0.0 0.0 1.0))
     
270.   )
     
271. )
     
272. (entmake
     
273.   (list
     
274.     (cons 0 "LINE")
     
275.     (cons 100 "AcDbEntity")
     
276.     (cons 67 0)
     
277.     (cons 8 "0")
     
278.     (cons 100 "AcDbLine")
     
279.     (cons 10 '(0.488981 0.782157 0.0))
     
280.     (cons 11 '(0.454107 0.782157 0.0))
     
281.     (cons 210 '(0.0 0.0 1.0))
     
282.   )
     
283. )
     
284. (entmake
     
285.   (list
     
286.     (cons 0 "LINE")
     
287.     (cons 100 "AcDbEntity")
     
288.     (cons 67 0)
     
289.     (cons 8 "0")
     
290.     (cons 100 "AcDbLine")
     
291.     (cons 10 '(0.488981 0.623508 0.0))
     
292.     (cons 11 '(0.454107 0.623508 0.0))
     
293.     (cons 210 '(0.0 0.0 1.0))
     
294.   )
     
295. )
     
296. (entmake
     
297.   (list
     
298.     (cons 0 "LINE")
     
299.     (cons 100 "AcDbEntity")
     
300.     (cons 67 0)
     
301.     (cons 8 "0")
     
302.     (cons 100 "AcDbLine")
     
303.     (cons 10 '(0.412878 0.782157 0.0))
     
304.     (cons 11 '(0.378004 0.782157 0.0))
     
305.     (cons 210 '(0.0 0.0 1.0))
     
306.   )
     
307. )
     
308. (entmake
     
309.   (list
     
310.     (cons 0 "LINE")
     
311.     (cons 100 "AcDbEntity")
     
312.     (cons 67 0)
     
313.     (cons 8 "0")
     
314.     (cons 100 "AcDbLine")
     
315.     (cons 10 '(0.412878 0.623508 0.0))
     
316.     (cons 11 '(0.378004 0.623508 0.0))
     
317.     (cons 210 '(0.0 0.0 1.0))
     
318.   )
     
319. )
     
320. (entmake '((0 . "ENDBLK")))
     
321. (entmake
     
322.   (list
     
323.     (cons 0 "INSERT")
     
324.     (cons 100 "AcDbEntity")
     
325.     (cons 67 0)
     
326.     (cons 410 "Model")
     
327.     (cons 8 "WINDOW")
     
328.     (cons 100 "AcDbBlockReference")
     
329.     (cons 66 1)
     
330.     (cons 2 "$DorLib2D$00000009")
     
331.     (cons 10 '(37101.6 265828.0 0.0))
     
332.     (cons 41 900.0)
     
333.     (cons 42 -900.0)
     
334.     (cons 43 900.0)
     
335.     (cons 50 1.5708)
     
336.     (cons 70 0)
     
337.     (cons 71 0)
     
338.     (cons 44 0.0)
     
339.     (cons 45 0.0)
     
340.     (cons 210 '(0.0 0.0 1.0))
     
341.   )
     
342. )
     
343. 
     
344. )

复制代码

菜卷鱼

用这个

1. ;;;插入块
   
2. (defun imblk (name pt sc ang / mspace 3dp blk ename)
   
3.   (setq        mspace (vla-get-modelspace
   
4.                  (vla-get-activedocument (vlax-get-acad-object))
   
5.                )
   
6.   )
   
7.   (setq 3dp (vlax-3D-point pt))
   
8.   (and
   
9.     (or        (tblsearch "block" name)
   
10.         (if (findfile (strcat name ".dwg"))
    
11.           (progn
    
12.             (setvar 'cmdecho 0)
    
13.             (command "-insert" name ^e)
    
14.             (setvar 'cmdecho 1)
    
15.           )
    
16.         )
    
17.     )
    
18.     (and
    
19.       (tblsearch "block" name)
    
20.       (setq vlblk (vla-InsertBlock mspace 3dp name sc sc sc ang))
    
21.       (setq ename (vlax-vla-object->ename vlblk))
    
22.     )
    
23.   )
    
24.   ename
    
25. )

;;;插入块<br /> (defun imblk (name pt sc ang / mspace 3dp blk ename)<br />   (setq        mspace (vla-get-modelspace<br />                  (vla-get-activedocument (vlax-get-acad-object))<br />                )<br />   )<br />   (setq 3dp (vlax-3D-point pt))<br />   (and<br />     (or        (tblsearch "block" name)<br />         (if (findfile (strcat name ".dwg"))<br />           (progn<br />             (setvar 'cmdecho 0)<br />             (command "-insert" name ^e)<br />             (setvar 'cmdecho 1)<br />           )<br />         )<br />     )<br />     (and<br />       (tblsearch "block" name)<br />       (setq vlblk (vla-InsertBlock mspace 3dp name sc sc sc ang))<br />       (setq ename (vlax-vla-object->ename vlblk))<br />     )<br />   )<br />   ename<br /> )

llsheng_73

_rocky 发表于 2025-11-4 15:55
(tblsearch "block" name) 是存在的
entmake插入实现不了时因为块丢失了属性，原因在于遍历BLOCK实体的 ...

块的属性有两种情况，一种情况块本身是没有属性的，通过(66 . 1)方式插入块参照后继续追加属性直到(entmake '((0 . "SEQEND")))结束，这种情况通过tbl相关的函数是获取不到关于属性的任何信息；另一种是定认块主体的时候，和在块内添加一般图元对象一样，通过AddAttribute方法增加属性对象，或者使用相应的entmake也是一样的效果，这样的属性是能通过tbl相关函数获取属性的定义数据的，注意是定义数据，因为插入块参照后，它的属性一般情况下是可以修改的，有可能每个参照的同一属性，值各不相同，比如cass的高程点的高程注记属性（它是通过插入普通的GC200后继续追加的属性）
对于插入参照后追加的属性，需要对块参照图元通过entnext来查询它的后续图元是否为该参照的子图元（属性）来获取，

llsheng_73

_rocky 发表于 2025-11-4 13:35
这个块通过快编辑器打开后找不到属性定义，
请问 ，怎么找到通过代码找到它的属性定义？

1. (defun getatts(blk)
   
2.   (if(equal(VL-CATCH-ALL-APPLY'vlax-get-property(list(setq blk(if(=(type blk)'ename)(vlax-ename->vla-object blk)blk))'HasAttributes)):vlax-true)
   
3.     (mapcar(function(lambda(x)(list(vla-get-TagString x)(vla-get-TextString x)x)))(vlax-safearray->list(vlax-variant-value(vlax-invoke-method blk'GetAttributes))))))

(defun getatts(blk)<br />   (if(equal(VL-CATCH-ALL-APPLY'vlax-get-property(list(setq blk(if(=(type blk)'ename)(vlax-ename->vla-object blk)blk))'HasAttributes)):vlax-true)<br />     (mapcar(function(lambda(x)(list(vla-get-TagString x)(vla-get-TextString x)x)))(vlax-safearray->list(vlax-variant-value(vlax-invoke-method blk'GetAttributes))))))

GETATTS
_$ (GETATTS(car(entsel)))
(("A" "GM-0921" #<VLA-OBJECT IAcadAttributeReference2 04f74b24>))
函数返回属性的TAG,值，对象，可以自行通过对象获取它的坐标以及属性文字的字体样式，大小，对齐方式等格式相关数据

_rocky

其中定义图块正常，插入图块不显示，同样方法定义，其他图块能正常定义和插入，问题出在哪？

自贡黄明儒

(cons 66 1)是属性块吧？
可以参考一下http://bbs.xdcad.net/forum.php?m ... E%E6%80%A7%E5%9D%97

_rocky

自贡黄明儒 发表于 2025-11-4 11:51
(cons 66 1)是属性块吧？
可以参考一下http://bbs.xdcad.net/forum.php?mod=viewthread&tid=678178&highli ...

明白了  丢属性数据了  感谢

_rocky

自贡黄明儒 发表于 2025-11-4 11:51
(cons 66 1)是属性块吧？
可以参考一下http://bbs.xdcad.net/forum.php?mod=viewthread&tid=678178&highli ...

这个块通过快编辑器打开后找不到属性定义，
请问 ，怎么找到通过代码找到它的属性定义？

自贡黄明儒

参见    entnext e

_rocky

自贡黄明儒 发表于 2025-11-4 13:47
参见    entnext e

http://bbs.xdcad.net/forum.php?m ... E%E6%80%A7%E5%9D%97

拿这个函数试过了，也同样丢失属性

上面帖子5楼有把块的cad文件附上，请参照

菜卷鱼

你先用(tblsearch "block" name) 看这个块是否存在，假如不存在insert假装插入导入属性，再用entmake插入，插入完之后 attsync一下，或者insert直接插入

_rocky

菜卷鱼 发表于 2025-11-4 15:32
你先用(tblsearch "block" name) 看这个块是否存在，假如不存在insert假装插入导入属性，再用entmake插入， ...

(tblsearch "block" name) 是存在的
entmake插入实现不了时因为块丢失了属性，原因在于遍历BLOCK实体的时候，找不到属性
attsync解决的是属性成功创建，更新属性，没有属性attsync就没有效果