[求助]求教在命令行中改变全局比例因子的方法

cadbird

比如说当前标注样式为iso-25,全局比例因子为1
我输入dimscale 回车 2 回车
想把全局比例因子改为2，但得到的结果是在iso-25样式下面多出了一个样式替代，在样式替代中的全局比例因子变成了2 ，而iso-25中的全局比例因子还是1没变

请教如何才能在命令行中改变iso-25中的全局比例因子

fango

到尺寸样式ISO-25的对话框里去修改不新么？

meflying

因为这些变量都是只读的，你修改变量时当然就产生新的标注样式，要改变某一样式的属性，只能在样式属性里面去改

t4ed6p

这是不是就是说没法用LISP自定义命令修改了？
VBA行不行？

龙龙仔

;;method-1
;;我知道这不是你想要的,因它不会改变已存在的旧尺寸标注
;;BY 龙龙仔
;;USAGE: (CH_DIMSTYLE_SCALE "STANDARD" 8)
;;USAGE: (CH_DIMSTYLE_SCALE "iso-25" 4)

(defun CH_DIMSTYLE_SCALE (DIMNAME DIMSCALE / WW QQ NAME)
  (setq QQ (TABLE "DIMSTYLE" DIMNAME))
  (foreach NAME        QQ
    (setq WW (entget (tblobjname "dimstyle" NAME)))
    (setq WW (subst (cons 40 DIMSCALE) (assoc 40 WW) WW))
    (entmod WW)
  )
  (command "_.DIMSTYLE" "R" DIMNAME)
  (princ)
)

;;(TABLE "DIMSTYLE" "STANDARD")
(defun TABLE (S DIMNAME / D R)
  (while (setq D (tblnext S (null D)))
    (if        (wcmatch (strcase (cdr (assoc 2 D)))
                 (strcase (strcat DIMNAME "*"))
        )
      (setq R (cons (cdr (assoc 2 D)) R))
    )
  )
)


;;method-2
;;下列转贴自xdcad
;;----------------------------------------------------------------
(setq OLDEXP (getvar "expert"))
(setvar "expert" 5)
(command "dim" "res" "STANDARD" "dimscale" 8.0 "save" "STANDARD" "exit")
(setvar "expert" OLDEXP)

t4ed6p

我所需要的就是(setvar "expert" 5)，谢谢！

atone

龙龙仔 发表于 2003-7-3 08:08
;;method-1
;;我知道这不是你想要的,因它不会改变已存在的旧尺寸标注
;;BY 龙龙仔

厉害，牛逼啦哥