按扩展数据信息删除数据

sidharth · 发表于 2022-7-6 12:01:48

你好

我的图形有不同类型的实体（多段线（闭合）、圆、线、点），并附有扩展数据。
扩展数据索引唯一值。我正在尝试根据扩展数据索引删除实体的代码

（定义c:delobj（）
（setq selobj（entsel“选择要删除的对象：”））
（setq ndx（cdr（cadr（cadr（assoc-3（entget（car selobj）'（“索引”））））））））
（setq a（ssget“X”（list（list-3（list“Index”（cons 1000 ndx 1070;）Ю）））））
（setq b（ssname a 0））
（entdel b）
)

我只能删除多段线（闭合）和圆，但线和点a显示错误。

提前感谢

Sidharth kamasani公司

SteveK · 发表于 2022-7-6 12:17:39

我想这条线会对你有帮助。基本上你不能那样做。这是为您准备的线程：

copy

(defun c:delents (/ EN I SS VAL)
 ;; Courtesy of MP, http://www.theswamp.org/index.php?topic=7229.msg89412#msg89412
 (defun RemoveFromPicksetIf ( ss func / I ENAME)
   ;;  The supplied func must take one
   ;;  argument, an ename. What it does
   ;;  we don't care, but if it returns
   ;;  a non nil result remove the entity
   ;;  from the pickset
   (if (eq 'pickset (type ss))
     (repeat (setq i (sslength ss))
   (if
     (func
       (setq ename
          (ssname ss
              (setq i (1- i))
              )
         )
       )
     (ssdel ename ss)
     )
   )
     )
   ss
   )
 
 (AND (setq en (entsel))
      (setq val (cdr (assoc 1000 (cdr (assoc "INDEX" (cdr (assoc -3 (entget (car en) (list "*")))))))))
      (setq ss
         (RemoveFromPicksetIf
       (ssget "X" '((-3 ("INDEX"))))
       (lambda ( ename / xdata )
         (or
           (null
             (setq xdata
                (assoc -3
                   (entget ename
                       '("INDEX")
                       )
                   )
               )
             )
           (null
             (member
           (cons 1000 val)
           (cdadr xdata)
           ))))))
       (setq i -1)
       (while (setq en (ssname ss (setq i (1+ i))))
         (entdel en)
         )
       )
        (princ)
         )