【悬赏5明经币求程序】求"删除小工具"的lisp

ninja37

请求哪位大师帮忙写一个  lisp程序

• ;;;; 删除尺寸+引线(包括引线后面带的文字)
• (defun cHERASEDIM (/ ssyscirat)
•   (princ "\n只删除  尺寸")
•   (if (setq ssyscirat (setq ss (ssget ":N" '((0 . "LEADER,DIMENSION")))))
•      (vl-cmdf "_.erase" ssyscirat "")
•   )
•   (princ)
• )
  

上面的程序有个问题，只能删除尺寸  和带箭头的引线   在工作中有的引线后面有XY坐标  有的引线有注释
要求 ：  命令运行后能删除1标注   2引线     3最重要的是能删除掉引线后面的文字        （不能删除图纸其他的文字）

目前在用的删除尺寸命令是用的燕秀工具箱YX_EED命令，可以达到以上效果

xtjd

(defun c:xd(/ ss)
  (setvar "cmdecho" 0)
  (princ "\nXD 〓 标注删除")
  (if(setq ss(ssget '((-4 . "<or")(0 . "DIMENSION,ARC_DIMENSION,LEADER")(-4 . "<and")(0 . "MTEXT")(102 . "*")(-4 . "and>")(-4 . "or>"))))
                (vl-cmdf ".ERASE" ss "")
        )
  (prin1)
)

ssyfeng

有图有真像，不然都是猜。

蓝天cayuer

xtjd 发表于 2024-8-22 16:32
(defun c:xd(/ ss)
  (setvar "cmdecho" 0)
  (princ "\nXD 〓 标注删除")

这个命令只能删除标注 楼主需要的引线和文字 估计很难实现

paulpipi

挺好用的，感谢分享

惜惜2

(defun C:p9 ()
  ; 用户选择一个图元
  (setq selectedent (car (entsel "\选择一个图元: ")))
  ; 获取选中图元的颜色
  (setq color_code (cdr (assoc 62 (entget selectedent))))
  ; 选择所有相同颜色的图元
  (setq sqs (ssget "x" (list (cons 62 color_code))))
  ; 删除相同颜色的图元
  (if sqs
    (progn
      (command "erase" sqs "")
    )
  )
)  这种方案能够满足你吗？

ninja37

xtjd 发表于 2024-8-21 22:02
(defun c:xd(/ ss)
  (setvar "cmdecho" 0)
  (princ "\nXD 〓 标注删除")

谢谢大师，这个程序很好用