【AcBr库应用（五）】求直线与任意曲面、3DSOLID实体的交点

q3_2006

newer 发表于 2020-5-14 13:32
求交应该是 面 ， 不是点，由面 求 边（线）， 边在求点
去看看ARX手册，arxref.chm

arx门槛太高了真看不懂下不了手,拜托帮我修改一下嘛 我并没有无理取闹我要解决的问题..这堆石头自然下落到跟任意一个石块有交点就停止运动.lisp只能用布尔运算解决,但速度太慢无法忍受,晓东就是秒杀的事..请帮我改改吧..

Lisphk

q3_2006 发表于 2020-5-15 11:33
arx门槛太高了真看不懂下不了手,拜托帮我修改一下嘛 我并没有无理取闹我要解决的问题..这堆石头自然下落 ...

这么复杂的图，把DWG压缩传上来吧

q3_2006

Lisphk 发表于 2020-5-15 14:13
这么复杂的图，把DWG压缩传上来吧

不用处理图..就写个两三维体求交点的函数就行了..我只调用..

XDSoft

q3_2006 发表于 2020-5-15 16:25
不用处理图..就写个两三维体求交点的函数就行了..我只调用..

去下载2020.0517更新的API，更简化了操作

1. (defun c:tt ()
   
2.   (xdrx-begin)
   
3.   (if (and (setq e1 (car (entsel "\n选择三维实体1<退出>:")))
   
4.            (setq brep1 (xdbr::constructor e1))
   
5.            (setq faces1 (xdbr::getpropertyvalue brep1 "alltrimmednurbfaces")
   
6.                  faces1 (xd::list:flat faces1))
   
7.            (setq e2 (car (entsel "\n选择三维实体2<退出>:")))
   
8.            (setq brep2 (xdbr::constructor e2))
   
9.            (setq faces2 (xdbr::getpropertyvalue brep2 "alltrimmednurbfaces")
   
10.                  faces2 (xd::list:flat faces2))
    
11.       )
    
12.     (progn
    
13.       (setq i 0 m 0)
    
14.       (foreach f1 faces1
    
15.         (setq i (1+ i))
    
16.         (setq j 0)
    
17.         (xdrx-prompt "\n")
    
18.         (foreach f2 faces2
    
19.           (setq j (1+ j))
    
20.           (setq ints (xdge::constructor "kSurfaceSurfaceInt" f1 f2))
    
21.           (setq nums (xdge::getpropertyvalue ints "numresults"))
    
22.           (if (> nums 0)
    
23.             (progn
    
24.               (setq m (1+ m))
    
25.               (xdrx-prompt "\n三维体1面 " i " 同三维体2面 " j " 相交")))
    
26.         )
    
27.       )
    
28.       (xdrx-prompt "\n共发现 " m "个面有交点")
    
29.     )
    
30.   )
    
31.   (xdrx-end)
    
32.   (princ)
    
33. )
    
34. 
    

(defun c:tt ()<br />   (xdrx-begin)<br />   (if (and (setq e1 (car (entsel "\n选择三维实体1<退出>:")))<br />            (setq brep1 (xdbr::constructor e1))<br />            (setq faces1 (xdbr::getpropertyvalue brep1 "alltrimmednurbfaces")<br />                  faces1 (xd::list:flat faces1))<br />            (setq e2 (car (entsel "\n选择三维实体2<退出>:")))<br />            (setq brep2 (xdbr::constructor e2))<br />            (setq faces2 (xdbr::getpropertyvalue brep2 "alltrimmednurbfaces")<br />                  faces2 (xd::list:flat faces2))<br />       )<br />     (progn<br />       (setq i 0 m 0)<br />       (foreach f1 faces1<br />         (setq i (1+ i))<br />         (setq j 0)<br />         (xdrx-prompt "\n")<br />         (foreach f2 faces2<br />           (setq j (1+ j))<br />           (setq ints (xdge::constructor "kSurfaceSurfaceInt" f1 f2))<br />           (setq nums (xdge::getpropertyvalue ints "numresults"))<br />           (if (> nums 0)<br />             (progn<br />               (setq m (1+ m))<br />               (xdrx-prompt "\n三维体1面 " i " 同三维体2面 " j " 相交")))<br />         )<br />       )<br />       (xdrx-prompt "\n共发现 " m "个面有交点")<br />     )<br />   )<br />   (xdrx-end)<br />   (princ)<br /> )<br /> <br />

命令: TT
选择三维实体1<退出>:
选择三维实体2<退出>:

三维体1面 1 同三维体2面 2 相交
三维体1面 1 同三维体2面 4 相交
三维体1面 1 同三维体2面 5 相交

三维体1面 2 同三维体2面 2 相交
三维体1面 2 同三维体2面 4 相交
三维体1面 2 同三维体2面 5 相交
三维体1面 2 同三维体2面 6 相交
共发现 7个面有交点

q3_2006

XDSoft 发表于 2020-5-17 16:20
去下载2020.0517更新的API，更简化了操作

太感谢了..老大帮忙写了..我都没看到..

q3_2006

XDSoft 发表于 2020-5-17 16:20
去下载2020.0517更新的API，更简化了操作

老大..函数只判断了相交..没求出交点呀..能不能帮到底呀..万分感谢

q3_2006

XDSoft 发表于 2020-5-17 16:20
去下载2020.0517更新的API，更简化了操作

不会C++也太难了..想支付点费用帮助解决问题..都被拒绝..