Networking ARG. profiles

[rholguin]

I have created a network profile on our server. But my users have a profile set in there Options Profile tab with the same exact name.... my problem is I want a profile to automatically update from the server... but because it has the same name it will not... does anyone know of any way around this? I could just have my profiles change in name... but the I would a whole bunch of profiles piling up in the profile dialog box.....

[rkmcswain]

AutoCAD will not import settings from a ARG file when the profile name already exists.

 

Forget about profiles and just set the settings that you want to change at startup. More details here:

http://cadpanacea.com/node/52

[rholguin]

I do not want to use the ACAD lisp file... beacause I would still need to go got users computer and replace the acad lisp file the revised one... I might as well just go to each user and delete and re import the new profile..

[rkmcswain]

Then your systems are out of your control anyway.

You might as well fix it now to avoid this problem in the future.

 

Make sure the TOP support file search path is pointed to a network location and then you are set. You can put your "acad.lsp" here.

 

You can set the support file search paths in a REG file and then import this REG file at logon time using logon script. No need to visit each machine.

[rholguin]

I hear ya.... your right we might as well set it up all over.. to one acad.lisp file pathed through the network...

[rholguin]

I hear ya.... your right we might as well set it up all over.. to one acad.lisp file pathed through the network...

in making the lsip file solo.. so I can test it... I am having problems... do you know why?

 

 

(defun sample-profile-set-Active ( name / profs )

(and name

(setq profs (sample-get-profiles-object))

(or (equal (strcase name) (strcase (getvar "cprofile")))

(not (vl-catch-all-error-p (vl-catch-all-apply 'vla-put-activeProfile (list profs name))))

))

)

(defun sample-profile-import ( filename profileName bUsePathInfo / sample-oldError profs isCProfile tempProfile result )

(setq sample-oldError *error*)

(defun *error* ( msg / )

(if (and profileName

tempProfile

(equal tempProfile (getvar "cprofile"))

)

(progn

(sample-profile-rename tempProfile profileName)

(sample-profile-set-active profileName)

(sample-profile-delete tempProfile)

)

)

(setq *error* sample-oldError)

(if msg

(*error* msg)

(princ)

)

)

(if (and bUsePathInfo

(not (equal :vlax-false bUsePathInfo))

)

(setq bUsePathInfo :vlax-true)

(setq bUsePathInfo :vlax-false)

)

(if (and filename

(setq filename (findfile filename))

profileName

(setq profs (sample-get-profiles-object))

)

(progn

(setq isCProfile (equal (strcase (getvar "cprofile")) (strcase profileName)))

(if isCProfile

(progn

(setq tempProfile (sample-get-unique-profile-name))

(sample-profile-rename (getvar "cprofile") tempProfile)

)

)

(setq result

(not (vl-catch-all-error-p

(vl-catch-all-apply 'vla-ImportProfile

(list profs profileName filename bUsePathInfo))))

)

(if isCProfile

(progn

(if (and result

(setq result (sample-profile-set-Active profileName))

)

(sample-profile-delete tempProfile)

(sample-profile-rename tempProfile profileName)

))

))

)

(*error* nil)

result

)

;;;==================================================================

;;; Update the User Profile

;;;==================================================================

(defun c:FixProfile ()

(sample-profile-import

"S:\\ACA 2009 Support\\ACA 2009_CA2.arg"

"ACA 2009_CA2"

T

)

(sample-profile-set-active "ACA 2009_CA2")

(sample-profile-delete "ACA 2009_CA")

(sample-profile-import

"S:\\ACA 2009 Support\\ACA 2009_CA.arg"

"ACA 2009_CA"

T

)

(sample-profile-set-active "ACA 2009_CA")

)