1. (defun c:tt()
    2. (entmake ;创建标注样式
    3. (list
    4. '(0 . "DIMSTYLE")
    5. '(100 . "AcDbSymbolTableRecord")
    6. '(100 . "AcDbDimStyleTableRecord")
    7. '(2 . "放样标注"); 标注样式名
    8. '(176 . 256) ;线-尺寸线-颜色:256=ByLayer,0=ByBlock,1=红色……
    9. (cons 345 (tblobjname "LTYPE" "Bylayer")) ;线-尺寸线-线型=Bylayer,ByBlock=此项消失…
    10. '(371 . 9) ;线-尺寸线-线宽:ByLayer=-1ByBlock=此项消失,25=0.25mm
    11. '(46 . 0) ;线-尺寸线-超出标记 的距离
    12. '(43 . 1) ;线-尺寸线-基线间距
    13. '(281 . 0) ;线-尺寸线-隐藏:尺寸线1,0=显示,1=隐藏
    14. '(282 . 0) ;线-尺寸线-隐藏:尺寸线20=显示,1=隐藏
    15. '(177 . 0) ;线-延申线-颜色:256=ByLayer,0=ByBlock,1=红色……
    16. (cons 346 (tblobjname "LTYPE" "Bylayer")) ;线-延伸线-线型1=Bylayer,ByBlock=此项消失…
    17. (cons 347 (tblobjname "LTYPE" "Bylayer")) ;线-延伸线-线型1=Bylayer,ByBlock=此项消失…
    18. '(372 . 9) ;线-延申线-线宽:ByLayer=-1ByBlock=此项消失,25=0.25mm
    19. '(44 . 0) ;线-延申线-超出尺寸线 的距离
    20. '(42 . 0) ;线-延申线-起点偏移量,标注点到延伸线的距离
    21. '(75 . 0) ;线-延申线-隐藏:延伸线1,0=显示,1=隐藏
    22. '(76 . 0) ;线-延申线-隐藏:延伸线2,0=显示,1=隐藏
    23. '(290 . 0) ;线-延申线-固定长度的延伸线,0=不勾选,1=勾选此项
    24. '(49 . 0) ;线-延申线-固定长度的延伸线-长度
    25. '(5 . "ArchTick") ;符号和箭头-箭头-第一个,建筑标记="ArchTick",空心闭合="ClosedBlank",实心圆点="Dot"
    26. '(41 . 0) ;符号和箭头-箭头-箭头大小
    27. '(141 . 0) ;符号和箭头-圆心标记,0=无,正数=标记,负数=直线
    28. ;'(90 . 0) ;符号和箭头-弧长符号:标注文字的上方=1,无=2,标注文字的前缀=此项消失
    29. (cons 340 (tblobjname "style" "standard")) ;文字-文字外观-文字样式
    30. '(178 . 256) ;文字-文字外观-文字颜色,256=ByLayer,0=ByBlock,7=白色……
    31. '(69 . 0) ;文字-文字外观-填充颜色类型,0=不填充,1=背景色,2=使用颜色编号
    32. '(70 . 0) ;文字-文字外观-填充颜色,256=ByLayer,0=ByBlock,1红2黄……使用颜色编号时;;;;;;;;;;;;;;;;;;;此项必备
    33. '(140 . 150) ;文字-文字外观-文字高度
    34. '(77 . 0) ;文字-文字位置-垂直:1=上,0=居中,4=下……
    35. '(280 . 0) ;文字-文字位置-水平:0=居中,1=第一条延伸线……
    36. '(147 . 20) ;文字-文字位置-从尺寸线偏移,填入负数时,“绘制文字边框”项会被勾选
    37. '(73 . 0) ;文字-文字对齐:水平=1,与尺寸线对齐=0ISO标准=0
    38. '(74 . 0) ;文字-文字对齐:水平=1,与尺寸线对齐=0,ISO标准=1
    39. '(174 . 0) ;调整-调整选项:文字始终在延伸线之间=1,文字=0,箭头=0,文字和箭头=0,文字或箭头=0
    40. '(289 . 2) ;调整-调整选项:文字始终在延伸线之间=2,文字=2,箭头=1,文字和箭头=0,文字或箭头=此项消失
    41. '(175 . 0) ;调整-调整选项-若箭头不能放在延伸线内则将其消除,不勾选=0,勾选=1
    42. '(279 . 2) ;调整-文字位置:尺寸线上方不带引线=2,尺寸线上方带引线=1,尺寸线旁边=0
    43. '(40 . 1) ;调整-标注特征比例:将标注缩放到布局=0,使用全局比例>0
    44. '(288 . 0) ;调整-优化:手动放置文字,不勾选=0,勾选=1
    45. '(172 . 1) ;调整-优化:在延伸线之间绘制尺寸线,不勾选=0,勾选=1
    46. '(270 . 2) ;主单位-线性标注-单位格式:科学=1,小数=2,工程=3……
    47. '(271 . 4) ;主单位-线性标注-精度:0=00.0=10.00=2
    48. '(271 . 4) ;主单位-线性标注-精度:0=0,0.0=1,0.00=2…(不是我重复,组码表就是列出了2个)
    49. '(272 . 4) ;主单位-线性标注-精度:0=00.0=10.00=2
    50. '(144 . 1) ;主单位-线性标注-测量单位比例
    51. '(78 . 8) ;主单位-线性标注-消零:后续,勾选=8
    52. '(275 . 0) ;主单位-角度标注-单位格式:十进制=0
    53. '(179 . 2) ;主单位-角度标注-精度:0=00.0=10.00=2
    54. '(79 . 2) ;主单位-角度标注-消零:后续,勾选=2
    55. )
    56. )
    57. )
    58. (entmake
    59. (list
    60. '(0 . "DIMSTYLE")
    61. '(100 . "AcDbSymbolTableRecord")
    62. '(100 . "AcDbDimStyleTableRecord")
    63. '(2 . "放样标注")
    64. '(70 . 0);;文字-文字外观-填充颜色,256=ByLayer0=ByBlock12黄……使用颜色编号时;;此项必备
    65. '(41 . 0.0);;符号和箭头-箭头-箭头大小
    66. '(42 . 0.0);;线-延申线-起点偏移量,标注点到延伸线的距离
    67. '(43 . 1.0);;线-尺寸线-基线间距
    68. '(44 . 0.0);;线-延申线-超出尺寸线的距离
    69. '(49 . 0.0);;线-延申线-固定长度的延伸线-长度
    70. '(73 . 0);;文字-文字对齐:水平=1,与尺寸线对齐=0ISO标准=0
    71. '(74 . 0);;文字-文字对齐:水平=1,与尺寸线对齐=0,ISO标准=1
    72. '(78 . 8);;主单位-线性标注-消零:后续,勾选=8
    73. '(79 . 2);;主单位-角度标注-消零:后续,勾选=2
    74. '(140 . 150.0);;文字-文字外观-文字高度
    75. '(141 . 0.0);;符号和箭头-圆心标记,0=无,正数=标记,负数=直线
    76. '(147 . 20.0);;文字-文字位置-从尺寸线偏移,填入负数时,“绘制文字边框”项会被勾选
    77. '(172 . 1);;调整-优化:在延伸线之间绘制尺寸线,不勾选=0,勾选=1
    78. '(176 . 256);;线-尺寸线-颜色:256=ByLayer0=ByBlock1=红色……
    79. '(178 . 256);;文字-文字外观-文字颜色,256=ByLayer,0=ByBlock,7=白色……
    80. '(179 . 2);;主单位-角度标注-精度:0=00.0=10.00=2
    81. '(279 . 2);;调整-文字位置:尺寸线上方不带引线=2,尺寸线上方带引线=1,尺寸线旁边=0
    82. '(289 . 2);;调整-调整选项:文字始终在延伸线之间=2,文字=2,箭头=1,文字和箭头=0,文字或箭头=此项消失
    83. (cons 340 (tblobjname "style" "standard"));;文字-文字外观-文字样式
    84. '(371 . 9);;线-尺寸线-线宽:ByLayer=-1,ByBlock=此项消失,25=0.25mm…
    85. '(372 . 9);;线-延申线-线宽:ByLayer=-1ByBlock=此项消失,25=0.25mm
    86. (cons 345 (tblobjname "LTYPE" "Bylayer"));;线-尺寸线-线型=BylayerByBlock=此项消失…
    87. (cons 346 (tblobjname "LTYPE" "Bylayer"));线-延伸线-线型1=BylayerByBlock=此项消失…
    88. (cons 347 (tblobjname "LTYPE" "Bylayer"));;线-延伸线-线型1=BylayerByBlock=此项消失…
    89. )
    90. )