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

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

请问在下面的代码如何添加，不删除，有特定字符的文本（如:文本里有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:00

(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:56

1 . "~*AEK*"

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

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

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

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

非常感谢!
页: [1]
查看完整版本: 求帮忙改一下程序，在选择时增加一些条件。