Topic: How to make AND work?

[jmcshane]

In a (vlax-for ) expression I am trying to grab an MText object which has a specific word in it.

Can anyone enlighten me as to why this doesn't work?

Code: [Select]

     (if (and (= (vla-get-ObjectName obj) "AcDbMText")
                 (wcmatch (strcase (vla-get-TextString obj)) "COPYRIGHT"))
          (progn......)

Thanks in Advance

John

[Joe Burke]

John,

Consider...

Command: (setq str "THIS COPYRIGHT NOTICE")
"THIS COPYRIGHT NOTICE"

Command: (wcmatch str "*COPYRIGHT*")
T

Command: (wcmatch str "COPYRIGHT")
nil

[CAB]

It is also case sensitive.

[CAB]

An alternate method to consider.

(vl-string-search pattern string [start-pos])
Searches for the specified pattern in a string


(setq str "THIS copyright notice")

(vl-string-search "COPYRIGHT" (strcase str))

or

(wcmatch (strcase str) "*COPYRIGHT*")

[jmcshane]

Consider...

Command: (setq str "THIS COPYRIGHT NOTICE")
"THIS COPYRIGHT NOTICE"

Command: (wcmatch str "*COPYRIGHT*")
T

Command: (wcmatch str "COPYRIGHT")
nil

Ouch Joe.  That was so obvious, it hurts.

It is also case sensitive.

Thanks CAB, I was using the STRCASE against it.

[Joe Burke]

John,

It's all good