[求助]：如何让程序计算出的点优先于捕捉点？

ohmylove

把下面的保存为lsp文件，加载试试。

2. 
   
3. (defun recover_snap ( reactor_object lisp_list / )
   
4.         (setvar "osmode" $$mpt_osmode)
   
5.         (vlr-remove $$mptReactor)
   
6. )
   
7. 
   
8. (defun mpt ( / a b mx my mz )
   
9.         (while (not (setq a (getpoint "\nFirst Point : "))))
   
10.         (while (not (setq b (getpoint a "\nSecond Point: "))))
    
11.         (setq mx (/ (+ (car b) (car a)) 2.0))
    
12.         (setq my (/ (+ (cadr b) (cadr a)) 2.0))
    
13.         (setq mz (/ (+ (caddr b) (caddr a)) 2.0))
    
14.         (setq $$mpt_osmode (getvar "osmode"))
    
15.         (setvar "osmode" 0)
    
16.         (setq $$mptReactor (vlr-lisp-reactor data '((:vlr-lispEnded . recover_snap))))
    
17.         (setq pt (list mx my mz))
    
18. )
    

<br /> (defun recover_snap ( reactor_object lisp_list / )<br />         (setvar "osmode" $$mpt_osmode)<br />         (vlr-remove $$mptReactor)<br /> )<br /> <br /> (defun mpt ( / a b mx my mz )<br />         (while (not (setq a (getpoint "\nFirst Point : "))))<br />         (while (not (setq b (getpoint a "\nSecond Point: "))))<br />         (setq mx (/ (+ (car b) (car a)) 2.0))<br />         (setq my (/ (+ (cadr b) (cadr a)) 2.0))<br />         (setq mz (/ (+ (caddr b) (caddr a)) 2.0))<br />         (setq $$mpt_osmode (getvar "osmode"))<br />         (setvar "osmode" 0)<br />         (setq $$mptReactor (vlr-lisp-reactor data '((:vlr-lispEnded . recover_snap))))<br />         (setq pt (list mx my mz))<br /> )<br />

doubao

ohmylove，你真是个大好人， 试了一下果真好用。 我一定好好学习一下您的程序。


也多谢xyp1964的参考程序。该程序对掌握在程序中控制osnap有很大帮助。

jx2008

xyp1964的方法很好，我已开始不会，后来自己参考了xyp1964的程序才行出来的。