entmake 创建标注样式

jt133

来明经学习好久了，发个学习贴也是处女贴。
依据大佬aws的“标注样式箭头的创建”这个贴
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=191018&highlight=%B1%EA%D7%A2%D1%F9%CA%BD
为蓝本，根据自己的需求来增减。感谢aws大佬，感谢明经的丰富宝藏。

2. (defun c:BZ(/ zg  jt)
   
3.   (vl-load-com)
   
4.   (setvar "cmdecho" 0)
   
5.   (setq zg (getdist "\n输入标注文字高度:"))
   
6.   (setq jt (* zg 0.8))
   
7.   (entmake (list
   
8.     '(0 . "STYLE")
   
9.     '(100 . "AcDbSymbolTableRecord")
   
10.     '(100 . "AcDbTextStyleTableRecord")
    
11.     '(2 . "标注")
    
12.     '(70 . 0)
    
13.     '(40 . 0)   
    
14.     '(41 . 0.8)
    
15.     '(50 . 0.0)
    
16.     '(71 . 0)
    
17.     '(42 . 2.5)
    
18.     '(3 . "txt.shx")
    
19.     '(4 . "gbcbig.shx")
    
20.       )
    
21.     )
    
22.   ;http://bbs.mjtd.com/forum.php?mod=viewthread&tid=191018&highlight=%B1%EA%D7%A2%D1%F9%CA%BD
    
23.   ;aws  标注样式箭头的创建
    
24.    (entmake
    
25.     (list
    
26.       '(0 . "DIMSTYLE")
    
27.       '(100 . "AcDbSymbolTableRecord")
    
28.       '(100 . "AcDbDimStyleTableRecord")
    
29.       (cons 2 "我的标注");标注样式名
    
30.       '(176 . 1);尺寸线颜色
    
31.       '(46  . 1);超出标记
    
32.       '(43  . 5);基线间距
    
33.       '(281 . 0);线-尺寸线-隐藏：尺寸线1，0=显示，1=隐藏
    
34.       '(282 . 0);线-尺寸线-隐藏：尺寸线2，0=显示，1=隐藏
    
35.       '(177 . 1);尺寸界线颜色，界线
    
36.       '(44  . 1);超出尺寸线
    
37.       '(42  . 0);起点偏移量
    
38.       '(75  . 0);线-延申线-隐藏：延伸线1,0=显示，1=隐藏
    
39.       '(76  . 0);线-延申线-隐藏：延伸线2,0=显示，1=隐藏
    
40.       '(290 . 0);固定长度的延伸线，0=不勾选，1=勾选此项
    
41.       '(49  . 1);固定长度的延伸线-长度
    
42.       '(5 . ".");符号和箭头-箭头-第一个，建筑标记="ArchTick"，空心闭合="ClosedBlank"，实心圆点="Dot"
    
43.       (cons 41 jt);符号和箭头-箭头-箭头大小
    
44.      ;'(41 . 15);符号和箭头-箭头-箭头大小
    
45.       '(141 . 2.5);符号和箭头-圆心标记，0=无，正数=标记，负数=直线
    
46.       (cons 340(tblobjname "style" "标注"));文字-文字外观-文字样式
    
47.       ;(cons 340(tblobjname "style" "Standard"));文字-文字外观-文字样式
    
48.       '(178 . 256);文字-文字外观-文字颜色，256=ByLayer，0=ByBlock，7=白色……
    
49.       '(69  . 0);文字-文字外观-填充颜色类型，0=不填充，1=背景色，2=使用颜色编号
    
50.       '(70  . 0);文字-文字外观-填充颜色，256=ByLayer，0=ByBlock，1红2黄……使用颜色编号时此项必备
    
51.        (cons 140  zg);文字-文字外观-文字高度
    
52.       ;'(140 . 16);文字-文字外观-文字高度
    
53.       '(77  . 0);文字-文字位置-垂直：1=上，0=居中，4=下……
    
54.       '(280 . 0);文字-文字位置-水平：0=居中，1=第一条延伸线……
    
55.       '(147 . 2);文字-文字位置-从尺寸线偏移，填入负数时，“绘制文字边框”项会被勾选
    
56.       '(73  . 0);文字-文字对齐：水平=1，与尺寸线对齐=0，ISO标准=0
    
57.       '(74  . 0);文字-文字对齐：水平=1，与尺寸线对齐=0，ISO标准=1
    
58.       '(174 . 0);调整-调整选项：文字始终在延伸线之间=1，文字=0，箭头=0，文字和箭头=0，文字或箭头=0
    
59.       '(289 . 0);调整-调整选项：文字始终在延伸线之间=2，文字=2，箭头=1，文字和箭头=0，文字或箭头=此项消失
    
60.       '(175 . 0);调整-调整选项-若箭头不能放在延伸线内则将其消除，不勾选=0，勾选=1
    
61.       '(279 . 0);调整-文字位置：尺寸线上方不带引线=2，尺寸线上方带引线=1，尺寸线旁边=0
    
62.       '(40  . 0);调整-标注特征比例：将标注缩放到布局=0，使用全局比例>0，
    
63.       '(288 . 0);调整-优化：手动放置文字，不勾选=0，勾选=1
    
64.       '(172 . 0);调整-优化：在延伸线之间绘制尺寸线，不勾选=0，勾选=1
    
65.       '(270 . 2);主单位-线性标注-单位格式：科学=1，小数=2，工程=3……
    
66.       '(271 . 2);主单位-线性标注-精度：0=0，0.0=1，0.00=2…
    
67.       '(271 . 2);主单位-线性标注-精度：0=0，0.0=1，0.00=2…(不是我重复，组码表就是列出了2个)
    
68.       '(272 . 2);主单位-线性标注-精度：0=0，0.0=1，0.00=2…
    
69.       '(144 . 1);主单位-线性标注-测量单位比例
    
70.       '(78  . 8);主单位-线性标注-消零：后续，勾选=8
    
71.       '(275 . 0);主单位-角度标注-单位格式：十进制=0
    
72.       '(79  . 2);主单位-角度标注-消零：后续，勾选=2
    
73.     )
    
74.   )
    
75.   (vl-cmdf "_.dimstyle" "r" "我的标注");将标注样式置为当前
    
76.   (setvar "DIMSAH" 0);控制尺寸线箭头块的显示。0表示使用由 DIMBLK 系统变量设置的箭头块，1表示使用由 DIMBLK1 和 DIMBLK2 系统变量设置的箭头块
    
77.   (setvar "DIMBLK" ".");实心箭头
    
78.   (setvar 'dimtxt zg)
    
79.   (setvar 'dimasz jt)
    
80.   (vl-cmdf "_.dimstyle" "s" "我的标注" "y");另存为
    
81.   (setvar "cmdecho" 1)
    
82.   (princ "\n★标注创建完毕！")
    
83.   (princ)
    
84. )

(defun c:BZ(/ zg  jt)<br />   (vl-load-com)<br />   (setvar "cmdecho" 0)<br />   (setq zg (getdist "\n输入标注文字高度:"))<br />   (setq jt (* zg 0.8))<br />   (entmake (list<br />     '(0 . "STYLE")<br />     '(100 . "AcDbSymbolTableRecord")<br />     '(100 . "AcDbTextStyleTableRecord")<br />     '(2 . "标注")<br />     '(70 . 0)<br />     '(40 . 0)   <br />     '(41 . 0.8) <br />     '(50 . 0.0)<br />     '(71 . 0)<br />     '(42 . 2.5)<br />     '(3 . "txt.shx") <br />     '(4 . "gbcbig.shx")<br />       )<br />     )<br />   ;http://bbs.mjtd.com/forum.php?mod=viewthread&tid=191018&highlight=%B1%EA%D7%A2%D1%F9%CA%BD<br />   ;aws  标注样式箭头的创建<br />    (entmake<br />     (list <br />       '(0 . "DIMSTYLE")<br />       '(100 . "AcDbSymbolTableRecord")<br />       '(100 . "AcDbDimStyleTableRecord")<br />       (cons 2 "我的标注");标注样式名<br />       '(176 . 1);尺寸线颜色<br />       '(46  . 1);超出标记<br />       '(43  . 5);基线间距<br />       '(281 . 0);线-尺寸线-隐藏：尺寸线1，0=显示，1=隐藏<br />       '(282 . 0);线-尺寸线-隐藏：尺寸线2，0=显示，1=隐藏<br />       '(177 . 1);尺寸界线颜色，界线<br />       '(44  . 1);超出尺寸线<br />       '(42  . 0);起点偏移量<br />       '(75  . 0);线-延申线-隐藏：延伸线1,0=显示，1=隐藏<br />       '(76  . 0);线-延申线-隐藏：延伸线2,0=显示，1=隐藏<br />       '(290 . 0);固定长度的延伸线，0=不勾选，1=勾选此项<br />       '(49  . 1);固定长度的延伸线-长度<br />       '(5 . ".");符号和箭头-箭头-第一个，建筑标记="ArchTick"，空心闭合="ClosedBlank"，实心圆点="Dot"<br />       (cons 41 jt);符号和箭头-箭头-箭头大小<br />      ;'(41 . 15);符号和箭头-箭头-箭头大小<br />       '(141 . 2.5);符号和箭头-圆心标记，0=无，正数=标记，负数=直线<br />       (cons 340(tblobjname "style" "标注"));文字-文字外观-文字样式<br />       ;(cons 340(tblobjname "style" "Standard"));文字-文字外观-文字样式<br />       '(178 . 256);文字-文字外观-文字颜色，256=ByLayer，0=ByBlock，7=白色……<br />       '(69  . 0);文字-文字外观-填充颜色类型，0=不填充，1=背景色，2=使用颜色编号<br />       '(70  . 0);文字-文字外观-填充颜色，256=ByLayer，0=ByBlock，1红2黄……使用颜色编号时此项必备<br />        (cons 140  zg);文字-文字外观-文字高度<br />       ;'(140 . 16);文字-文字外观-文字高度<br />       '(77  . 0);文字-文字位置-垂直：1=上，0=居中，4=下……<br />       '(280 . 0);文字-文字位置-水平：0=居中，1=第一条延伸线……<br />       '(147 . 2);文字-文字位置-从尺寸线偏移，填入负数时，“绘制文字边框”项会被勾选<br />       '(73  . 0);文字-文字对齐：水平=1，与尺寸线对齐=0，ISO标准=0<br />       '(74  . 0);文字-文字对齐：水平=1，与尺寸线对齐=0，ISO标准=1<br />       '(174 . 0);调整-调整选项：文字始终在延伸线之间=1，文字=0，箭头=0，文字和箭头=0，文字或箭头=0<br />       '(289 . 0);调整-调整选项：文字始终在延伸线之间=2，文字=2，箭头=1，文字和箭头=0，文字或箭头=此项消失<br />       '(175 . 0);调整-调整选项-若箭头不能放在延伸线内则将其消除，不勾选=0，勾选=1<br />       '(279 . 0);调整-文字位置：尺寸线上方不带引线=2，尺寸线上方带引线=1，尺寸线旁边=0<br />       '(40  . 0);调整-标注特征比例：将标注缩放到布局=0，使用全局比例>0，<br />       '(288 . 0);调整-优化：手动放置文字，不勾选=0，勾选=1<br />       '(172 . 0);调整-优化：在延伸线之间绘制尺寸线，不勾选=0，勾选=1<br />       '(270 . 2);主单位-线性标注-单位格式：科学=1，小数=2，工程=3……<br />       '(271 . 2);主单位-线性标注-精度：0=0，0.0=1，0.00=2…<br />       '(271 . 2);主单位-线性标注-精度：0=0，0.0=1，0.00=2…(不是我重复，组码表就是列出了2个)<br />       '(272 . 2);主单位-线性标注-精度：0=0，0.0=1，0.00=2…<br />       '(144 . 1);主单位-线性标注-测量单位比例<br />       '(78  . 8);主单位-线性标注-消零：后续，勾选=8<br />       '(275 . 0);主单位-角度标注-单位格式：十进制=0<br />       '(79  . 2);主单位-角度标注-消零：后续，勾选=2<br />     )<br />   )<br />   (vl-cmdf "_.dimstyle" "r" "我的标注");将标注样式置为当前<br />   (setvar "DIMSAH" 0);控制尺寸线箭头块的显示。0表示使用由 DIMBLK 系统变量设置的箭头块，1表示使用由 DIMBLK1 和 DIMBLK2 系统变量设置的箭头块<br />   (setvar "DIMBLK" ".");实心箭头<br />   (setvar 'dimtxt zg)<br />   (setvar 'dimasz jt)<br />   (vl-cmdf "_.dimstyle" "s" "我的标注" "y");另存为<br />   (setvar "cmdecho" 1)<br />   (princ "\n★标注创建完毕！")<br />   (princ)<br /> )

paulpipi

感谢分享，标注文字改成宋体怎么改

jt133

paulpipi 发表于 2024-11-18 23:24
感谢分享，标注文字改成宋体怎么改

只须在这段上改就行了，就是组码3改为宋体，4是大字体就用不到了

1.   (entmake (list
   
2.     '(0 . "STYLE");文字样式
   
3.     '(100 . "AcDbSymbolTableRecord")
   
4.     '(100 . "AcDbTextStyleTableRecord")
   
5.     '(2 . "标注")
   
6.     '(70 . 0)
   
7.     '(40 . 0)   ;文字高度
   
8.     '(41 . 0.8) ;宽度因子
   
9.     '(50 . 0.0)
   
10.     '(71 . 0)
    
11.     '(42 . 2.5)
    
12.     '(3 . "宋体")   ;字体
    
13.     ;'(4 . "gbcbig.shx");大字体
    
14.       )
    
15.     )

复制代码

如果当时0809

mark一下，比用command适应性好

paulpipi

感谢分享，挺方便的

decemc

正好在你工作画个，学习下

jt133

如果当时0809 发表于 2024-11-19 11:27
mark一下，比用command适应性好

能不能提供个例子学习下

ma344578245

学习学习，赞一个 感谢

chslwj521

这个可以，很好，赞赞

梨子·桃

哇，好用，要是有换算单位的组码就更加好了，方便检查缩水量