[编程申请]：标注大小一步到位

zctao1966

要求：
运行程序后，输入一数字X，再框选标注，即可改变：
箭头大小值：X
尺寸界线范围：X/2
尺寸界线偏移：X/2
文字高度：X
文字偏移：X/2

这样就可以省去了，双击标注一个个的去改，请高手不吝赐教，不才感激不尽。

eachy

尺寸界限范围是哪个？

2. 
   
3. (vl-load-com)
   
4. (defun c:tt (/ s ss ssl i obj 2x lst)
   
5.   (if (and (setq x (getreal "\nScalefacter: "))
   
6.            (setq ss (ssget '((0 . "DIM*"))))
   
7.       )
   
8.     (progn
   
9.       (setq ssl        (sslength ss)
   
10.             i        -1
    
11.             2x        (* x 0.5)
    
12.             lst        (list x 2x 2x x 2x)
    
13.       )
    
14.       (repeat ssl
    
15.         (setq obj (vlax-ename->vla-object (ssname ss (setq i (1+ i)))))
    
16.         (mapcar        '(lambda (x y)
    
17.                    (vlax-put obj x y)
    
18.                  )
    
19.                 '("arrowheadsize"
    
20.                   "ExtensionLineOffset"
    
21.                   "textgap"
    
22.                   "textheight"
    
23.                  )
    
24.                 lst
    
25.         )
    
26.       )
    
27.     )
    
28.   )
    
29.   (princ)
    
30. )

<br /> (vl-load-com)<br /> (defun c:tt (/ s ss ssl i obj 2x lst)<br />   (if (and (setq x (getreal "\nScalefacter: "))<br />            (setq ss (ssget '((0 . "DIM*"))))<br />       )<br />     (progn<br />       (setq ssl        (sslength ss)<br />             i        -1<br />             2x        (* x 0.5)<br />             lst        (list x 2x 2x x 2x)<br />       )<br />       (repeat ssl<br />         (setq obj (vlax-ename->vla-object (ssname ss (setq i (1+ i)))))<br />         (mapcar        '(lambda (x y)<br />                    (vlax-put obj x y)<br />                  )<br />                 '("arrowheadsize"<br />                   "ExtensionLineOffset"<br />                   "textgap"<br />                   "textheight"<br />                  )<br />                 lst<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )

fengsea

要是再加上能更改全局标注比例会更好一些！

xiaodong

好东西

yangamy77

真好用

TYEEXDD

eachy版主出手 就是不一样....
一楼 “双击标注一个个的去改”没看懂。。不是有个dimstyle_a图标么 改起来也很方便的..

fl202

猛啊！

不过为什么要这样呢？你可以一开始就在标注样式里设定好了在标注啊？！

磨刀不误砍柴工嘛。

zctao1966

谢谢eachy版主无私精神！
感谢！

黄河之水

这个论坛不错,有人能解决实际问题,不像其它的论坛,几百个回贴,全是"好","谢谢"之类,不好也说好

qwe08

好。学习了

zctao1966

;;;--------------------------------------------------------
;;;函数： bzys   
;;;--------------------------------------------------------
;;;编制日期:2009.05.02
;;;说明:标注样式一次性搞定
;;;--------------------------------------------------------
(defun c:bzys( / wo en ent yans yans1 yans2 yans3 yans4 yans5)
(setq wo (getstring "\n 按空格或回车键选择要标注的图框内的文本，按任意字母+空格/回车键输入要标注的文本字高"))
(if
(= "" wo)
(progn
(setq en (entsel "\n请选择要标注的图框内的文本:"))
(setq ent (entget (car en)))
(setq YANS (cdr (assoc 40 ent)))
(setq YANS1  (rtos YANS 2 3))
(setq YANS2 (/ YANS 2))
(setq YANS3  (rtos YANS2 2 3))
(setq YANS4 (* YANS 2.5))
(setq YANS5  (rtos YANS4 2 3))
);;;end progn
(progn
(setq YANS (getdist "\n请输入要标注的文本字高(支持在图纸上量取):"))
(setq YANS1  (rtos YANS 2 3))
(setq YANS2 (/ YANS 2))
(setq YANS3  (rtos YANS2 2 3))
(setq YANS4 (* YANS 2.5))
(setq YANS5  (rtos YANS4 2 3))
);;;end progn
);;;end if
(command
"dimassoc" "1";;;改变标注文字关联
"dimdli" YANS5;;;基线间距
"dimtxt" YANS1;;;标注文字高度
"textsize" YANS1;;;文字高度
"DIMCLRD" "4";;;尺寸界线颜色为青色
"DIMCLRE" "4";;;尺寸界线颜色为青色
"dimasz" YANS1;;;箭头大小
"dimcen" YANS1;;;圆心标记大小
"dimexo" YANS3;;;尺寸界线原点偏移
"dimgap" YANS3;;;尺寸线和文字的间距
"dimexe" YANS3);;;尺寸界线在尺寸线上
(alert (strcat "\n已成功改变以下变量值："
"\n"
"\n基线间距(dimdli):" YANS5
"\n箭头大小(dimasz):" YANS1
"\n文字高度(textsize):" YANS1
"\n标注文字高度(dimtxt):" YANS1
"\n圆心标记大小(dimcen):" YANS1
"\n尺寸界线原点偏移(dimexo):" YANS3
"\n尺寸线和文字的间距(dimgap):" YANS3
"\n尺寸界线在尺寸线上(dimexe):" YANS3
))
(PRINC)
)



这是我自己写的，虽然没有什么水平，但对我已经很实用了，现分享给大家。。。

cmssrr520

佷是需要，多谢上传