Topic: vl-string-right-trim question

[hudster]

Code: [Select]

;;filename
  (setq @fname1 (getvar "dwgname")
@fname2 (vl-string-right-trim ".dwg" @fname1)
@fname2 (vl-string-right-trim ".DWG" @fname1)
@fname3 (getvar "dwgprefix")
@fname (strcat @fname3 @fname2))
I have this piece of code, but how can I get it to search for ".dwg" irrespective of case?
One persons machine always puts the suffix in uppercase while all the rest are lower case.

I want to remove either option to make a plot file name based on just the file name minus the suffix.

[ronjonp]

Possibly:

(vl-string-right-trim (strcase ".dwg") (strcase @fname1))

All lowercase:

Code: [Select]

(strcat (strcase (getvar 'dwgprefix)T)
(vl-string-right-trim
  (strcase ".dwg" T)
  (strcase (getvar 'dwgname)T)
)
)
All uppercase:

Code: [Select]

(strcat (strcase (getvar 'dwgprefix))
(vl-string-right-trim
  (strcase ".dwg")
  (strcase (getvar 'dwgname))
)
)

[CAB]

also look at
vl-filename-base
vl-filename-directory
vl-filename-extension

Code: [Select]

;;;  Returns trimmed string if string is long enough
;;;          ""  if string is to short
(defun string-right-trim (string num)
    (if (> (strlen string) num)
      (substr string 1 (- (strlen string) num))
      ""
    )
)

(defun string-left-trim (string num)
    (if (> (strlen string) num)
      (substr string (1+ num))
      ""
    )
)

[Didge]

Is this what you're looking for?

(setq @fname (vl-filename-BASE (getvar "dwgname")))