[LISP]如何将当前的尺寸标注样式改名？

baozhiliang

如何将当前的尺寸标注样式改名？不要用新建样式，然后应用到当前样式的方法，那样会发生尺寸错位的现象（Auto cad 2004）

meflying

(defun test(oldname newname / dimstyle)
  (setq dimstyles (vla-get-dimstyles (vla-get-activedocument (vlax-get-acad-object))))
  (setq dimstyle (vl-catch-all-apply 'vla-item (list dimstyles oldname)))
  (if (vl-catch-all-error-p dimstyle)
    (princ (strcat "The dimstyle " oldname " does not exist!"))
    (vla-put-name dimstyle newname)   
  )
  (princ)
)

0451doctor

学习了，好东西！

santalin

用-rename命令实现，太简单了

santalin

用-rename命令实现，太简单了啊

SWAYWOOD

飞哥写的什么，我怎么看不见!