带记忆关联移动，用于结构专业改梁宽 问题？？

bingshuier

2. (defun c:srq(/ ss i newss enname endata p1 p2 s_dis BasicPoint os)
   
3.   (setq os (getvar "osmode"))
   
4.   (setq ss (ssget) i 0 BasicPoint (getpoint "\n输入基点:"))
   
5.   (command "stretch")
   
6.   (repeat (sslength ss)
   
7.     (setq enname (ssname ss i) )
   
8.     (setq endata (entget enname))
   
9.     (setq p1 (trans (cdr (assoc 10 endata)) 0 1)
   
10.           p2 (trans (cdr (assoc 11 endata)) 0 1)
    
11.     ) ;end set
    
12.     (setq newss (ssget "c" p1 p2))
    
13.     (command newss)
    
14.     (setq i (1+ i))
    
15.   ) ;end repeat
    
16.   (command "" BasicPoint)
    
17.   (if (= nil RemMove_dis_all)
    
18.     (progn
    
19.       (setq RemMove_dis_all (getreal "\n输入移动距离:"))
    
20.       (setvar "osmode" 0)
    
21.       (command RemMove_dis_all)
    
22.     ) ;end pro
    
23.     (progn
    
24.       (setq s_dis
    
25.             (getreal (strcat "\n输入移动距离<" (rtos RemMove_dis_all 2 4) ">:"))
    
26.       ) ;end set
    
27.       (if (= nil s_dis)
    
28.         (setq s_dis RemMove_dis_all)
    
29.       ) ;end if
    
30.       (setvar "osmode" 0)
    
31.       (command s_dis)
    
32.       (setq RemMove_dis_all s_dis)
    
33.     ) ;end pro
    
34.   ) ;end if
    
35.   (setvar "osmode" os)
    
36.   (princ)
    
37. ) ;end fun
    

(defun c:srq(/ ss i newss enname endata p1 p2 s_dis BasicPoint os)<br />   (setq os (getvar "osmode"))<br />   (setq ss (ssget) i 0 BasicPoint (getpoint "\n输入基点:"))<br />   (command "stretch")<br />   (repeat (sslength ss)<br />     (setq enname (ssname ss i) )<br />     (setq endata (entget enname))<br />     (setq p1 (trans (cdr (assoc 10 endata)) 0 1)<br />           p2 (trans (cdr (assoc 11 endata)) 0 1)<br />     ) ;end set<br />     (setq newss (ssget "c" p1 p2))<br />     (command newss)<br />     (setq i (1+ i))<br />   ) ;end repeat<br />   (command "" BasicPoint)<br />   (if (= nil RemMove_dis_all)<br />     (progn<br />       (setq RemMove_dis_all (getreal "\n输入移动距离:"))<br />       (setvar "osmode" 0)<br />       (command RemMove_dis_all)<br />     ) ;end pro<br />     (progn<br />       (setq s_dis <br />             (getreal (strcat "\n输入移动距离<" (rtos RemMove_dis_all 2 4) ">:"))<br />       ) ;end set<br />       (if (= nil s_dis)<br />         (setq s_dis RemMove_dis_all)<br />       ) ;end if<br />       (setvar "osmode" 0)<br />       (command s_dis)<br />       (setq RemMove_dis_all s_dis)<br />     ) ;end pro<br />   ) ;end if<br />   (setvar "osmode" os)<br />   (princ)<br /> ) ;end fun<br />

问题就是BasicPoint 为什么没有在前面定义的时候提示输入点呢？而是在后面选完了线之后在执行在屏幕上面选点呢？
还是就是为什么要把直线的起点和终点都转为UCS坐标呢？     wcs和UCS关系有点搞不清呢？