求助关于ENTGET获取扩展数据的问题
请求高手指点一下:我们获取一个图元的扩展数据应该用(setq xdata (entget ent '("xdata1")))
但是我现在想将这一句的“xdata1”这里用变量代替, 应该怎么写
(setq xdata (entget ent '("xdata1")))
"xdata1"注册程序名
选有扩展数据的图元试试这个
(setq xdata (entget (car (entsel)) '("*")))
(setq app "xdata1")
(entget ent (list app))
觉得毫无意义 建议直接使用扩展词典,操作方便,存储量大;vl-ldata-putvl-ldata-get 谢谢各位大侠的帮助 pzweng 发表于 2013-6-7 16:56
(setq app "xdata1")
(entget ent (list app))
觉得毫无意义
(setq app1 "xdata1")
(setq app2 "xdata2")
(entget ent (list app1))返回含1的扩展数据
(entget ent (list “*”))返回含所有的扩展数据
页:
[1]