Can anybody help please
Code: Select all
(vl-load-com)
(defun c:pro (/ cpr)
(if (= (getvar "cprofile") "AutoCAD Structural Detailing")
(setq cpr (strcase lnaam))
)
(if (= cpr nil)
(if (= (car (getvar "acadver") "20.0s"))
(setq cpr (strcase (strcat lnaam "_2015")))
)
(if (/= (getvar "acadver") "20.0s (LMS Tech)")
(setq cpr (strcase lnaam))
)
)
(vla-put-ActiveProfile
(vla-get-Profiles
(vla-get-Preferences (vlax-get-acad-object))
)
cpr
)
) ;_defun