[求助]：,帮帮我,画直线有时候乱跑?

tsml

我写了一个画直线时加倒角的程序，就是画三根直线,两端的表示是角，倒角是55度，平时的时候没问题，但是当选择点时,这个点边上也有其它的交点时（很靠近，捕捉时要比较注意），P3，P4点就会不正确，线就会乱飞，但是时用调试程序检查点的位置又是正确的，请问为什么？

(defun c:wire()
(graphscr)
  
(setq p1 (getpoint "Enter first point"))
(setq p2 (getpoint "Enter second point"))
  
(setq ang1 (angle p1 p2))
   
(setq p3 (polar p1 (+ ang1 0.96) 350))
  
(setq p4 (polar p2 (+ ang1 2.181) 350))

(command "line" p1 p3 p4 p2 "")
)

xbdx

把捕捉功能关闭或在command前面加上(setvar "OSMODE" 0)就可以了

问题青年B

(setq old_osmode (getvar "osmode"))

(setvar "osmode" 0 )
.
.
.
(setvar "osmode"   old_osmode)

tsml

楼上的，这样做了以后会有问题，就是对象捕捉有时会恢复不了，请问为什么？

WHGF

在画线时可以根据需要按功能键关闭捕捉功能,需要时再打开,用程序设置捕捉功能灵活性差.

netbee

最初由 tsml 发布
[B]楼上的，这样做了以后会有问题，就是对象捕捉有时会恢复不了，请问为什么？ [/B]

加入错误处理机制

2. 
   
3. (defun c:wire(/ fun_be fun_en errnew errold)
   
4.   (defun fun_be()
   
5.     [color=red](setq old_osmode (getvar "osmode")) [/color]
   
6.     (setq errold *error*)
   
7.     (setq *error* errnew)
   
8.   )
   
9.   (defun errnew(msg)
   
10.     (princ msg)
    
11.     (fun_en)
    
12.   )
    
13. 
    
14. (defun fun_en()
    
15.   [color=red](setvar "osmode" old_osmode) [/color]
    
16.   (setq *error* errold)
    
17. )
    
18.   ;;---------------
    
19.   ;;主程序开始
    
20.   (fun_be)
    
21.   (graphscr)
    
22.   (setq p1 (getpoint "Enter first point"))
    
23.   (setq p2 (getpoint "Enter second point"))
    
24.   (setq ang1 (angle p1 p2))
    
25. 
    
26.   (setq p3 (polar p1 (+ ang1 0.96) 350))
    
27. 
    
28.   (setq p4 (polar p2 (+ ang1 2.181) 350))
    
29.   [color=red](setvar "osmode" 0 )[/color]
    
30.   (command "line" p1 p3 p4 p2 "")
    
31.   (fun_en)
    
32. )
    

<br /> (defun c:wire(/ fun_be fun_en errnew errold)<br />   (defun fun_be()<br />     [color=red](setq old_osmode (getvar "osmode")) [/color]<br />     (setq errold *error*)<br />     (setq *error* errnew)<br />   )<br />   (defun errnew(msg)<br />     (princ msg)<br />     (fun_en)<br />   )<br /> <br /> (defun fun_en()<br />   [color=red](setvar "osmode" old_osmode) [/color]<br />   (setq *error* errold)<br /> )<br />   ;;---------------<br />   ;;主程序开始<br />   (fun_be)<br />   (graphscr)<br />   (setq p1 (getpoint "Enter first point"))<br />   (setq p2 (getpoint "Enter second point"))<br />   (setq ang1 (angle p1 p2))<br /> <br />   (setq p3 (polar p1 (+ ang1 0.96) 350))<br /> <br />   (setq p4 (polar p2 (+ ang1 2.181) 350))<br />   [color=red](setvar "osmode" 0 )[/color]<br />   (command "line" p1 p3 p4 p2 "")<br />   (fun_en)<br /> ) <br />

Underway

也可以这样安插
(setvar "osmode" 0 )
(command "line" p1 p3 p4 p2 "")
(setvar "osmode" old_osmode)

tsml

1、版主,你是不是写错了，    (setq *error errnew)）中的error少加了个双引号？
2、(fun_be)不能放在程序开始，否则一开始就无法捕捉对象点。

byghbcaixin

程序就是要在无法捕捉对象点情况下才能正常运行,
(setq *error errnew)少个"*"号,应是(setq *error* errnew)

tsml

还有个问题就是执行完程序后按撤消命令，往往会执行到(setvar "osmode" 0 )后面，无对象捕捉状态，再次撤消，对象捕捉才返回正确状态，请问怎么解决，可以撤消一次把整个程序撤消完？

tsml

我觉得放在 (getpoint "Enter first point"))后才行,否则一开始就无法捕捉了

zml84

试一试下面这个：

2. 
   
3. (defun c:test (/ old-osmode p1 p2 ang1 p3 p4)
   
4.     (setq old_osmode (getvar "osmode"))
   
5.     (graphscr)
   
6.     (if        (setq p1 (getpoint "\nEnter first point:"))
   
7.         (if (setq p2 (getpoint p1 "Enter second point:"))
   
8.             (progn
   
9.                 (setq ang1 (angle p1 p2)
   
10.                       p3   (polar p1 (+ ang1 0.96) 350)
    
11.                       p4   (polar p2 (+ ang1 2.181) 350)
    
12.                 )
    
13.                 (setvar "osmode" 0)
    
14.                 (command "_pline" p1 p3 p4 p2 "")
    
15.             )
    
16.         )
    
17.     )
    
18.     (setvar "osmode" old_osmode)
    
19.     (princ)
    
20. )
    

<br /> (defun c:test (/ old-osmode p1 p2 ang1 p3 p4)<br />     (setq old_osmode (getvar "osmode"))<br />     (graphscr)<br />     (if        (setq p1 (getpoint "\nEnter first point:"))<br />         (if (setq p2 (getpoint p1 "Enter second point:"))<br />             (progn<br />                 (setq ang1 (angle p1 p2)<br />                       p3   (polar p1 (+ ang1 0.96) 350)<br />                       p4   (polar p2 (+ ang1 2.181) 350)<br />                 )<br />                 (setvar "osmode" 0)<br />                 (command "_pline" p1 p3 p4 p2 "")<br />             )<br />         )<br />     )<br />     (setvar "osmode" old_osmode)<br />     (princ)<br /> )<br />

<br>
题外话：楼主的代码运行时，当P1与P2两点间距较小情况下，会产生不合常理的结果，应该在代码中予以判断并避免。

tsml

有谁回答我11楼用撤消命令时遇到的问题?帮帮我

zml84

要学习开发，请先学习Acad本身。

2. 
   
3. ;;;zml84 于 2007-03-22 12:25
   
4. (defun c:test (/ old-osmode p1 p2 ang1 p3 p4)
   
5.   (graphscr)
   
6.   (if (setq p1 (getpoint "\n第一点:"))
   
7.     (if        (setq p2 (getpoint p1 "第二点:"))
   
8.       (progn
   
9.         (setq ang1 (angle p1 p2)
   
10.               p3   (polar p1 (+ ang1 0.96) 350)
    
11.               p4   (polar p2 (+ ang1 2.181) 350)
    
12.         )
    
13.         (setq old_osmode (getvar "osmode"))
    
14.         (command "_.undo" "be")
    
15.         (setvar "osmode" 0)
    
16.         (command "_pline" p1 p3 p4 p2 "")
    
17.         (setvar "osmode" old_osmode)
    
18.         (command "_.undo" "e")
    
19.       )
    
20.     )
    
21.   )
    
22.   (princ)
    
23. )
    

<br /> ;;;zml84 于 2007-03-22 12:25<br /> (defun c:test (/ old-osmode p1 p2 ang1 p3 p4)<br />   (graphscr)<br />   (if (setq p1 (getpoint "\n第一点:"))<br />     (if        (setq p2 (getpoint p1 "第二点:"))<br />       (progn<br />         (setq ang1 (angle p1 p2)<br />               p3   (polar p1 (+ ang1 0.96) 350)<br />               p4   (polar p2 (+ ang1 2.181) 350)<br />         )<br />         (setq old_osmode (getvar "osmode"))<br />         (command "_.undo" "be")<br />         (setvar "osmode" 0)<br />         (command "_pline" p1 p3 p4 p2 "")<br />         (setvar "osmode" old_osmode)<br />         (command "_.undo" "e")<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br />