[求助]：cad是否有阁命令，能够在不同的标注样式之间切换

Groovy

cad是否有阁命令，能够在不同的标注样式之间切换。谢谢

yanglzb

俺也想知道是否有这个命令,能省几秒就省几秒

bbf9701

没有用过，研究研究倒还挺好的，有时作图时倒希望是在同一张图里有不同的标注样式。

正经鱼

没听说阿，有的话请大家告诉以下

153823885

那就麻烦点贝
D快捷键了
要想切换，还是请求大林吧

ewenhui

可以从样板文件着手，先做好你想要的标注样式（标注样式管理器），然后保存为样板文件，在选项里添加路径（样板设置）

zhougq

在较高版本的CAD中有个样式工具栏，打开即可用。象图层切换一样的使用。

Groovy

还是期待朋友们能有这样一个命令，

lizagen

利用右键快速选择自己想修改或者转换的标注样式，再打开对象特性窗口，根据自己需要修改各个选项，回车不就行了吧；不知说的对不对（只是前提条件是标注不能是分解过的标注）。

dwq5107

不知道这个算不算

cq_qg

在04版以上有个标注样式栏，可以在里面的下拉条里选择相应的标注样式。我也觉得不方便，图层工具栏有个快速选择当前层的按钮，只要在图上点击一下想要切换到当前的图层的图元就可以了，可惜标注样式不能这么置换。

andy_li99

可以编写一个简单地LSP程序解决，定义一个新的命令，用来切换当前的标注式样，可惜我现在没有时间搞

Groovy

编写一个简单地LSP程序解决，定义一个新的命令，用来切换当前的标注式样，
不知道楼上何时有时间啊，跟大家说说应该是怎么切换的

fangseng

明经CAD论坛里有一个，我已忘记是谁的，谢谢明经CAD!!
**********************************************************************动态切换标注样式
(defun c:BBM (/ loop i ss dimstyles gr cnt)
  (setq dimstyles (vl-sort (gxl-table "dimstyle") '(lambda (a b) (> (atoi a) (atoi b))))
        cnt (length dimstyles)
        i -1
        loop t
        )
  (setq ss (ssget '((0 . "DIMENSION"))))
  (if ss
    (progn
      (princ "\n*** 键入 A 或 S 切换标注样式 ， 回车键或右键结束 *** ")
      (princ "\n")
      (while loop
        (setq gr (grread t 5 1))
        (if (= 2 (car gr))
        (cond ((or (= 97 (cadr gr)) (= 65 (cadr gr)))
               (setq i (1+ i)
                     i (rem i cnt)
                     )
               (setq style (nth i dimstyles))
               (princ (strcat "\r***当前标注样式为: " style "                                     "))
               (gxl-sel-mapcar ss '(lambda (x) (GXL-CH_ENT x 3 style)))
               )
              ((or (= 83 (cadr gr)) (= 115 (cadr gr)))
               (setq i (1- i))
                (if (MINUSP i) (setq i (+ i cnt)))   
               (setq style (nth i dimstyles))
               (princ (strcat "\r***当前标注样式为: " style "                                     "))
               (gxl-sel-mapcar ss '(lambda (x) (GXL-CH_ENT x 3 style)))
               )
              ((= 13 (cadr gr)) (setq loop nil))
              ) ;_ cond
          (if (= 25 (car gr))
            (setq loop nil)
            )
          )
        )
      
      )
    )
    (command "dimstyle" "r" style);切换到的标注样式置为当前使用的标注样式
    (princ (strcat "\r***当前切换标注样式为: " style "                                     "))
    (princ)
  )
;;;gxl-table 返回包含在指定符号表中的所有元素
(defun gxl-table (s / d r)
  (while (setq d (tblnext s (null d)))
    (setq r (cons (cdr (assoc 2 d)) r))
  )
)
;;;(gxl-CH_Ent ent i pt) 用新值pt更新图元ent索引i对应的值
(defun gxl-CH_Ent (ent i pt / en)
  (if (assoc i (setq en (entget ent)))
    (setq en (subst (cons i pt) (assoc i en) en))
    (setq en (append en (list (cons i pt))))
    )
    (entmod en)
  )
;;;(gxl-Sel-Mapcar ss Fun) 遍历选择集对所包含的图元进行指定函数操作,返回操作后的表
(defun gxl-Sel-Mapcar (ss Fun / nn rtn)
  (repeat (setq nn (sslength ss))
  (setq rtn (cons (apply Fun (list (ssname ss (setq nn (1- nn))))) rtn))
    )
  )

e2002

这个工具十几年前就写了，一直在用。