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

nkmjg

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

复制代码