执行ENTSEL时，如何设置对象捕捉？

fools

1. 
   
2. ;;获取PLINE线上选取点处的“段”信息
   
3. (DEFUN GetSegAtPline (obj p / P1 P2 PA PN)
   
4.   (SETQ        pn (VLAX-CURVE-GETCLOSESTPOINTTO obj (TRANS p 1 0))
   
5.         pa (FIX (VLAX-CURVE-GETPARAMATPOINT obj pn))
   
6.         p1 (VLAX-CURVE-GETPOINTATPARAM obj pa) ;_选取段起点
   
7.         p2 (VLAX-CURVE-GETPOINTATPARAM obj (1+ pa)) ;_选取段终点
   
8.   )
   
9.   (list p1 p2) ;_返回需要的点或点集
   
10. )
    
11. 
    
12. ;;测试
    
13. (DEFUN c:tt (/ e pts)
    
14.   (IF (SETQ e (ENTSEL "\n选择多义线："))
    
15.     (PROGN (SETQ pts (GetSegAtPline (VLAX-ENAME->VLA-OBJECT (CAR e)) (CADR e)))
    
16.            (COMMAND ".line" (car pts) (cadr pts) "")
    
17.     )
    
18.   )
    
19.   (PRINC)
    
20. )
    

复制代码

被承包的东子

itoboy 发表于 2017-8-11 20:24
很显然，你说的这些都是能查到的，请问跟我的问题有什么关系？

自己想去，真是无语，搞笑

itoboy

被承包的东子 发表于 2017-8-12 08:50
自己想去，真是无语，搞笑

就是想不明白才来请教啊
烦请高手明示

llsheng_73

如果只是要entsel所点击位置附近的最近点或者最近端点的话就比较简单，

1. (defun tt(ent f / e p);;ent(曲线图元 点)f=T 最近端点 nil最近点
   
2.   (vl-load-com)
   
3.   (if(VL-CATCH-ALL-ERROR-P(setq e(car ent)p(VL-CATCH-ALL-APPLY'vlax-curve-getClosestPointTo ent)))
   
4.     nil
   
5.     (if f(vlax-curve-getpointatparam e(fix(+(vlax-curve-getparamatpoint e p)0.5)))p)))

(defun tt(ent f / e p);;ent(曲线图元 点)f=T 最近端点 nil最近点<br />   (vl-load-com)<br />   (if(VL-CATCH-ALL-ERROR-P(setq e(car ent)p(VL-CATCH-ALL-APPLY'vlax-curve-getClosestPointTo ent)))<br />     nil<br />     (if f(vlax-curve-getpointatparam e(fix(+(vlax-curve-getparamatpoint e p)0.5)))p)))

clh521

(setq mpt (osnap (last(entsel)) "_nod,_int,_nea"))  ;;捕捉节点，交点，最近点

WSF001

0，无  
1，end
2，mid
4，cen
8，节点
16，象限点
32，int
64，插入点
128，垂直点。
256，切点
512，nea
1024，快捷