[求助]：疑惑的两个问题！！！

心剑

最近碰到突然想到两个问题：
1.关于CAD的动态显示问题，比如移动命令从一个点到另一个点，可以实时显示整个移动的过程，而LISP是靠存储的变量值实现过程，如何实现程序的动态显示的功能呢，LISP行么
2.在LISP调用命令中的比如SCALE命令，点取基点，R参照，后面需要距离或者点的时候在屏幕上可以直接点取，但是GETPOINT得到的点却不能被辨认，这是为什么？

lijiao

请贴出代码，大家帮你看看。

心剑

(defun c:scc ()
  (setq ss (ssget)
        getp (getpoint "\n点取基&:")
        getp1 (getpoint "\n点取移动点:")
  )
(command ".scale" ss getp "R" getp getp1)
)

lijiao

最初由 心剑 发布
[B](defun c:scc ()
  (setq ss (ssget)
        getp (getpoint "\n点取基&:")
        getp1 (getpoint "\n点取移动点:")
  )
(command ".scale" ss getp "R" getp getp1)
) [/B]

如果你要求不高，可以在COMMAND函数中用PAUSE参数。

心剑

我就是不明白COMMAND在调用距离或者点选都可以的函数时候，为什么在屏幕上点选就行，而GETPOINT就不行：（

LUCAS

2. 
   
3. (defun C:SCC (/ SS HOLDECHO GETP GETP1)
   
4.   (setq        SS    (ssget)
   
5.         GETP  (getpoint "\n点取基&: ")
   
6.         GETP1 (getpoint "\n点取移动点: ")
   
7.   )
   
8.   (setq HOLDECHO (getvar "cmdecho"))
   
9.   (setvar "cmdecho" 1)
   
10.   (command ".scale" SS "" GETP "R" GETP GETP1 PAUSE)
    
11.   (setvar "cmdecho" HOLDECHO)
    
12.   (princ)
    
13. )
    

<br /> (defun C:SCC (/ SS HOLDECHO GETP GETP1)<br />   (setq        SS    (ssget)<br />         GETP  (getpoint "\n点取基&: ")<br />         GETP1 (getpoint "\n点取移动点: ")<br />   )<br />   (setq HOLDECHO (getvar "cmdecho"))<br />   (setvar "cmdecho" 1)<br />   (command ".scale" SS "" GETP "R" GETP GETP1 PAUSE)<br />   (setvar "cmdecho" HOLDECHO)<br />   (princ)<br /> )<br />