放缩拷贝程序

<>(DEFUN C:放缩拷贝()
(SETVAR "CMDECHO" 0)
(PROMPT "\n 放缩拷贝")
(SSGET)
(SETQ A (GETPOINT "\n 基点:"))
(COMMAND "ID" A)
(SETQ B (GETPOINT "\n 第二点.
&lt;如果和基点一样 打RETURN键:"))
(IF (= B NIL) (SETQ B A))
(SETQ C (GETREAL "\n 比例&lt;1&gt;:"))
(COMMAND "COPY" "P" "" A A)
(COMMAND "MOVE" "P" "" A B)
(COMMAND "SCALE" "P" "" B C)
(REDRAW)
(SETVAR "CMDECHO" 1))
</P>
<P>
</P>