框选标注修改

184632152

各位大佬，我搞了一个框选修改标注的代码，但新生成的标注样式的全局比例没办法跟着变动？
(defun c:GH (/ ss factor styleName baseStyleName)
  ; 框选图形，
  (setq ss (ssget))
  (if ss
    (progn
      ; 提示用户输入比例因子，并将结果存储在 factor 变量中
      (setq factor (getreal "\n请输入比例因子: "))
      ; 根据比例因子生成新的标注样式名称，格式为 DIM+比例因子
      (setq styleName (strcat "DIM" (rtos factor)))
      ; 检查生成的标注样式是否存在
      (if (tblsearch "DIMSTYLE" styleName)
        (progn
          ; 如果存在，使用 command 函数将该标注样式设置为当前样式
          (command "DIMSTYLE" "R" styleName "")
          ; 仅对之前选择的对象应用标注更新
          (command "DIMSTYLE" "APPLY" ss "")
          ; 刷新视图
          (command "regen")
        )
        (progn
          ; 查找基础样式 DIM1 是否存在
          (setq baseStyleName (tblsearch "DIMSTYLE" "DIM1"))
          (if baseStyleName
            (progn
              ; 复制 DIM1 为新样式
              (command "_DIMSTYLE" "" "DIM1" styleName)
              ; 将新样式设置为当前样式
              (command "DIMSTYLE" "S" styleName)
            )
            ; 如果基础样式 DIM1 不存在，输出相应错误信息
            (princ "\n基础样式 DIM1 不存在，无法创建新样式.")
          )
          ; 设置全局比例因子
          (setvar "DIMSCALE" factor)
          ; 调用 modifyDimStyle 函数修改标注样式的比例因子
          (modifyDimStyle (getvar "DIMSTYLE") factor)
          ; 仅对之前选择的对象应用标注更新
          (command "DIMSTYLE" "APPLY" ss "")
          ; 刷新视图
          (command "regen")
        )
      )
    )
    ; 如果未框选图形，输出相应信息
    (princ "\n未框选图形.")
  )
  (princ)
)



(defun modifyDimStyle (dimstyle value)
  ; 获取标注样式的对象名称
  (setq dimObjName (tblobjname "DIMSTYLE" dimstyle))
  ; 将对象名称转换为实体对象
  (setq dimObj (entget dimObjName))
  ; 查找 DIMSCALE 的组码在标注样式对象中的位置
  (setq dimscaleIndex (assoc 40 dimObj))
  ; 修改 DIMSCALE 的值
  (setq dimObj (subst (cons 40 value) dimscaleIndex dimObj))
  ; 更新标注样式对象
  (entmod dimObj)
)