Insert fields, initials, from Login

[Anonymous]

I would like to extract someones initials, first and last letter, from their Login.

%<\AcVar Login \f "%UC2">%

- Gives me SURNAME, NAME

%<\AcDiesel $(substr, $(getvar, "LOGINNAME"),1,3)>%

- Gives me the loginname (based on the string etc), which is SurnameN.

I'd much prefer to have it based on Login (rather than loginname), and have it pick the first letter in each word, but backwards (spelling NS). Alternatively, last and first in the loginname.

Hope it makes sense. Any ideas?

PS. I don't speak Diesel/Code, but I can make sense of some of it. 🙂 DS.

[Anonymous]

Is LOGIN an environment variable set outside AutoCAD in your operating system? I'm not able to reproduce the outcome of %<\AcVar Login \f "%UC2">% on my environment.

With friendly greetings, M. Moolhuysen.

[hmsilva]

---

@Anonymous wrote:

Is LOGIN an environment variable set outside AutoCAD in your operating system? I'm not able to reproduce the outcome of %<\AcVar Login \f "%UC2">% on my environment.

With friendly greetings, M. Moolhuysen.

---

Hi M. Moolhuysen,

try:

Command field -> Field Category = Plot -> Format = none

Hope this helps,
Henrique

[hmsilva]

---

@Anonymous wrote:

I would like to extract someones initials, first and last letter, from their Login.

%<\AcVar Login \f "%UC2">%

- Gives me SURNAME, NAME

%<\AcDiesel $(substr, $(getvar, "LOGINNAME"),1,3)>%

- Gives me the loginname (based on the string etc), which is SurnameN.

I'd much prefer to have it based on Login (rather than loginname), and have it pick the first letter in each word, but backwards (spelling NS). Alternatively, last and first in the loginname.

Hope it makes sense. Any ideas?

PS. I don't speak Diesel/Code, but I can make sense of some of it. 🙂 DS.

---

Hi anderslindgreen,

if the return from (getvar, LOGINNAME) is 'SurnameN', perhaps anything like this will do the trick:

$(substr, $(getvar, loginname),$(strlen, $(getvar, loginname)),1)$(substr, $(getvar, loginname), 2, 1,)

Hope this helps,
Henrique

[miketUYKB6]

apologies for not being fluent in diesel, but how would you rearrange this code to have the first name initial first and the last name initial last??  Thank you for your help.

[ronjonp]

Try this: 

$(substr, $(getvar, loginname), 2, 1,)$(substr, $(getvar, loginname),$(strlen, $(getvar, loginname)),1)

In lisp:

(strcat (substr (setq ln (getvar 'loginname)) 1 1) (substr ln (strlen ln)))

[miketUYKB6]

Thank you! that was exactly what I needed.

[ronjonp]

---

@miketUYKB6 wrote:
Thank you! that was exactly what I needed.

---

Glad to help 🙂

[ewestmark]

so this solution ended up being super close to what I'm trying to do. Do you know how make it appear as first initial, period, space, full last name? (ex: "J. DOE")

thanks in advance

[Sea-Haven]

Good time to learn in lisp example by ronjonp you can add "." to the strcat will leave it to you to work out.

[ronjonp]

---

@ewestmark wrote:

so this solution ended up being super close to what I'm trying to do. Do you know how make it appear as first initial, period, space, full last name? (ex: "J. DOE")

thanks in advance

---

@ewestmark 

What does this return on your computer?
(alert (getvar 'loginname) )

[ewestmark]

looks like it does not give my full name, which would explain my issue. I think it is sourcing my username, when what I want is my account's display name/common name. I think my confusion came from the field name "login" sourcing it correctly (though it wont let me modify it). so I guess my question becomes this:
Do you have any ideas what the variable list name I'm looking for might be?

[ewestmark]

I just came across "onlineusername" which sources off email, which happens to be in a consistent jdoe@companyname format. so if I can figure out how to insert ". " after the first character, and also delete the last 14 characters, I should be in buisness

[ewestmark]

update: I figured out how to format it, but it turns out I'm the only one who uses my company email as an onlineusername, so it is, in fact, not a reliable way to source the names...

if anyone is interested in what I came up with, it's this. I'm gonna go take a break, haha

$(upper,$(substr,$(getvar,onlineusername),3,1,)". "$(upper,$(substr,$(getvar,onlineusername),2,$(-,$(strlen,$(getvar,onlineusername)),15))

[Sea-Haven]

Much easier to use a look up procedure you can use login name JD123 = J.Doe

 You make a list containing multiple 2 items ((userlogin actualname)..... I was AH1072. Just use foreach and search the list.