[求助]：请大家帮助看看哪错了?

JQKA

;比例放大
(defun c:sf ()
      (setq bl(getdist "\n放大比例:") )
      (prompt "\n选择放大对象<退出>:" )
      (while (setq dm (ssget ))
              (setq  cr(getpoint "\n基点:") ent (ssname dm 0)dd1 (entget ent))
          (command "scale"  dd1 cr BL )
           )
(princ)
   )

zxq0220

[php]
;比例放大
(defun c:sf ()
(setq bl (getdist "\n放大比例:"))
(prompt "\n选择放大对象<退出>:")
(while (setq dm (ssget ))
(setq cr(getpoint "\n基点:"))
(command "scale" dm cr BL)
)
(princ)
)
[/php]

JQKA

还是不对，如下：
sf
放大比例:2
选择放大对象<退出>:
Select objects: Specify opposite corner: 1 found
Select objects:
基点:
*Invalid selection*
Expects a point or
Window/Last/Crossing/BOX/ALL/Fence/WPolygon/CPolygon/Group/Add/Remove/Multiple/P
revious/Undo/AUto/SIngle

21cn

(command "scale" dm “” cr BL)

似水无痕

2. (defun c:sf ()
   
3.   (setq bl (getdist "\n放大比例:"))
   
4.   (prompt "\n选择放大对象<退出>:")
   
5.   (while (setq dm (ssget))
   
6.     (setq cr  (getpoint "\n基点:")
   
7.     )
   
8.     (command "scale" dm "" cr BL "")
   
9.   )
   
10.   (princ)
    
11. )

(defun c:sf ()<br />   (setq bl (getdist "\n放大比例:"))<br />   (prompt "\n选择放大对象<退出>:")<br />   (while (setq dm (ssget))<br />     (setq cr  (getpoint "\n基点:")<br />     )<br />     (command "scale" dm "" cr BL "")<br />   )<br />   (princ)<br /> )