(defun-q S::STARTUP ( ) 
  (command "_-vbarun" "getattr")
  (SETQ wec_filename (GETVAR "DWGNAME"))
  (SETQ wec_aimkey (AIMDdderequest "AIM.COMPASS5.DE" "SYSTEM" (STRCAT "#(AIMKEYFROMPATH " wec_filename ")")))
  (SETQ acad_value (GETVAR "HYPERLINKBASE"))
  (aimdDDEEXEC "AIM.COMPASS5.DDE" wec_aimkey (STRCAT "___ChangeField SHORT_DESC=" acad_value))
  (aimdDDEEXEC "AIM.COMPASS5.DDE" wec_aimkey "___DBUtils sync current")
)