向Spring及各位大侠请教：给对象添加扩展属性

andyding

向Spring及各位大侠请教：

   给对象添加扩展属性（spring大侠的springCAD内有此功能）

如：画一直径为10的圆，要给这个圆添加上一个扩展属性“固定销孔，单边+0.003割”（仍然是圆，不是块）。

lazybug

 ;对任意一个没有扩展数据的图元添加扩展数据
(defun c:xd ()
    (setq pt (getpoint "指定圆心:"))
    (command "circle" pt 10 "")
    (setq en (entlast))
    (setq en_data (entget en))
    (regapp "ant") ;定义应用名,随便
    (setq
 x_list (list -3
       (list "ant" (cons 1000 "固定销孔，单边+0.003割"))
        )
    )
    (setq en_data (cons x_list en_data))
    (entmod en_data)
    (prin1)
)

7686599

无法添加！