如何查找其它对象与指定曲线的交点

Backkom

在不选择其它对象的情况下，找出所有其它对象与指定曲线实交的交点，请教站内大神用lisp如何实现呢

marting

1、曲线获取样本点
2、构造样本点 F 选择集（其他对象）
3、循环选集，vla-intersectwitdh求曲线和对象交点，存表

evayleung

谢谢分享。。。。。。。。。。。。。。。。。。。。。。。。。

Backkom

marting 发表于 2019-3-8 21:35
1、曲线获取样本点
2、构造样本点 F 选择集（其他对象）
3、循环选集，vla-intersectwitdh求曲线和对象交 ...

谢谢，我来试试

marting

Backkom 发表于 2019-3-10 13:55
谢谢，我来试试

使用 F 构建选择集，记得确保所有点在屏幕内显示。

Backkom

好的，谢谢大神提醒

newer

Backkom 发表于 2019-3-10 16:04
好的，谢谢大神提醒

XDRA API 实现很简单的代码

1. (defun c:tt ()
   
2.   (if (setq e (car (xdrx_entsel
   
3.                      "\n拾取曲线<退出>:"
   
4.                      '((0 . "*line,arc,circle,ellipse"))
   
5.                    )
   
6.               )
   
7.       )
   
8.     (progn (xd::doc:safezoom e)
   
9.            (if (and (setq pts (xdrx_getsamplept e))
   
10.                     (setq ss (ssget "f" pts))
    
11.                     (> (sslength ss) 1)
    
12.                )
    
13.              (progn (ssdel e ss)
    
14.                     (setq ints (xdrx_get_inters e ss))
    
15.                     (xdrx_prompt "\n找到" (length ints) "个交点.")
    
16.                     (xdrx_setvar "pdmode" 33)
    
17.                     (xdrx_point_make ints)
    
18.              )
    
19.            )
    
20.     )
    
21.   )
    
22.   (princ)
    
23. )
    

(defun c:tt ()<br />   (if (setq e (car (xdrx_entsel<br />                      "\n拾取曲线<退出>:"<br />                      '((0 . "*line,arc,circle,ellipse"))<br />                    )<br />               )<br />       )<br />     (progn (xd::doc:safezoom e)<br />            (if (and (setq pts (xdrx_getsamplept e))<br />                     (setq ss (ssget "f" pts))<br />                     (> (sslength ss) 1)<br />                )<br />              (progn (ssdel e ss)<br />                     (setq ints (xdrx_get_inters e ss))<br />                     (xdrx_prompt "\n找到" (length ints) "个交点.")<br />                     (xdrx_setvar "pdmode" 33)<br />                     (xdrx_point_make ints)<br />              )<br />            )<br />     )<br />   )<br />   (princ)<br /> )<br />

Backkom

newer 发表于 2019-3-10 16:42
XDRA API 实现很简单的代码

API很厉害