怎么对扩展数据作选择集?

王咣生

(setq lastent (entget (entlast))) ; Gets the association

(regapp "NEWDATA")                ; Registers the

(setq exdata                      ; Sets the variable

 '((-3 ("NEWDATA"                 ; exdata equal to the

  (1000 . "This is a new thing!") ; new extended data—

  )))                             ; in this case, a text

)                                 ; string.

(setq newent  

  (append lastent exdata))  ; Appends new data list to 

(entmod newent) 

怎么对这样的扩展数据作选择集?

龙龙仔

(setq SS (ssget "X" '((-3 ("NEWDATA")))))