获取当前标注样式

/db_自贡黄明儒_

;;希望大家来完善它

1. (defun C:get_current_dimStyle (/ L LST Y)
   
2.   (setq        Lst (list
   
3.               "blipmode"                                    ;点标记模式：关
   
4.               "dimadec"                                            ;角度标注小数位精度
   
5.               "dimalt"                                            ;控制换算单位是否打开
   
6.               "dimalttz"                                    ;控制对公差值的消零处理
   
7.               "dimaltu"                                            ;设置所有标注子样式（角度标注除外）的换算单位的单位格式
   
8.               "dimassoc"                                    ;控制标注对象的关联性以及是否分解标注
   
9.               "dimasz"                                            ;控制尺寸线和引线箭头的大小。并控制基线的大小
   
10.               "dimatfit"                                    ;尺寸界线内的空间不足以同时放下标注文字和箭头时，此系统变量将确定这两者的排列方式
    
11.               "dimaunit"                                    ;设置角度标注的单位格式
    
12.               "dimazin"                                            ;对角度标注进行消零处理
    
13.               "dimblk"                                            ;设置尺寸线末端显示的箭头块
    
14.               "dimcen"                                            ;标注圆心：不标
    
15.               "dimclrd"                                            ;尺寸线、箭头和标注引线指定颜色。随块输入 0，随层输入256
    
16.               "dimclre"                                            ;尺寸界线指定颜色。随块输入 0，随层输入256
    
17.               "dimclrt"                                            ;为标注文字指定颜色
    
18.               "dimdec"                                            ;设置标注主单位中显示的小数位数
    
19.               "dimdle"                                            ;当使用小斜线代替箭头进行标注时，设置尺寸线超出尺寸界线的距离
    
20.               "dimdli"                                            ;控制基线标注中尺寸线的间距
    
21.               "dimdsep"                                            ;小数分隔符为.
    
22.               "dimexe"                                            ;指定尺寸线超出尺寸界线的距离
    
23.               "dimexo"                                            ;指定尺寸界线偏离原点的距离
    
24.               "dimfxlon"                                    ;控制是否将尺寸界线设置为固定长度
    
25.               "dimgap"                                            ;尺寸线分成两段从而将标注文字放置在两段之间时，设置标注文字周围的距离
    
26.               "dimjust"                                            ;控制标注文字的水平位置
    
27.               "dimldrblk"                                    ;箭头引线打开30
    
28.               "dimlfac"                                            ;设置线性标注测量值的比例因子
    
29.               "dimlunit"                                    ;设置所有标注类型（角度标注除外）的单位
    
30.               "dimscale"                                    ;设置应用于标注变量（可指定大小、距离或偏移量）的全局比例因子
    
31.               "dimtad"                                            ;控制文字相对尺寸线的垂直位置
    
32.               "dimtdec"                                            ;设置标注主单位的公差值中要显示的小数位数
    
33.               "dimtfac"                                            ;指定分数和公差值的文字高度相对于标注文字高度的比例因子
    
34.               "dimtfill"                                    ;控制标注文字的背景
    
35.               "dimtfillclr"                                    ;设置标注中文字背景的颜色
    
36.               "dimtih"                                            ;标注文字在尺寸界线内的位置：关
    
37.               "dimtix"                                            ;在尺寸界线之间绘制文字
    
38.               "dimtmove"                                    ;设置标注文字的移动规则
    
39.               "dimtofl"                                            ;控制是否在尺寸界线之间绘制尺寸线
    
40.               "dimtol"                                            ;将公差附在标注文字之后
    
41.               "dimtolj"                                            ;设置公差值相对于标注文字的垂直对正方式
    
42.               "dimtxsty"                                    ;文字样式
    
43.               "dimtxt"                                            ;文字高度
    
44.               "dimtzin"                                            ;控制对公差值的消零处理
    
45.               "dimupt"                                            ;控制用户定位文字选项
    
46.               "dimzin"                                            ;控制对主单位值的消零处理
    
47.              )
    
48.   )
    
49.   (foreach x Lst
    
50.     (cond ((setq y (getvar x)) (setq L (cons (list x Y) L))))
    
51.   )
    
52.   L
    
53. )

(defun C:get_current_dimStyle (/ L LST Y)<br />   (setq        Lst (list<br />               "blipmode"                                    ;点标记模式：关<br />               "dimadec"                                            ;角度标注小数位精度<br />               "dimalt"                                            ;控制换算单位是否打开<br />               "dimalttz"                                    ;控制对公差值的消零处理<br />               "dimaltu"                                            ;设置所有标注子样式（角度标注除外）的换算单位的单位格式<br />               "dimassoc"                                    ;控制标注对象的关联性以及是否分解标注<br />               "dimasz"                                            ;控制尺寸线和引线箭头的大小。并控制基线的大小<br />               "dimatfit"                                    ;尺寸界线内的空间不足以同时放下标注文字和箭头时，此系统变量将确定这两者的排列方式<br />               "dimaunit"                                    ;设置角度标注的单位格式<br />               "dimazin"                                            ;对角度标注进行消零处理<br />               "dimblk"                                            ;设置尺寸线末端显示的箭头块<br />               "dimcen"                                            ;标注圆心：不标<br />               "dimclrd"                                            ;尺寸线、箭头和标注引线指定颜色。随块输入 0，随层输入256<br />               "dimclre"                                            ;尺寸界线指定颜色。随块输入 0，随层输入256<br />               "dimclrt"                                            ;为标注文字指定颜色<br />               "dimdec"                                            ;设置标注主单位中显示的小数位数<br />               "dimdle"                                            ;当使用小斜线代替箭头进行标注时，设置尺寸线超出尺寸界线的距离<br />               "dimdli"                                            ;控制基线标注中尺寸线的间距<br />               "dimdsep"                                            ;小数分隔符为.<br />               "dimexe"                                            ;指定尺寸线超出尺寸界线的距离<br />               "dimexo"                                            ;指定尺寸界线偏离原点的距离<br />               "dimfxlon"                                    ;控制是否将尺寸界线设置为固定长度<br />               "dimgap"                                            ;尺寸线分成两段从而将标注文字放置在两段之间时，设置标注文字周围的距离<br />               "dimjust"                                            ;控制标注文字的水平位置<br />               "dimldrblk"                                    ;箭头引线打开30<br />               "dimlfac"                                            ;设置线性标注测量值的比例因子<br />               "dimlunit"                                    ;设置所有标注类型（角度标注除外）的单位<br />               "dimscale"                                    ;设置应用于标注变量（可指定大小、距离或偏移量）的全局比例因子<br />               "dimtad"                                            ;控制文字相对尺寸线的垂直位置<br />               "dimtdec"                                            ;设置标注主单位的公差值中要显示的小数位数<br />               "dimtfac"                                            ;指定分数和公差值的文字高度相对于标注文字高度的比例因子<br />               "dimtfill"                                    ;控制标注文字的背景<br />               "dimtfillclr"                                    ;设置标注中文字背景的颜色<br />               "dimtih"                                            ;标注文字在尺寸界线内的位置：关<br />               "dimtix"                                            ;在尺寸界线之间绘制文字<br />               "dimtmove"                                    ;设置标注文字的移动规则<br />               "dimtofl"                                            ;控制是否在尺寸界线之间绘制尺寸线<br />               "dimtol"                                            ;将公差附在标注文字之后<br />               "dimtolj"                                            ;设置公差值相对于标注文字的垂直对正方式<br />               "dimtxsty"                                    ;文字样式<br />               "dimtxt"                                            ;文字高度<br />               "dimtzin"                                            ;控制对公差值的消零处理<br />               "dimupt"                                            ;控制用户定位文字选项<br />               "dimzin"                                            ;控制对主单位值的消零处理<br />              )<br />   )<br />   (foreach x Lst<br />     (cond ((setq y (getvar x)) (setq L (cons (list x Y) L))))<br />   )<br />   L <br /> )

q3_2006

-dimstyle->v

Lisphk

用MAPCAR是不是更好，代码简洁效率还高

1. (defun C:get_current_dimStyle()
   
2.    (setq L ................)
   
3.    (mapcar '(lambda (x)(list x (getvar x))) L)
   
4. )
   

(defun C:get_current_dimStyle()<br />    (setq L ................)<br />    (mapcar '(lambda (x)(list x (getvar x))) L)<br /> )<br />

xvjiex

感谢分享！