[求助]请问如何使用entmake插入带自定义属性的块？

tctony

2. (progn (entmake '((0 . "BLOCK") (2 . "_window") (70 . 2) (10 . (0 120 0))))
3.            (entmake '((0 . "LINE") (10 . ( 0   0 0)) (11 . (800   0 0))))
4.            (entmake '((0 . "LINE") (10 . ( 0  80 0)) (11 . (800  80 0))))
5.            (entmake '((0 . "LINE") (10 . ( 0 160 0)) (11 . (800 160 0))))
6.            (entmake '((0 . "LINE") (10 . ( 0 240 0)) (11 . (800 240 0))))
7.            (entmake '((0 . "ATTDEF") (100 . "AcDbEntity") (100 . "AcDbText")
8.                              (10 0.0 0.0 0.0) (40 . 80.0) (1 . "") (100 . "AcDbAttributeDefinition")
9.                               (3 . "") (2 . "THICKNESS") (70 . 1) (280 . 1)
10.                            )
11.            )
12.            (entmake '((0 . "ENDBLK")))
13. )

(progn (entmake '((0 . "BLOCK") (2 . "_window") (70 . 2) (10 . (0 120 0))))            (entmake '((0 . "LINE") (10 . ( 0   0 0)) (11 . (800   0 0))))            (entmake '((0 . "LINE") (10 . ( 0  80 0)) (11 . (800  80 0))))            (entmake '((0 . "LINE") (10 . ( 0 160 0)) (11 . (800 160 0))))            (entmake '((0 . "LINE") (10 . ( 0 240 0)) (11 . (800 240 0))))            (entmake '((0 . "ATTDEF") (100 . "AcDbEntity") (100 . "AcDbText")                              (10 0.0 0.0 0.0) (40 . 80.0) (1 . "") (100 . "AcDbAttributeDefinition")                               (3 . "") (2 . "THICKNESS") (70 . 1) (280 . 1)                            )            )            (entmake '((0 . "ENDBLK"))) )

如上代码，创建一个四条直线外带一个厚度自定义属性的窗户，请问如何用entmake在图形中插入这个快呢？
PS：使用（command “insert”）模拟插入过程时，会存在开启对象捕捉之后插入位置不正确的问题。所以才用entmake.

请教高人，拜托了

tctony

Help Me!

顶一下。不要沉

cjs

在entmake一个insert

tctony

我试过。不行的。

这个带自定义属性。或者你再说详细点？谢谢了