圆或多义线能不能增加组码注解

ymcui

圆或多义线能不能增加组码注解
例如原组码是：
((-1 . <图元名: 7ec4c6d0>) (0 . CIRCLE) (330 . <图元名: 7ec48e48>) (5
. 6D2) (100 . AcDbEntity) (67 . 0) (410 . Model) (8 . 0) (100 . AcDbCircle) (10
149.313 1071.11 0.0) (40 . 500.0) (210 0.0 0.0 1.0))
新增加组码 (12345 . 立柱)注解
((-1 . <图元名: 7ec4c6d0>) (0 . CIRCLE) (330 . <图元名: 7ec48e48>) (5
. 6D2) (100 . AcDbEntity) (67 . 0) (410 . Model) (8 . 0) (100 . AcDbCircle) (10
149.313 1071.11 0.0) (40 . 500.0) (210 0.0 0.0 1.0) (12345 . 立柱))

springwillow

据我了解应该是不能，只能加到扩展数据里。

lenlenq

需要扩展数据

ymcui

lenlenq 发表于 2015-7-30 20:18
需要扩展数据

请教如何增加扩展数据,又如何读取？

lenlenq

先注册应用程序名
(regapp application)
application-命名应用程序的字符串。
然后图元数据表中追加扩展数据，它是以-3开头的列表。
以下是我的穿线孔的定义程序，供参考
(defun wirecutstarthole-def (en mode / ent hole-deflist defl)
  (setq ent (entget en))
  (regapp "HOLE")
  (setq        hole-deflist
         (list
           (list -3
                 (list "HOLE"
                       '(1002
                         .
                         "{"
                        )
                       (cons 1000
                             (vl-prin1-to-string
                               (list (cons 'name "WSH") (cons 'mach mode))
                             )
                       )
                       '(1002
                         .
                         "}"
                        )
                 )
           )
         )
  )
  (setq defl (append ent hole-deflist))
  (entmod defl)
)