MZ_li 发表于 2024-6-27 16:28:07

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

本帖最后由 MZ_li 于 2024-6-27 16:39 编辑

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


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

天命 发表于 2024-6-27 16:44:24

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

tranque 发表于 2024-6-27 19:33:25

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

kozmosovia 发表于 2024-6-27 20:10:13

注释性没用

jun470 发表于 2024-6-27 22:01:27

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

你有种再说一遍 发表于 2024-6-27 22:06:34

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

kozmosovia 发表于 2024-6-27 22:08:45

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

天命 发表于 2024-6-28 21:40:57

做成块，缩放尺寸就不变了
页: [1]
查看完整版本: sc缩放后标注的文字变得很大怎么解决？