XDGE几何库应用(16)--滑动线

st788796

演示几个类用法 AcGeLine3d  AcGeCurveCurveInt3d

1. (defun c:tt (/ e1 e2 e3 gxl1 gxl2 glx3 v gcc getLine3d callback normal)
   
2.   (defun getLine3d (e)
   
3.     (xdge::constructor
   
4.       "kLine3d"
   
5.       (xdrx_curve_getstartpoint e)
   
6.       (xdrx_curve_getendpoint e)
   
7.     )
   
8.   )
   
9.   (defun callback (dynpt / p1 p2)
   
10.     (xdge::setpropertyvalue
    
11.       gxl3
    
12.       "set"
    
13.       dynpt
    
14.       (mapcar '+ dynpt v);_两个点
    
15.     ) ;_重新设置滑动xline
    
16.     (xdge::setpropertyvalue gcc "set" gxl1 gxl3 normal) ;_设置 边界1 和滑动线 相交体
    
17.     (setq p1 (xdge::getpropertyvalue gcc "IntPoint" 0)) ;_取交点1
    
18.     (xdge::setpropertyvalue gcc "set" gxl2 gxl3 normal) ;_设置 边界2 和滑动线 相交体
    
19.     (setq p2 (xdge::getpropertyvalue gcc "IntPoint" 0)) ;_取交点2
    
20.     (if        (and p1 p2 (> (distance p1 p2) 0.0)) ;_如果交点存在且不重合
    
21.       (progn
    
22.         ;;(princ "\n")
    
23.         ;;(princ p1)
    
24.         ;;(princ "\n")
    
25.         ;;(princ p2)
    
26.         (xdrx_setpropertyvalue e3 "startPoint" p1) ;_
    
27.         (xdrx_setpropertyvalue e3 "endPoint" p2)
    
28.       )
    
29.     )
    
30.   )
    
31.   (if (and (setq e1 (car (xdrx_entsel "\n第一边界: " '((0 . "line")))))
    
32.            (setq e2 (car (xdrx_entsel "\n第二边界: " '((0 . "line")))))
    
33.            (setq e3 (car (xdrx_entsel "\n滑动线: " '((0 . "line")))))
    
34.       )
    
35.     (progn
    
36.       (setq gxl1   (getLine3d e1) ;_构造边界 xline
    
37.             gxl2   (getLine3d e2) ;_构造边界 xline
    
38.             gxl3   (getLine3d e3) ;_构造滑动 xline
    
39.             normal (xdrx_getpropertyvalue e1 "Normal")
    
40.             v           (mapcar '-
    
41.                            (xdrx_curve_getstartpoint e3)
    
42.                            (xdrx_curve_getendpoint e3)
    
43.                    ) ;_滑动线方向向量
    
44.             gcc           (xdge::constructor "kCurveCurveInt3d") ;_构造一个相交体
    
45.       )
    
46.       (xdrx_pointmonitor "callback" e3) ;_点监视
    
47.       (getpoint "\nPoint")
    
48.       (xdrx_pointmonitor)
    
49.       (xdge::free)
    
50.     )
    
51.   )
    
52.   (princ)
    
53. )

(defun c:tt (/ e1 e2 e3 gxl1 gxl2 glx3 v gcc getLine3d callback normal)<br />   (defun getLine3d (e)<br />     (xdge::constructor<br />       "kLine3d"<br />       (xdrx_curve_getstartpoint e)<br />       (xdrx_curve_getendpoint e)<br />     )<br />   )<br />   (defun callback (dynpt / p1 p2)<br />     (xdge::setpropertyvalue<br />       gxl3<br />       "set"<br />       dynpt<br />       (mapcar '+ dynpt v);_两个点<br />     ) ;_重新设置滑动xline<br />     (xdge::setpropertyvalue gcc "set" gxl1 gxl3 normal) ;_设置 边界1 和滑动线 相交体<br />     (setq p1 (xdge::getpropertyvalue gcc "IntPoint" 0)) ;_取交点1<br />     (xdge::setpropertyvalue gcc "set" gxl2 gxl3 normal) ;_设置 边界2 和滑动线 相交体<br />     (setq p2 (xdge::getpropertyvalue gcc "IntPoint" 0)) ;_取交点2<br />     (if        (and p1 p2 (> (distance p1 p2) 0.0)) ;_如果交点存在且不重合<br />       (progn<br />         ;;(princ "\n")<br />         ;;(princ p1)<br />         ;;(princ "\n")<br />         ;;(princ p2)<br />         (xdrx_setpropertyvalue e3 "startPoint" p1) ;_<br />         (xdrx_setpropertyvalue e3 "endPoint" p2)<br />       )<br />     )<br />   )<br />   (if (and (setq e1 (car (xdrx_entsel "\n第一边界: " '((0 . "line")))))<br />            (setq e2 (car (xdrx_entsel "\n第二边界: " '((0 . "line")))))<br />            (setq e3 (car (xdrx_entsel "\n滑动线: " '((0 . "line")))))<br />       )<br />     (progn<br />       (setq gxl1   (getLine3d e1) ;_构造边界 xline<br />             gxl2   (getLine3d e2) ;_构造边界 xline<br />             gxl3   (getLine3d e3) ;_构造滑动 xline<br />             normal (xdrx_getpropertyvalue e1 "Normal")<br />             v           (mapcar '-<br />                            (xdrx_curve_getstartpoint e3)<br />                            (xdrx_curve_getendpoint e3)<br />                    ) ;_滑动线方向向量<br />             gcc           (xdge::constructor "kCurveCurveInt3d") ;_构造一个相交体<br />       )<br />       (xdrx_pointmonitor "callback" e3) ;_点监视<br />       (getpoint "\nPoint")<br />       (xdrx_pointmonitor)<br />       (xdge::free)<br />     )<br />   )<br />   (princ)<br /> )

明天你好

不错哟，谢谢分享

freedake

这个几何库需要加载什么吗，光有晓东数据库似乎还不够

st788796

freedake 发表于 2014-9-24 08:23
这个几何库需要加载什么吗，光有晓东数据库似乎还不够

只需要加载对应acad版本的xdrxapi一个arx文件
更完善版本即将提供下载