aaacjh 发表于 2012-11-10 21:00:41

如何在组码中添加标记

请教:
       如何才能添加 点对 到图元组码表中,而不影响图元的生成.
例如:一条直线组码:((-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))

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

陨落 发表于 2012-11-10 23:47:26

用扩展数据

aaacjh 发表于 2012-11-17 22:44:01

陨落 发表于 2012-11-10 23:47 static/image/common/back.gif
用扩展数据

我试了个 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)
)

陨落 发表于 2012-11-17 23:44:45

先用REGAPP函数注册一个，然后我看好像都是用的-3号组码
页: [1]
查看完整版本: 如何在组码中添加标记