[1114]请问如何开关图块中的"统一比例"选项?

xyz518mm

[1114]请问如何开关图块中的"统一比例"选项?

请问图块中的"统一比例"开关选项,
该由哪各命令来完成设定呢?
DXF中有吗?还是其他...

小弟目前写了可以指定调整的方向来缩放
但是若是遇到制程的图块中已经将"统一比例"选项打开
好像就不能起作用了

烦请各位高手解答一下
谢谢

[PHP]
(defun c:scxyz ()
(setvar "cmdecho" 0)
(setq ss (ssget '((0 . "INSERT")) ))
(initget 1 "X Y Z")
(setq scxyz (strcase (getstring "\n 请输入调整缩放的方向<X,Y,Z>:")))

(COND
((= scxyz "X")
(SETQ SCTYPE 41)
)
((= scxyz "Y")
(SETQ SCTYPE 42)
)
((= scxyz "Z")
(SETQ SCTYPE 43)
)
(t
(PRINT "\n无此选项,重新操作!")
(EXIT))
)

(setq pt1 (getpoint "\n 请输入缩放基准点:"))
(setq pt2 (getpoint pt1 "\n 请点选目前缩放尺寸位置:"))
(setq pt3 (getpoint pt1 "\n 请点选需求缩放尺寸位置:"))
(setq dist_st (distance pt1 pt2))
(setq dist_nw (distance pt1 pt3))
(setq SCMU (/ dist_nw dist_st  ))

(setq i 0)
(repeat (sslength ss)
(setq endata (entget (ssname ss i)))
(setq oldlist (assoc SCTYPE endata));取得群码之子串列
(setq newlist (cons SCTYPE SCMU));产生新群码之子串列
(setq endata  (subst newlist oldlist endata));新旧交替
(entmod endata);更新图面中图元
(setq i (1+ i))
)

)
[/PHP]