请教各位：如何改变实体比例？

xhf

请教各位高手：我编了一个LISP程序，想修改所有选择的实体的比例，但是运行后却没有反映，请帮忙！"BPM"为我要选择的实体所在的层。 程序如下： ;***************************************
; | sbsf 按指定比例缩放所选设备 | ;
;***************************************
(defun c:sbsf (/ ss e el xsc ysc zsc m n)
(setvar "cmdecho" 0)
(prompt "\n请选择要被缩放的设备:")
(setq ss (ssget '((0 . "insert") (8 . "Bpm"))))
(if ss
(progn
(setq sc (getreal"\n请输入缩放比例:"))
(setq m 0)
(setq n (sslength ss))
(while (< m n)
(setq e (ssname ss m))
(setq el (entget e))
(setq xsc (* sc (cdr (assoc 41 el))) ;X比例因子
ysc (* sc (cdr (assoc 42 el))) ;Y比例因子
zsc (* sc (cdr (assoc 43 el))) ;Z比例因子
e1 (subst (cons 41 xsc) (assoc 41 e1) e1)
e1 (subst (cons 42 ysc) (assoc 42 e1) e1)
e1 (subst (cons 43 zsc) (assoc 43 e1) e1)
)
(entmod e1)
(entupd e)
(setq m (+ 1 m))
)
)
)
(princ)
)

meflying

e1还是el，不要搞错了

xhf

是e1，，不是EL。


执行到SUBST函数那一行时显示的是nil。

meflying

是让你不要搞错了！！！你再仔细看看你的程序

xhf

多谢飞斑竹，我看出来了。