kzd2004 发表于 2023-7-7 10:34:19

删除指定的标注

本帖最后由 kzd2004 于 2023-7-7 10:36 编辑

如图：

andyding 发表于 2023-7-7 12:20:53

(defun c:deld (/ EN SS SSEN SSSTY SSVAL i)
(if (setq en (entsel "\n请选择样本尺寸:"))
    (progn
      (setq ssen (entget (car en)))
      (setq ssval (cdr (assoc 42 ssen)))
      (setq sssty (cdr (assoc 3 ssen)))
    )
    (princ "没有选择样本尺寸!")
)
(princ "\n请选择要删除的范围：")
(if (setq ss (ssget (list '(0 . "DIMENSION")
                          (cons 42 ssval)
                          (cons 3 sssty)
                      )
             )
      )
    (REPEAT (setq i (SSLENGTH ss))
      (ENTDEL (ssname ss (setq i (1- i))))
    )
    (princ "范围内没有要删除的尺寸!")
)
(princ)
)

liuhe 发表于 2023-7-7 11:07:55

(DEFUN C:TT (/ SS I E L NUM)
(SETQ SS (SSGET '((0 . "DIMENSION"))))
(IF (NOT SS)
    (VL-EXIT-WITH-VALUE 0)
)
(SETQ L (GETINT "\N输入最小的标注"))
(SETQ I 0)
(REPEAT (SSLENGTH SS)
    (SETQ E   (SSNAME SS I)
          NUM (VLA-GET-MEASUREMENT (VLAX-ENAME->VLA-OBJECT E))
          I   (1+ I)
    )
    (IF        (>= L NUM)
      (ENTDEL E)
    )
)
)

自贡黄明儒 发表于 2023-7-7 11:45:17

用小菜的选择易，就可以了。

lee50310 发表于 2023-7-7 12:05:34

本帖最后由 lee50310 于 2023-7-19 08:50 编辑

已分享.....

kzd2004 发表于 2023-7-7 12:14:06

liuhe 发表于 2023-7-7 11:07


感谢大佬！！！:handshake

kzd2004 发表于 2023-7-7 12:34:14

andyding 发表于 2023-7-7 12:20


感谢所有回复的大佬！:handshake

hzyhzjjzh 发表于 2023-7-7 13:03:50

{:1_1:}{:1_1:}{:1_1:}:lol

jkop 发表于 2023-7-7 13:28:19

路过看到，感恩大老分享，收藏。

loveu515 发表于 2023-7-7 13:40:31

大佬们集体现身了
页: [1] 2
查看完整版本: 删除指定的标注