[LISP]给块添加扩展数据后，块却变得没有属性了

iceberg2509

我给图框（带有属性）添加了扩展数据成功后，块却变得没有属性了，无法用entnext遍历，当然也不能用块属性编辑器编辑了。请问这是怎么回事情？

alin

Show you codes

iceberg2509

该段代码如下： ;;;=============各子函数中用到的全局变量========================
(setq *TS_Frame* "TS_Frame" ;图框扩展数据应用程序名
*TITLE_TAG* "TITLE" ;标题栏插入基点
*LIST_TAG* "LIST" ;明细表插入基点
) ;;=======================扩展数据注册函数============================
(defun RegAppName (AppName)
(if (tblsearch "appid" AppName)
T
(if (regapp AppName)
T
(alert (strcat "\n\"" AppName "\"注册失败！"))
)
)
) ;;;===========插入指定图框，并附加扩展数据===============
;;;*TS_Frame*为全局变量，在iceberg.lsp中定义
(defun c:insframe (/ el frame)
(setq frame (getstring "\n指定块名: "))
(setq el (tblobjname "block" frame))
(if el
(progn
(RegAppName *TS_Frame*)

(entmake
(list
'(0 . "INSERT")
'(100 . "AcDbEntity")
'(67 . 0)
(cons 8 "0")
'(100 . "AcDbBlockReference")
(cons 2 frame)
(cons 10 '(0 0))
'(41 . 1.0)
'(42 . 1.0)
'(43 . 1.0)
'(210 0.0 0.0 1.0)
(list -3
(list *TS_Frame*
(cons 1000 frame)
)
)
)
)
)
)
) dwg文件见附件，2004格式，左边一个图框是以附加过数据的，右边一个是没有附加数据的。

alin

Why do you use entmake to insert a block?


Try to insert the block with command "insert" and attach the Xdata later.

meflying

插入的属性块是一个复杂图元,它包括对块的引用,还包括属性,,,要注意这里的属性是实际的图元,而不是块引用中的属性了(所以你才能对每个INSERT使用不同的属性值),你在使用ENTMAKE建立INSERT时,没有包含这些属性,所以属性就不存在了......


你可以使用COMMAND插入块,然后使用ENTMOD来添加扩展数据...

iceberg2509

谢谢，如斑竹所说，问题解决。

2002-ytf

改过后重传一下让我们分享一下,好吗

jxphklibin

解决了，把解决的方法，代码发上来啊

78529

怎样用entmake直接创建有属性的块呢？