怎么把选择标注的样式，切换为另一个样式？

ch34

2. ;论坛搜一圈没找到把选择标注的样式，切换为另一种样式的例子，请教一下大家，谢谢！
   
3. (defun c:DUP (/ p)
   
4.         (setvar "cmdecho" 0)
   
5.         (princ "\n选择需修改的标注 :")
   
6.         (setq p (ssget))
   
7.         (command "dim" "up" p "" "1：50")  ; 这里需要把选择标注的样式，切换为1：50
   
8.         (setvar "cmdecho" 1)
   
9. 
   
10. )
    
11. 
    
12. ;以下是我找到的一些例子，就是没有上面这个。
    
13. (defun c:DUP (/ p); 把选择标注对应的样式激活为当前标注样式
    
14.         (setvar "cmdecho" 0)
    
15.         (princ "\n选择需修改的标注 :")
    
16.         (setq p (ssget))
    
17.         (command "dim" "up" p "" "e")
    
18.         (setvar "cmdecho" 1)
    
19.         ;(command "-DIMSTYLE" "R" (cdr (assoc 3 (entget (car (entsel)))))) ;选择的标注激活为当前标注
    
20. )
    
21. 
    
22. (defun c:DUP (/ p)
    
23.   (if (not (tblsearch "dimstyle" "1：50"))
    
24.       (command "-dimstyle" "s" "1：50") ;新建样式
    
25.       (command "-dimstyle" "s" "1：50" "y")
    
26.   )
    
27. )
    
28. 
    
29. (defun c:DUP () ;当前样式切换为：1：50
    
30.         (command "-DIMSTYLE" "R" "1：50")
    
31.         (princ "\n当前标注样式:1：50")
    
32.         (princ)
    
33. )
    

;论坛搜一圈没找到把选择标注的样式，切换为另一种样式的例子，请教一下大家，谢谢！<br /> (defun c:DUP (/ p)<br />         (setvar "cmdecho" 0)<br />         (princ "\n选择需修改的标注 :")<br />         (setq p (ssget))<br />         (command "dim" "up" p "" "1：50")  ; 这里需要把选择标注的样式，切换为1：50<br />         (setvar "cmdecho" 1)<br /> <br /> )<br /> <br /> ;以下是我找到的一些例子，就是没有上面这个。<br /> (defun c:DUP (/ p); 把选择标注对应的样式激活为当前标注样式<br />         (setvar "cmdecho" 0)<br />         (princ "\n选择需修改的标注 :")<br />         (setq p (ssget))<br />         (command "dim" "up" p "" "e") <br />         (setvar "cmdecho" 1)<br />         ;(command "-DIMSTYLE" "R" (cdr (assoc 3 (entget (car (entsel)))))) ;选择的标注激活为当前标注<br /> )<br /> <br /> (defun c:DUP (/ p)<br />   (if (not (tblsearch "dimstyle" "1：50")) <br />       (command "-dimstyle" "s" "1：50") ;新建样式<br />       (command "-dimstyle" "s" "1：50" "y")<br />   )<br /> )<br /> <br /> (defun c:DUP () ;当前样式切换为：1：50<br />         (command "-DIMSTYLE" "R" "1：50")<br />         (princ "\n当前标注样式:1：50")<br />         (princ)<br /> )<br />

kozmosovia

修改尺寸标注的DXF3