修改标注比例

sunny_8848

请教大家，怎样修改某种标注样式的的标注比例？因为标注比例有时是变化的，无法预先建立这种标注样式

fangmin723

1. ;;说明:批量修改标注线性比例
   
2. (defun C:DLSF(/ ent lts n ss)
   
3.         (command "UNDO" "be")
   
4.         (if (= 0 (getvar "USERR2")) (progn (setq lts 1.0) (setvar "USERR2" lts))  (setq lts (getvar "USERR2")))
   
5.         (if (setq ss (ssget '((0 . "DIMENSION"))))
   
6.                 (progn
   
7.                         (if (setq lts (getreal (strcat "\n请输入标注线性比例<" (rtos lts 2 3) ">："))) (setvar "USERR2" lts) (setq lts (getvar "USERR2")))
   
8.                         (setq n -1)
   
9.                         (while (setq ent (ssname ss (setq n (1+ n))))
   
10.                                 (vla-put-LinearScaleFactor (vlax-ename->vla-object ent) lts)
    
11.                         )
    
12.                 )
    
13.         )
    
14.         (command "UNDO" "e")
    
15.         (prin1)
    
16. )

;;说明:批量修改标注线性比例<br /> (defun C:DLSF(/ ent lts n ss)<br />         (command "UNDO" "be")<br />         (if (= 0 (getvar "USERR2")) (progn (setq lts 1.0) (setvar "USERR2" lts))  (setq lts (getvar "USERR2")))<br />         (if (setq ss (ssget '((0 . "DIMENSION"))))<br />                 (progn<br />                         (if (setq lts (getreal (strcat "\n请输入标注线性比例<" (rtos lts 2 3) ">："))) (setvar "USERR2" lts) (setq lts (getvar "USERR2")))<br />                         (setq n -1)<br />                         (while (setq ent (ssname ss (setq n (1+ n))))<br />                                 (vla-put-LinearScaleFactor (vlax-ename->vla-object ent) lts)<br />                         )<br />                 )<br />         )<br />         (command "UNDO" "e")<br />         (prin1)<br /> )

x_s_s_1

sunny_8848 发表于 2023-3-10 08:43
谢谢您的帮忙。我的本意是不需要选择某个标注对象，直接修改预先建立的某种标注样式的：主单位--测量单位 ...

1. (defun c:tt (/ a)
   
2.   (command ".-dimstyle" "r" "standard") ;_"standard"改为自用基准标注
   
3.   (setvar 'dimscale (getreal "\n全局比例:"))
   
4.   (setvar 'dimlfac (setq a (getreal "\n比例因子:")))
   
5.   (command ".-dimstyle" "s" (strcat "my_" (rtos a 2 0))) ;_新建样式自己改
   
6.   )

(defun c:tt (/ a)<br />   (command ".-dimstyle" "r" "standard") ;_"standard"改为自用基准标注<br />   (setvar 'dimscale (getreal "\n全局比例:"))<br />   (setvar 'dimlfac (setq a (getreal "\n比例因子:")))<br />   (command ".-dimstyle" "s" (strcat "my_" (rtos a 2 0))) ;_新建样式自己改<br />   )

sunny_8848

fangmin723 发表于 2023-3-9 11:18

谢谢您的帮忙。我的本意是不需要选择某个标注对象，直接修改预先建立的某种标注样式的：主单位--测量单位---比例因子，这样对后续采用这种标注样式的尺寸标注都起效（因为有些图形是缩放绘制的）

vormittag

不是 Dimlfac 控制的么？查一下标注样式对应的组码就好了啊。

wzg356

vlax-get ob linearsclalefactor

sunny_8848

wzg356 发表于 2023-3-6 18:09
vlax-get ob linearsclalefactor

谢谢帮忙，运行错误

vladimirputin

这个比例有一个是全局比例吧。

sunny_8848

谢谢帮忙，明天测试下

669423907

论坛搜索 动态修改标注比例 几年前就有了