Can you also post a dwg before you run the lisp so we can all compare what happens before vs after?
Taking a quick glance at your code:
Questions:
1. What is this function for which you've included but I don't see it used any where:
(get-material-name)
2. You have this condition statement which checks names of materials:
(cond
((wcmatch mat "(")
(Setq pos (vl-string-position (ascii "(") mat)
(Setq matNew (substr mat 1 pos)
)
(vla-put-material ent matNew)
)
(t
(princ "\nNothing changed.")
)
)
I don't see how you can have a match with the first condition as:
(wcmatch mat "(")
Since you say a material name actually contains multiple letters like "Gratings" "Gratings(1)" "Gratings(2)"
To match a pattern that includes an open parenthesis, the code would change to look like this:
(wcmatch mat "*(*")
Once a match is found you can use the following function to get the material name before the open parenthesis:
;;;--- aec_sb_txt function returns only portion of txt before found pattern
; txt = text string
; pat = text pattern
; Usage:
; (aec_sa_txt "This is before [width] and after" "[width]")
; Returns:
; "This is before "
(defun aec_sb_txt (txt pat / pos tmp)
(if (wcmatch txt (strcat "*" pat "*"))
(progn
(setq pos (vl-string-search pat txt))
(setq tmp (substr txt 1 pos)) ; txt before
)
)
tmp
)
so do the following:
(setq matnew (aec_sb_txt mat "(")) ; retrieves material name before open parenthesis
