请问怎么增加扩展数据，而且可以根据扩展数据用ssget筛选。。。

linhui12

感谢Z版回复,问题已解决,

clh521

2. 其中  (setq ddd-ty (entget ddd))  
3.      (setq -3ty (list -3 (list "SOUTH" (cons 1000 "202111"))))
4.      (entmod (append ddd-ty (list -3ty))  )                                  就是增加扩展数据
6. 下面代码（）可以根据扩展数据用ssget筛选。。。
7.    (setq yt-j (ssget "x" '((-4 . "<and")
8.           (-4 . "<or")
9.           (-3 ("SOUTH" (1000 . "140001")))   ;阳台
10.           (-3 ("SOUTH" (1000 . "143130")))   ;檐廊
11.           (-3 ("SOUTH" (1000 . "141400")))   ;破房
12.           (-4 . "or>")
13.                                 (6 . "X5")
14.            (0 . "LWPOLYLINE")
15.            (8 . "JMD")
16.     (-4 . "and>"))))

其中  (setq ddd-ty (entget ddd))        (setq -3ty (list -3 (list "SOUTH" (cons 1000 "202111"))))      (entmod (append ddd-ty (list -3ty))  )                                  就是增加扩展数据 下面代码（）可以根据扩展数据用ssget筛选。。。    (setq yt-j (ssget "x" '((-4 . "<and")           (-4 . "<or")           (-3 ("SOUTH" (1000 . "140001")))   ;阳台           (-3 ("SOUTH" (1000 . "143130")))   ;檐廊           (-3 ("SOUTH" (1000 . "141400")))   ;破房           (-4 . "or>")                                 (6 . "X5")            (0 . "LWPOLYLINE")            (8 . "JMD")     (-4 . "and>"))))

我用了上面的代码为什么会有以下提示呢
1001 组中有无效的的应用程序名nil

野狼谷/〈M〉

(-3 开头的组码就是扩展数据内容.先获取实体集,再从实体里获取扩展数据

虚子

clh521 发表于 2009-6-12 08:34
我用了上面的代码为什么会有以下提示呢
1001 组中有无效的的应用程序名nil

你应用程序名木有注册
(setq appname "*")
;*，为注册所有应用程序名