[编程申请]：隐藏(非删除)图中不含特征字符x.y的所有文字。

lengliqun

隐藏(非删除)图中不含特征字符x.y的所有文字。要求默认全选，特征字符x.y含在LSP程序中，以方便改成其它字符，谢谢。

zxq0220

最初由 lengliqun 发布
[B]隐藏(非删除)图中不含特征字符x.y的所有文字。要求默认全选，特征字符x.y含在LSP程序中，以方便改成其它字符，谢谢。 [/B]

楼主总是要些奇怪的文字处理程序。
[php]
(DEFUN C:HIDE-NOXY ()
(SETVAR "CMDECHO" 0)
(IF (SETQ SS (SSGET "X" '((0 . "TEXT")))) (PROGN
  (SETQ I 0 SL (SSLENGTH SS) S1 (SSADD))
  (REPEAT SL
    (SETQ EN (SSNAME SS I)
          I (1+ I)
          STR (CDR (ASSOC 1 (ENTGET EN))))
    (IF (AND (NOT (WCMATCH STR "*x*")) (NOT (WCMATCH STR "*y*"))
             (NOT (WCMATCH STR "*X*")) (NOT (WCMATCH STR "*Y*")))
     (SETQ S1 (SSADD EN S1))
    )
  )
  (COMMAND "LAYER" "N" "HIDETXT" "F" "HIDETXT" "" "CHPROP" S1 "" "LA" "HIDETXT" "")
))
(SETVAR "CMDECHO" 1)
(PRINC)
)
[/php]

lengliqun

经测试完全可用，谢谢。帮我看看这里好吗？
http://www.xdcad.net/forum/showthread.php?s=&threadid=344639