Scale with different X,Y,Z factor.

更多相关内容请访问"CAD家园论坛",万人专家团为您在线答疑!

(defun c:test ()
(setq ent (car (entsel "\nSelect Block to reScale:")))
(setq x (getreal "Xscale factor")
y (getreal "Yscale factor")
z (getreal "Zscale factor"))
(setq obj (lax-ename->la-object ent))
(la-put-xscalefactor obj x)
(la-put-yscalefactor obj y)
(la-put-zscalefactor obj z)
)

我觉得这几句应加个冒号，要不看着很便扭。
setq x (getreal "Xscale factor：")
y (getreal "Yscale factor：")
z (getreal "Zscale factor："))
另外lax-ename->la-object 、la-put-xscalefactor 、la-put-yscalefactor 、la-put-zscalefactor 几个函数是不是不适于ACAD2000,我在2000下的lisp编辑器里，上述几个函数不被承认！

(L-LOAD-COM)