如何在组码中添加标记

aaacjh

请教:
       如何才能添加 点对 到图元组码表中,而不影响图元的生成.
例如:一条直线组码(-1 . <图元名: 7ef53e78>) (0 . "LINE") (330 . <图元名: 7ef53cf8>) (5 . "87")
(100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcDbLine") (10
727.892 259.425 0.0) (11 1218.86 525.501 0.0) (210 0.0 0.0 1.0))

       我如何才能添加一点对 到其中.望指点.

陨落

用扩展数据

aaacjh

陨落 发表于 2012-11-10 23:47
用扩展数据

我试了个 102 的点对,可惜还是没有能实现标记,请教!
(DEFUN C:pp ()
  (setq en(entsel))
  (setq name(car en))
  (setq zm(entget name))
  (setq bj(cons 102 "{cjh}"))
  (setq zm(append zm (list bj)))
  (entmod zm)
  (princ)
)

陨落

先用REGAPP函数注册一个，然后我看好像都是用的-3号组码