狗尾续下貂
 - ;建个对照表
- (setq DLL '(("18.0" "CAD2010.dll")
- ("19.1" "CAD2014.dll")
- ("20.0" "CAD2016.dll")
- ("20.1" "CAD2016.dll")
- ("21.0" "CAD2017.dll")
- ("22.0" "CAD2018.dll")
- ("23.0" "CAD2019.dll")
- ))
- (command "netload" (strcat "E:/TEST/" (cadr (assoc (substr (getvar "acadver") 1 4) DLL)) ) ) ;路径自己改
|