[求助]如何按我的需要查找文字?

XIAOFEILONG

在 CAD中查找文字,查找的要求是:

已知字符:A,B,  A和B为任意长度的字符

要求查找:包含  "A"+"n个字符"+"B"  组合的文字

其中,由用户输入n值,表示查找有不同数目的文字

举例说明:

字符"2E22;3E32",被我错误的写成了"2E122;3E32",

我为了找到有错误的文字,就要查找"E"和";"之间有3个字符的所有文字(因为正确的是"E"和";"之间只有2个字符"22")

请问:这样的查找能否实现?

请各位高手帮忙

谢谢

ZZXXQQ

获得"E"和";"之间有3 个数字字符的选择集(setq ss (ssget "X" '((0 . "TEXT") (1 . "*E###;*"))))

获得"E"和";"之间有3 个字符的选择集(setq ss (ssget "X" '((0 . "TEXT") (1 . "*E???;*"))))

aytxq

借用一下贵地请教一下Z版。我一个图档内N个TEXT文字分成N/2组，按如下排列:"A1-356-A"与"*A1-356-A*"；"A1-356-B"与"*A1-356-B*"；"A1-356-C"与"*A1-356-C*"。。。。所有得两个一组文字中，第一个文字和第二个文字的区别就在第二个文字头尾多了两个"*"出来.

现在我想用一个新文字段"D2-333"来取代"A1-356",其他的不变。我写一段程序可得出来不是我想要的。得到是只是"D2-333"，后面序号ABCD等却没有.请问一下Z版要如何处理,还请指教一下.

  (Setq MOK "D2-333")
  (setq txt (SSGET "_X" '((0 . "text") (1 . "*A1-356*"))))
  (SETQ MO "*A1-356*")
  (Setq N 0)
  (REPEAT (Sslength TXT)
        (Setq MO-TXT (Entget (Ssname TXT N)))
        (Setq MO-TXT (Subst (Cons 1 MOK) (Assoc 1 MO-TXT) MO-TXT))
        (Entmod MO-TXT)
    (setq N (1+ N))
    )

fl202

substr strcat 根据字符串长度截取字符，在与你新的字符串合并不就是你想要的字符了吗？

ZZXXQQ

aytxq发表于2009-12-13 23:17:00借用一下贵地请教一下Z版。我一个图档内N个TEXT文字分成N/2组，按如下排列:\"A1-356-A\"与\"*A1-356-A*\"；\"A1-356-B\"与\"*A1-356-B*\"；\"A1-356-C\"与\"*A1-356-C*\"。。。。所有得两个一组

将判断串改成"A1-356*"，前面的"*"不要。

wuxuloveguo

如BZ所说的可行！

aytxq

z版，能否请你讲得详细一点。

我现在用是方法是把前后带*号和不带*号的文字用长度选择区分开再处理。

kyo90

这个好像有点复杂了吧~~~