[LISP函数]：关于entlast的问题

qiaqiadeng

请高手多测试几遍，我在运行下列代码时，有时会生成一个长、宽均为0的矩形。
代码的意图是输入长、宽，然后以p1点为左下角点画一个矩形，然后将该矩形的下底边以p1为基点旋转到p1、p2连成的线上。

(defun c:rec ()
  (setq a (getreal "请输入X方向长度:\n"))
  (setq b (getreal "请输入Y方向长度:\n"))
  (if (not b)
    (setq b a)
  )

  (setq str1 (strcat "@" (rtos a 2 17) "," (rtos b 2 17)))
  (command "RECTANGLE"
           (setq p1 (getpoint "请输入矩形的左下角点:\n"))
           str1
  )
  (setq en (entlast))
  (setq p2 (getpoint p1 "请输入矩形底边的另一方向点："))
  (command "rotate" en "" p1 "r" 0 p2)
)

netbee

最主要的是将变量改为局部变量

2. 
   
3. ;; netbee by [url]www.xdcad.net[/url]
   
4. (defun c:rec (/ a b str1 p1 en p2)
   
5.   (if (setq a (getdist "\n请输入X方向长度<退出>:"))
   
6.     (progn
   
7.       (setq b (getdist "\n请输入Y方向长度<=X>:"))
   
8.       (if (not b)
   
9.         (setq b a)
   
10.       ) ;_ 结束if
    
11.       (setq str1 (strcat "@" (rtos a 2 17) "," (rtos b 2 17)))
    
12.       (command "RECTANGLE"
    
13.                (setq p1 (getpoint "请输入矩形的左下角点:\n"))
    
14.                str1
    
15.       ) ;_ 结束command
    
16.       (setq en (entlast))
    
17.       (command "rotate" en "" p1 pause)
    
18.     ) ;_ 结束defun
    
19.   ) ;_ 结束if
    
20. ) ;_ 结束defun
    

<br /> ;; netbee by [url]www.xdcad.net[/url]<br /> (defun c:rec (/ a b str1 p1 en p2)<br />   (if (setq a (getdist "\n请输入X方向长度<退出>:"))<br />     (progn<br />       (setq b (getdist "\n请输入Y方向长度<=X>:"))<br />       (if (not b)<br />         (setq b a)<br />       ) ;_ 结束if<br />       (setq str1 (strcat "@" (rtos a 2 17) "," (rtos b 2 17)))<br />       (command "RECTANGLE"<br />                (setq p1 (getpoint "请输入矩形的左下角点:\n"))<br />                str1<br />       ) ;_ 结束command<br />       (setq en (entlast))<br />       (command "rotate" en "" p1 pause)<br />     ) ;_ 结束defun<br />   ) ;_ 结束if<br /> ) ;_ 结束defun<br />

qiaqiadeng

多谢斑竹，终于明白了，看来得养成好的变成习惯。

zih1427

小的疏忽, 往往造成困惑很长时间的问题,
前辈的经验, 编程心得等是时间、智慧和汗水凝结成的。