[求助]：求entmake构造DIMSTYLE一种样式的例子

心梦相随

求entmake构造DIMSTYLE一种样式的例子。谢谢。

前生

2. 
   
3. (defun dim-c (/ e EN)
   
4.   (setq        e  nil
   
5.         en nil
   
6.   )
   
7.   (setq e (tblobjname "DIMSTYLE" "DIM-C"))
   
8.   (IF E
   
9.     (PROGN (PROMPT "\n DIM-C 已经存在了!") (PRINC))
   
10.     (progn
    
11.       (setq en (list
    
12.                  (cons 0 "DIMSTYLE")        ;符号类型
    
13.                  (cons 105 "27")
    
14.                  '(100 . "AcDbSymbolTableRecord")
    
15.                  '(100 . "AcDbDimStyleTableRecord")
    
16.                  (cons 2 "DIM-C")        ;dimstyle名称
    
17.                  (cons 70 32)                ;标注的标志值
    
18.                  (cons 41 2)                ;dimasz的值,即箭头的大小
    
19.                  (cons 42 0.625)        ;dimexo的值尺寸线与实体之间的距离
    
20.                  (cons 43 3.75)                ;dimdli的值
    
21.                  (cons 44 1.25)                ;dimexe的值标注线超出标注延伸线之外的长度
    
22.                  (cons 73 0)                ;dimtih的值,本变量用于控制除坐标之外的所有标注类型中的标注文字在标注延伸线之内的定位况
    
23.                  (cons 74 1)                ;dimtoh的值本系统变量用来控制标注文字在标注延伸线之外的定位况
    
24.                  (cons 77 0)                ;dimtad的值,本系统变量用来控制将标注文字放在标注线的上方时的定位况
    
25.                  (cons 78 0)                ;dimzin的值
    
26.                  (cons 140 2.5)                ;
    
27.                  (cons 141 2.5)                ;
    
28.                  (cons 143 0.0393701)        ;
    
29.                  (cons 147 0.625)        ;
    
30.                  (cons 170 0)                ;dimalt的值,本系统变量用于控制是否使用双重单位(公制.英制)进行标注,
    
31.                  (cons 171 3)                ;dimaltd的值,本系统变量用于指定双重单位标注中辅助标注的小数的位数,仅当dimalt=1时,本系统变量的值才有效
    
32.                  (cons 172 0)                ;dimtofl的值，当其值为1时，即使标注文字放在了标注延伸线之外,AutoCAD也将标注线画在标注延伸线之内,
    
33.                  (cons 174 0)
    
34.                  (cons 178 7)                ;标注文字的颜色
    
35.                  (cons 271 2)                ;
    
36.                  (cons 272 2)                ;
    
37.                  (cons 274 3)                ;
    
38.                  (cons 283 0)                ;
    
39.                  (cons 284 8)                ;
    
40.                )                        ;
    
41.       )
    
42.       (entmake en)
    
43.     )
    
44.   )
    
45.   (PRINC)
    
46. )

<br /> (defun dim-c (/ e EN)<br />   (setq        e  nil<br />         en nil<br />   )<br />   (setq e (tblobjname "DIMSTYLE" "DIM-C"))<br />   (IF E<br />     (PROGN (PROMPT "\n DIM-C 已经存在了!") (PRINC))<br />     (progn<br />       (setq en (list<br />                  (cons 0 "DIMSTYLE")        ;符号类型<br />                  (cons 105 "27")<br />                  '(100 . "AcDbSymbolTableRecord")<br />                  '(100 . "AcDbDimStyleTableRecord")<br />                  (cons 2 "DIM-C")        ;dimstyle名称<br />                  (cons 70 32)                ;标注的标志值<br />                  (cons 41 2)                ;dimasz的值,即箭头的大小<br />                  (cons 42 0.625)        ;dimexo的值尺寸线与实体之间的距离<br />                  (cons 43 3.75)                ;dimdli的值<br />                  (cons 44 1.25)                ;dimexe的值标注线超出标注延伸线之外的长度<br />                  (cons 73 0)                ;dimtih的值,本变量用于控制除坐标之外的所有标注类型中的标注文字在标注延伸线之内的定位况<br />                  (cons 74 1)                ;dimtoh的值本系统变量用来控制标注文字在标注延伸线之外的定位况<br />                  (cons 77 0)                ;dimtad的值,本系统变量用来控制将标注文字放在标注线的上方时的定位况<br />                  (cons 78 0)                ;dimzin的值<br />                  (cons 140 2.5)                ;<br />                  (cons 141 2.5)                ;<br />                  (cons 143 0.0393701)        ;<br />                  (cons 147 0.625)        ;<br />                  (cons 170 0)                ;dimalt的值,本系统变量用于控制是否使用双重单位(公制.英制)进行标注,<br />                  (cons 171 3)                ;dimaltd的值,本系统变量用于指定双重单位标注中辅助标注的小数的位数,仅当dimalt=1时,本系统变量的值才有效<br />                  (cons 172 0)                ;dimtofl的值，当其值为1时，即使标注文字放在了标注延伸线之外,AutoCAD也将标注线画在标注延伸线之内,<br />                  (cons 174 0)<br />                  (cons 178 7)                ;标注文字的颜色<br />                  (cons 271 2)                ;<br />                  (cons 272 2)                ;<br />                  (cons 274 3)                ;<br />                  (cons 283 0)                ;<br />                  (cons 284 8)                ;<br />                )                        ;<br />       )<br />       (entmake en)<br />     )<br />   )<br />   (PRINC)<br /> )

aeo

先建一个满意的
(tblsearch "dimstyle""???")
去掉几行没必要的,
存!

要记住那么多,不可能.