标注刷源码

myfrankie

下面是别人的代码，如何将目标标注刷成源标注的样式？（包括标注的颜色，大小，样式等等）如果有其它的标注刷子也可提供一个，谢谢

2. 
   
3. (defun c:dmp(/ ment ent ss)
   
4.   (setq ment(entsel "\n拾取源标注："))
   
5.   (if (= (cdr (assoc 0 (entget (car ment)))) "DIMENSION")
   
6.     (progn
   
7.       (redraw (car ment) 3)
   
8.       (setq ent (cdr (assoc 2 (entget (car ment))))
   
9.             ent        (cdr (assoc -2 (tblsearch "BLOCK" ent)))
   
10.       )
    
11.       (while (/= (cdr (assoc 0 (entget ent))) "MTEXT")
    
12.         (setq ent (entnext ent))
    
13.       )
    
14.       (setq ent (cdr (assoc 1 (entget ent))))
    
15.       (princ "\n选择需要替换的标注：")
    
16. ;;
    
17.       (while (setq ss  (ssget ":S"))
    
18.         (command "dim1" "new" ent ss "")
    
19.       )
    
20. ;;
    
21. ;|while段在R14中改为如下
    
22.       (setq ss  (ssget))
    
23.       (command "dim1" "new" ent ss "")
    
24. |;
    
25.     )
    
26.     (princ "\n选择实体不是标注。")
    
27.   )
    
28.   (redraw (car ment) 4)
    
29.   (princ)
    
30. )

<br /> (defun c:dmp(/ ment ent ss)<br />   (setq ment(entsel "\n拾取源标注："))<br />   (if (= (cdr (assoc 0 (entget (car ment)))) "DIMENSION")<br />     (progn<br />       (redraw (car ment) 3)<br />       (setq ent (cdr (assoc 2 (entget (car ment))))<br />             ent        (cdr (assoc -2 (tblsearch "BLOCK" ent)))<br />       )<br />       (while (/= (cdr (assoc 0 (entget ent))) "MTEXT")<br />         (setq ent (entnext ent))<br />       )<br />       (setq ent (cdr (assoc 1 (entget ent))))<br />       (princ "\n选择需要替换的标注：")<br /> ;;<br />       (while (setq ss  (ssget ":S"))<br />         (command "dim1" "new" ent ss "")<br />       )<br /> ;;<br /> ;|while段在R14中改为如下<br />       (setq ss  (ssget))<br />       (command "dim1" "new" ent ss "")<br /> |;<br />     )<br />     (princ "\n选择实体不是标注。")<br />   )<br />   (redraw (car ment) 4)<br />   (princ)<br /> )

myfrankie

自已先顶一下

sicky111

很好用，我也顶楼主一下。

zhangq_cai1

试了一下不起作用~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~·

乘风寻龙

有没有具体一点的使用方法，或者使用图片？