牛!稍微做了点改写,避免当前配置名不对:
 - (if (null vlax-dump-object) (vl-load-com));将Visual LISP扩展功能加载到 AutoLISP
- (setq AcProNam (vla-get-ActiveProfile (vla-get-profiles (vla-get-preferences (vlax-get-Acad-Object)))));当前配置名称
- (setq AcRefDia (strcat "HKEY_CURRENT_USER\\" (vlax-product-key) "\\Profiles\\" AcProNam "\\Dialogs\\RefeditDialog"))
- (vl-registry-read AcRefDia "LockObjects");获取值:1打勾,0不打勾
- (vl-registry-write AcRefDia "LockObjects" 1);设置值:1打勾,0不打勾
|