[求助]请问高手，如何列出所有标注样式名称？

userzhl

caoyin，但我更想要这样的：

例如：图中有标注样式“50”“100”“150”“200”“250”，其中“50”“150”“250”的全局比例"DIMSCALE"都是100，需要把“50”“150”“250”合并成样式：“模型空间1：100”。

不需要选取标注，直接把样式

“50”“150”“250”合并到样式：“模型空间1：100”。

caoyin

;;;合并标注样式（还没有测试）

;;;语法(lt:dimstyle-merge <要合并的标注样式列表> <目标标注样式>)

(defun lt:dimstyle-merge (dstlst dst / doc blks n space obj app)
  (setq doc    (vla-get-activedocument (vlax-get-acad-object))
        blks   (vla-get-blocks doc)
        dstlst (mapcar 'strcase dstlst)
        dst    (strcase dst)
        n      0
  )
  (if (member (strcase (getvar "dimstyle")) dstlst)
    (setvar "dimstyle" dst)
  )
  (while (< n (vla-get-count blks))
    (setq space (vla-item blks n))
    (vlax-for obj space
      (if (and (= (vla-get-ObjectName obj) "AcDbRotatedDimension")
               (member (cdr (assoc 3 (setq app (entget (vlax-vla-object->ename obj))))) dstlst)
          )
        (entmod (subst (cons 3 dst) (assoc 3 app) app))
      )
    )
    (setq n (1+ n))
  )
  (mapcar '(lambda (x)
             (if (/= x (strcase dst))
               (vl-catch-all-apply 'vla-delete (list (vla-item (vla-get-dimstyles doc) x)))
             )
           )
          dstlst
  )
  (vla-regen doc 1)
)

bianjia2006

回复 caoyin 的帖子

学习了，谢谢

qq1254582201

要是能给这个 完善了不是更美好嘛！！！！

xgd80

学习了