[LISP函数]：求助，我刚做的小程序 有bug望高手指点

ljh19991220

；我刚做了一个小程序，就是点取两点，生成矩形框。发现有两个问题，希望高手指点解决。问题见附图。


(defun c:rqtg()

(setvar "cmdecho" 0)
(setq d1 (getpoint "\n点取第一点: "))
(setq d2 (getpoint "\n点取第二点: "))       
(setq ww (getreal "\n宽度<2>: "))
(if (null ww) (setq ww 2))
(setq ww1 (/ ww 2))       
(setq ang_1 (angle d1 d2))
(setq d3 (polar d1 (+ pi ang_1) 1))
(setq d4 (polar d2 ang_1 1))

(setq ang_2 (angle d3 d4))

(setq pt1 (polar d3 (+ (/ pi 2) ang_2) ww1))
(setq pt2 (polar d3 (+ (+(/ pi 2) ang_2) pi) ww1))       
(setq pt3 (polar d4 (+ (/ pi 2) ang_2) ww1))
(setq pt4 (polar d4 (+(+ (/ pi 2) ang_2) pi) ww1))
(command "pline" pt1 pt3 pt4 pt2  "c")        ;完成图形

(prompt "\n画套管 命令：rqtg ")
(prompt "\n如果有什么BUG，请联系我：ljh19991220@163.com  ")

(prin1)        ;消除执行完成后所返回的nil
)

158466939

把捕捉关了试下

awaitt_y

(setq oldOSMODE (getvar "OSMODE"))
  (setvar "OSMODE" 0)
;
;正文
;

  (setvar "OSMODE" oldOSMODE)

ljh19991220

楼上两位大哥，能解释下为什么吗？

不过捕捉不能关，我要点那是两个交点。

gysjy

在绘制矩形前应关闭捕捉。

2. 
   
3.   [FONT=courier new]
   
4. (defun c:rqtg()
   
5.   (setq os (getvar "osmode"));记录当前捕捉方式
   
6.   (setvar "cmdecho" 0)
   
7.   (setvar "osmode" 512)
   
8.   ;这里设定了最近点捕捉，你可以根据需要改为其它捕捉
   
9.   (setq d1 (getpoint "\n点取第一点: "))
   
10.   (setq d2 (getpoint "\n点取第二点: " d1))
    
11.   ;加了一个橡皮条，可以看清第二点的动态位置
    
12.   (setq ww (getreal "\n宽度<2>: "))
    
13.   (if (null ww) (setq ww 2))
    
14.   (setq ww1 (/ ww 2))
    
15.   (setq ang_1 (angle d1 d2))
    
16.   (setq d3 (polar d1 (+ pi ang_1) 1))
    
17.   (setq d4 (polar d2 ang_1 1))
    
18.   (setq ang_2 (angle d3 d4))
    
19.   (setq pt1 (polar d3 (+ (/ pi 2) ang_2) ww1))
    
20.   (setq pt2 (polar d3 (+ (+(/ pi 2) ang_2) pi) ww1))
    
21.   (setq pt3 (polar d4 (+ (/ pi 2) ang_2) ww1))
    
22.   (setq pt4 (polar d4 (+(+ (/ pi 2) ang_2) pi) ww1))
    
23.   (setvar "osmode" 0);在绘制矩形前取消捕捉，以避免绘制错误。
    
24.   (command "pline" pt1 pt3 pt4 pt2 "c") ;完成图形
    
25.   (setvar "osmode" os) ;恢复捕捉为初始状态
    
26.   (prompt "\n画套管 命令：rqtg ")
    
27.   (prompt "\n如果有什么BUG，请联系我：ljh19991220@163.com ")
    
28. (  prin1) ;消除执行完成后所返回的nil
    
29. )
    
30. 
    
31.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun c:rqtg()<br />   (setq os (getvar "osmode"));记录当前捕捉方式<br />   (setvar "cmdecho" 0)<br />   (setvar "osmode" 512)<br />   ;这里设定了最近点捕捉，你可以根据需要改为其它捕捉<br />   (setq d1 (getpoint "\n点取第一点: "))<br />   (setq d2 (getpoint "\n点取第二点: " d1)) <br />   ;加了一个橡皮条，可以看清第二点的动态位置<br />   (setq ww (getreal "\n宽度<2>: "))<br />   (if (null ww) (setq ww 2))<br />   (setq ww1 (/ ww 2)) <br />   (setq ang_1 (angle d1 d2))<br />   (setq d3 (polar d1 (+ pi ang_1) 1))<br />   (setq d4 (polar d2 ang_1 1))<br />   (setq ang_2 (angle d3 d4))<br />   (setq pt1 (polar d3 (+ (/ pi 2) ang_2) ww1))<br />   (setq pt2 (polar d3 (+ (+(/ pi 2) ang_2) pi) ww1)) <br />   (setq pt3 (polar d4 (+ (/ pi 2) ang_2) ww1))<br />   (setq pt4 (polar d4 (+(+ (/ pi 2) ang_2) pi) ww1))<br />   (setvar "osmode" 0);在绘制矩形前取消捕捉，以避免绘制错误。<br />   (command "pline" pt1 pt3 pt4 pt2 "c") ;完成图形<br />   (setvar "osmode" os) ;恢复捕捉为初始状态<br />   (prompt "\n画套管 命令：rqtg ")<br />   (prompt "\n如果有什么BUG，请联系我：ljh19991220@163.com ")<br /> (  prin1) ;消除执行完成后所返回的nil<br /> ) <br /> <br />   [/FONT]<br />

fl202

我觉得你用pline命令不如用rec那个画矩形的命令来的方便。