批量创建标注样式源码

幽兰聆雨

刚学lisp，参考大佬的帖子写了个简单的创建标注样式插件。



功能：输入字体样式、标注比例，批量创建标注样式。
改进计划：有时间的话打算加一个自动加载仿宋字体、判断输入字体是否存在的功能
其他：补充了一个“角度标注-精度”群码

PS：想问一下有比较全的群码表吗？之前站内找的不太全，感觉好多都没写

参考：（发不了链接...）
1、标注样式组码，entmake创建标注样式，应该是目前最全的 - AutoLISP/Visual LISP 编程技术 - AutoCAD论坛 - 明经CAD社区
2、AutoLISP笔记——常用代码片断-CSDN

2. ;------------------------------------------------------------------------------------------------------;
   
3. ;创建单个标注样式
   
4. (defun pzj:add-dimstyle (name scale jtsize textstyle texth)
   
5.   ;创建标注样式，参考：<span style="background-color: rgb(255, 255, 255);">1、标注样式组码，entmake创建标注样式，应该是目前最全的 - AutoLISP/Visual LISP 编程技术 - AutoCAD论坛 - 明经CAD社区</span>
   
6.   (entmake
   
7.     (list
   
8.       '(0 . "DIMSTYLE")
   
9.       '(100 . "AcDbSymbolTableRecord")
   
10.       '(100 . "AcDbDimStyleTableRecord")
    
11.       (cons 2 name)   ; 标注样式名，不支持这些符号 \ < > / ? " : ; * | , = '
    
12. 
    
13.       
    
14.       ;线
    
15.       '(176 . 256)  ;尺寸线-颜色：256=ByLayer，0=ByBlock，1=红色……
    
16.       (cons 345 (tblobjname "LTYPE" "Bylayer")) ;尺寸线-线型=Bylayer，ByBlock=此项消失…
    
17.       '(371 . -1)    ;尺寸线-线宽：ByLayer=-1，ByBlock=此项消失，25=0.25mm…
    
18.       '(46 . 0)      ;尺寸线-超出标记 的距离
    
19.       '(43 . 0)   ;尺寸线-基线间距
    
20.       '(281 . 0)     ;尺寸线-隐藏：尺寸线1，0=显示，1=隐藏
    
21.       '(282 . 0)    ;尺寸线-隐藏：尺寸线2，0=显示，1=隐藏
    
22.       '(177 . 256)  ;延申线-颜色：256=ByLayer，0=ByBlock，1=红色……
    
23.       (cons 346 (tblobjname "LTYPE" "Bylayer")) ;延伸线-线型1=Bylayer，ByBlock=此项消失…
    
24.       (cons 347 (tblobjname "LTYPE" "Bylayer")) ;延伸线-线型1=Bylayer，ByBlock=此项消失…
    
25.       '(372 . -1)    ;延申线-线宽：ByLayer=-1，ByBlock=此项消失，25=0.25mm…
    
26.       '(44 . 2)   ;延申线-超出尺寸线 的距离
    
27.       '(42 . 2)   ;延申线-起点偏移量，标注点到延伸线的距离
    
28.       '(75 . 0)      ;延申线-隐藏：延伸线1,0=显示，1=隐藏
    
29.       '(76 . 0)      ;延申线-隐藏：延伸线2,0=显示，1=隐藏
    
30.       '(290 . 1)    ;延申线-固定长度的延伸线，0=不勾选，1=勾选此项
    
31.       '(49 . 2)      ;延申线-固定长度的延伸线-长度
    
32.    
    
33.    
    
34.       ;符号和箭头
    
35.       '(5 . "ArchTick") ;;箭头-第一个，实心闭合=此项消失？，空心闭合="ClosedBlank"，建筑标记="ArchTick"，实心圆点="Dot"
    
36.       (cons 41 jtsize)    ;;箭头-箭头大小
    
37.       '(141 . 0)     ;;圆心标记，0=无，正数=标记，负数=直线
    
38.       ;'(90 . 0)    ;;弧长符号：标注文字的上方=1，无=2，标注文字的前缀=此项消失
    
39.       ;缺：箭头-第二个、箭头-引线、折断大小、折弯半径、折弯高度因子
    
40.    
    
41.    
    
42.       ;文字
    
43.       (cons 340 (tblobjname "style" textstyle)) ;文字外观-文字样式
    
44.       '(178 . 256)    ;文字外观-文字颜色：256=ByLayer，0=ByBlock，7=白色……
    
45.       '(69 . 0)      ;文字外观-填充颜色类型：0=不填充，1=背景色，2=使用颜色编号
    
46.       '(70 . 256)    ;文字外观-填充颜色：256=ByLayer，0=ByBlock，1红2黄……使用颜色编号时此项必备
    
47.       (cons 140 texth)  ;文字外观-文字高度
    
48.       '(77 . 1)     ;文字位置-垂直：1=上，0=居中，4=下……
    
49.       '(280 . 0)    ;文字位置-水平：0=居中，1=第一条延伸线……
    
50.       '(147 . 1)   ;文字位置-从尺寸线偏移，填入负数时，“绘制文字边框”项会被勾选
    
51.       '(73 . 0)      ;文字对齐：水平=1，与尺寸线对齐=0，ISO标准=0
    
52.       '(74 . 0)      ;文字对齐：水平=1，与尺寸线对齐=0，ISO标准=1
    
53.       ;缺：文字外观-分数高度比例
    
54.       ;文字位置-观察方向、文字位置-观察方向
    
55. 
    
56.       
    
57.       ;调整
    
58.       '(174 . 1)  ;调整选项：文字始终在延伸线之间=1，文字=0，箭头=0，文字和箭头=0，文字或箭头=0
    
59.       '(289 . 2)  ;调整选项：文字始终在延伸线之间=2，文字=2，箭头=1，文字和箭头=0，文字或箭头=此项消失
    
60.       '(175 . 0)  ;调整选项-若箭头不能放在延伸线内则将其消除，不勾选=0，勾选=1
    
61.       '(279 . 1)  ;文字位置：尺寸线上方不带引线=2，尺寸线上方带引线=1，尺寸线旁边=0
    
62.       '(40 . 1)   ;标注特征比例：将标注缩放到布局=0，使用全局比例>0，
    
63.       '(288 . 0)  ;优化：手动放置文字，不勾选=0，勾选=1
    
64.       '(172 . 0)  ;优化：在延伸线之间绘制尺寸线，不勾选=0，勾选=1
    
65.    
    
66.    
    
67.       ;主单位
    
68.       '(270 . 2)  ;线性标注-单位格式：科学=1，小数=2，工程=3……
    
69.       '(271 . 0)  ;线性标注-精度：0=0，0.0=1，0.00=2…
    
70.       '(271 . 0)  ;线性标注-精度：0=0，0.0=1，0.00=2…(不是我重复，组码表就是列出了2个)
    
71.       '(272 . 0)  ;线性标注-舍入：0=0，0.0=1，0.00=2…
    
72.       (cons 144 scale)  ;线性标注-测量单位比例-比例因子
    
73.       ;'(78 . 8)   ;线性标注-消零-后续：勾选=8
    
74.       '(275 . 0)  ;角度标注-单位格式：十进制=0
    
75.       '(179 . 2)  ;角度标注-精度：0=0，1=0.0，2=0.00…
    
76.       ;'(79 . 2)   ;角度标注-消零-后续:勾选=2
    
77.       ;缺：线性标注-前缀、线性标注-后缀、线性标注-测量单位比例-仅应用到布局、线性标注-消零-前导
    
78.       ;    角度标注-精度、角度标注-消零-前导
    
79.    
    
80.       ;缺：
    
81.       ;换算单位
    
82.       ;公差
    
83.     )
    
84.   )
    
85.   (princ)
    
86. )
    
87. ;------------------------------------------------------------------------------------------------------;
    
88. ;搬运（懒得写^_^）,原文链接：<span style="background-color: rgb(255, 255, 255);">2、AutoLISP笔记——常用代码片断-CSDN</span>
    
89. ;按指定字符分割字符串，返回字符串列表
    
90. (defun split (str delim / lst pos)
    
91.   (while (setq pos (vl-string-search delim str))
    
92.     (setq lst (append lst (list (substr str 1 pos))))
    
93.     (setq str (substr str (+ 2 pos)))
    
94.   )
    
95.   (if (> (strlen str) 0)
    
96.     (append lst (list str))
    
97.     lst
    
98.   )
    
99. )
    
100. ;------------------------------------------------------------------------------------------------------;
     
101. ;批量创建标注样式
     
102. (defun c:addbz( / textstyle strlst scalelst)
     
103.   (setq scalelst nil)
     
104.   (setq
     
105.     textstyle (getstring "\n输入文字样式名称(默认为仿宋)：")
     
106.     strlst  (split (getstring "\n输入创建的标注比例，多个比例间以英文逗号分隔(回车创建默认比例)：")  ",")
     
107.   )
     
108.   (if (not (= strlst nil))
     
109.     (foreach scale strlst (setq scalelst (cons (atof scale) scalelst)))
     
110.   )
     
111.   (or (not (= textstyle "")) (setq textstyle "仿宋"))
     
112.   (or scalelst  (setq scalelst (list 20 50 100 200 300 400 500 600 700 800 900 1000)))
     
113.   (foreach scale scalelst
     
114.     (if (not (tblsearch "dimstyle" (strcat "pzj-1：" (rtos scale 2 0))))
     
115.       (pzj:add-dimstyle (strcat "1：" (rtos scale 2 0)) scale 2 textstyle 2.5)
     
116.     )
     
117.   )
     
118.   (princ)
     
119. )
     

;------------------------------------------------------------------------------------------------------;<br /> ;创建单个标注样式<br /> (defun pzj:add-dimstyle (name scale jtsize textstyle texth)<br />   ;创建标注样式，参考：<span style="background-color: rgb(255, 255, 255);">1、标注样式组码，entmake创建标注样式，应该是目前最全的 - AutoLISP/Visual LISP 编程技术 - AutoCAD论坛 - 明经CAD社区</span><br />   (entmake<br />     (list <br />       '(0 . "DIMSTYLE")<br />       '(100 . "AcDbSymbolTableRecord")<br />       '(100 . "AcDbDimStyleTableRecord")<br />       (cons 2 name)   ; 标注样式名，不支持这些符号 \ < > / ? " : ; * | , = '<br /> <br />       <br />       ;线<br />       '(176 . 256)  ;尺寸线-颜色：256=ByLayer，0=ByBlock，1=红色……<br />       (cons 345 (tblobjname "LTYPE" "Bylayer")) ;尺寸线-线型=Bylayer，ByBlock=此项消失…<br />       '(371 . -1)    ;尺寸线-线宽：ByLayer=-1，ByBlock=此项消失，25=0.25mm…<br />       '(46 . 0)      ;尺寸线-超出标记 的距离<br />       '(43 . 0)   ;尺寸线-基线间距<br />       '(281 . 0)     ;尺寸线-隐藏：尺寸线1，0=显示，1=隐藏<br />       '(282 . 0)    ;尺寸线-隐藏：尺寸线2，0=显示，1=隐藏<br />       '(177 . 256)  ;延申线-颜色：256=ByLayer，0=ByBlock，1=红色……<br />       (cons 346 (tblobjname "LTYPE" "Bylayer")) ;延伸线-线型1=Bylayer，ByBlock=此项消失…<br />       (cons 347 (tblobjname "LTYPE" "Bylayer")) ;延伸线-线型1=Bylayer，ByBlock=此项消失…<br />       '(372 . -1)    ;延申线-线宽：ByLayer=-1，ByBlock=此项消失，25=0.25mm…<br />       '(44 . 2)   ;延申线-超出尺寸线 的距离<br />       '(42 . 2)   ;延申线-起点偏移量，标注点到延伸线的距离<br />       '(75 . 0)      ;延申线-隐藏：延伸线1,0=显示，1=隐藏<br />       '(76 . 0)      ;延申线-隐藏：延伸线2,0=显示，1=隐藏<br />       '(290 . 1)    ;延申线-固定长度的延伸线，0=不勾选，1=勾选此项<br />       '(49 . 2)      ;延申线-固定长度的延伸线-长度<br />     <br />     <br />       ;符号和箭头<br />       '(5 . "ArchTick") ;;箭头-第一个，实心闭合=此项消失？，空心闭合="ClosedBlank"，建筑标记="ArchTick"，实心圆点="Dot"<br />       (cons 41 jtsize)    ;;箭头-箭头大小<br />       '(141 . 0)     ;;圆心标记，0=无，正数=标记，负数=直线<br />       ;'(90 . 0)    ;;弧长符号：标注文字的上方=1，无=2，标注文字的前缀=此项消失<br />       ;缺：箭头-第二个、箭头-引线、折断大小、折弯半径、折弯高度因子<br />     <br />     <br />       ;文字<br />       (cons 340 (tblobjname "style" textstyle)) ;文字外观-文字样式<br />       '(178 . 256)    ;文字外观-文字颜色：256=ByLayer，0=ByBlock，7=白色……<br />       '(69 . 0)      ;文字外观-填充颜色类型：0=不填充，1=背景色，2=使用颜色编号<br />       '(70 . 256)    ;文字外观-填充颜色：256=ByLayer，0=ByBlock，1红2黄……使用颜色编号时此项必备<br />       (cons 140 texth)  ;文字外观-文字高度<br />       '(77 . 1)     ;文字位置-垂直：1=上，0=居中，4=下……<br />       '(280 . 0)    ;文字位置-水平：0=居中，1=第一条延伸线……<br />       '(147 . 1)   ;文字位置-从尺寸线偏移，填入负数时，“绘制文字边框”项会被勾选<br />       '(73 . 0)      ;文字对齐：水平=1，与尺寸线对齐=0，ISO标准=0<br />       '(74 . 0)      ;文字对齐：水平=1，与尺寸线对齐=0，ISO标准=1<br />       ;缺：文字外观-分数高度比例<br />       ;文字位置-观察方向、文字位置-观察方向<br /> <br />       <br />       ;调整<br />       '(174 . 1)  ;调整选项：文字始终在延伸线之间=1，文字=0，箭头=0，文字和箭头=0，文字或箭头=0<br />       '(289 . 2)  ;调整选项：文字始终在延伸线之间=2，文字=2，箭头=1，文字和箭头=0，文字或箭头=此项消失<br />       '(175 . 0)  ;调整选项-若箭头不能放在延伸线内则将其消除，不勾选=0，勾选=1<br />       '(279 . 1)  ;文字位置：尺寸线上方不带引线=2，尺寸线上方带引线=1，尺寸线旁边=0<br />       '(40 . 1)   ;标注特征比例：将标注缩放到布局=0，使用全局比例>0，<br />       '(288 . 0)  ;优化：手动放置文字，不勾选=0，勾选=1<br />       '(172 . 0)  ;优化：在延伸线之间绘制尺寸线，不勾选=0，勾选=1<br />     <br />     <br />       ;主单位<br />       '(270 . 2)  ;线性标注-单位格式：科学=1，小数=2，工程=3……<br />       '(271 . 0)  ;线性标注-精度：0=0，0.0=1，0.00=2…<br />       '(271 . 0)  ;线性标注-精度：0=0，0.0=1，0.00=2…(不是我重复，组码表就是列出了2个)<br />       '(272 . 0)  ;线性标注-舍入：0=0，0.0=1，0.00=2…<br />       (cons 144 scale)  ;线性标注-测量单位比例-比例因子<br />       ;'(78 . 8)   ;线性标注-消零-后续：勾选=8<br />       '(275 . 0)  ;角度标注-单位格式：十进制=0<br />       '(179 . 2)  ;角度标注-精度：0=0，1=0.0，2=0.00…<br />       ;'(79 . 2)   ;角度标注-消零-后续:勾选=2<br />       ;缺：线性标注-前缀、线性标注-后缀、线性标注-测量单位比例-仅应用到布局、线性标注-消零-前导<br />       ;    角度标注-精度、角度标注-消零-前导<br />     <br />       ;缺：<br />       ;换算单位<br />       ;公差<br />     )<br />   )<br />   (princ)<br /> )<br /> ;------------------------------------------------------------------------------------------------------;<br /> ;搬运（懒得写^_^）,原文链接：<span style="background-color: rgb(255, 255, 255);">2、AutoLISP笔记——常用代码片断-CSDN</span><br /> ;按指定字符分割字符串，返回字符串列表<br /> (defun split (str delim / lst pos)<br />   (while (setq pos (vl-string-search delim str))<br />     (setq lst (append lst (list (substr str 1 pos))))<br />     (setq str (substr str (+ 2 pos)))<br />   )<br />   (if (> (strlen str) 0)<br />     (append lst (list str))<br />     lst<br />   )<br /> )<br /> ;------------------------------------------------------------------------------------------------------;<br /> ;批量创建标注样式<br /> (defun c:addbz( / textstyle strlst scalelst)<br />   (setq scalelst nil)<br />   (setq<br />     textstyle (getstring "\n输入文字样式名称(默认为仿宋)：")<br />     strlst  (split (getstring "\n输入创建的标注比例，多个比例间以英文逗号分隔(回车创建默认比例)：")  ",")<br />   )<br />   (if (not (= strlst nil))<br />     (foreach scale strlst (setq scalelst (cons (atof scale) scalelst)))<br />   )<br />   (or (not (= textstyle "")) (setq textstyle "仿宋"))<br />   (or scalelst  (setq scalelst (list 20 50 100 200 300 400 500 600 700 800 900 1000)))<br />   (foreach scale scalelst<br />     (if (not (tblsearch "dimstyle" (strcat "pzj-1：" (rtos scale 2 0))))<br />       (pzj:add-dimstyle (strcat "1：" (rtos scale 2 0)) scale 2 textstyle 2.5)<br />     )<br />   )<br />   (princ)<br /> )<br />

tranque

你有种再说一遍 发表于 2024-6-2 21:13
学到组码缺失性,然后觉得奇怪,
再学学vla觉得怎么两个模样,
再学学多线程,怎么这个没得学...

惊惊大佬高强度冲浪

你有种再说一遍

幽兰聆雨 发表于 2024-6-2 21:23
是准备有空学学C#，lisp好用的编辑器都难找，没代码自动补全，比较难受。
不是专业的，lisp目前来说够用 ...

其实不专业才需要用c#,因为百度就能找到的答案,而lisp要来论坛才行...语法的简单掩盖了操作的复杂...

幽兰聆雨

你有种再说一遍 发表于 2024-6-2 21:13
学到组码缺失性,然后觉得奇怪,
再学学vla觉得怎么两个模样,
再学学多线程,怎么这个没得学...

是准备有空学学C#，lisp好用的编辑器都难找，没代码自动补全，比较难受。
不是专业的，lisp目前来说够用了，没空的话可能也不会学C#。

你有种再说一遍

学到组码缺失性,然后觉得奇怪,
再学学vla觉得怎么两个模样,
再学学多线程,怎么这个没得学...
然后处理图层名的时候发现奇怪utf8被ascii读取,每次都是乱码...
然后就放弃了,转入c#大家庭

moranyuyan

谢谢分享

自贡黄明儒

以当前标注来创建其它标注，最简单，修改不同的几项就行了

sachindkini

thanks for sharing

幽兰聆雨

自贡黄明儒 发表于 2024-6-2 22:39
以当前标注来创建其它标注，最简单，修改不同的几项就行了

主要是为了方便在不同图纸快速创建习惯的标注样式，获取当前标注的话还得先手动搞一个，感觉麻烦一点

幽兰聆雨

你有种再说一遍 发表于 2024-6-2 21:13
学到组码缺失性,然后觉得奇怪,
再学学vla觉得怎么两个模样,
再学学多线程,怎么这个没得学...

转战C#了