求帮忙改一下程序，在选择时增加一些条件。

wgij007 · 发表于 2021-9-15 08:38

请问在下面的代码如何添加，不删除，有特定字符的文本（如:文本里有AKE字符的不删除），感谢.

(defun c:snb (/ ss)
(setvar "cmdecho" 0) ;指令执行过程不响应

(while (setq ss (ssget":s" '((0 . "DIMENSION,*TEXT,*LEADER")))) ;利用点对
(princ (strcat "\n-->共删除了" (itoa (sslength ss)) "个标注。"))

(setq ss (ssget ":S" '((-4 . "<OR")
            (0 . "DIMENSION,*TEXT,*LEADER")
            (-4 . "<AND")
               (0 . "*LINE,CIRCLE,ARC")(62 . 2)
            (-4 . "AND>")
            (-4 . "OR>")
         )
))

   (command "_.ERASE" ss "")

      (PRINC)
      )

      )

LPACMQ · 发表于 2021-9-15 08:39

(defun c:snb (/ ss)
(setvar "cmdecho" 0) ;指令执行过程不响应

(while (setq ss (ssget":s" '((0 . "DIMENSION,*TEXT,*LEADER")))) ;利用点对
(princ (strcat "\n-->共删除了" (itoa (sslength ss)) "个标注。"))

(setq ss (ssget  '((-4 . "<OR")
   (0 . "DIMENSION,*LEADER,*LINE,CIRCLE,ARC")
   (-4 . "<AND")
   (1 . "~*AEK*")
   (62 . 2)
   (-4 . "AND>")
   (-4 . "OR>")
)
   ))

   (command "_.ERASE" ss "")

      (PRINC)
      )

         )

夏生生 · 发表于 2021-9-15 08:44

1 . "~*AEK*"

wgij007 · 发表于 2021-9-17 09:06

夏生生发表于 2021-9-15 08:44
1 . "~*AEK*"

加一另一程序的选择上可以，但加在这上面没反应，望指教。

wgij007 · 发表于 2021-9-18 07:54

非常感谢!

账号		自动登录	找回密码
密码			注册

[提问] 求帮忙改一下程序，在选择时增加一些条件。

最佳答案