动态坐标查询

Lispboy

1. (defun c:xdtb_coordschk (/ dynpt lastpoint p p1 x y z)
   
2.   (defun _callback (dynpt)
   
3.     (setq p dynpt)
   
4.     (cond
   
5.       ((setq p1 (osnap (trans p 0 1) "int"))
   
6.         (setq p p1)
   
7.       )
   
8.       ((setq p1 (osnap (trans p 0 1) "end"))
   
9.         (setq p p1)
   
10.       )
    
11.     )
    
12.     (if (and
    
13.           p1
    
14.           (not (equal p1 lastpoint 1e-3))
    
15.         )
    
16.       (progn
    
17.         (setq p1 (trans p1 1 0))
    
18.         (setq x (cadr p1)
    
19.               y (car p1)
    
20.               z (last p1)
    
21.         )
    
22.         (xdrx_prompt "\rX=" (rtos x 2 4) "\tY=" (rtos y 2 4) "\tZ="
    
23.                      (rtos z 2 4)
    
24.         )
    
25.       )
    
26.       (if (not p1)
    
27.         (xdrx_prompt "\r没有发现特征点...                                       ")
    
28.       )
    
29.     )
    
30.     (setq lastpoint p1)
    
31.   )
    
32.   (xdrx_begin)
    
33.   (xdrx_sysvar_push '("osmode" 33))
    
34.   (xdrx_pointmonitor "_callback")
    
35.   (getpoint "\n查询坐标<退出>:\n")
    
36.   (xdrx_pointmonitor)
    
37.   (xdrx_sysvar_pop)
    
38.   (xdrx_end)
    
39.   (princ)
    
40. )
    

(defun c:xdtb_coordschk (/ dynpt lastpoint p p1 x y z)<br />   (defun _callback (dynpt)<br />     (setq p dynpt)<br />     (cond<br />       ((setq p1 (osnap (trans p 0 1) "int"))<br />         (setq p p1)<br />       )<br />       ((setq p1 (osnap (trans p 0 1) "end"))<br />         (setq p p1)<br />       )<br />     )<br />     (if (and<br />           p1<br />           (not (equal p1 lastpoint 1e-3))<br />         )<br />       (progn<br />         (setq p1 (trans p1 1 0))<br />         (setq x (cadr p1)<br />               y (car p1)<br />               z (last p1)<br />         )<br />         (xdrx_prompt "\rX=" (rtos x 2 4) "\tY=" (rtos y 2 4) "\tZ="<br />                      (rtos z 2 4)<br />         )<br />       )<br />       (if (not p1)<br />         (xdrx_prompt "\r没有发现特征点...                                       ")<br />       )<br />     )<br />     (setq lastpoint p1)<br />   )<br />   (xdrx_begin)<br />   (xdrx_sysvar_push '("osmode" 33))<br />   (xdrx_pointmonitor "_callback")<br />   (getpoint "\n查询坐标<退出>:\n")<br />   (xdrx_pointmonitor)<br />   (xdrx_sysvar_pop)<br />   (xdrx_end)<br />   (princ)<br /> )<br />

kqqt6236

啥也不说了，感谢楼主分享哇！

alliuyx

确实是难得好帖啊，顶先

sicky111

啥也不说了，感谢楼主分享哇！

香远益清

测试结果很满意，感谢作者分享，赞一个。

齐天大圣悟空

GANXIEFENXIANG!!

yaojing38

谢谢分享，，很实用