ninja37 发表于 2024-8-21 22:02:00

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

本帖最后由 ninja37 于 2024-8-22 10:20 编辑

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

[*];;;; 删除尺寸+引线(包括引线后面带的文字)
[*](defun c:LHERASEDIM (/ 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 发表于 2024-8-21 22:02:01

(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 发表于 2024-8-22 14:26:02

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

蓝天cayuer 发表于 2024-8-23 08:02:19

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


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

paulpipi 发表于 2024-8-27 17:01:11

挺好用的，感谢分享

惜惜2 发表于 2024-10-9 13:54:26

(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 发表于 2024-11-16 12:26:11

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


谢谢大师，这个程序很好用
页: [1]
查看完整版本: 【悬赏5明经币求程序】求"删除小工具"的lisp