XDGE几何库应用(24)---曲线打断

Lispboy

研究了几天几何库，试着写个教学，望高手指正

用XDGE几何库实现曲线打断（主要功能）的代码

一、单点打断

1. (defun c:tt1()
   
2.     (if (and (setq e (xdrx_entsel "\n拾取要单点打断的曲线<退出>:" '((0 . "*LINE,ARC,CIRCLE,ELLIPSE"))))
   
3.              (setq ge1 (xdge::constructor (car e)))
   
4.              (setq ge2 (xdge::copy ge1))
   
5.              (setq intval (xdge::getpropertyvalue ge1 "getInterval"))
   
6.         )
   
7.       (progn
   
8.           (setq intval (car intval)
   
9.                 bounds (xdge::getpropertyvalue intval "getBounds")
   
10.                 lower (car bounds)
    
11.                 upper (cadr bounds)
    
12.                 param (xdge::getpropertyvalue ge1 "paramOf" (cadr e))
    
13.                 intval1 (xdge::constructor "AcGeInterval" lower param)
    
14.                 intval2 (xdge::constructor "AcGeInterval" param upper)
    
15.           )
    
16.           (if (xdge::setpropertyvalue ge1 "setInterval" intval1);;设置曲线1的起始、结束参数
    
17.              (xdge::entity:make ge1)
    
18.           )
    
19.           (if (xdge::setpropertyvalue ge2 "setInterval" intval2);;设置曲线2的起始、结束参数
    
20.              (xdge::entity:make ge2)
    
21.           )
    
22.           (xdrx_entity_delete (car e))
    
23.           (xdge::free)
    
24.       )
    
25.     )
    
26.     (princ)
    
27. )
    

(defun c:tt1()<br />     (if (and (setq e (xdrx_entsel "\n拾取要单点打断的曲线<退出>:" '((0 . "*LINE,ARC,CIRCLE,ELLIPSE"))))<br />              (setq ge1 (xdge::constructor (car e)))<br />              (setq ge2 (xdge::copy ge1))<br />              (setq intval (xdge::getpropertyvalue ge1 "getInterval"))<br />         )<br />       (progn<br />           (setq intval (car intval)<br />                 bounds (xdge::getpropertyvalue intval "getBounds")<br />                 lower (car bounds)<br />                 upper (cadr bounds)<br />                 param (xdge::getpropertyvalue ge1 "paramOf" (cadr e))<br />                 intval1 (xdge::constructor "AcGeInterval" lower param)<br />                 intval2 (xdge::constructor "AcGeInterval" param upper)<br />           )<br />           (if (xdge::setpropertyvalue ge1 "setInterval" intval1);;设置曲线1的起始、结束参数<br />              (xdge::entity:make ge1)<br />           )<br />           (if (xdge::setpropertyvalue ge2 "setInterval" intval2);;设置曲线2的起始、结束参数<br />              (xdge::entity:make ge2)<br />           )<br />           (xdrx_entity_delete (car e))<br />           (xdge::free)<br />       )<br />     )<br />     (princ)<br /> )<br />

一、两点打断

1. (defun c:tt2()
   
2.     (if (and (setq e (xdrx_entsel "\n拾取要两点打断的曲线<退出>:" '((0 . "*LINE,ARC,CIRCLE,ELLIPSE"))))
   
3.              (setq p1 (getpoint "\n第一点<退出>:"))
   
4.              (setq p2 (getpoint p1 "\n第二点<退出>:"))
   
5.              (setq ge1 (xdge::constructor (car e)))
   
6.              (setq ge2 (xdge::copy ge1)) ;;复制一个
   
7.              (setq intval (xdge::getpropertyvalue ge1 "getInterval"))
   
8.              (setq param1 (xdge::getpropertyvalue ge1 "paramOf" p1))
   
9.              (setq param2 (xdge::getpropertyvalue ge1 "paramOf" p2))
   
10.         )
    
11.       (progn
    
12.           (setq pa1 (min param1 param2)
    
13.                 pa2 (max param1 param2)
    
14.                 intval (car intval)
    
15.                 bounds (xdge::getpropertyvalue intval "getBounds")
    
16.                 lower (car bounds)
    
17.                 upper (cadr bounds)
    
18.                 intval1 (xdge::constructor "AcGeInterval" lower pa1)
    
19.                 intval2 (xdge::constructor "AcGeInterval" pa2 upper)
    
20.           )
    
21.           (if (and (xdge::setpropertyvalue ge1 "setInterval" intval1);;设置曲线1的起始、结束参数
    
22.                    (> (xdge::getpropertyvalue ge1 "Length") 0) ;;长度大于0生成
    
23.               )
    
24.              (xdge::entity:make ge1)
    
25.           )
    
26.           (if (and (xdge::setpropertyvalue ge2 "setInterval" intval2);;设置曲线2的起始、结束参数
    
27.                    (> (xdge::getpropertyvalue ge2 "Length") 0);;长度大于0生成
    
28.               )
    
29.              (xdge::entity:make ge2)
    
30.           )
    
31.           (xdrx_entity_delete (car e))
    
32.           (xdge::free)
    
33.       )
    
34.     )
    
35.     (princ)
    
36. )      
    

(defun c:tt2()<br />     (if (and (setq e (xdrx_entsel "\n拾取要两点打断的曲线<退出>:" '((0 . "*LINE,ARC,CIRCLE,ELLIPSE"))))<br />              (setq p1 (getpoint "\n第一点<退出>:"))<br />              (setq p2 (getpoint p1 "\n第二点<退出>:"))<br />              (setq ge1 (xdge::constructor (car e)))<br />              (setq ge2 (xdge::copy ge1)) ;;复制一个<br />              (setq intval (xdge::getpropertyvalue ge1 "getInterval"))<br />              (setq param1 (xdge::getpropertyvalue ge1 "paramOf" p1))<br />              (setq param2 (xdge::getpropertyvalue ge1 "paramOf" p2))<br />         )<br />       (progn<br />           (setq pa1 (min param1 param2)<br />                 pa2 (max param1 param2)<br />                 intval (car intval)<br />                 bounds (xdge::getpropertyvalue intval "getBounds")<br />                 lower (car bounds)<br />                 upper (cadr bounds)<br />                 intval1 (xdge::constructor "AcGeInterval" lower pa1)<br />                 intval2 (xdge::constructor "AcGeInterval" pa2 upper)<br />           )<br />           (if (and (xdge::setpropertyvalue ge1 "setInterval" intval1);;设置曲线1的起始、结束参数<br />                    (> (xdge::getpropertyvalue ge1 "Length") 0) ;;长度大于0生成<br />               )<br />              (xdge::entity:make ge1)<br />           )<br />           (if (and (xdge::setpropertyvalue ge2 "setInterval" intval2);;设置曲线2的起始、结束参数<br />                    (> (xdge::getpropertyvalue ge2 "Length") 0);;长度大于0生成<br />               )<br />              (xdge::entity:make ge2)<br />           )<br />           (xdrx_entity_delete (car e))<br />           (xdge::free)<br />       )<br />     )<br />     (princ)<br /> )      <br />

两个程序的主要原理都是建立曲线几何模型，然后拷贝复制一个，然后通过设置两个GE曲线的起始、终止参数来实现打断的，主要的几何库打断函数用的是 (xdge::setpropertyvalue ge "setInterval" intval)

st788796

Interval 对 spline 好像不行，闭合的更不行，其他没问题

jiang__jin

学习学习!!