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

xhf · 发表于 2004-6-6 17:29:00

请教各位高手：我编了一个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)
)