将某个标注样式置为当前

baoyizhu

  文字样式置为当前的代码
(setvar 'TEXTSTYLE "标注样式名称")

这样是可行的，
为何标注样式这样写却不行？
  (setvar "DIMSTYLE" "标注样式名称")
调试结果是这样的：

命令: (setvar 'DIMSTYLE "BIAOZHU")
Application Error: 20 :- AutoCAD 变量设置被拒绝: DIMSTYLE "BIAOZHU"
error!!ADS 请求错误

下面这个是可行的
(command "dimstyle" "r" "biaozhu")
请教还有其它方式吗？特别不喜欢用command

飞雪神光

1. (defun BF-ent-activedimstyle(dimname / acaddocument acadobject currdimstyle mspace)
   
2.                 (vl-load-com)
   
3.                 (setq entname (tblobjname "DIMSTYLE" dimname))
   
4.                 (setq
   
5.                         acadobject(vlax-get-acad-object)
   
6.                         acaddocument(vla-get-activedocument acadobject)
   
7.                         mspace(vla-get-modelspace acaddocument)               
   
8.                 )        　　
   
9.                 (setq currdimstyle (vlax-ename->vla-object entname))
   
10.                 (vla-put-activedimstyle acaddocument currdimstyle)
    
11.                 ;(princ (vla-get-name currdimstyle))
    
12.                 (princ)
    
13.         )

(defun BF-ent-activedimstyle(dimname / acaddocument acadobject currdimstyle mspace)<br />                 (vl-load-com)<br />                 (setq entname (tblobjname "DIMSTYLE" dimname))<br />                 (setq <br />                         acadobject(vlax-get-acad-object)<br />                         acaddocument(vla-get-activedocument acadobject)<br />                         mspace(vla-get-modelspace acaddocument)                <br />                 )        　　<br />                 (setq currdimstyle (vlax-ename->vla-object entname))<br />                 (vla-put-activedimstyle acaddocument currdimstyle)<br />                 ;(princ (vla-get-name currdimstyle))<br />                 (princ)<br />         )

煮茗

Bdj 发表于 2023-12-24 20:59
;飞雪函数的用法，哈哈
(defun c:tt()
        (setq dimname (cdr (assoc 3 (entget (car (entsel))))))

先选择标注再执行命令:


(defun c:tt()
                (setq ss (ssget ":S" '((0 . "*dim*"))))
        (setq dimname (cdr (assoc 3 (entget (ssname ss 0)))))
          (BF-ent-activedimstyle dimname)
)

jun353835273

如果不存在 "BIAOZHU")这个的情况会报错

baoyizhu

jun353835273 发表于 2023-12-19 17:23
如果不存在 "BIAOZHU")这个的情况会报错

BIAOZHU这个样式是存在的哦

mokson

应该是当前的标注样式正在使用，不可以更改。
就像文件正在编辑中，不可以删除一样。

lidaxiu

(setq biaozhu (ssget '((0 . "*DIMENSION,LEADER"))))
(command "dimstyle" "R" "" biaozhu "" ))

baoyizhu

飞雪神光 发表于 2023-12-19 17:24

好吧 还是用command吧，只要一句话

liweitung

这些功能原版本的就很好用。

Bdj

飞雪神光 发表于 2023-12-19 17:24

;飞雪函数的用法，哈哈
(defun c:tt()
        (setq dimname (cdr (assoc 3 (entget (car (entsel))))))
          (BF-ent-activedimstyle dimname)
)

YueFeng

1. (vla-put-activedimstyle
   
2.           (vla-get-activedocument (vlax-get-acad-object))
   
3.           (vlax-ename->vla-object
   
4.             (tblobjname "DIMSTYLE" "尺寸样式名")
   
5.           )
   
6.         )

(vla-put-activedimstyle <br />           (vla-get-activedocument (vlax-get-acad-object)) <br />           (vlax-ename->vla-object <br />             (tblobjname "DIMSTYLE" "尺寸样式名")<br />           )<br />         )