功能名称: 初始化
内置命令: Init
快捷命令: cs
功能介绍: 完成AutoCAD初始化工作, 包括创建图层、创建文字样式、创建标注样式,设置绘图比例及环境变量等
相关文件: 用户可以在 用户目录\HGConfig.lsp 文件中自定义各种初始化工作
此功能随AutoCAD启动自动加载,在绘图过程中可以执行命令改变, 由于HGCAD版本的升级迭代,其中比例因子已经实现自动切换了,具体请访问网址 https://www.hgcad.com/cad-help-224.html
以下为默认设置
; www.hgcad.com QQ: 272116623 Email: ws.cn@163.com
;*************************************************************************************
; 说明:
; 1、分号及分号后面的一行内容为注释内容，系统不加载
; 2、用户目录中HGConfig.lsp优先加载, 如无则加载系统目录中HGConfig.lsp
; 3、HGConfig.lsp 文件通过 HGCONFIG 命令完成配置
; 4、不要改变各项顺序
;=====================================================================================
(setvar "cmdecho" 0)
;●●● HGCAD ●●●
(PurgeAll 1) ;自动垃圾清理, [0=否、1=自动清理、2=强制清理、]
(cmdenv "autoime" 2) ;自动切换中英文输入法, 0:关闭, 1:启用, 2:增强
(cmdenv "imecmd" "DDEDIT,MTEXT,TEXT,MTEDIT,TEXTEDIT,TABLEDIT")
;执行命令中自动切换为中文状态,英文逗号间隔, wcmatch匹配
(cmdenv "autowidth" 1) ;编辑时,自动调整表格中文字宽度, [0=不启用、1=单行文本和块中文本]
(cmdenv "autoscale" 1) ;绘图比例随图框自动调整
(cmdenv "viewall" 0) ;打开文档时自动全部显示全部图形
(cmdenv "startmenu" 0) ;窗口左上角logo是否启用弹出HGCAD菜单(0=不显示, 1=显示)
(cmdenv "dropatt" 1) ;在块属性定义的提示内容后面可以设置下拉列表(0=不启用, 1=启用),
以@开始分号分割,
;如: @选项1;选项2;选项2;选项2
(setvar "proxynotice" 0) ;打开文档时显示"代理信息"对话框
(setvar "HPSCALE" (getvar "dimscale")) ;设定填充图案比例因子
;●●● 字体替换 ●●●
;(HGCAD_UpdateStyleFont 模式[NO/LOST/ALL] "英文字体.SHX" "中文字体.SHX")
(HGCAD_UpdateStyleFont "NO" "HGCAD.SHX" "HGCADHZ.SHX")
;●●● 创建文本样式 ●●●
;(HGCAD_MakeTextStyle "名称" "SHX字体" "大字体" "高度" "宽度比例" "倾斜角度(-85~85)" "强制更新(Y/N)")
; 字体文件设置规定:
; 第一个字体(SHX字体,字体设置对话框左侧选框中字体名称): 为"windows系统字体"或"shx字体",
; 比如:宋体、HGCAD.SHX(英文)
; 第二个字体(大字体, 字体设置对话框右侧选框中字体名称): 为"shx大字体",比如 HGCADHZ.SHX(中文)
; 当SHX字体的扩展名为shx时候,大字体也必须设置,两者扩展名都为shx
; 当shx字体为windows字体即无shx扩展名时,大字体不用设置
(HGCAD_MakeTextStyle "HGCAD" "HGCAD.SHX" "HGCADHZ.SHX" "5" "0.75" "0" "N")
;●●● 创建图层 ●●●
;(HGCAD_MakeLayer "图层名称" "线型名称" "线型文件" "颜色" "线宽" "强制更新(Y/N)")
;Continuous不需要指定线型文件
(HGCAD_MakeLayer "粗实线" "Continuous" "" "2" "0.70" "N")
(HGCAD_MakeLayer "中粗线" "Continuous" "" "4" "0.35" "N")
(HGCAD_MakeLayer "细实线" "Continuous" "" "7" "0.18" "N")
(HGCAD_MakeLayer "中心线" "CENTER" "HGCAD.lin" "1" "0.18" "Y")
(HGCAD_MakeLayer "虚线" "DASHED" "HGCAD.lin" "6" "0.18" "Y")
(HGCAD_MakeLayer "双点划线" "DIVIDE" "HGCAD.lin" "3" "0.18" "Y")
(HGCAD_MakeLayer "文本" "Continuous" "HGCAD.lin" "7" "0.18" "N")
(HGCAD_MakeLayer "标注" "Continuous" "" "7" "0.18" "N")
(HGCAD_MakeLayer "剖面线" "Continuous" "" "7" "0.18" "N")
(HGCAD_MakeLayer "修订" "Continuous" "" "30" "0.18" "N")
;●●● 系统变量 ●●●
;环境
(setvar "ucsicon" 0) ;显示UCS坐标图标, 1 或 0
(setvar "lwdefault" 15) ;默认线宽(0、5、9、13、15、18、20、25、30、35、40、50、53、
;60、70、80、90、100、106、120、140、158、200、211)
(setvar "angdir" 1) ;正角度的方向(0=逆时针, 1=顺时针)
(cmdvar "angbase" 0) ;基准角度方向, 右:0,上270
(setvar "osmode" 16383) ;对象捕捉
(setvar "luprec" 1) ;设置线性单位和坐标的显示精度, 插件中数值转为文本保留小数位数
;极轴
(setvar "autosnap" 63) ;自动捕捉/磁吸及其工具栏提示。值为63时, orthomode应设置为0
(setvar "polarmode" 0) ;正交追踪0,全部角度极轴追踪2,附加角极轴追踪4
(cmdvar "polarang" 5) ;设置极轴角增量为 5
(setvar "polaraddang" "") ;设置极轴附加角增量
;正交
(setvar "orthomode" 0) ;正交模式开关, 为1时autosnap应设置为55
;标注
(cmdenv "dimlayer" "标注") ;标注图层
(setvar "dimdec" 1) ;标注长度尺寸的小数位数
(setvar "dimadec" 1) ;标注角度尺寸的小数位(-1表示依据 dimdec)
(setvar "dimtxt" 3.5) ;标注值文字高度
(setvar "dimtsz" 0) ;标注箭头样式：(0绘制箭头;>0绘制小斜线替代箭头)
(setvar "dimasz" 2.5) ;标注箭头大小
(setvar "dimexe" 1) ;尺寸界线超出尺寸线的距离
(setvar "dimexo" 1) ;尺寸界线偏移原点的距离
(setvar "dimgap" 1) ;文字偏移尺寸线的距离
(setvar "dimtfill" 1) ;标注文字背景(1=有, 0=无)
(setvar "dimupt" 0) ;手动放置标注文字
(cmdenv "dimclrv" 3) ;标注文本替代的文本颜色
;对象归层
(cmdenv "dimlayer" "标注") ;标注图层
(cmdenv "textlayer" "文本") ;文本图层
(cmdenv "revlayer" "修订") ;云线图层
(cmdenv "hatchlayer" "剖面线") ;剖面线图层
(cmdenv "contourlayer" "中粗线") ;轮廓线图层
;●●● 创建标注样式 ●●●
;(HGCAD_MakeDimStyle "标注样式名称", "文本样式名称" "强制更新(Y/N)")
(HGCAD_MakeDimStyle "HGCAD" "HGCAD" "N")
;●●● 图层切换命令 ●●●
;线型: 例如: ByBlock、ByLayer、Continuous、Center、Dashed、Divide、Dot
;颜色: ByLayer、ByBlock、整数(1~255)
;线宽: 固定数值: ByLayer、ByBlock、Default、0、0.05、0.09、0.13、0.15、0.18、0.20、0.25、0.30、0.35、
; 0.40、0.50、0.53、0.60、0.70、0.80、0.90、1.00、1.06、1.20、1.40、1.58、2.00、2.11
;执行命令: 图层切换后要执行的命令, 如果为星号(*)则更改选取对象, 为空则切换后不执行"执行命令"
;(defun C:命令()(OnekeyCMD "图层" "线型" "颜色" "线宽" "执行命令"))
(defun C:0()(HGCAD_OnekeyCMD "0" "ByLayer" "ByLayer" "ByLayer" "#"))
(defun C:1()(HGCAD_OnekeyCMD "中心线" "ByLayer" "ByLayer" "ByLayer" "#"))
(defun C:2()(HGCAD_OnekeyCMD "粗实线" "ByLayer" "ByLayer" "ByLayer" "#"))
(defun C:3()(HGCAD_OnekeyCMD "双点划线" "ByLayer" "ByLayer" "ByLayer" "#"))
(defun C:4()(HGCAD_OnekeyCMD "中粗线" "ByLayer" "ByLayer" "ByLayer" "#"))
(defun C:5()(HGCAD_OnekeyCMD "细实线" "ByLayer" "ByLayer" "ByLayer" "#"))
(defun C:6()(HGCAD_OnekeyCMD "虚线" "ByLayer" "ByLayer" "ByLayer" "#"))
(defun C:7()(HGCAD_OnekeyCMD "文本" "ByLayer" "ByLayer" "ByLayer" "#")) 字体设置中只设置宋体:
(HGCAD_MakeTextStyle "HGCAD" "宋体" "" "5" "0.75" "0" "Y")