[试用]：用LISP对Preferences进行设置

心梦相随

用LSP命令实现对prferences的一次性设置

(defun c:99(/ z0 z1)
(setq z0 "ThisDrawing.Application.Preferences.")
(foreach z1
  (list"Display.CursorSize = 100" ;光标大小
  "Display.DisplayScrollBars = False" ;不显示滚动条
  "User.KeyboardAccelerator = acPreferenceCustom" ;windows标准键盘
  "User.ShortCutMenuDisplay = false" ;右键直接ENTER
  "Selection.PickBoxSize = 7"
  "Selection.GripSize = 5"
  )
  (command"vbastmt"(strcat z0 z1))
)
(princ))
备注：
1.vbastmt运行的VB语句可以用冒号连接;
2.某些可以用系统变量进行设置;
3.preferences标签，可以依葫芦画瓢
PreferencesFiles (文件参数)
PreferencesDisplay (显示参数)
PreferencesOpenSave (打开和保存参数)
PreferencesOutput (输出参数)
PreferencesSystem (系统参数)
PreferencesUser (用户参数)
PreferencesDrafting (草图参数)
PreferencesSelection (选择参数)
PreferencesProfile (配置参数)
最后，谢谢lzh741206、eachy斑竹的帮助！

aeo

setenv