很奇怪IMAGE实体，IMAGE指令看不到有IMAGE实体对象（用deepseek折腾几次已经解决,谢)

flowerson

奇怪，附件中的图纸， IMAGE指令看不到有IMAGE实体对象，(setq ss (ssget "X" '((0 . "IMAGE")))) 返回有对象，请问有高手知道怎么回事吗？(最后用deepseek折腾几次搞好了，谢谢！）

flowerson

多次deepseek后正确了，代码如下：
(defun c:DelEmptyImage (/ ss i ent obj imgPath imgWidth imgHeight result)
  (vl-load-com)
  (if (setq ss (ssget "_X" '((0 . "IMAGE")))) ; 正确获取光栅图像选择集
    (progn
      (setq i 0)
      (repeat (sslength ss)
        (setq ent (ssname ss i)
              i (1+ i)
              imgPath ""
              imgWidth 0
              imgHeight 0
        )
        (setq obj (vlax-ename->vla-object ent))        ;; 安全获取图像属性
        (setq result (vl-catch-all-apply 'vla-get-ImageFile (list obj)))
        (if (not (vl-catch-all-error-p result))
          (setq imgPath result)
        )
        (setq result (vl-catch-all-apply 'vlax-get-property (list obj 'ImageWidth)))
        (if (not (vl-catch-all-error-p result))
          (setq imgWidth result)
        )
        (setq result (vl-catch-all-apply 'vlax-get-property (list obj 'ImageHeight)))
        (if (not (vl-catch-all-error-p result))
          (setq imgHeight result)
        )        ;; 判空条件：路径无效或尺寸≤0
        (if (or
              (not (findfile imgPath)) ; 路径不可访问
              (= imgPath "")           ; 路径为空
              (<= imgWidth 0)          ; 宽度无效
              (<= imgHeight 0)         ; 高度无效
            )
          (progn
            (vla-delete obj)
            (princ (strcat "\n删除无效图像: " imgPath))
          )
        )
      )
      (princ (strcat "\n共处理 " (itoa (sslength ss)) " 个图像"))
    )
    (princ "\n未找到光栅图像")
  )
  (princ)
)

crtrccrt

**图像句柄 37C 无名称**    **图像句柄 37C 无路径**
**图像句柄 37D 无名称**    **图像句柄 37D 无路径**
**图像句柄 37E 无名称**    **图像句柄 37E 无路径**
**图像句柄 37F 无名称**    **图像句柄 37F 无路径**
**图像句柄 380 无名称**    **图像句柄 380 无路径**
**图像句柄 381 无名称**    **图像句柄 381 无路径**
**图像句柄 382 无名称**    **图像句柄 382 无路径**
**图像句柄 383 无名称**    **图像句柄 383 无路径**
**图像句柄 384 无名称**    **图像句柄 384 无路径**
**图像句柄 385 无名称**    **图像句柄 385 无路径**
**图像句柄 386 无名称**    **图像句柄 386 无路径**
**图像句柄 387 无名称**    **图像句柄 387 无路径**
**图像句柄 388 无名称**    **图像句柄 388 无路径**
**图像句柄 389 无名称**    **图像句柄 389 无路径**
**图像句柄 38A 无名称**    **图像句柄 38A 无路径**
**图像句柄 38B 无名称**    **图像句柄 38B 无路径**
**图像句柄 38C 无名称**    **图像句柄 38C 无路径**
**图像句柄 38D 无名称**    **图像句柄 38D 无路径**
**图像句柄 38E 无名称**    **图像句柄 38E 无路径**
**图像句柄 38F 无名称**    **图像句柄 38F 无路径**
**图像句柄 390 无名称**    **图像句柄 390 无路径**
**图像句柄 391 无名称**    **图像句柄 391 无路径**
**图像句柄 392 无名称**    **图像句柄 392 无路径**
**图像句柄 393 无名称**    **图像句柄 393 无路径**

kozmosovia

不能直接过滤，需要遍历是判断
(foreach obj sset
(and (= (entget (cdr (assoc 340 (entget obj))))
           (entget (cdr (assoc 360 (entget obj))))
           nil
       )
       (entdel obj)
)
)

自贡黄明儒

会不会层隐藏？

kozmosovia

没有删除图内的image就直接在image界面上把image给detach掉了。所以图里面的image对象就没有了340和360对应的图元，变成不可见的垃圾残留图元。

flowerson

kozmosovia 发表于 2025-6-16 20:14
没有删除图内的image就直接在image界面上把image给detach掉了。所以图里面的image对象就没有了340和360对应 ...

如何清除掉呢？如果图上还有真实其它图混一起的时候？谢谢。

kozmosovia

(setq ss (ssget "X" '((0 . "IMAGE")))) 之后遍历，如果340和360不合法就删除

flowerson

kozmosovia 发表于 2025-6-17 11:30
(setq ss (ssget "X" '((0 . "IMAGE")))) 之后遍历，如果340和360不合法就删除

有办法选出来先删除吗？

flowerson

crtrccrt 发表于 2025-6-18 08:15
**图像句柄 37C 无名称**    **图像句柄 37C 无路径**
**图像句柄 37D 无名称**    **图像句柄 37D 无路径 ...

是怎样看到的？有办法选出来先删除吗？

flowerson

deepseek解决的过程还挺曲折的，其中一点它[backcolor=rgba(245, 246, 249, 0.5)](setq ss (ssget "_X" '((0 . "RASTERIMAGE"))))这个来获取图像实体就是错的。