[求助]entmake创建图元？

78529

斑竹及各位大虾你们好，用entmake能否创建带有属性的图块，怎样实现？谢谢各位！

caoyin

如果你可以用 entmake 创建如直线、圆，那么你也应该会创建带有属性的图块。

不同的是需要两次使用 entmake 函数，先创建 "ATTDEF" 对象，然后再创建 "INSERT" 对象。

78529

非常感谢楼上的答复，但我是一个二把刀的程序开发者，我对很多函数还摸不透，希望楼上的帮人帮到底，给我个例子研究研究，小弟非常感谢！！

caoyin

;;----------------------------------------------
;; 这是属性基本的组码定义(8 除外)

(setq pt (getpoint "\n指定插入点: "))
(entmake (list '(0 . "ATTDEF")
               '(100 . "AcDbEntity")
               '(100 . "AcDbAttributeDefinition")
               (cons 10 pt)
               '(40 . 100)
               '(1 . "缺省值")
               '(2 . "标签")
               '(3 . "提示信息")
               '(70 . 0)
               '(8 . "0");;组码8是可选,定义图层.其他请自己查看帮助
         )
)
;; ----------------------------------------------
;; 定义块
;; entmake 创建包含属性的块会出现问题.
;; 用 (Command "_.block" ..... 方法比较好
;;(entmake (list '(0 . "BLOCK")
;;               '(2 . "块名")
;;               (cons 10 pt)
;;               '(70 . 0)
;;         )
;;)
;;(setq en (car(entsel "\n选择刚才定义的属性: ")))
;;(entmake '((0 . "ENDBLK")))
;; -----------------------------------
;;插入块
(entmake (list '(0 . "INSERT")
                (cons 2 "块名")
                (cons 10 (getpoint "\n插入点: "))
         )
)

78529

谢谢楼上的，非常感谢！！！