如何将选中的标注样式快速设置为当前？

mokson

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

mokson

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

Linhay

(command "-DIMSTYLE" "R" "Dim50")

mokson

Linhay 发表于 2019-9-16 07:40
(command "-DIMSTYLE" "R" "Dim50")

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

mokson

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

1291500406

(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))

mokson

1291500406 发表于 2019-9-16 10:04
(defun c:bb( / bb)
(vl-load-com)
(vla-getentity(vla-get-utility(vla-get-activedocument(vlax-get-ac ...

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

q923890616

1291500406 发表于 2019-9-16 10:04
(defun c:bb( / bb)
(vl-load-com)
(vla-getentity(vla-get-utility(vla-get-activedocument(vlax-get-ac ...

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

594826903

非常感谢！

tigcat

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