(defun c:tt()
(entmake ;创建标注样式
(list
'(0 . "DIMSTYLE")
'(100 . "AcDbSymbolTableRecord")
'(100 . "AcDbDimStyleTableRecord")
'(2 . "放样标注"); 标注样式名
'(176 . 256) ;线-尺寸线-颜色:256=ByLayer,0=ByBlock,1=红色……
(cons 345 (tblobjname "LTYPE" "Bylayer")) ;线-尺寸线-线型=Bylayer,ByBlock=此项消失…
'(371 . 9) ;线-尺寸线-线宽:ByLayer=-1,ByBlock=此项消失,25=0.25mm…
'(46 . 0) ;线-尺寸线-超出标记 的距离
'(43 . 1) ;线-尺寸线-基线间距
'(281 . 0) ;线-尺寸线-隐藏:尺寸线1,0=显示,1=隐藏
'(282 . 0) ;线-尺寸线-隐藏:尺寸线2,0=显示,1=隐藏
'(177 . 0) ;线-延申线-颜色:256=ByLayer,0=ByBlock,1=红色……
(cons 346 (tblobjname "LTYPE" "Bylayer")) ;线-延伸线-线型1=Bylayer,ByBlock=此项消失…
(cons 347 (tblobjname "LTYPE" "Bylayer")) ;线-延伸线-线型1=Bylayer,ByBlock=此项消失…
'(372 . 9) ;线-延申线-线宽:ByLayer=-1,ByBlock=此项消失,25=0.25mm…
'(44 . 0) ;线-延申线-超出尺寸线 的距离
'(42 . 0) ;线-延申线-起点偏移量,标注点到延伸线的距离
'(75 . 0) ;线-延申线-隐藏:延伸线1,0=显示,1=隐藏
'(76 . 0) ;线-延申线-隐藏:延伸线2,0=显示,1=隐藏
'(290 . 0) ;线-延申线-固定长度的延伸线,0=不勾选,1=勾选此项
'(49 . 0) ;线-延申线-固定长度的延伸线-长度
'(5 . "ArchTick") ;符号和箭头-箭头-第一个,建筑标记="ArchTick",空心闭合="ClosedBlank",实心圆点="Dot"
'(41 . 0) ;符号和箭头-箭头-箭头大小
'(141 . 0) ;符号和箭头-圆心标记,0=无,正数=标记,负数=直线
;'(90 . 0) ;符号和箭头-弧长符号:标注文字的上方=1,无=2,标注文字的前缀=此项消失
(cons 340 (tblobjname "style" "standard")) ;文字-文字外观-文字样式
'(178 . 256) ;文字-文字外观-文字颜色,256=ByLayer,0=ByBlock,7=白色……
'(69 . 0) ;文字-文字外观-填充颜色类型,0=不填充,1=背景色,2=使用颜色编号
'(70 . 0) ;文字-文字外观-填充颜色,256=ByLayer,0=ByBlock,1红2黄……使用颜色编号时;;;;;;;;;;;;;;;;;;;此项必备
'(140 . 150) ;文字-文字外观-文字高度
'(77 . 0) ;文字-文字位置-垂直:1=上,0=居中,4=下……
'(280 . 0) ;文字-文字位置-水平:0=居中,1=第一条延伸线……
'(147 . 20) ;文字-文字位置-从尺寸线偏移,填入负数时,“绘制文字边框”项会被勾选
'(73 . 0) ;文字-文字对齐:水平=1,与尺寸线对齐=0,ISO标准=0
'(74 . 0) ;文字-文字对齐:水平=1,与尺寸线对齐=0,ISO标准=1
'(174 . 0) ;调整-调整选项:文字始终在延伸线之间=1,文字=0,箭头=0,文字和箭头=0,文字或箭头=0
'(289 . 2) ;调整-调整选项:文字始终在延伸线之间=2,文字=2,箭头=1,文字和箭头=0,文字或箭头=此项消失
'(175 . 0) ;调整-调整选项-若箭头不能放在延伸线内则将其消除,不勾选=0,勾选=1
'(279 . 2) ;调整-文字位置:尺寸线上方不带引线=2,尺寸线上方带引线=1,尺寸线旁边=0
'(40 . 1) ;调整-标注特征比例:将标注缩放到布局=0,使用全局比例>0,
'(288 . 0) ;调整-优化:手动放置文字,不勾选=0,勾选=1
'(172 . 1) ;调整-优化:在延伸线之间绘制尺寸线,不勾选=0,勾选=1
'(270 . 2) ;主单位-线性标注-单位格式:科学=1,小数=2,工程=3……
'(271 . 4) ;主单位-线性标注-精度:0=0,0.0=1,0.00=2…
'(271 . 4) ;主单位-线性标注-精度:0=0,0.0=1,0.00=2…(不是我重复,组码表就是列出了2个)
'(272 . 4) ;主单位-线性标注-精度:0=0,0.0=1,0.00=2…
'(144 . 1) ;主单位-线性标注-测量单位比例
'(78 . 8) ;主单位-线性标注-消零:后续,勾选=8
'(275 . 0) ;主单位-角度标注-单位格式:十进制=0
'(179 . 2) ;主单位-角度标注-精度:0=0,0.0=1,0.00=2…
'(79 . 2) ;主单位-角度标注-消零:后续,勾选=2
)
)
)
(entmake
(list
'(0 . "DIMSTYLE")
'(100 . "AcDbSymbolTableRecord")
'(100 . "AcDbDimStyleTableRecord")
'(2 . "放样标注")
'(70 . 0);;文字-文字外观-填充颜色,256=ByLayer,0=ByBlock,1红2黄……使用颜色编号时;;此项必备
'(41 . 0.0);;符号和箭头-箭头-箭头大小
'(42 . 0.0);;线-延申线-起点偏移量,标注点到延伸线的距离
'(43 . 1.0);;线-尺寸线-基线间距
'(44 . 0.0);;线-延申线-超出尺寸线的距离
'(49 . 0.0);;线-延申线-固定长度的延伸线-长度
'(73 . 0);;文字-文字对齐:水平=1,与尺寸线对齐=0,ISO标准=0
'(74 . 0);;文字-文字对齐:水平=1,与尺寸线对齐=0,ISO标准=1
'(78 . 8);;主单位-线性标注-消零:后续,勾选=8
'(79 . 2);;主单位-角度标注-消零:后续,勾选=2
'(140 . 150.0);;文字-文字外观-文字高度
'(141 . 0.0);;符号和箭头-圆心标记,0=无,正数=标记,负数=直线
'(147 . 20.0);;文字-文字位置-从尺寸线偏移,填入负数时,“绘制文字边框”项会被勾选
'(172 . 1);;调整-优化:在延伸线之间绘制尺寸线,不勾选=0,勾选=1
'(176 . 256);;线-尺寸线-颜色:256=ByLayer,0=ByBlock,1=红色……
'(178 . 256);;文字-文字外观-文字颜色,256=ByLayer,0=ByBlock,7=白色……
'(179 . 2);;主单位-角度标注-精度:0=0,0.0=1,0.00=2…
'(279 . 2);;调整-文字位置:尺寸线上方不带引线=2,尺寸线上方带引线=1,尺寸线旁边=0
'(289 . 2);;调整-调整选项:文字始终在延伸线之间=2,文字=2,箭头=1,文字和箭头=0,文字或箭头=此项消失
(cons 340 (tblobjname "style" "standard"));;文字-文字外观-文字样式
'(371 . 9);;线-尺寸线-线宽:ByLayer=-1,ByBlock=此项消失,25=0.25mm…
'(372 . 9);;线-延申线-线宽:ByLayer=-1,ByBlock=此项消失,25=0.25mm…
(cons 345 (tblobjname "LTYPE" "Bylayer"));;线-尺寸线-线型=Bylayer,ByBlock=此项消失…
(cons 346 (tblobjname "LTYPE" "Bylayer"));线-延伸线-线型1=Bylayer,ByBlock=此项消失…
(cons 347 (tblobjname "LTYPE" "Bylayer"));;线-延伸线-线型1=Bylayer,ByBlock=此项消失…
)
)