如何修改尺寸标注样式中的断点样式

a117034423

2. (if (null (tblsearch "dimstyle" "TSSD_100_100"))
   
3.   (progn
   
4.   (setq sty3 (list
   
5.            '(0 . "dimstyle")
   
6.            '(100 . "AcDbSymbolTableRecord")
   
7.            '(100 . "AcDbDimStyleTableRecord")
   
8.            '(70 . 0)
   
9.             (cons 2 "TSSD_100_100") ; 标注样式名
   
10.            '(3 . "") ;测量单位
    
11.            '(4 . "") ;前后缀 "M<>n"
    
12.            '(5 . "ArchTick") ;断点样式
    
13.            '(6 . "") ;起始断点样式
    
14.            '(7 . "ArchTick") ;终点断点样式
    
15.            '(40 . 1.0) ;全局比例
    
16.            '(41 . 100.0) ;箭头尺寸
    
17.            '(42 . 250.0) ;起点偏移量
    
18.            '(43 . 0.0) ;基线间距
    
19.            '(44 . 100.0) ;超出尺寸界线
    
20.            '(45 . 0.0) ;舍入值
    
21.            '(46 . 100.0) ;延伸线距离
    
22.            '(47 . 0.0) ;正公差
    
23.            '(48 . 0.0) ;负公差
    
24.            '(140 . 300.0) ;标注文字高度
    
25.            '(141 . 0.0) ;圆心标记
    
26.            '(142 . 0.0) ;短斜线箭头
    
27.            '(143 . 25.4) ;对照单位比例系数
    
28.            '(144 . 1.0) ;标注线性比例
    
29.            '(145 . 0.0) ;标注垂直位置
    
30.            '(146 . 1.0) ;公差文字高度比例
    
31.            '(147 . 100.0) ;截断线与文字距离
    
32.            '(71 . 0) ;是否显示公差
    
33.            '(72 . 0) ;创建上下限标注
    
34.            '(73 . 0) ;内侧文字水平
    
35.            '(74 . 0) ;扩展线外侧文字位置
    
36.            '(75 . 0) ;尺寸界线1隐藏
    
37.            '(76 . 0) ;尺寸界线2隐藏
    
38.            '(77 . 1) ;文字在尺寸线上方
    
39.            '(78 . 0) ;消零
    
40.            '(170 . 0) ;对照单位显示
    
41.            '(171 . 2) ;对照单位小数字数
    
42.            '(172 . 1) ;标注线与延伸线关系
    
43.            '(173 . 0) ;箭头是否显示
    
44.            '(174 . 1) ;文字与延伸线关系
    
45.            '(175 . 0) ;隐藏箭头noc
    
46.            '(176 . 0) ;标注线颜色
    
47.            '(177 . 0) ;标注延伸线颜色
    
48.            '(178 . 7) ;标注文字颜色
    
49.            '(270 . 2) ;标注类型单位
    
50.            '(271 . 0) ;尺寸标注精度
    
51.            '(272 . 0) ;公差精度
    
52.            '(273 . 2) ;对照单位格式
    
53.            '(274 . 2) ;对照单位小数字数
    
54.            (cons 340 (tblobjname "style" "TSSD_Rein")) ;标注文字样式
    
55.            '(275 . 0) ;角度单位格式
    
56.            '(280 . 0) ;文字对正方式
    
57.            '(281 . 0) ;尺寸线1隐藏
    
58.            '(282 . 0) ;尺寸线2隐藏
    
59.            '(283 . 1)
    
60.            '(287 . 5)
    
61.                  )
    
62.       )
    
63. (entmakex sty3)
    
64.   )
    
65. (progn
    
66. (setq sty3 (entget (tblobjname "dimstyle" "TSSD_100_100")))
    
67. (setq sty3 (subst (cons 178 7) (assoc 178 sty3) sty3))
    
68. (setq sty3 (subst (cons 140 300) (assoc 140 sty3) sty3))
    
69. (entmod sty3)
    
70. )
    
71.   )

(if (null (tblsearch "dimstyle" "TSSD_100_100"))<br />   (progn<br />   (setq sty3 (list<br />            '(0 . "dimstyle")<br />            '(100 . "AcDbSymbolTableRecord")<br />            '(100 . "AcDbDimStyleTableRecord") <br />            '(70 . 0) <br />             (cons 2 "TSSD_100_100") ; 标注样式名<br />            '(3 . "") ;测量单位<br />            '(4 . "") ;前后缀 "M<>n"<br />            '(5 . "ArchTick") ;断点样式 <br />            '(6 . "") ;起始断点样式<br />            '(7 . "ArchTick") ;终点断点样式<br />            '(40 . 1.0) ;全局比例<br />            '(41 . 100.0) ;箭头尺寸<br />            '(42 . 250.0) ;起点偏移量<br />            '(43 . 0.0) ;基线间距<br />            '(44 . 100.0) ;超出尺寸界线<br />            '(45 . 0.0) ;舍入值<br />            '(46 . 100.0) ;延伸线距离<br />            '(47 . 0.0) ;正公差<br />            '(48 . 0.0) ;负公差<br />            '(140 . 300.0) ;标注文字高度<br />            '(141 . 0.0) ;圆心标记<br />            '(142 . 0.0) ;短斜线箭头<br />            '(143 . 25.4) ;对照单位比例系数<br />            '(144 . 1.0) ;标注线性比例<br />            '(145 . 0.0) ;标注垂直位置<br />            '(146 . 1.0) ;公差文字高度比例<br />            '(147 . 100.0) ;截断线与文字距离<br />            '(71 . 0) ;是否显示公差<br />            '(72 . 0) ;创建上下限标注<br />            '(73 . 0) ;内侧文字水平<br />            '(74 . 0) ;扩展线外侧文字位置<br />            '(75 . 0) ;尺寸界线1隐藏<br />            '(76 . 0) ;尺寸界线2隐藏<br />            '(77 . 1) ;文字在尺寸线上方<br />            '(78 . 0) ;消零<br />            '(170 . 0) ;对照单位显示<br />            '(171 . 2) ;对照单位小数字数<br />            '(172 . 1) ;标注线与延伸线关系<br />            '(173 . 0) ;箭头是否显示<br />            '(174 . 1) ;文字与延伸线关系<br />            '(175 . 0) ;隐藏箭头noc<br />            '(176 . 0) ;标注线颜色<br />            '(177 . 0) ;标注延伸线颜色<br />            '(178 . 7) ;标注文字颜色<br />            '(270 . 2) ;标注类型单位<br />            '(271 . 0) ;尺寸标注精度<br />            '(272 . 0) ;公差精度<br />            '(273 . 2) ;对照单位格式<br />            '(274 . 2) ;对照单位小数字数<br />            (cons 340 (tblobjname "style" "TSSD_Rein")) ;标注文字样式<br />            '(275 . 0) ;角度单位格式<br />            '(280 . 0) ;文字对正方式<br />            '(281 . 0) ;尺寸线1隐藏<br />            '(282 . 0) ;尺寸线2隐藏<br />            '(283 . 1)<br />            '(287 . 5)<br />                  )<br />       )<br /> (entmakex sty3)<br />   )<br /> (progn<br /> (setq sty3 (entget (tblobjname "dimstyle" "TSSD_100_100")))<br /> (setq sty3 (subst (cons 178 7) (assoc 178 sty3) sty3))<br /> (setq sty3 (subst (cons 140 300) (assoc 140 sty3) sty3))<br /> (entmod sty3)<br /> )<br />   )

代码在上面
用entmake无法一次创建断点样式
tblsearch后 断点样式是“”对应组码行是 5 6 7

xk15c

用这个应该方便多了

Lisphk

应该是图块，事先插入到数据库了吗？

a117034423

Lisphk 发表于 2021-1-7 03:14
应该是图块，事先插入到数据库了吗？

图快问题我找到了，要怎么插入到数据库呀

a117034423

Lisphk 发表于 2021-1-7 03:14
应该是图块，事先插入到数据库了吗？

老大 上次问您的断点样式 是怎么操作插到数据库的

newer

a117034423 发表于 2021-1-15 11:50
老大 上次问您的断点样式 是怎么操作插到数据库的

代码里面可以判断下，图块是否存在，如果不在，用INSERT命令插入进来