polar 捕捉的问题：

mandala

一段简单的lsp：

2. 
   
3. 
   
4. (defun c:bbb()
   
5. (setq p1(getpoint"First:"))(command"circle"p1"0.5")
   
6. (while(setq p2(getpoint p1" Next:"))
   
7.     (setq a (polar p1 (angle p1 p2) 0.5))
   
8.     (setq b (polar p2 (angle p2 p1) 0.5))
   
9.     (command"line"a b"")(command"circle"p2"0.5")
   
10.     (setq p1 p2)
    
11. )
    
12. )
    
13. 
    

<br /> <br /> (defun c:bbb()<br /> (setq p1(getpoint"First:"))(command"circle"p1"0.5")<br /> (while(setq p2(getpoint p1" Next:"))<br />     (setq a (polar p1 (angle p1 p2) 0.5))<br />     (setq b (polar p2 (angle p2 p1) 0.5))<br />     (command"line"a b"")(command"circle"p2"0.5")<br />     (setq p1 p2)<br /> )<br /> )<br /> <br />

是用来画连线的电杆的，要求是圆圈中心空白，如下图。在关闭自动捕捉情况下运行正常，但打开自动捕捉就出问题，线都连到圆心去了。是不是在捕捉开启的情况下polar就靠不住了？我又不想关闭捕捉，如何解决呢？

crazylsp

你可以求教下老迈，他的程序把捕捉打开都能和CAD的一样，不过这种程序非常复杂

Andyhon

polar就靠不住了?
Polar ok 啦!
是在 Command 下受 自动捕捉 的影响

Gu_xl

不想关闭捕捉，就别用command啦！用函数来制造物体！

lixdu

2. (defun c:bbb()
   
3.   (setq sa (getvar "osmode"))
   
4.   (setq p1(getpoint"First:"))
   
5.   (setvar "osmode" 0 )
   
6.   (command"circle"p1"0.5")
   
7.   (setvar "osmode" sa )
   
8.   (while(setq p2(getpoint p1" Next:"))
   
9.     (setq a (polar p1 (angle p1 p2) 0.5))
   
10.     (setq b (polar p2 (angle p2 p1) 0.5))
    
11.     (setvar "osmode" 0 )
    
12.     (command"line"a b"")
    
13.     (command"circle"p2"0.5")
    
14.     (setvar "osmode" sa )
    
15.     (setq p1 p2)
    
16.   )
    
17. )

(defun c:bbb()<br />   (setq sa (getvar "osmode"))<br />   (setq p1(getpoint"First:"))<br />   (setvar "osmode" 0 )<br />   (command"circle"p1"0.5")<br />   (setvar "osmode" sa )<br />   (while(setq p2(getpoint p1" Next:"))<br />     (setq a (polar p1 (angle p1 p2) 0.5))<br />     (setq b (polar p2 (angle p2 p1) 0.5))<br />     (setvar "osmode" 0 )<br />     (command"line"a b"")<br />     (command"circle"p2"0.5")<br />     (setvar "osmode" sa )<br />     (setq p1 p2)<br />   )<br /> )

lixdu

临时关闭对操作没影响吧

mandala

Gu_xl 发表于 2010-12-27 23:04
不想关闭捕捉，就别用command啦！用函数来制造物体！

我试着用了加“non”的办法，似乎解决了问题，请问这种方法可靠吗？

2. (defun c:bbb()
   
3. (setq p1(getpoint"First:"))(command" circle"“_NON”p1"0.5")
   
4. (while(setq p2(getpoint p1" Next:"))
   
5.     (setq a (polar p1 (angle p1 p2) 0.5))
   
6.     (setq b (polar p2 (angle p2 p1) 0.5))
   
7.      (command "_.LINE" "_NON" a "_NON"  b "")(command"circle" "_NON"p2"0.5")
   
8.     (setq p1 p2)
   
9. )
   
10. )

(defun c:bbb()<br /> (setq p1(getpoint"First:"))(command" circle"“_NON”p1"0.5")<br /> (while(setq p2(getpoint p1" Next:"))<br />     (setq a (polar p1 (angle p1 p2) 0.5))<br />     (setq b (polar p2 (angle p2 p1) 0.5))<br />      (command "_.LINE" "_NON" a "_NON"  b "")(command"circle" "_NON"p2"0.5")<br />     (setq p1 p2)<br /> )<br /> )

ZZXXQQ

回楼上：可靠。

mandala

谢谢版主，在每一个command里加上“NON”后，使用到现在完全正常。照此看来，用这个方法可以在绝大多数情况下避免关闭捕捉了？毕竟在实际操作中，自动捕捉是很有用处的。

mandala

lixdu 发表于 2010-12-28 11:37

嗯，也是个非常好的思路，试过了运行正常。谢谢lixdu。

用这种方法的问题就是如果中途出现问题退出，以前的捕捉设置会丢失。