sc缩放后标注的文字变得很大怎么解决？

MZ_li

图纸用SC缩小一千倍后，所有标注的文字全都不能跟着缩小，自己琢磨写了一段代码，但是有时候运行没问题，有时候又提示错误ActiveX 服务器返回错误: 未知名称:PRIMARYUNITSPRECISION，大家帮我看看哪里出问题

2. (defun bz_sfbl( bzss bzbs / n en);标注全局缩放比例
   
3.   (setq n 0)
   
4.   (repeat (sslength bzss)
   
5.       (setq en  (ssname bzss n);;提取图元
   
6.       en (vlax-ename->vla-object en)
   
7.       n (1+ n)
   
8.       )
   
9.       (vlax-put-property en 'ScaleFactor bzbs);全局缩放
   
10.       (setvar "DIMSCALE" bzbs);标注全局缩放比例
    
11.       (if (= gndh_n 1)
    
12.         (progn
    
13.           (vlax-put-property en 'LinearScaleFactor 1000.0);测量单位比例
    
14.           (setvar "DIMLFAC" 1000);标注测量单位比例
    
15.         )
    
16.         (vlax-put-property en 'PrimaryUnitsPrecision acDimPrecisionThree);设置标注精度
    
17.       )
    
18.   )
    
19. )

(defun bz_sfbl( bzss bzbs / n en);标注全局缩放比例<br />   (setq n 0)<br />   (repeat (sslength bzss)<br />       (setq en  (ssname bzss n);;提取图元<br />       en (vlax-ename->vla-object en)<br />       n (1+ n)<br />       )<br />       (vlax-put-property en 'ScaleFactor bzbs);全局缩放<br />       (setvar "DIMSCALE" bzbs);标注全局缩放比例<br />       (if (= gndh_n 1)<br />         (progn<br />           (vlax-put-property en 'LinearScaleFactor 1000.0);测量单位比例<br />           (setvar "DIMLFAC" 1000);标注测量单位比例<br />         )<br />         (vlax-put-property en 'PrimaryUnitsPrecision acDimPrecisionThree);设置标注精度<br />       )<br />   )<br /> )

(bz_sfbl (setq bzss (ssget  '((0 . "DIMENSION")))) 0.001)

天命

为什么要缩放，用布局不好吗

tranque

说一个我没用过，但是貌似能解决你说的这个问题的方法，注释性

kozmosovia

注释性没用

jun470

不成功的是不是不同的标注，角度之类的

你有种再说一遍

这也是我不太喜欢lisp的原因之一,报错没有原因,起码告诉你id是什么才对.

kozmosovia

缩放后需要相应修改这两个属性
(_Kernel vlo "LinearScaleFactor" scl nil)
(_Kernel vlo "ScaleFactor" scl T)

天命

做成块，缩放尺寸就不变了