本帖最后由 mokson 于 2019-9-15 08:28 编辑

图纸中有多种标注样式，有没有快速切换标注样式的方法？
如：将选中的某个标注样式瞬间将它设置为当前。


网友答: 还有文字样式，有没有将选中的文字样式快速设置为当前样式？

网友答: (command "-DIMSTYLE" "R" "Dim50")

网友答:
谢谢关注的指点，我改为 (command "-DIMSTYLE" "R" "") 就可以自定义选择标注样式了，然后将这行代码设置为一个自定义的快捷键就实现了。感谢师兄的指点。

网友答: 依此类推，快捷设置文字样式，也是可以这样吧：(command textstyle "your style")

网友答: 本帖最后由 1291500406 于 2019-9-16 10:29 编辑

(defun c:bb( / bb)
(vl-load-com)
(vla-getentity(vla-get-utility(vla-get-activedocument(vlax-get-acad-object)
))' bb ' ip  "\n必强提示选择尺寸")
(vl-cmdf "-DIMSTYLE" "R" (vla-get-StyleName bb))
(setvar ' Dimscale  (vla-get-ScaleFactor bb))
(setvar 'clayer  (vla-get-Layer bb))
(setvar 'dimtxt  (vla-get-TextHeight bb))
(princ))


网友答:
感谢楼上兄，你的代码让我的想法变成现实。要向你们好好学习才是硬道理！

网友答: 本帖最后由 q923890616 于 2019-9-18 10:51 编辑

大佬可以这样修改一下吗，就是把拾取的对象参数从新设置一个标注样式，以后的每个拾取的参数都是修改这个标注样式，（由于作图习惯，可能还需要吧文字偏移（DIMGAP）这个值也拾取一下），可以吗，可以有偿。

网友答: 非常感谢！

网友答: 选择字体设为当前字体样式
(command "_.textstyle" (cdr (assoc 7 (entget (car(entsel "\n字体选择"))))))