为什么产生的不是带属性的块？

fqlh

采用以下lisp程序产生一匿名属性块,然后用"battman"命令后，选择刚刚产生的匿名属性块，却提示说“选定的块没有属性”。这是为什么？是程序哪个环节有问题，请指出。
(defun c:test()
(setq pt-insert '(0 0 0))
(setq pt (append '((0 . "block")(2 . "*U")(70 . 1)) (list (cons 10 pt-insert))))
(entmake pt)
(setq pt1 (polar pt-insert (/ pi 2) 0.8))
(setq pt1 (polar pt1 0 -2))
(setq pt2 (polar pt1 0 4))
(setq pt (append '((0 . "LINE")) (list (cons 10 pt1))(list (cons 11 pt2))))
(entmake pt)
(setq pt1 (polar pt-insert (/ pi 2) 0.8))
(setq pt2 (polar pt1 (/ pi 2) 3))
(setq pt (append '((0 . "LINE")) (list (cons 10 pt1))(list (cons 11 pt2))))
(entmake pt)
(setq pt1 (polar pt-insert (/ pi 2) 6.3))
(setq pt (append '((0 . "CIRCLE")(40 . 2.5)) (list (cons 10 pt1))))
(entmake pt)
(setq pt (polar pt-insert (/ pi 2) 6.3))
(setq lst (append '((0 . "ATTDEF")
(100 . "AcDbEntity")
(67 . 0)
(100 . "AcDbText")
(1 . "0")
(50 . 0.0)
(40 . 3)
(41 . 0.8)
(51 . 0.0)
(7 . "STANDARD")
(71 . 0)
(72 . 1)
(210 0.0 0.0 1.0)
(100 . "AcDbAttributeDefinition")
(3 . "基准名称")
(2 . "1")
(70 . 0)
(73 . 0)
(74 . 2)
)
(list (cons 10 pt))
(list (cons 11 pt))
)
);setq lst
(entmake lst)
(setq blkn (entmake '((0 . "ENDBLK"))))
(setq lst '((0 . "INSERT")
(100 . "AcDbEntity")
(67 . 0)
(100 . "AcDbBlockReference")
(66 . 1)
(41 . 1.0)
(42 . 1.0)
(43 . 1.0)
(50 . 0.0)
(70 . 0)
(71 . 0)
(44 . 0.0)
(45 . 0.0)
(210 0.0 0.0 1.0)
)
);setq lst
(setq lst (append lst (list (cons 2 blkn)) (list (cons 10 pt-insert)))) ;结束义
(entmake lst)
(setq pt (polar pt-insert (/ pi 2) 6.3))
(setq lst (append '((0 . "ATTRIB")
(5 . "26")
(100 . "AcDbEntity")
(67 . 0)
(100 . "AcDbText")
(50 . 0.0)
(40 . 3.0)
(41 . 0.8)
(51 . 0.0)
(7 . "STANDARD")
(71 . 0)
(72 . 1)
(210 0.0 0.0 1.0)
(100 . "AcDbAttribute")
(2 . "1")
(70 . 0)
(73 . 0)
(74 . 2)
)
(list (cons 10 pt))
(list (cons 11 pt))
(list (cons 1 "A"))
)
);setq lst
(entmake lst)
(entmake '((0 . "SEQEND")))
)

alin

大概无名块不能含有属性吧

meflying

摘自帮助文件。。。属性和匿名组合一下(cons 70 3)即可

70	块类型标志（按位编码值，可以组合使用）： 0 = 表示不应用下列任何标志 1 = 由图案填充、关联标注、其他内部操作或应用程序生成的匿名块 2 = 块具有非固定属性定义（如果块具有任何固定属性定义或根本没有属性定义，则不设置此位） 4 = 块是外部参照 (xref) 8 = 块是外部参照覆盖 16 = 块依赖外部参照 32 = 块是融入的外部参照，或者依赖外部参照（输入时被忽略） 64 = 定义是被引用的外部参照（输入时 被忽略）

alin

meflying:






Could you please specify in which section of the code we should change to (cons 70 3)? It still doesn't work :)

龙龙仔

呵呵! http://discussion.autodesk.com/thread.jspa?threadID=340742

雪山飞狐_lzh

哈哈，绕一圈又回来了

meflying

...((0 . "block")(2 . "*U")(70 . 1)) ... 建立block时，如上面。。。就改了这么一个地方，就可以了：PS：龙大侠真幽默，带我们畅游网络啊

2. (defun c:test()
3.    (setq pt-insert '(0 0 0))
4.    (setq pt (append '((0 . "block")(2 . "*U")(70 . 3)) (list (cons 10 pt-insert))))
5.    (entmake pt)
6.    (setq pt1 (polar pt-insert (/ pi 2) 0.8))
7.    (setq pt1 (polar pt1 0 -2))
8.    (setq pt2 (polar pt1 0 4))
9.    (setq pt (append '((0 . "LINE")) (list (cons 10 pt1))(list (cons 11 pt2))))
10.    (entmake pt)
11.    (setq pt1 (polar pt-insert (/ pi 2) 0.8))
12.    (setq pt2 (polar pt1 (/ pi 2) 3))
13.    (setq pt (append '((0 . "LINE")) (list (cons 10 pt1))(list (cons 11 pt2))))
14.    (entmake pt)
15.    (setq pt1 (polar pt-insert (/ pi 2) 6.3))
16.    (setq pt (append '((0 . "CIRCLE")(40 . 2.5)) (list (cons 10 pt1))))
17.    (entmake pt)
18.    (setq pt (polar pt-insert (/ pi 2) 6.3))
19.    (setq lst (append '((0 . "ATTDEF")
20.                (100 . "AcDbEntity")
21.                (67 . 0)
22.                (100 . "AcDbText")
23.                (1 . "0")
24.                (50 . 0.0)
25.                (40 . 3)
26.                (41 . 0.8)
27.                (51 . 0.0)
28.                (7 . "STANDARD")
29.                (71 . 0)
30.                (72 . 1)
31.                (210 0.0 0.0 1.0)
32.                (100 . "AcDbAttributeDefinition")
33.                (3 . "基准名称")
34.                (2 . "1")
35.                (70 . 0)
36.                (73 . 0)
37.                (74 . 2)
38.                )
39.            (list (cons 10 pt))
40.            (list (cons 11 pt))
41.            )
42.   );setq lst
43.    (entmake lst)
44.    (setq blkn (entmake '((0 . "ENDBLK"))))
45.    (setq lst '((0 . "INSERT")
46.              (100 . "AcDbEntity")
47.              (67 . 0)
48.              (100 . "AcDbBlockReference")
49.              (66 . 1)
50.              (41 . 1.0)
51.              (42 . 1.0)
52.              (43 . 1.0)
53.              (50 . 0.0)
54.              (70 . 0)
55.              (71 . 0)
56.              (44 . 0.0)
57.              (45 . 0.0)
58.              (210 0.0 0.0 1.0)
59.              )
60.   );setq lst
61.    (setq lst (append lst (list (cons 2 blkn)) (list (cons 10 pt-insert)))) ;结束义
62.                    (entmake lst)
63.    (setq pt (polar pt-insert (/ pi 2) 6.3))
64.    (setq lst (append '((0 . "ATTRIB")
65.                (5 . "26")
66.                (100 . "AcDbEntity")
67.                (67 . 0)
68.                (100 . "AcDbText")
69.                (50 . 0.0)
70.                (40 . 3.0)
71.                (41 . 0.8)
72.                (51 . 0.0)
73.                (7 . "STANDARD")
74.                (71 . 0)
75.                (72 . 1)
76.                (210 0.0 0.0 1.0)
77.                (100 . "AcDbAttribute")
78.                (2 . "1")
79.                (70 . 0)
80.                (73 . 0)
81.                (74 . 2)
82.                )
83.            (list (cons 10 pt))
84.            (list (cons 11 pt))
85.            (list (cons 1 "A"))
86.            )
87.   );setq lst
88.    (entmake lst)
89.    (entmake '((0 . "SEQEND")))
90. )

(defun c:test()    (setq pt-insert '(0 0 0))    (setq pt (append '((0 . "block")(2 . "*U")(70 . 3)) (list (cons 10 pt-insert))))    (entmake pt)    (setq pt1 (polar pt-insert (/ pi 2) 0.8))    (setq pt1 (polar pt1 0 -2))    (setq pt2 (polar pt1 0 4))    (setq pt (append '((0 . "LINE")) (list (cons 10 pt1))(list (cons 11 pt2))))    (entmake pt)    (setq pt1 (polar pt-insert (/ pi 2) 0.8))    (setq pt2 (polar pt1 (/ pi 2) 3))    (setq pt (append '((0 . "LINE")) (list (cons 10 pt1))(list (cons 11 pt2))))    (entmake pt)    (setq pt1 (polar pt-insert (/ pi 2) 6.3))    (setq pt (append '((0 . "CIRCLE")(40 . 2.5)) (list (cons 10 pt1))))    (entmake pt)    (setq pt (polar pt-insert (/ pi 2) 6.3))    (setq lst (append '((0 . "ATTDEF")                (100 . "AcDbEntity")                (67 . 0)                (100 . "AcDbText")                (1 . "0")                (50 . 0.0)                (40 . 3)                (41 . 0.8)                (51 . 0.0)                (7 . "STANDARD")                (71 . 0)                (72 . 1)                (210 0.0 0.0 1.0)                (100 . "AcDbAttributeDefinition")                (3 . "基准名称")                (2 . "1")                (70 . 0)                (73 . 0)                (74 . 2)                )            (list (cons 10 pt))            (list (cons 11 pt))            )   );setq lst    (entmake lst)    (setq blkn (entmake '((0 . "ENDBLK"))))    (setq lst '((0 . "INSERT")              (100 . "AcDbEntity")              (67 . 0)              (100 . "AcDbBlockReference")              (66 . 1)              (41 . 1.0)              (42 . 1.0)              (43 . 1.0)              (50 . 0.0)              (70 . 0)              (71 . 0)              (44 . 0.0)              (45 . 0.0)              (210 0.0 0.0 1.0)              )   );setq lst    (setq lst (append lst (list (cons 2 blkn)) (list (cons 10 pt-insert)))) ;结束义                    (entmake lst)    (setq pt (polar pt-insert (/ pi 2) 6.3))    (setq lst (append '((0 . "ATTRIB")                (5 . "26")                (100 . "AcDbEntity")                (67 . 0)                (100 . "AcDbText")                (50 . 0.0)                (40 . 3.0)                (41 . 0.8)                (51 . 0.0)                (7 . "STANDARD")                (71 . 0)                (72 . 1)                (210 0.0 0.0 1.0)                (100 . "AcDbAttribute")                (2 . "1")                (70 . 0)                (73 . 0)                (74 . 2)                )            (list (cons 10 pt))            (list (cons 11 pt))            (list (cons 1 "A"))            )   );setq lst    (entmake lst)    (entmake '((0 . "SEQEND"))) )

龙龙仔

我看到alin在提问就回覆一下 8-)

顺便打打广告! Alin:
I think that is you want
明经就有资料比这更强
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=9545
龙龙仔
"alin" <nospam@address.withheld> 在邮件
news:32570799.1087953402985.JavaMail.jive@jiveforum2.autodesk.com 中撰写...
> Can anonymous block has attributes?

alin

龙斑竹果然神了，呵呵