topic Betreff: RTEXT DRAWING NAME in Visual LISP, AutoLISP and General Customization Forum

RTEXT DRAWING NAME

Anonymous — Wed, 26 Jun 2019 10:39:44 GMT

Good day,

Can anyone help me to remove the file name extension when I use $(getvar,dwgname)?

My file names are written like this: "M-03 AIRCONDITIONING SYSTEM LAYOUT"

when I use the $(getvar,dwgname) the text appearing was like this

"M-03 AIRCONDITIONING SYSTEM LAYOUT.dwg"

I want to remove the file name extension (.dwg)

But I don't know what code to use.. Please help me..

Thanks

Betreff: RTEXT DRAWING NAME

cadffm — Wed, 26 Jun 2019 10:46:56 GMT

use SUBSTR to cut the string from the 1 to the 'length of string - 4 characters)

$(substr,$(getvar,DWGNAME),1,$(-,$(strlen,$(getvar,DWGNAME)),4))

$(substr, ; cut

$(getvar,DWGNAME), ; dwgname+ext

1, ; from 1 character to

$(-,$(strlen,$(getvar,DWGNAME)), 4) ; length of dwgname+ext, minus 4

)

But sind 2005 i would never use RTEXT for this, use a FIELD

Betreff: RTEXT DRAWING NAME

Anonymous — Wed, 26 Jun 2019 10:58:03 GMT

The command you have provided was effective.. Thank you very much! 🙂

But in addition, can I have another code for the same subject matter but this time, I want to substract also the first 5 characters of the file name..

my file name was "M-03 AIRCONDITIONING SYSTEM LAYOUT"

my output should be "AIRCONDITIONING SYSTEM LAYOUT" only..

everytime I try editing the code you have provided, it always appear as getvar error..

Betreff: RTEXT DRAWING NAME

cadffm — Wed, 26 Jun 2019 11:13:51 GMT

Try to edit this sample to learn how SUBSTR works

$(substr,ROGERRABBIT,6,99)

Betreff: RTEXT DRAWING NAME

dpalmerVQ54W — Fri, 06 Dec 2019 17:09:59 GMT

@cadffm

I hope you don't mind I tried using your string in order to have the filename displayed on our drawing border in Layout.

Our filenames are in the style 12345-AX-A.dwg. I used your string in FIELDS and manged to edit it to remove the last 6 characters (the -A is an issue letter which we don't want displaying on our drawing number as the issue letter is displayed elsewhere) so it read 12345-AX. It's important that the characters are removed from the right as the filename could be longer (eg 12345-XX-AX-A)

Going back to the issue letter, the -A part of the filename, is it possible to create a DIESEL string that will only show the letter ie A. I would like to be able to make our issue letter a FIELD so that when the filename becomes, say 12345-AX-B.dwg the Issue letter only is displayed as B.

Thanks in advance.

Betreff: RTEXT DRAWING NAME

Kent1Cooper — Fri, 06 Dec 2019 20:00:04 GMT

Put the drawing name without path or extension into a variable:

(setq str (vl-filename-base (getvar 'dwgname)))

To get the parts you're after, use the fact that the (vl-string-position) function lets you search from the end, so you can find the position of the last hyphen, no matter how many hyphens there are. So if that drawing name is "12345-AX-A":

For everything except the hyphen and issue letter at the end:

(substr str 1 (vl-string-position 45 str 1 T))

returns
"12345-AX"

[45 is the ASCII character number for a hyphen.]

For the issue letter at the end only:
(substr str (+ (vl-string-position 45 str 1 T) 2))
returns

"A"

Betreff: RTEXT DRAWING NAME

dpalmerVQ54W — Mon, 09 Dec 2019 08:34:58 GMT

Thanks Kent. I'll give it a try and report back.

Betreff: RTEXT DRAWING NAME

SPARKSURESH_G — Tue, 23 May 2023 11:28:21 GMT

I need 2 spaces for each letter of file name. Is it possible? our dwg No. are in separate boxes. so...

Betreff: RTEXT DRAWING NAME

Sea-Haven — Tue, 23 May 2023 23:41:53 GMT

Need a sample of the file name before and after else just guessing what you want.