mokson 发表于 2019-9-15 08:21:30

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

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

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

mokson 发表于 2019-9-15 17:16:12

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

Linhay 发表于 2019-9-16 07:40:49

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

mokson 发表于 2019-9-16 08:19:05

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

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

mokson 发表于 2019-9-16 08:47:43

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

1291500406 发表于 2019-9-16 10:04:00

本帖最后由 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))

mokson 发表于 2019-9-16 11:33:06

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 发表于 2019-9-18 10:46:41

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

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 发表于 2019-12-18 11:32:02

非常感谢!

tigcat 发表于 2022-7-24 11:15:34

选择字体设为当前字体样式
(command "_.textstyle" (cdr (assoc 7 (entget (car(entsel "\n字体选择"))))))
页: [1]
查看完整版本: 如何将选中的标注样式快速设置为当前?