- 积分
- 30261
- 明经币
- 个
- 注册时间
- 2013-1-25
- 在线时间
- 小时
- 威望
-
- 金钱
- 个
- 贡献
-
- 激情
-
|
本帖最后由 尘缘一生 于 2024-1-13 21:20 编辑
这方面，实在弄不完美，个人爱好习惯也不同
- ;;设置系统变量---(一级)-----
- ;;str 变量名 K 值
- (defun slsetvar (str k)
- (if (getvar str) (setvar str k))
- )
- ;(三领设计 V3.0 MODIFY 尘缘一生 QQ：15290049)
- ;;初始化变量===0000级加载=====
- ;;真彩色算法ColorIndex ＝ R + G * 256 + B * 256 * 256
- (defun slcsh0 ()
- (vl-catch-all-apply '(lambda () (setenv "BEditBackground" "0"))) ;块编辑器->统一背景->颜色改为黑色
- (vl-catch-all-apply '(lambda () (setenv "BEdit Xhair color" "16777215"))) ;块编辑器->十字光标->此命令的变量有点个性
- (vl-catch-all-apply '(lambda () (setenv "Background" "0"))) ;二维空间模型->统一背景->颜色改为黑色,默认3156001(33,40,48)浅黑
- (vl-catch-all-apply '(lambda () (setenv "XhairPickboxEtc" "16777215"))) ;二维空间模型->十字光标->颜色改为白色,默认16777215(白色)
- (vl-catch-all-apply '(lambda () (setenv "LayoutXhairPickboxEtc" "16777215"))) ;图纸/布局->十字光标->颜色改为白色,默认0(黑色)
- (vl-catch-all-apply '(lambda () (setenv "Autotracking vector" "8421504"))) ;自动追踪矢量颜色,默认8421504
- ;(vl-catch-all-apply '(lambda () (setenv "CmdLine.FontFace" "Consolas")));OP→→显示→→字体→命令行文字字体，默认Consolas
- ;(vl-catch-all-apply '(lambda () (setenv "CmdLine.FontHeight" "20")));OP→→显示→→字体命令行文字高度，默认10
- ;(vl-catch-all-apply '(lambda () (setenv "CmdLine.FontItalic" "0")));OP→→显示→→字体→命令行文字倾斜，默认0
- ;(vl-catch-all-apply '(lambda () (setenv "CmdLine.FontPitchAndFamily" "235")));默认235
- ;(vl-catch-all-apply '(lambda () (setenv "CmdLine.FontWeight" "400")));默认400
- ;(vl-catch-all-apply '(lambda () (setenv "TextWindow.FontFace" "Consolas")));默认Consolas
- ;(vl-catch-all-apply '(lambda () (setenv "TextWindow.FontHeight" "10")));默认10
- ;(vl-catch-all-apply '(lambda () (setenv "TextWindow.FontItalic" "0")));默认0
- ;(vl-catch-all-apply '(lambda () (setenv "TextWindow.FontPitchAndFamily" "235")));默认235
- ;(vl-catch-all-apply '(lambda () (setenv "TextWindow.FontWeight" "400")));默认400
- (vl-catch-all-apply '(lambda () (setenv "TextWindow.BackColor" "4980736"))) ;命令行->命令 历史记录 背景(深蓝色 0,0,178)
- (vl-catch-all-apply '(lambda () (setenv "TextWindow.ForeColor" "16777215"))) ;命令行->命令 历史记录 文本(白色)
- (vl-catch-all-apply '(lambda () (setenv "CmdLine.BackColor" "1245260")));命令行-> 活动提示 背景默认(黑) 设为 (暗红 76,0,19)
- (vl-catch-all-apply '(lambda () (setenv "CmdLine.ForeColor" "16777215")));命令行 活动提示 文本->(白色)
- (vl-catch-all-apply '(lambda () (setenv "CmdLine.TempPromptBkColor" "0"))) ;命令行 临时提示 背景黑色
- (vl-catch-all-apply '(lambda () (setenv "CmdLine.TempPromptTextColor" "16777215")));命令行 临时提示 文本,默认白色
- (vl-catch-all-apply '(lambda () (setenv "CmdLine.CmdOptKeywordColor" "255")));命令行->命令行 选项 关键字 ->命令颜色改为(红色)(255,0,0)
- (vl-catch-all-apply '(lambda () (setenv "CmdLine.CmdOptBkColor" "16711680")));命令行->命令选项背景->遮罩颜色，(蓝色 0,0,255)
- (vl-catch-all-apply '(lambda () (setenv "CmdLine.CmdOptHighlightedColor" "65280")));命令行-> 亮显的命令选项，(绿色 0,255,0)
- (vl-catch-all-apply '(lambda () (setenv "ShowPaperBackground" "0"))) ;不显示布局中的图纸背景和阴影，默认1
- (vl-catch-all-apply '(lambda () (setenv "ShowPrintBorder" "0"))) ;不显示布局中的图纸阴影，默认1
- (vl-catch-all-apply '(lambda () (setenv "Layout background" "0"))) ;图纸/布局->统一背景->颜色改为黑色,默认16777215(白色)
- (vl-catch-all-apply '(lambda () (setenv "ShowPaperMargins" "0"))) ;布局中不显示打印区域，默认1
- (vl-catch-all-apply '(lambda () (setenv "CreateViewports" "0")));布局中不新建视口，默认nil
- (vl-catch-all-apply '(lambda () (setenv "showfullpathintitle" "1"))) ;标题栏显示文件完整路径，默认nil
- (slsetvar "dwgcheck" 2);打开错误文件命令行警告，默认1
- (slsetvar "clipromptlines" 10) ;命令行提示历史记录行数，默认5
- (slsetvar "gripmultifunctional" 1);动态夹点菜单关闭(适用于cad2010及更高版本)，默认3
- (slsetvar "layoutcreateviewport" 0);关闭在新布局中创建视口，默认on
- (slsetvar "menuctl" 1) ;使命令与屏幕菜单自动关联，默认1
- (slsetvar "osnapz" 0) ;自动将所有绘图默认z值设置为0，默认0
- (slsetvar "psltscale" 1) ;关闭在图纸空间视口中显示的对象的线型比例缩放，默认1
- (slsetvar "selectionareaopacity" 25) ;0~100 默认25 控制选择区域透明色的透明度
- (slsetvar "tooltips" 1);显示工具提示：是，默认1
- (slsetvar "ucsicon" 0) ;控制 ucs 图标可见性和位置,0关闭，默认on
- (slsetvar "zoomfactor" 60) ;控制鼠标滚轮缩放屏幕的系数，默认60
- (slsetvar "secureload" 0);关闭加载警告
- (slsetvar "menubar" 1);;显示菜单栏
- (slsetvar "navbardisplay" 0);;关闭三维小控制栏
- ;;(slsetvar "annoallvisible" 0);;关闭显示注释对象
- (slsetvar "rollovertips" 1);;打开鼠标悬停提示
- (slsetvar "savetime" 10) ;;存盘时间修改为10分钟
- ;;(setvar "dblclkedit" 1);;双击开,根据双击的对象类型显示一个对话框
- (slsetvar "ucsdetect" 0);;动态ucs关闭
- (slsetvar "vtfps" 7) ;;1~30 默认7 控制平滑缩放的速度
- (slsetvar "vtenable" 0);控制显示缩放动画，0为无动画，1为有动画，默认3
- (slsetvar "selectionarea" 1) ;;默认的是1，改为0，选择的时候选区内就没有透明色
- ;;(setvar "PEDITACCEPT" 0)
- (slsetvar "insunits" 0);;设置单位为无单位
- (slsetvar "FILEDIA" 1);;控制与读写文件命令一起使用的对话框的显示
- ;;(setvar "OSMODE" 0) ;;捕捉关闭
- ;;(setvar "CURSORSIZE" 100) ;; 十字光标最大化,有些人不习惯
- (slsetvar "ORTHOMODE" 0) ;;正交关闭
- (slsetvar "SNAPMODE" 0);;实体捕捉关闭
- ;;(setvar "highlight" 1) ;;实体对象亮显打开
- ;;(setvar "blipmode" 0);;关闭点标记 2018 已放弃
- (slsetvar "CMDECHO" 0) ;;命令显示关闭
- (slsetvar "MIRRTEXT" 0) ;;镜像保持文字方向
- ;(setvar "PICKBOX" 6) ; 调整拾取框大小
- ;;(setvar "aperture" 6) ;捕捉靶标的大小
- ;;(setvar "GRIPSIZE" 5) ;设置夹点框的大小
- (slsetvar "measurement" 1) ;填充，线型等使用公制Acadiso.pat，值为0时，使用英制Acad.pat
- (slsetvar "REPORTERROR" 0) ;不显示错误报告信息，并且不能向 Autodesk 发送报告
- (slsetvar "RECOVERYMODE" 1) ;记录修复信息，但是系统出现故障后不自动显示'图形修复'窗口，默认1
- (slsetvar "GRIDMODE" 0) ;关闭栅格
- (slsetvar "CMDDIA" 1) ;打印文件时显示对话框
- (slsetvar "PROXYNOTICE" 0) ;不显示代理图形警告
- (slsetvar "PROXYSHOW" 1) ;显示代理图形
- (slsetvar "QAFLAGS" 0)
- ;(slsetvar "pickadd" 1) ;;1传统选择方式，0用shift键增加选择
- (slsetvar "UCSFOLLOW" 0) ;从布局切换到模型，不会自动重生成，每个视口都要设置，默认0
- (slsetvar "FILLMODE" 1) ;是否填充图案填充和填充、二维实体以及宽多段线
- (slsetvar "dimtxtdirection" 0);;标注观察方向
- (slsetvar "startmode" 0) ;;关闭开始菜单选项卡,2016版本新增
- (slsetvar "startup" 0) ;;不选模版文件，直接打开新图
- ;;(slsetvar "FONTALT" "sltxt") ;;设置自动替换字体为 sltxt
- (slsetvar "navvcubedisplay" 0) ;;关闭屏幕，（东、南、西、北）显示
- ;(vl-catch-all-apply '(lambda () (vl-cmdf "displayviewcubein2d" "off" )));关闭东南西北
- (slsetvar "selectioneffect" 0) ;;选择实体对象虚线显示,2015版才有
- (slsetvar "COMMifPREVIEW" 0) ;;关闭命令预览 如延伸 剪切 倒角
- (slsetvar "STATUSBARAUTOWRAP" 0) ;;关闭状态栏自动环绕
- ;;(setvar "CELTSCALE" 1) ;设置当前对象的线型比例因子
- (slsetvar "LISPSYS" 0) ;;设置编译LISP
- (slsetvar "TRIMEXTENDMODE" 0);;设置修剪为传统模式
- (slsetvar "EDGEMODE" 1) ;;设置剪切、延伸边界为延伸边界
- (slsetvar "LISPINIT" 1) ;函数和变量只在当前绘图任务中有效
- (slsetvar "startmode" 0) ;关闭开始选项卡，默认0
- (slsetvar "startup" 0) ;控制在cad启动时或打开新图形时显示的内容。0启动图形,1创建新图形对话框,2打开是不新建文件，默认0
- (if (getenv "MAXHATCH") (setenv "MAXHATCH" "100000")) ;解决不会出现：图案填充间距太密，或短划尺寸太小,填充图案的最大数目
- (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分钟
- ;|
- (if (< (getvar "dimscale") 4) (setvar "dimscale" (* (getvar "dimscale") 100))) ;标注比例过小时自动x100
- (setenv "qpmode" "1" );不显示快捷特性面板，默认nil
- (setenv "scrollbars" "0" );关闭滚动条，默认nil
- (setvar "acadlspasdoc" 1) ;将 acad.lsp 加载到每一个打开的图形中，默认0
- (setvar "annomonitor" -2) ;打开或关闭注释监视器。当注释监视器打开时，所有非关联标注和引线上会显示黄色警告标记，默认-2
- (setvar "apbox" 0) ;1打开捕捉靶标，默认0
- (setvar "aperture" 10) ;捕捉靶标的大小，默认10
- (setvar "autosnap" 63) ;显示捕捉参照线和极轴追踪，默认63
- (setvar "chamfera" 0) ;倒角距离a过小时自动设为0，默认0
- (setvar "chamferb" 0) ;倒角距离b过小时自动设为0，默认0
- (setvar "dynmode" 0) ;动态输入关闭，默认3
- (setvar "dynprompt" 0) ;关闭“动态输入”工具提示中提示的显示，默认1
- (setvar "filetabpreview" 1) ;标签预览样式为缩略图而非列表，默认1
- (setvar "hpdlgmode" 1) ;填充变量，2不弹出,默认1弹出界面
- (setvar "hpgaptol" 0) ;控制填充间隙公差，设置为0，填充速度快，默认0
- (setvar "hpmaxlines" 100);设置在图案填充操作中生成的图案填充线的最大数目，默认100000
- (setvar "hpname" "solid") ;设置默认填充图案，默认ANGLE
- (setvar "hpscale" 1);设定填充图案比例因子，默认1
- (setvar "inputsearchoptionflags" 0);命令行自动完成关闭(-inputsearchoptions)，默认31
- (setvar "insunitsdefsource" 4) ;指定插入或附着到图形时,块、图像或外部参照进行自动缩放所使用的图形单位值，默认4
- (setvar "insunitsdeftarget" 4) ;当 insunits 设定为 0 时，设置目标图形单位值，默认4
- (setvar "isavebak" 0);控制备份文件 (bak) 的创建。1-创建, 0-不创建，默认1
- (setvar "layoutregenctl" 2);第一次切换选项卡时会重生成图形，默认2
- (setvar "ltscale" 1) ;设定全局线型比例因子，默认1
- (setvar "lwdisplay" 0);线宽关闭，默认off
- (setvar "mbuttonpan" 1) ;控制定点设备上的第三个按钮或滚轮的行为,0支持自定义文件中定义的操作,1当按住并拖动按钮或滑轮时，支持平移操作，默认1
- (setvar "navbardisplay" 0) ;关闭悬浮导航栏，默认1
- (setvar "pickfirst" 1) ;控制是否可以在启动命令之前选择对象，默认1
- (setvar "plinewid" 0) ;存储默认的多段线宽度，默认0
- (setvar "polardist" 1);设置极轴捕捉增量，默认0
- (setvar "polarmode" 2);控制极轴和对象捕捉追踪设置，默认0
- (setvar "selectioncycling" -2) ;打开与重叠对象和选择循环关联的显示选项,默认关闭0,全打开为2，默认-2
- (setvar "selectionpreview" 2) ;控制选择预览的显示,即是否显高亮，默认2
- (setvar "shortcutmenu" 2) ;op用户系统配置中自定义右键单击，默认11
- (setvar "trackpath" 0) ;控制极轴追踪和对象捕捉追踪对齐路径的提示，0全屏显示极轴追踪和对象捕捉追踪路径，默认0
- (setvar "trimmode" 1) ;控制是否为倒角和圆角修剪选定边。0不修剪选定边,1将选定边修剪到倒角直线和圆角圆弧的端点，默认1
- (setvar "vpcontrol" 0);关闭视口控件，默认on
- (command "-scalelistedit" "reset" "y" "e") ;删除所有自定义比例(2008及以上版本)
- (vla-put-WindowState *ACAD* 3);窗口最大化
- (vl-cmdf "-scalelistedit" "reset" "y" "e" );解决复制粘贴大图时，程序卡慢、甚至死掉的问题！
- (vl-cmdf "clipromptlines" "3" );命令行提示历史记录的行数
- (vl-cmdf "commandline" );打开命令行
- (vl-cmdf "filetabclose" );关闭文件选项卡
- (vl-cmdf "filetabpreview" "0" );关闭文件选项卡悬停布局缩略图显示
- (vl-cmdf "filetabthumbhover" "0" );关闭文件选项卡悬停布局标签显示
- (vl-cmdf "isavepercent" "0" );完全保存,使文件最小
- (vl-cmdf "navbar" "off");关闭三维导航栏
- (vl-cmdf "polarang" "45" ) ;设置极轴角增量
- (vl-cmdf "regenauto" "on" );自动重生成
- (vl-cmdf "taskbar" "0") ;任务栏标签合并
- (vl-cmdf "traynotify" "0" );控制是否在状态栏系统托盘上显示服务通知
- (vl-cmdf "viewres" "y" "1000" );弧形显示平滑度，不平顺时可re重生成
- |;
- )
- (slcsh0)
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看，没有账号？注册
x
评分
-
查看全部评分
|
[复制链接]
发表于 2024-1-13 20:55:09
置顶卡
变色卡
显身卡
谢谢分享