(getenv "ACAD") ;路径?
或
加载有两个路径,选其一
 - (mapcar '(lambda (x)
- (vl-registry-read
- (strcat "HKEY_CURRENT_USER\\"
- (vlax-product-key)
- "\\Profiles\\"
- (getvar 'cprofile)
- "\\Dialogs\\Appload\\"
- )
- x
- )
- )
- '("MainDialog" "AddAppDialog")
- )
-
("C:\\Users\\HP\\Desktop\\"
"C:\\Users\\HP\\DOCUMENTS\\LISP\\" ) |