[求助]：请问能够不去掉捕捉也能够正确运行程序吗?

yuun

lisp程序在开始要将捕捉给去掉,不然画出来的图形可能不正确,可是有时候要用捕捉选输入的点,以求其精确.
有没有两全齐美的办法解决这个矛盾???高手指点下.谢谢

将捕捉在输入点之后马上去掉还是不行,照理来说,主程序还没有开始,捕捉就关掉了,应该能画正确,可是事实上不行,怎么回事??

oyxx_1023

把程序贴出来看看．

yuun

2. (defun c:gkh(/ ds p1 pp nn old p2 p3 p4 p5)
   
3. (command "cmdecho" 0 )
   
4. 
   
5. (setq ds(getvar "dimscale"))
   
6. (setq p1(getpoint "\n     起始点"))
   
7. (setq pp(getpoint "\n     管口的方向"))
   
8. (setq nn(getint "\n    连件的数量"))
   
9. (setq old (getvar "osmode"))
   
10. (setvar "osmode" 0)   ;去掉捕捉
    
11. (setq cd(* 12 ds))
    
12. (setq zh(* 6  ds))
    
13. (setq anglee(angle p1 pp))
    
14. 
    
15. 
    
16. 
    
17.    (setq p2(list (car pp) (cadr pp)))
    
18.      (setq p3(polar p2 anglee zh))
    
19.       (setq p4(list (+ (car p3) zh) (cadr p3)))
    
20.       (setq p5(list (- (car p3) zh) (cadr p3)))
    
21.       (command "line" p1 p2 "")
    
22.       (command "circle" p3 zh)
    
23.       (command "line" p4 p5 "")
    
24.                 (while (> nn 1)
    
25.                    (setq p3(polar p3 anglee cd))
    
26.                   (setq p4(polar p4 anglee cd))
    
27.                    (setq p5(polar p5 anglee cd))
    
28.                    (command "circle" p3 zh)
    
29.                    (command "line" p4 p5 "")
    
30.                    (setq nn(1- nn))
    
31.                  
    
32.    (setvar "cmdecho" 1)
    
33.     (setvar "osmode" old);恢复捕捉
    
34.     (princ)
    
35.   )
    
36. (prompt "*************** 用快捷键gkh运行 *****************")
    
37. 
    
38. (prin1)
    

(defun c:gkh(/ ds p1 pp nn old p2 p3 p4 p5)<br /> (command "cmdecho" 0 )<br /> <br /> (setq ds(getvar "dimscale")) <br /> (setq p1(getpoint "\n     起始点"))<br /> (setq pp(getpoint "\n     管口的方向"))<br /> (setq nn(getint "\n    连件的数量"))<br /> (setq old (getvar "osmode"))<br /> (setvar "osmode" 0)   ;去掉捕捉<br /> (setq cd(* 12 ds))<br /> (setq zh(* 6  ds))<br /> (setq anglee(angle p1 pp))<br /> <br /> <br /> <br />    (setq p2(list (car pp) (cadr pp)))<br />      (setq p3(polar p2 anglee zh))<br />       (setq p4(list (+ (car p3) zh) (cadr p3)))<br />       (setq p5(list (- (car p3) zh) (cadr p3)))<br />       (command "line" p1 p2 "")<br />       (command "circle" p3 zh)<br />       (command "line" p4 p5 "")<br />                 (while (> nn 1)<br />                    (setq p3(polar p3 anglee cd))<br />                   (setq p4(polar p4 anglee cd))<br />                    (setq p5(polar p5 anglee cd))<br />                    (command "circle" p3 zh)<br />                    (command "line" p4 p5 "")<br />                    (setq nn(1- nn))<br />                  <br />    (setvar "cmdecho" 1)<br />     (setvar "osmode" old);恢复捕捉 <br />     (princ)<br />   )<br /> (prompt "*************** 用快捷键gkh运行 *****************")<br /> <br /> (prin1)<br />

比如这个

fsxm

像这种命令用的不是太多时可以
在command中的pt处前面全加上"_non",
捕捉没必要关掉的~
关了捕捉时意外退出时还要写一个*error*来重设回osmode
总的说来没有太多command时就全用"_non"而不是(setvar "osmode" 0)~!

logo3490

你的問題不在 OSNAP
應該是你的圖並不是 2D ，所選的點 Z 軸不為零吧
而你程式中有的有去掉 Z 軸有的卻沒有
如 (setq anglee(angle p1 pp))
應為下列方式吧

(setq anglee        (angle (list (car p1) (cadr p1)) (list (car pp) (cadr pp))))


-----

(defun c:test ( / )

        (command "cmdecho" 0 )
        (setq old_osmode (getvar "OSMODE"))

        (initget 1)(setq p1 (getpoint "\n Base Point: "))
        (princ p1)
        (setvar "OSMODE" 0)
        (initget 1)(setq p2 (getpoint p1 "\n Direction Point: "))
        (princ p2)
        (if (/= 'INT  (type number)) (setq number 1))
        (initget 6)(setq num (getint (strcat "\n Bubble number <" (itoa number) ">: ")))
        (if (numberp num)(setq number num))

        (setq p1 (reverse (cdr (reverse p1))))
        (setq p2 (reverse (cdr (reverse p2))))

        (command "_LINE" p1 p2 "")

        (setq
                sca                (getvar "DIMSCALE")
                rad                6
                sz                (* sca rad)
                ang                (angle p1 p2)
                len                12

                ang2        (if (minusp (cos ang)) pi 0)
                p3                (polar p2 ang2 sz)
                cen                (polar p3 ang2 sz)
        ) ; end setq

        (command "_LINE" p1 p2 p3 "")
        (repeat number

                (setq
                        lp1                (polar cen 0 sz)
                        lp2                (polar cen pi sz)
                ) ; end setq
                (command "_CIRCLE" cen sz)
                (command "_LINE" lp1 lp2 "")
                (setq cen (polar cen ang2 (* sz 2)))
        ) ; end repeat

        (setvar "OSMODE" old_osmode)

        (princ)
)

(princ)