CAD初始设置：诸多问题
本帖最后由 尘缘一生 于 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)
以下是我的设置，和你的差不多
快捷键op1AutoCAD初始化设置 通用版
(defun c:op1 ()
(vla-put-WindowState(vla-get-ActiveDocument(vlax-get-acad-object))3)
(vla-put-WindowState(vlax-get-acad-object)3) ;窗口最大化
(command"dynmode""-3") ;动态输入<关>
(command"taskbar""0") ;合并任务栏
(command"startup""0") ;打开CAD时<关闭>创建新模板
(command"qpmode""-1") ;快捷特性<关>
(command"aunits""0") ;设置角度单位类型为<十进制度数>
(command"auprec""0") ;设置角度单位精度的小数位为<0>
(command"insunits""4") ;插入时缩放单位<毫米>
(command"maxactvp""64") ;布局视口显示最大值<64>
(command"tooltips""1") ;显示工具提示<是>
(command"ucsdetect""0") ;动态ucs<关>
(command"snapmode""0") ;捕捉间距<否>
(command"polarmode""0") ;极轴追踪仅正交方向
(command"vtenable""0") ;窗口缓冲平滑视图<关>
(command"edgemode""0") ;修剪和延伸时,其边不假想延伸
(command"vprotateassoc""1") ;允许视口旋转<开>
(command"navvcubesize""0") ;viewcube图标设置 最小<3>;小<0>;普通<1>;大<2>
(command"dragmode""a") ;拖动对象显示<自动>
(command"mtexted""internal") ;显示在位文字编辑器
(command"mtexted"".") ;处理文字与标注不能修改问题
(command"hpscale""1") ;设定填充图案比例因子
(command"hpassoc""1") ;填充图案关联
(command"hpmaxlines""1000000") ;设置在图案填充操作中生成的图案填充线的最大数目，默认值:1000000，有效值为100到10000000
(command"blockeditlock""0") ;双击块<弹出>编辑器
(command"-scalelistedit""reset""y""e") ;解决复制粘贴大图时，程序卡慢、甚至死掉的问题！
(command"menubar""1") ;显示菜单栏<开>
(command"commandline") ;打开命令行
(setenv "Scrollbars" "1" ) ;在图形窗口中显示滚动条,0关闭,1开
(command"cursorsize" "100") ;十字光标大小<100>
(command"zoomfactor""100") ;鼠标滑轮缩放系数<100>
(command"snapang""0") ;光标旋转角度复位
(setenv"ShowPaperMargins""0") ;显示可打印区域<关>
(setenv"ShowPrintBorder""0") ;显示图纸背景<关>
(setenv "ShowPaperBackground" "0") ;显示图纸阴影(关)
(setenv"DefaultFormatForSave" "36") ;文件保存2007.dwg版本,<24-2004,36-2007,48-2010,60-2013>dwg版本
(command"isavebak""0") ;每次保存时均创建备份副本<关>
(setenv"ShowFullPathInTitle""1") ;在标题中显示完整路径
(command"proxyshow""1") ;显示代理图形
(command"proxynotice""0") ;显示代理信息对话框<关>
(command"dblclkedit""on") ;双击进行编辑<开>
(command"shortcutmenu""11") ;绘图区域中使用快捷菜单
(command"aperture""9") ;捕捉靶标高度<9>
(command"apbox""0") ;显示自动捕捉靶框<关>
(command"autosnap""63") ;自动捕捉及极轴设置
(setenv "CROSSHAIRZ" "0") ;关闭在十字光标中显示Z轴
(command"pickbox""9") ;拾取框大小<9>
(command"pickfirst""1") ;先选择后执行<开>
(command"pickadd""1") ;用shift键添加到选择集<关>
(command"pickstyle""1") ;对象编组<1>;选择关联图案填充时也选定边界对象<2>;1+2=3 3<开>
(command"pickauto""1") ;隐含选择窗口中的对象,0关闭,1开
(command"gripsize""5") ;夹点尺寸<5>
(command"selectionpreview""3") ;命令处于活动状态时<开>
(command"selectionpreview""2") ;未激活任何命令时<关>
(command"selectionarea""1") ;视觉效果设置 选择区域效果指示选择区域<开>
(command"lwdisplay""0") ;显示线宽<关>
(command"vplayeroverridesmode""1") ;视口替代图层<开>
(command"filedia""1") ;文件列表<显示>对话框
(command"lockui""15") ;工具栏全部锁定<15>,全部解锁<0>
(command"plinegen""0") ;线型生成<默认>禁用
(command"acadlspasdoc""0") ;打开文件不加载LSP
(command"reporterror""0") ;不发送错误报告
(command"layoutregenctl""2") ;第一次切换选项卡时会重生成图形
(command"dwgcheck""2") ;打开错误文件命令行警告
(command"recoverymode""1") ;记录修复信息，但是系统出现故障后不自动显示“图形修复”窗口
(command"isavepercent""0") ;完全保存,使文件最小
(command"regenauto""on") ;自动重生成
(command"viewres""y""1000") ;弧形显示平滑度，不平顺时可RE重生成
(command"vtfps""7") ;VTFPS 1~7 默认7 控制平滑缩放的速度
(command"mbuttonpan""1") ;中键功能
(command"qaflags""0") ;带基点复制
(setenv"AutoSnapTrackPath""0") ;显示全屏及极轴追踪矢量
(command"polarang""45") ;设置极轴角增量
(command"polardist""1") ;设置极轴捕捉增量
(command"trackpath""0") ;控制显示极轴和对象捕捉追踪的对齐路径
(command"traynotify""0") ;控制是否在状态栏系统托盘上显示服务通知
(command"ucsfollow""0") ;从布局切换到模型，不会自动重生成，每个视口都要设置
(command"rollovertips""0") ;显示鼠标悬停提示：否<适用于CAD2009及更高版本>
(command"-plotstamp" "l" "n" "" "") ;打印戳记及高级选项设置不创建日志文件
(vl-catch-all-apply '(lambda ( / x )
(setq x (vlax-get-property (vlax-get-property (vlax-get-acad-object) 'Preferences) 'Display))
(vlax-put-property x 'displaylayouttabs :vlax-true) ;显示布局和模型选项卡(开)
(vlax-put-property x 'TextFont "Consolas") ;设置命令行字体
(vlax-put-property x 'LayoutDisplayMargins :vlax-false) ;显示可打印区域(关)
(vlax-put-property x 'LayoutDisplayPaper :vlax-false) ;显示图纸背景(关)
(vlax-put-property x 'LayoutDisplayPaperShadow :vlax-false) ;显示图纸阴影(关)
(vlax-put-property x 'GraphicsWinModelBackgrndColor "0") ;在二维模型空间统一背景颜色(黑色)
(vlax-put-property x 'ModelCrosshairColor "16777215") ;在二维模型空间十字光标颜色(白色)
(vlax-put-property x 'GraphicsWinLayoutBackgrndColor "0") ;在图纸布局空间统一背景颜色(黑色)
(vlax-put-property x 'LayoutCrosshairColor "16777215"))) ;在图纸布局空间十字光标颜色(白色)
(setq display (vla-get-display(vla-get-preferences (vlax-get-acad-object))))
(setenv "BEditBackground" "0") ;设置块编辑器统一背景颜色为(黑色)
(setenv "BEdit Xhair color" "16777215") ;设置块编辑器十字光标颜色(白色)
(setenv "TextWindow.BackColor" "13158600") ;设置命令行命令历史记录背景颜色改为默认(200,200,200)
(setenv "TextWindow.ForeColor" "0") ;设置命令行命令历史记录文本颜色(黑色)
(setenv "CmdLine.BackColor" "31560010") ;设置命令行活动提示背景颜色(天蓝色)(74,145,225)
(setenv "CmdLine.ForeColor" "0") ;设置命令行活动提示文本颜色(黑色)
(setenv "CmdLine.TempPromptBkColor" "0") ;设置命令行临时提示背景颜色(黑色)默认6710886(102,102,102)
(setenv "CmdLine.TempPromptTextColor" "16777215") ;设置命令行临时提示文本颜色(白色)
(setenv "CmdLine.CmdOptKeywordColor" "16711680") ;设置命令行命令选项关键字颜色(蓝色)
(setenv "CmdLine.CmdOptBkColor" "31560010") ;设置命令行命令选项背景颜色(天蓝色)(74,145,225)默认13816530(210,210,210)
(setq output (vla-get-output(vla-get-preferences (vlax-get-acad-object))))
(vla-put-AutomaticPlotLog output 0) ;关闭自动保存打印和日志
(princ)) 今天突然屏幕外选择不了,找到这个变量
SELECTIONOFFSCREEN 设置为启用时，屏幕外的对象（图形中的点 1 位于主要显示屏幕之外）现在可以参与选择
0
屏幕外选择处于禁用状态
1
屏幕外选择处于启用状态，具有仅支持鼠标输入的限制。此外，在选择时“缩放/平移”会达到某些限制。
2
屏幕外选择处于启用状态，无限制
注： 将 SELECTIONOFFSCREEN 设置为 2 时，选择结果有可能不正确。这仅适用于实验目的。 大佬，很强。 谢谢分享总结的真不少
谢谢分享 {:1_1:}谢谢分享 迷你的初始设置还挺全面的 请教：二维自动捕捉标记是哪个变量设置的 感谢分享Thanks(ω) 感谢大佬分享，， (setenv "Layout background" "0")在2024里面不起作用
页:
[1]
2