标注 界线固定长度

樱木花道2

如何用lsp或vlisp打开标注格式里的界线的固定长度 ，并修改其值？

1993063

2. (defun c:tt ( / ss ) (vl-load-com)
   
3.   (if (and (setq ss (ssget '((0 . "DIMENSION"))))
   
4.       (setq ss (mapcar 'vlax-ename->vla-object (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))))
   
5.     )
   
6.     (mapcar '(lambda (x)(vla-put-extlinefixedlensuppress x 1)(vla-put-extlinefixedlen x (* 2 (vla-get-textheight x)))) ss)
   
7.   )
   
8.   (princ)
   
9. )

(defun c:tt ( / ss ) (vl-load-com)<br />   (if (and (setq ss (ssget '((0 . "DIMENSION"))))<br />       (setq ss (mapcar 'vlax-ename->vla-object (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))))<br />     )<br />     (mapcar '(lambda (x)(vla-put-extlinefixedlensuppress x 1)(vla-put-extlinefixedlen x (* 2 (vla-get-textheight x)))) ss)<br />   )<br />   (princ)<br /> )

edata

变量dimfxlon 和 dimfxl

chg

(setvar "dimclrd" 0);为尺寸线，箭头，引线指定颜色，0为byblock，256为bylayer
      (setvar "dimdli" 8);基线标注中尺寸线的间距
      (setvar "dimclre" 0);为尺寸界限、圆心标记、中心线指定颜色
      (setvar "dimexe" 1);指定尺寸界限超出尺寸线的距离
      (setvar "dimexo" 1);指定尺寸界限偏离原点的距离
      (setvar "dimasz" 3);控制尺寸线和引线箭头的大小
      (setvar "dimcen" 0);是否绘制圆心标记及中心线
      (setvar "dimtxsty" "dimtext");指定标注字体样式
      (setvar "dimclrt" 7);标注文字的颜色
      (setvar "dimtxt" 3);标注文字高度
      (setvar "dimtad" 1);控制文字相对于尺寸线的垂直位置
      (setvar "dimjust" 0);控制标注文字的水平位置
      (setvar "dimgap" 1.5);设置当打断尺寸线以符合标注文字时，标注文字周围的距离
      (setvar "dimtoh" 0);控制标注文字的尺寸界线外的位置
      (setvar "dimtih" 0);控制标注文字在尺寸界线内的位置
      (setvar "dimtix" 1);在尺寸界线之间绘制文字,设置为0时和DIMTMOVE设置为0时，可以更改标注文字的摆放位置。
      (setvar "dimatfit" 3);当尺寸界线内的空间不足以放置标注文字和箭头时，如何放置这两者
      (setvar "dimtmove" 2);设置标注文字的移动规则
      (setvar "dimscale" sca);设置全局变量
      (setvar "dimupt" 0);控制用户定位文字的选项，0为只控制尺寸线
      (setvar "dimlunit" 2);设置标注单位，2为小数
      (setvar "dimdec" 3);设置小数位数
      (setvar "dimdsep" ".");小数分隔符
      (setvar "dimlfac" 1);测量比例因子
      (setvar "dimzin" 8);控制针对主单位值的消零处理
      (setvar "dimaunit" 0);为角度标注设定单位格式
      (setvar "dimadec" 3);角度标注中的精度小数位数
      (setvar "dimazin" 2);针对角度标注进行消零处理
      (setvar "dimtol" 0);将公差附在标注文字中
      (setvar "dimtofl" 1);控制是否在尺寸界线之间绘制尺寸线
      (setvar "dimtfill" 0); 控制文字的背景填充色为无
      ;(setvar "dimtfac" 0.6);控制分数中的文字高度是标注文字高度的比例因子

以上是我自定义标注样式时的一些变量控制及说明

樱木花道2

谢谢楼上几位前辈，不知道是否能用组码解决

edata

1. ;;dimfxl (49 . 1.0000) dimfxlon (290 . 1)
   
2. ;;标注样式界线固定函数(注意低版本无效)
   
3. ;;(sk_putfxl "iso-25" nil 1)
   
4. ;;(sk_putfxl "标注样式名" nil或者T 固定长度数值)
   
5. ;;code by edata @mjtd 2015-7-30
   
6. (defun sk_putfxl(dimstr key sk_ds / elist en l1 l2)
   
7.   (if(setq en(tblobjname "dimstyle" dimstr))
   
8.     (progn
   
9.       (setq elist(entget en))
   
10.       (setq key (if key 1 0))
    
11.       (if (setq l1(assoc 290 elist))
    
12.         (setq elist(subst(cons 290 key) l1 elist))
    
13.         (setq elist(append elist (list (cons 290 key))))
    
14.         )
    
15.       (and sk_ds
    
16.            (if (setq l2(assoc 49 elist))
    
17.              (setq elist(subst(cons 49 sk_ds) l2 elist))
    
18.              (setq elist(append elist (list (cons 49 sk_ds))))
    
19.              )          
    
20.            )
    
21.       (entmod elist)
    
22.       )
    
23.     )
    
24.   )
    
25. (defun c:tt(/ ss en dim_st)
    
26.   (if(setq ss(ssget ":E:S" '((0 . "DIMENSION"))))
    
27.     (progn
    
28.       (setq en (ssname ss 0))
    
29.       (setq dim_st(cdr(assoc 3(entget en))))
    
30.       (sk_putfxl dim_st t 3)
    
31.       (if(= (getvar "dimstyle") dim_st) ;;如果是当前样式,更改标注变量
    
32.         (progn
    
33.           (setvar "dimfxlon" 1)
    
34.           (setvar "dimfxl" 3)
    
35.           )
    
36.         )
    
37.       )
    
38.     )
    
39.   (princ)
    
40.   )

;;dimfxl (49 . 1.0000) dimfxlon (290 . 1)<br /> ;;标注样式界线固定函数(注意低版本无效)<br /> ;;(sk_putfxl "iso-25" nil 1)<br /> ;;(sk_putfxl "标注样式名" nil或者T 固定长度数值)<br /> ;;code by edata @mjtd 2015-7-30 <br /> (defun sk_putfxl(dimstr key sk_ds / elist en l1 l2)<br />   (if(setq en(tblobjname "dimstyle" dimstr))<br />     (progn<br />       (setq elist(entget en))<br />       (setq key (if key 1 0))<br />       (if (setq l1(assoc 290 elist))<br />         (setq elist(subst(cons 290 key) l1 elist))<br />         (setq elist(append elist (list (cons 290 key))))<br />         )<br />       (and sk_ds <br />            (if (setq l2(assoc 49 elist))<br />              (setq elist(subst(cons 49 sk_ds) l2 elist))<br />              (setq elist(append elist (list (cons 49 sk_ds))))<br />              )           <br />            )<br />       (entmod elist)<br />       )<br />     )<br />   )<br /> (defun c:tt(/ ss en dim_st)<br />   (if(setq ss(ssget ":E:S" '((0 . "DIMENSION"))))<br />     (progn<br />       (setq en (ssname ss 0))<br />       (setq dim_st(cdr(assoc 3(entget en))))<br />       (sk_putfxl dim_st t 3)<br />       (if(= (getvar "dimstyle") dim_st) ;;如果是当前样式,更改标注变量<br />         (progn<br />           (setvar "dimfxlon" 1)<br />           (setvar "dimfxl" 3)<br />           )<br />         )<br />       )<br />     )<br />   (princ)<br />   )

樱木花道2

edata 发表于 2015-7-30 13:37

谢谢，dimfxl (49 . 1.0000) dimfxlon (290 . 1)

wayne_myles

好吧！我修改下！可惜帖子地址找不到了！