【求助】怎么样创建子样式

夏雨雪

不知道用什么命令可以创建样式1的子样式2并设置2的属性
dimstyle好像只能创建样式 创建不了子样式
望高手帮忙

vormittag

用entmake创建标注样式，用已有的基本样式名+$+数字就是子样式了。
例如：基本样式名---"bz" , 则"bz$4"为"bz"中半径标注的子样式

夏雨雪

vormittag 发表于 2011-12-23 13:13
用entmake创建标注样式，用已有的基本样式名+$+数字就是子样式了。
例如：基本样式名---"bz" , 则"bz$4"为 ...

entmake函数创建标注样式的格式是什么呢
直接（entmake 样式名）吗好像创建不了啊

vormittag

entmake函数的用法要好好看一下，这个很有用。

贴点我的代码出来。涉及到标注字体的问题，不能直接用，你自己改一下。

2. 
   
3. ;;;-------------------------------------------------------------------------------
   
4. ;;;创建基本标注样式
   
5. ;;; (make_dimstyle (ratio draftunit unit)
   
6. ;;;     ratio       ---- 比例字符串，即"1:n"中的"n"
   
7. ;;;     draftunit   ---- 绘图单位 0为m  1为cm  2为mm
   
8. ;;;     unit        ---- 标注单位 0为m  1为cm  2为mm
   
9. ;;; 应用命令与函数：
   
10. ;;;-------------------------------------------------------------------------------
    
11. (defun make_dimstyle ( dim_ratio
    
12.                           dim_draftunit
    
13.         dim_unit
    
14.       )
    
15. (entmakex
    
16.      (list
    
17.       (cons   0 "DIMSTYLE")
    
18.    (cons 100 "AcDbSymbolTableRecord")
    
19.    (cons 100 "AcDbDimStyleTableRecord")
    
20.    (cons   2 (strcat "BZ-" (nth dim_draftunit (list "M" "CM" "MM")) "-" dim_ratio "-" (nth dim_unit (list "M" "CM" "MM"))));
    
21.    (cons  70     0);
    
22.    (cons 140     2.5);DIMTXT
    
23.    (cons 143  0.0394);DIMALTF
    
24.    (cons  40 (/ (atof dim_ratio) (nth dim_draftunit (list 1000.0 10.0 1.0))));DIMSCALE
    
25.    (cons  41       1);DIMASZ
    
26.    (cons  42   0.625);DIMEXO
    
27.    (cons  43    3.75);DIMDLI
    
28.    (cons  44     1.2);DIMEXE
    
29.    (cons  49     2.5);DIMFXL
    
30.    (cons  73       0);DIMTIH
    
31.    (cons  74       0);DIMTOH
    
32.    (cons  77       1);DIMTAD
    
33.    (cons  78       8);DIMZIN
    
34.    (cons  79       2);DIMAZIN
    
35.    (cons 141       0);DIMCEN
    
36.    (cons 144 (/ (nth dim_draftunit (list 1000.0 10.0 1.0)) (nth dim_unit (list 1000.0 10.0 1.0)) ));DIMLFAC
    
37.    (cons 147   0.625);DIMGAP
    
38.    (cons 171       3);DIMALTD
    
39.    (cons 172       1);DIMTOFL
    
40.    (cons 174       1);DIMTIX
    
41.    (cons 176       3);DIMCLRD
    
42.    (cons 177       3);DIMCLRE
    
43.    (cons 178     256);DIMCLRT
    
44.    (cons 179       3);DIMADEC
    
45.    (cons 271 (nth dim_unit (list 3 1 0)));DIMDEC
    
46.    (cons 272 (nth dim_unit (list 3 1 0)));DIMTDEC
    
47.    (cons 274      3);DIMAlTTD
    
48.    (cons 275       0);DIMAUNIT
    
49.    (cons 278      46);DIMDSEP
    
50.    (cons 280       0);DIMJUST
    
51.    (cons 283       0);DIMTOLJ
    
52.    (cons 284       8);DIMTZIN
    
53.    (cons 290       1);DIMFXLON
    
54.    (cons 279       2);DIMTMOVE
    
55.    (cons 340 (tblobjname "STYLE" "TJHZ"));这个把"TJHZ"换成你想要的标注字体样式
    
56.    (cons 342 (cdr (assoc 330 (entget (tblobjname "BLOCK" "DIMBLK")))));;这个是标注箭头,我用了自定义的块
    
57.    (cons 371       9);DIMLWD
    
58.    (cons 372       9);DIMLWE
    
59.   );list
    
60. );entmakex
    
61. )
    
62. ;;;-------------------------------------------------------------------------------
    
63. ;;;创建半径标注样式
    
64. ;;; (make_radialdimstyle ratio draftunit unit)
    
65. ;;;     ratio       ---- 比例字符串，即"1:n"中的"n"
    
66. ;;;     draftunit   ---- 绘图单位 0为m  1为cm  2为mm
    
67. ;;;     unit        ---- 标注单位 0为m  1为cm  2为mm
    
68. ;;; 应用命令与函数：
    
69. ;;;-------------------------------------------------------------------------------
    
70. (defun make_radialdimstyle ( dim_ratio
    
71.                                 dim_draftunit
    
72.               dim_unit
    
73.             )
    
74. (entmakex
    
75.      (list
    
76.       (cons   0  "DIMSTYLE")
    
77.    (cons 100  "AcDbSymbolTableRecord")
    
78.    (cons 100  "AcDbDimStyleTableRecord")
    
79.    (cons   2  (strcat "BZ-" (nth dim_draftunit (list "M" "CM" "MM")) "-" dim_ratio "-" (nth dim_unit (list "M" "CM" "MM")) "$4"));
    
80.    (cons  70     0);
    
81.    (cons 140     2.5);DIMTXT
    
82.    (cons 143  0.0394);DIMALTF
    
83.    (cons  40 (/ (atof dim_ratio) (nth dim_draftunit (list 1000.0 10.0 1.0))));DIMSCALE
    
84.    (cons  41     2.5);DIMASZ
    
85.    (cons  42   0.625);DIMEXO
    
86.    (cons  43    3.75);DIMDLI
    
87.    (cons  44     1.2);DIMEXE
    
88.    (cons  49     2.5);DIMFXL
    
89.    (cons  73       0);DIMTIH
    
90.    (cons  74       0);DIMTOH
    
91.    (cons  77       1);DIMTAD
    
92.    (cons  78       8);DIMZIN
    
93.    (cons  79       2);DIMAZIN
    
94.    (cons 141       0);DIMCEN
    
95.    (cons 144 (/ (nth dim_draftunit (list 1000.0 10.0 1.0)) (nth dim_unit (list 1000.0 10.0 1.0))));DIMLFAC
    
96.    (cons 147   0.625);DIMGAP
    
97.    (cons 171       3);DIMALTD
    
98.    (cons 172       0);DIMTOFL
    
99.    (cons 174       1);DIMTIX
    
100.    (cons 176       3);DIMCLRD
     
101.    (cons 177       3);DIMCLRE
     
102.    (cons 178     256);DIMCLRT
     
103.    (cons 179       3);DIMADEC
     
104.    (cons 271 (nth dim_unit (list 3 1 0)));DIMDEC
     
105.    (cons 272 (nth dim_unit (list 3 1 0)));DIMTDEC
     
106.    (cons 274      3);DIMAlTTD
     
107.    (cons 275       0);DIMAUNIT
     
108.    (cons 278      46);DIMDSEP
     
109.    (cons 280       0);DIMJUST
     
110.    (cons 283       0);DIMTOLJ
     
111.    (cons 284       8);DIMTZIN
     
112.    (cons 290       1);DIMFXLON
     
113.    (cons 279       0);DIMTMOVE
     
114.    (cons 340 (tblobjname "STYLE" "TJHZ"));;这个把"TJHZ"换成你想要的标注字体样式
     
115.    (cons 371       9);DIMLWD
     
116.    (cons 372       9);DIMLWE
     
117.   );list
     
118. );entmakex
     
119. )
     

<br /> ;;;-------------------------------------------------------------------------------<br /> ;;;创建基本标注样式<br /> ;;; (make_dimstyle (ratio draftunit unit)<br /> ;;;     ratio       ---- 比例字符串，即"1:n"中的"n"<br /> ;;;     draftunit   ---- 绘图单位 0为m  1为cm  2为mm<br /> ;;;     unit        ---- 标注单位 0为m  1为cm  2为mm<br /> ;;; 应用命令与函数：<br /> ;;;-------------------------------------------------------------------------------<br /> (defun make_dimstyle ( dim_ratio <br />                           dim_draftunit <br />         dim_unit <br />       )<br /> (entmakex<br />      (list<br />       (cons   0 "DIMSTYLE")<br />    (cons 100 "AcDbSymbolTableRecord")<br />    (cons 100 "AcDbDimStyleTableRecord")<br />    (cons   2 (strcat "BZ-" (nth dim_draftunit (list "M" "CM" "MM")) "-" dim_ratio "-" (nth dim_unit (list "M" "CM" "MM"))));<br />    (cons  70     0);<br />    (cons 140     2.5);DIMTXT<br />    (cons 143  0.0394);DIMALTF<br />    (cons  40 (/ (atof dim_ratio) (nth dim_draftunit (list 1000.0 10.0 1.0))));DIMSCALE<br />    (cons  41       1);DIMASZ<br />    (cons  42   0.625);DIMEXO<br />    (cons  43    3.75);DIMDLI<br />    (cons  44     1.2);DIMEXE<br />    (cons  49     2.5);DIMFXL<br />    (cons  73       0);DIMTIH<br />    (cons  74       0);DIMTOH<br />    (cons  77       1);DIMTAD<br />    (cons  78       8);DIMZIN<br />    (cons  79       2);DIMAZIN<br />    (cons 141       0);DIMCEN<br />    (cons 144 (/ (nth dim_draftunit (list 1000.0 10.0 1.0)) (nth dim_unit (list 1000.0 10.0 1.0)) ));DIMLFAC<br />    (cons 147   0.625);DIMGAP<br />    (cons 171       3);DIMALTD<br />    (cons 172       1);DIMTOFL<br />    (cons 174       1);DIMTIX<br />    (cons 176       3);DIMCLRD<br />    (cons 177       3);DIMCLRE<br />    (cons 178     256);DIMCLRT<br />    (cons 179       3);DIMADEC<br />    (cons 271 (nth dim_unit (list 3 1 0)));DIMDEC<br />    (cons 272 (nth dim_unit (list 3 1 0)));DIMTDEC<br />    (cons 274      3);DIMAlTTD<br />    (cons 275       0);DIMAUNIT<br />    (cons 278      46);DIMDSEP<br />    (cons 280       0);DIMJUST<br />    (cons 283       0);DIMTOLJ<br />    (cons 284       8);DIMTZIN<br />    (cons 290       1);DIMFXLON<br />    (cons 279       2);DIMTMOVE<br />    (cons 340 (tblobjname "STYLE" "TJHZ"));这个把"TJHZ"换成你想要的标注字体样式<br />    (cons 342 (cdr (assoc 330 (entget (tblobjname "BLOCK" "DIMBLK")))));;这个是标注箭头,我用了自定义的块<br />    (cons 371       9);DIMLWD<br />    (cons 372       9);DIMLWE<br />   );list<br /> );entmakex<br /> )<br /> ;;;-------------------------------------------------------------------------------<br /> ;;;创建半径标注样式<br /> ;;; (make_radialdimstyle ratio draftunit unit)<br /> ;;;     ratio       ---- 比例字符串，即"1:n"中的"n"<br /> ;;;     draftunit   ---- 绘图单位 0为m  1为cm  2为mm<br /> ;;;     unit        ---- 标注单位 0为m  1为cm  2为mm<br /> ;;; 应用命令与函数：<br /> ;;;-------------------------------------------------------------------------------<br /> (defun make_radialdimstyle ( dim_ratio <br />                                 dim_draftunit <br />               dim_unit <br />             )<br /> (entmakex<br />      (list<br />       (cons   0  "DIMSTYLE")<br />    (cons 100  "AcDbSymbolTableRecord")<br />    (cons 100  "AcDbDimStyleTableRecord")<br />    (cons   2  (strcat "BZ-" (nth dim_draftunit (list "M" "CM" "MM")) "-" dim_ratio "-" (nth dim_unit (list "M" "CM" "MM")) "$4"));<br />    (cons  70     0);<br />    (cons 140     2.5);DIMTXT<br />    (cons 143  0.0394);DIMALTF<br />    (cons  40 (/ (atof dim_ratio) (nth dim_draftunit (list 1000.0 10.0 1.0))));DIMSCALE<br />    (cons  41     2.5);DIMASZ<br />    (cons  42   0.625);DIMEXO<br />    (cons  43    3.75);DIMDLI<br />    (cons  44     1.2);DIMEXE<br />    (cons  49     2.5);DIMFXL<br />    (cons  73       0);DIMTIH<br />    (cons  74       0);DIMTOH<br />    (cons  77       1);DIMTAD<br />    (cons  78       8);DIMZIN<br />    (cons  79       2);DIMAZIN<br />    (cons 141       0);DIMCEN<br />    (cons 144 (/ (nth dim_draftunit (list 1000.0 10.0 1.0)) (nth dim_unit (list 1000.0 10.0 1.0))));DIMLFAC<br />    (cons 147   0.625);DIMGAP<br />    (cons 171       3);DIMALTD<br />    (cons 172       0);DIMTOFL<br />    (cons 174       1);DIMTIX<br />    (cons 176       3);DIMCLRD<br />    (cons 177       3);DIMCLRE<br />    (cons 178     256);DIMCLRT<br />    (cons 179       3);DIMADEC<br />    (cons 271 (nth dim_unit (list 3 1 0)));DIMDEC<br />    (cons 272 (nth dim_unit (list 3 1 0)));DIMTDEC<br />    (cons 274      3);DIMAlTTD<br />    (cons 275       0);DIMAUNIT<br />    (cons 278      46);DIMDSEP<br />    (cons 280       0);DIMJUST<br />    (cons 283       0);DIMTOLJ<br />    (cons 284       8);DIMTZIN<br />    (cons 290       1);DIMFXLON<br />    (cons 279       0);DIMTMOVE<br />    (cons 340 (tblobjname "STYLE" "TJHZ"));;这个把"TJHZ"换成你想要的标注字体样式<br />    (cons 371       9);DIMLWD<br />    (cons 372       9);DIMLWE<br />   );list<br /> );entmakex<br /> )<br />

夏雨雪

vormittag 发表于 2011-12-23 13:53
entmake函数的用法要好好看一下，这个很有用。

贴点我的代码出来。涉及到标注字体的问题，不能直接用，你 ...

谢谢!!