;;安装根目录
(setq InstallDir (HY_GetInstallDir))

;;SYS目录
(setq Interchange_supdir (strcat InstallDir "Interchange\\sup\\"))
;;是否合并"HY-IDS"菜单到"HY-SZDL"菜单
(if (IDSMenuAddToSZDLMenu)
	(hy_loadSubmenu (strcat Interchange_supdir "Interchange.hmu"))
)
;;互通立交是否自动加载 
(if (InterchangeAutoLoad)
	(progn
		(arxload (strcat Interchange_supdir "InterchangeDesign.arx") " ")
		(arxload (strcat Interchange_supdir "InterchangeDim.arx") " ")
	)
)
(princ)
