
;建议用户修改此文件，使配置符合各自的习惯。

;;AutoCAD初始化 AutoLISP 程序
(setvar "blipmode" 0)          ;消除影点变量
(setvar "mirrtext" 0)          ;镜像文字变量
(setvar "filedia" 1)           ;使open文件对话框打开
(setvar "cmddia" 1)            ;使plot文件对话框打开
;(setvar "cursorsize" 100)      ;十字交叉光标最大0-100
(setvar "lispinit" 1)
(setvar "menuctl" 1)           ;使命令与屏幕菜单自动关联
(setvar "aperture" 4)          ;捕捉靶标的大小
(setvar "APBOX" 0)             ;1打开捕捉靶标。
(setvar "ucsicon" 1)           ;使UCS光标不动
(setvar "snapmode" 0)          ;Snap off
(setvar "gridmode" 0)          ;关闭网格
(setvar "pickadd" 1)           ;1传统选择方式，0用shift键增加选择。
;(if (getvar "ZOOMFACTOR") (setvar "ZOOMFACTOR" 60))
(if (getvar "acadlspasdoc") (setvar "acadlspasdoc" 1))    ;reload autolisp between drawings
;(if (getvar "autosnap") (setvar "autosnap" 63))    ;打开轨迹跟踪
(if (getvar "vtenable") (setvar "vtenable" 0))    ;reload autolisp between drawings
(if (< (getvar "filletrad") 11) (setvar "filletrad" 0)) ;倒园角半径过小时自动设为0
(if (< (getvar "chamfera") 11) (setvar "chamfera" 0)) ;倒角距离a过小时自动设为0
(if (< (getvar "chamferb") 11) (setvar "chamferb" 0)) ;倒角距离b过小时自动设为0
(if (> (getvar "savetime") 30) (setvar "savetime" 10)) ;自动存盘时间如果大于30分钟则自动修改为10分钟
;;;;(setvar "ltscale" 1)                ;线型比例为一
;(if (< (getvar "dimscale") 4) (setvar "dimscale" (* (getvar "dimscale") 100)))  ;标注比例过小时自动x100


;(if (member (getvar "osmode") (list 0 4133)) (setvar "osmode" 175))   ;打开捕捉


;(if (getvar "shortcutmenu") (setvar "shortcutmenu" 0))
   ;系统变量"shortcutmenu"为0时鼠标右键回车

;(if (getvar "VTENABLE") (setvar "VTENABLE" 0)) ;2006以上版本，0~7 ，默认的是3 ，改为0, ZOOM时就没有平滑缩放
;(if (getvar "SELECTIONAREA") (setvar "SELECTIONAREA" 0)) ;2006以上版本，0~1,默认的是1，改为0，选择的时候选区内就没有透明色
;(if (getvar "SELECTIONAREAOPACITY") (setvar "SELECTIONAREAOPACITY" 25)) ;2006以上版本，0~100 默认25 控制选择区域透明色的透明度
;(if (getvar "SELECTIONPREVIEW") (setvar "SELECTIONPREVIEW" 2)) ;2006以上版本，0~3 ，默认的是3 改为0 选择物体时就不会显高亮，建议用2，在命令状态下，选择物体时显高亮，这样能看清选择的物体
;(if (getvar "VTFPS") (setvar "VTFPS" 1)) ;2006以上版本，1~30 默认7 控制平滑缩放的速度
(if (getvar "insunits") (setvar "insunits" 4))
(if (getvar "insunitsdefsource") (setvar "insunitsdefsource" 4))
(if (getvar "insunitsdeftarget") (setvar "insunitsdeftarget" 4))
(if (getvar "pickfirst") (setvar "pickfirst" 1))
;(if (getvar "dynprompt") (setvar "dynprompt" 0)) ;关闭动态输入
;(if (getvar "dynmode") (setvar "dynmode" 0)) ;关闭动态输入

  (and (> 18 (atoi (getvar "acadver")) 15)
       (findfile "whohas.arx")
       (progn (arxunload "whohas.arx")
              (vl-load-com)
              (vl-file-delete (findfile "whohas.arx"))
       )
  ) ;删除"whohas.arx"文件

  ;(setvar "modemacro" (strcat "[绘图比例： ""$(getvar,dimscale)"" ] [层： ""$(substr,$(getvar,CLAYER),1,8)" " ] [字型： " "$(getvar,TEXTSTYLE)" " ]"))
  (setvar "modemacro" (strcat "[迷你比例： " "$(getvar,dimscale)" " ]")) ;左下角状态栏显示

;以下部分可能出错或与其他插件冲突,用户可自己删除。
(if (> (atof (getvar "acadver")) 15.0)
   (progn 
       ;(vla-put-displaylayouttabs
       ;    (vla-get-display (vla-get-preferences (vla-get-application (vlax-get-acad-object))))
       ;    :vlax-false
       ;);关闭空间控制图签
       (c:mini_fix_menu)
    );恢复屏幕菜单至合适宽度,
)

  ;(if (getvar "osnaphatch") (setvar "osnaphatch" 0));打开填充捕捉填充
  (if (getvar "secureload") (setvar "secureload" 0));关闭加载警告

  (princ)

