What I wantSub TEST()
Dim nomen As String
Dim adicio As String
nomen = ThisDrawing.GetVariable("LOGINNAME")
adicio = "p:\acad\drafters\" & nomen & "\support"
End Sub
What isn't working (defun c:TETHT()
(setq strname (getvar "LOGINNAME"))
(addsupportpath "P:\\acad\\drafters\\"strname"\\support" nil) ;with or without spaces or &s
(princ))