明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 5667|回复: 4

[提问] 创建文本/标注样式源码

[复制链接]
发表于 2014-4-27 11:26:43 | 显示全部楼层 |阅读模式
本帖最后由 zhengxiansz 于 2014-4-27 11:27 编辑

GU_xl你好!
               请帮我看一下这个创建文本/标注样式源码。第一次输入IT1命令时没有报错的提示。如果重复输入IT1命令时就会提示该名称已被使用,是否重新定义?请问有什么方法可以解决吗?
               还有这个程序我增加控制保存为2004版本的环境变量值,研究了好久也没有找到是哪个变量值。
  (defun c:IT1()
  (prinC "标注样式")
  (setq cmd (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (setvar "OSMODE" 183)
  (command "LTSCALE" "6")
  (command "-style" "TP_Standard" "isocp.shx,gbcbig.shx" "" "1.0" "" "" "")
  (command "-style" "TsaiPress" "isocp.shx,gbcbig.shx" "" "0.9" "" "" "")
  (command "dimtxt"   "0.18"      "dimasz"     "0.1"    ;文字高度                        ;箭头大小
           "dimexe"   "0.05"      "dimexo"     "0.05"   ;尺寸界限超出长度                ;尺寸界限起点距离:0.5  
           "dimgap"   "0.05"      "dimtoh"     "off"    ;标注文字周围的距离              ;文字在尺寸界线外的位置:关   
           "dimtih"   "OFF"       "blipmode"   "0"      ;标注文字在尺寸界线内的位置:    ;关,点标记模式:关      
           "DIMDLI"   "0.05"      "DIMATFIT"   "3"      ;控制基线标注中尺寸线的间距:    ;当尺寸界线不足放下标注文字和箭头时,函数DIMATFIT确定位置
           "DIMTAD"   "0"         "DIMDEC"     "2"      ;控制文字相对尺寸线的垂直位置,  ;小数位数:2         
           "DIMJUST"  "0"         "DIMDSEP"    "."      ;控制标注文字的水平位置:0,     ;小数分隔符为 .  
           "DIMTOFL"  "0"         "dimtmove"   "0"      ;控制标注文字在尺寸界线外的位置:;关对齐,设置标注文字的移动规则:0 水平
           "dimcen"   "0"         "dimclrd"    "0"      ;标注圆心:不标,                ;为尺寸线、箭头和标注引线指定颜色:3
           "dimclre"  "0"         "DIMCLRT"    "11"     ;为尺寸界线指定颜色              ;为标注文字指定颜色
           "DIMBLK"   "_open30"   "DIMLDRBLK"  "_open30" ;箭头打开30                      ;箭头引线打开30
           "DIMSCALE"  "10"       "DIMTXSTY"  "TP_Standard"    ;全局比例                 ;文字样式
           "DIMSTYLE" "S" "TP_STANDARDx10"            
   )
  (command "dimtxt"   "0.18"      "dimasz"     "0.1"    ;文字高度                        ;箭头大小
           "dimexe"   "0.05"      "dimexo"     "0.05"   ;尺寸界限超出长度                ;尺寸界限起点距离:0.5  
           "dimgap"   "0.05"      "dimtoh"     "off"    ;标注文字周围的距离              ;文字在尺寸界线外的位置:关   
           "dimtih"   "OFF"       "blipmode"   "0"      ;标注文字在尺寸界线内的位置:    ;关,点标记模式:关      
           "DIMDLI"   "0.05"      "DIMATFIT"   "3"      ;控制基线标注中尺寸线的间距:    ;当尺寸界线不足放下标注文字和箭头时,函数DIMATFIT确定位置
           "DIMTAD"   "0"         "DIMDEC"     "2"      ;控制文字相对尺寸线的垂直位置,  ;小数位数:2         
           "DIMJUST"  "0"         "DIMDSEP"    "."      ;控制标注文字的水平位置:0,     ;小数分隔符为 .  
           "DIMTOFL"  "0"         "dimtmove"   "0"      ;控制标注文字在尺寸界线外的位置:;关对齐,设置标注文字的移动规则:0 水平
           "dimcen"   "0"         "dimclrd"    "0"      ;标注圆心:不标,                ;为尺寸线、箭头和标注引线指定颜色:3
           "dimclre"  "0"         "DIMCLRT"    "11"     ;为尺寸界线指定颜色              ;为标注文字指定颜色
           "DIMBLK"   "_open30"   "DIMLDRBLK"  "_open30" ;箭头打开30                      ;箭头引线打开30
           "DIMSCALE"  "15"       "DIMTXSTY"  "TP_Standard"    ;全局比例                 ;文字样式
           "DIMSTYLE" "S" "TP_STANDARDx15"            
   )
  (command "dimtxt"   "0.18"      "dimasz"     "0.1"    ;文字高度                        ;箭头大小
           "dimexe"   "0.05"      "dimexo"     "0.05"   ;尺寸界限超出长度                ;尺寸界限起点距离:0.5  
           "dimgap"   "0.05"      "dimtoh"     "off"    ;标注文字周围的距离              ;文字在尺寸界线外的位置:关   
           "dimtih"   "OFF"       "blipmode"   "0"      ;标注文字在尺寸界线内的位置:    ;关,点标记模式:关      
           "DIMDLI"   "0.05"      "DIMATFIT"   "3"      ;控制基线标注中尺寸线的间距:    ;当尺寸界线不足放下标注文字和箭头时,函数DIMATFIT确定位置
           "DIMTAD"   "0"         "DIMDEC"     "2"      ;控制文字相对尺寸线的垂直位置,  ;小数位数:2         
           "DIMJUST"  "0"         "DIMDSEP"    "."      ;控制标注文字的水平位置:0,     ;小数分隔符为 .  
           "DIMTOFL"  "0"         "dimtmove"   "0"      ;控制标注文字在尺寸界线外的位置:;关对齐,设置标注文字的移动规则:0 水平
           "dimcen"   "0"         "dimclrd"    "0"      ;标注圆心:不标,                ;为尺寸线、箭头和标注引线指定颜色:3
           "dimclre"  "0"         "DIMCLRT"    "11"     ;为尺寸界线指定颜色              ;为标注文字指定颜色
           "DIMBLK"   "_open30"   "DIMLDRBLK"  "_open30" ;箭头打开30                      ;箭头引线打开30
           "DIMSCALE"  "20"       "DIMTXSTY"  "TP_Standard"    ;全局比例                 ;文字样式
           "DIMSTYLE" "S" "TP_STANDARDx20"            
   )
  (command "dimtxt"   "0.18"      "dimasz"     "0.1"    ;文字高度                        ;箭头大小
           "dimexe"   "0.05"      "dimexo"     "0.05"   ;尺寸界限超出长度                ;尺寸界限起点距离:0.5  
           "dimgap"   "0.05"      "dimtoh"     "off"    ;标注文字周围的距离              ;文字在尺寸界线外的位置:关   
           "dimtih"   "OFF"       "blipmode"   "0"      ;标注文字在尺寸界线内的位置:    ;关,点标记模式:关      
           "DIMDLI"   "0.05"      "DIMATFIT"   "3"      ;控制基线标注中尺寸线的间距:    ;当尺寸界线不足放下标注文字和箭头时,函数DIMATFIT确定位置
           "DIMTAD"   "0"         "DIMDEC"     "2"      ;控制文字相对尺寸线的垂直位置,  ;小数位数:2         
           "DIMJUST"  "0"         "DIMDSEP"    "."      ;控制标注文字的水平位置:0,     ;小数分隔符为 .  
           "DIMTOFL"  "0"         "dimtmove"   "0"      ;控制标注文字在尺寸界线外的位置:;关对齐,设置标注文字的移动规则:0 水平
           "dimcen"   "0"         "dimclrd"    "0"      ;标注圆心:不标,                ;为尺寸线、箭头和标注引线指定颜色:3
           "dimclre"  "0"         "DIMCLRT"    "11"     ;为尺寸界线指定颜色              ;为标注文字指定颜色
           "DIMBLK"   "_open30"   "DIMLDRBLK"  "_open30" ;箭头打开30                      ;箭头引线打开30
           "DIMSCALE"  "25"       "DIMTXSTY"  "TP_Standard"    ;全局比例                 ;文字样式
           "DIMSTYLE" "S" "TP_STANDARDx25"            
    )
       (setvar "CURSORSIZE" 100)             ;将屏幕十字光标的大小设为100%
       (setvar "ACADLSPASDOC" 1)             ;将 acad.lsp 载入到每一个打开的图形中
       (setvar "ANGDIR" 1)                   ;设置正角度的方向为顺时针
       (setvar "AUNITS" 0)                   ;设置角度单位为十进位度数
       (setvar "CMLSCALE" 20.0000)           ;设线宽为公制
       (COMMAND "dimdec" "2" )               ;设尺寸小数为二位
       (setvar "DIMADEC" 2)                  ;设角度标注的精度为2位小数
       (setvar "GRIDMODE" 0)                 ;关闭栅格
       (setvar "LTSCALE" 1.0000)             ;设置全局线型比例为1.0000
       (setvar "LUNITS" 2)                   ;设置线性单位为小数
       (setvar "LWDISPLAY" 1)                ;显示线宽
       (setvar "LWDEFAULT" 25)               ;设置默认线宽的值为25
       (setvar "LWUNITS" 1)                  ;设线宽单位以毫米显示
       (setvar "MEASUREINIT" 1)              ;设置初始图形单位为公制
       (setvar "PSLTSCALE" 1)                ;设图纸空间的线型比例为1:1
       (setvar "SNAPMODE" 0)                 ;关闭"捕捉"方式
       (setvar "TOOLTIPS" 1)                 ;显示工具栏提示
       (setvar "TRACEWID" 0.3)               ;设置宽线的默认宽度为0.3MM
       (setvar "TRAYICONS" 1)                ;控制是否在状态栏上显示系统托盘
       (setvar "TRAYNOTIFY" 1)               ;控制是否在状态栏系统托盘上显示服务通知
       (setvar "ISAVEBAK" 0)                 ;控制备份文件 (BAK) 的创建。    1,创建    0,不创建
       (setvar "APERTURE" 25)                ;以像素为单位设置靶框显示尺寸。靶框是绘图命令中使用的选择工具。初始值:10
       (setvar "PICKBOX" 15)                 ;控制拾取框大小
       (setvar "savetime" 0)                 ;控制自动保存。
       (setvar "ACISOUT" 16)                 ;控制保存的版本
       (setvar "qaflags" 0)                  ;取消选择先后顺序
       (COMMAND  "OSMODE"  "439" )           ;常用捕捉打开
       (COMMAND "dimtol" "0")                ;去掉“±0.00”符号
(princ))


本帖被以下淘专辑推荐:

发表于 2014-4-27 14:52:09 | 显示全部楼层
设置默认保存格式2004
  1. (setenv "DefaultFormatForSave" "24")
 楼主| 发表于 2014-4-28 07:56:08 | 显示全部楼层
edata 发表于 2014-4-27 14:52
设置默认保存格式2004

谢谢!我按照你的方法设置成功了。
发表于 2021-9-12 13:24:49 | 显示全部楼层
好东西!收藏学习了
发表于 2022-3-25 09:51:14 | 显示全部楼层
顶起顶起,谢谢大神的分享:D
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-11-15 01:54 , Processed in 0.239638 second(s), 27 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表