有办法判断块是否被xclip裁切过吗？

13763815647

有办法判断块是否被xclip裁切过吗？

chen3732088

判断块是否存在102组码
(defun c:tt2 ()
  (setq ss (ssget '((0 . "INSERT"))))
    (progn
      (setq i -1
            ss1(ssadd)
      )
      (while (setq e (ssname ss (setq i (1+ i))))
        (if (assoc 102 (entget e))
          (setq ss1 (ssadd e ss1))
        )
      )
      (sssetfirst nil ss1)
    )
  (princ)
)

d1742647821

有         

13763815647

chen3732088 发表于 2025-10-30 18:03
判断块是否存在102组码
(defun c:tt2 ()
  (setq ss (ssget '((0 . "INSERT"))))

感谢，这个最早也是这样用的，后来发现，动态块也有102的组码。单独判断102组码没办法区分，裁切块和动态块的区别。会把动态块也当裁切块。我这边已经找到解决办法了。稍后整理下发出来，大家参考下。